Ir para conteúdo
  • Cadastre-se

dreamsoft_PR

Membros
  • Total de ítens

    634
  • Registro em

  • Última visita

Posts postados por dreamsoft_PR

  1. Ola pessoal, hoje eu uso um componente do elivaldo key que gera chaves para liberar o exe para o cliente

    so que estou pensando em bolar algo diferente o sistema indo numa base nas nuvens vereficando se cliente esta em dia e liberando sozinho

    mas tem algum componente em acbr ou algo do tipo para eu gerar chaves criptografadas 

  2. Ola, pessoal 

    estou com uma duvida , nao posso fazer um group by nesse sql

    quero trazer os clientes que devem mais de 3 mensalidade 

    so que fiz um subselect mais esta trazendo quem deve um

    os outros sql que tem no where tambem é necessario:

    WHERE
      ( C.TIPO_REG ='R'  AND C.STATUS='A' AND C.CODCONT IS NOT NULL  AND
    COALESCE(EXTRACT(DAY FROM  C.DATA_REMA )  , EXTRACT(DAY FROM  C.DATVENC )   ) BETWEEN :DATAVENC_01 AND :DATAVENC02  AND
    (COALESCE( EXTRACT(month FROM  C.DATA_REMA ) ,  EXTRACT(month FROM   C.DATVENC )   ) <=:MES AND   COALESCE( EXTRACT(year FROM  C.DATA_REMA ) ,  EXTRACT(year FROM   C.DATVENC )   ) <=:ANO))
    and
     (  SELECT (COALESCE(COUNT(E1.ID_REC_PAG),0)) FROM  TAB_CONTA_REC_PAG E1  WHERE e.status ='A' and e1.CODCONT IS NOT null and  E1.CODCLIE = C.CODCLIE  AND E1.STATUS='A'  GROUP BY  E1.CODCLIE )>=:QTD_PARC
     

     

  3. humm.. certo digamos que ira cancelar ou mudar os itens depois que confirmou a venda.. vc usa a triger em modo update ? e como vc diferencia se esta sendo modificada para mais ou menos nos itens da venda(em caso de edição  ou cancelamento)

  4. minha Procedure:

     

    begin
       if ( :OPE = 'V_N') then
          begin
            for
             select
                T.codprod,
                T.qtdprod,
                p.kitstau
              from
                tab_item T
              left join tab_vend TS on (TS.codvend = t.codvend)
              left join tab_prod P on (P.codprod = t.codprod)
              where
                T.codvend =:codvend
            into
             :codprod, :qtdprod, :kit

            do
             begin
             if (KIT = 'N' ) then
               begin
                 update tab_prod  set ESTPRODE = (ESTPRODE - :qtdprod)
                 where codprod =:codprod;
               end
             else
               begin
                 for
                   select
                     i.intkite,
                     i.qtdikit
                   from
                     tab_ikit i
                   where
                     i.codprod =:codprod
                into
                  :codprod1, :qtdprod1

                do
                 update tab_prod  set ESTPRODE = (ESTPRODE -    (:qtdprod1 * :qtdprod ))
                 where codprod =:codprod1;
                 update tab_prod  set ESTPRODE = (ESTPRODE - :qtdprod)
                 where codprod =:codprod;


               end

               end
          end
     

    disparo quando ele salva a venda.. mas se abrir ele reabre o estoque

    9 horas atrás, Marcelo Calvi Belanga disse:

    @dreamsoft_PR depende muito de como seu aplicativo deve e quando baixar o estoque. Como o @Sérgio Assunção disse, é uma tarefa simples.

    No meu caso faço através de trigger somente quando a venda é confirmada.

    Como está essa sua SP? E quando você dispara ela?

    e como vc usar essa triger em caso dele editar a venda e mudar os produtos ou deletar 

  5. foi atualizar todo , baixei novamente etc... marquei que vou usar o fastreport mas para nesse

    C:\Componentes Delphi10\ACBR\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast\ACBrGNREGuiaFRDM.pas(362) Error: E2003 Undeclared identifier: 'Transparency'
    C:\Componentes Delphi10\ACBR\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast\ACBrGNREGuiaFRDM.pas(371) Error: E2003 Undeclared identifier: 'PdfA'
    C:\Componentes Delphi10\ACBR\Fontes\ACBrDFe\ACBrGNRE\GNRE\Fast\ACBrGNREGuiaFR.pas(2107) Fatal: F2063 Could not compile used unit 'ACBrGNREGuiaFRDM.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_GNREGuiaFR.dpk".

    Abortando... Ocorreram erros na compilação dos pacotes.

  6. image.thumb.png.e319c9ec53dfea3524cb151e3b12d363.png


    coloquei assim, e no usuario e senha coloquei meus dados que uso no site da PF

    depois que coloquei como estava acima na hora de enviar ou gerar agora da isso

     

    image.thumb.png.e86266146ee012b812d6d3f15e559280.png

  7. ola pessoal, estou usando seguinte comando

      {$IFNDEF ACBrNFeOpenSSL}
       cxDBButtonEdit3.Text := ACBrNFe1.SSL.SelecionarCertificado;
      {$ENDIF}

    eu coloquei ja o  ACBrNFe1 e ACBrMDFe1 

     

    nessa tela é aonde eu so configuro o certificado primeiro 

     

     

    so que da esse erro 

     

    Sem título.png

  8. ola, ainda estou começando a ver isso me tira uma duvida eu ja praticamente montei na versao 3.10 as telas etc... queria saber eu mudando a versao para 4.0 tenho que mudar alguma coisa ou proprio componente se encarrega de fazer isso 

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.