Ir para conteúdo
  • Cadastre-se

joaoagra

Membros
  • Total de ítens

    56
  • Registro em

  • Última visita

  • Days Won

    2

Community Answers

  1. joaoagra's post in Campos extras was marked as the answer   
    assim:
    with ACBrGNRE1.Guias.Add.GNRE do
    begin
    ....
    with camposExtras.Add.CampoExtra do
    begin
        codigo                              := 
        tipo                                   := 
        valor                                 := 
     
    end;
     
    end;
  2. joaoagra's post in ACBrHTTPReqResp was marked as the answer   
    Olá, favor desconsiderar o tópico.
    problema resolvido!
    o erro apresentado tem relação com o certificado digital, reinstalei o certificado e solucionou o problema.
     
  3. joaoagra's post in Clisitef Seq.68 (Roteiro De Homologação Clisitef) was marked as the answer   
    Olá! Daniel, resolvi o problema no Evento OnInfoECF como você orientou, segue ...
     
    Obrigado mais uma vez pela orientação, assim que concluir o processo da homologação vou dar a minha contribuição para o projeto.
     

       try
          if not ACBrECF1.Ativo then
             ACBrECF1.Ativar ;
       except
          { Para CliSiTEF ou V&SPague aplique o IF abaixo em sua aplicação, que
            permite saber se o Cupom foi concluido mesmo com o ECF desligado }

          if (not ACBrTEFD.TEF.Inicializado) and   { Está na inicialização ? }
             (Operacao = ineEstadoECF) and          { Quer Saber o estado do ECF ? (mas se chegou aqui é pq o ECF já está com problemas) }
             (ACBrTEFD.GPAtual in [gpCliSiTef,gpVeSPague]) then
          begin
                  if TotalRecebido>=TotalVenda then
                  RetornoECF := 'R'
               else
                  RetornoECF := 'O' ;
             exit ;
          end ;

          raise ;
       end;

       case Operacao of
         ineSubTotal :
           begin
             ASubTotal := ACBrECF1.Subtotal ;
             ASubTotal := ASubTotal - ACBrECF1.TotalPago +
                          StringToFloatDef(DesontoAcrescimo, 0);

             RetornoECF := FloatToStr( ASubTotal ) ;
           end;

    {     ineTotalAPagar :
           RetornoECF := FloatToStr( CalculaTotalPago ); }

         ineEstadoECF :
           begin
             Case ACBrECF1.Estado of
               estLivre     : RetornoECF := 'L' ;
               estVenda     : RetornoECF := 'V' ;
               estPagamento : RetornoECF := 'P' ;
               estRelatorio : RetornoECF := 'R' ;
               estNaoFiscal : RetornoECF := 'N' ;
             else
               RetornoECF := 'O' ;
             end;
           end;
       end;
     
×
×
  • 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.