Ir para conteúdo
  • Cadastre-se

Werner_Marques

Membros Pro
  • Total de ítens

    780
  • Registro em

  • Última visita

Posts postados por Werner_Marques

  1. Boa tarde 

    Caro colegas encontro-me com um problema em um determinado cliente que está sendo recorrente. Está apresentando o seguinte erro todas as vezes ao abrir o projeto, sendo que o arquivo encontra-se dentro da pasta.

    Arquivo Auxiliar Criptografado "(C:\PDVlite\LISTAECF)" não encontrado.

    Ex: Durante uma venda houve uma queda de energia e maquina foi desligada, ao retornar e abrir o sistema, retorna com essa mensagem, sendo que o arquivo ainda encontra-se dentro da pasta. Esse é apenas um exemplo, mais o que está acontecendo frequente, e mesmo ao final do expediente a máquina é desligada normalmente, e ao retornar no outro dia o problema volta a acontecer. Gostaria de saber o que está levando a acontecer isso com frequência? A impressora fiscal BEMATECH mp-2100 fi. 

    Código do meu sistema que está sendo executado e o do componente do ACBr:

      ACBrAAC.NomeArquivoAux:= ExtractFileDir(ParamStr(0))+'\ListaECF';
       ACBrAAC.AbrirArquivo;

       try
           for i:= 0 to ACBrAAC.IdentPAF.ECFsAutorizados.Count-1 do begin

                if (TRIM(impfiscal.NumeroSerie) = TRIM(ACBrAAC.IdentPAF.ECFsAutorizados.Objects.NumeroSerie)) and
                   (impfiscal.GT = ACBrAAC.IdentPAF.ECFsAutorizados.Objects.ValorGT)  then begin

                    result:= True;
                    AtivaDesativaMenu(1);
                    Break;
                end
                else begin

                  if (TRIM(impfiscal.NumeroSerie) <> TRIM(ACBrAAC.IdentPAF.ECFsAutorizados.Objects.NumeroSerie)) then
                    showmessage(impfiscal.NumeroSerie+' '+ ACBrAAC.IdentPAF.ECFsAutorizados.Objects.NumeroSerie);

                  if (impfiscal.GT <> ACBrAAC.IdentPAF.ECFsAutorizados.Objects.ValorGT)  then
                    showmessage(floattostr(impfiscal.GT) +' '+ floattostr(ACBrAAC.IdentPAF.ECFsAutorizados.Objects.ValorGT));

                    AtivaDesativaMenu(0);
                    result:= False;

                end;
           end;
       except
       end;

     

    Componente ACBR:

      GravaLog( 'AbrirArquivo');

      Continua := True;
      if Assigned( fsOnAntesAbrirArquivo ) then
         fsOnAntesAbrirArquivo( Continua );

      if not Continua then
      begin
         GravaLog( 'AbrirArquivo abortado' );
         exit;
      end ;

      if NomeArquivoAux = '' then
         raise EACBrAAC_SemNomeArquivo.Create( ACBrStr('Nome do Arquivo não Informado em: ACBrAAC.NomeArquivoAux') ) ;

      if not FileExists( fsNomeCompleto ) then
         raise EACBrAAC_ArqNaoEncontrado.Create(
            ACBrStr( 'Arquivo Auxiliar Criptografado'+sLineBreak+
                     '"'+NomeArquivoAux+'"'+sLineBreak+
                     'não encontrado') );

    ..........

  2. Dentro do componente não existe nenhum mecanismo que relacione NCMs antigos com os atualizados?

    Ex: O Produto A  tinha o NCM = 10 e com a nova mudança passou a ter o NCM = 20 pelo componente tenho como identificar essa alteração de NCM?

    Percebi que o método para validar o NCM precisa que a máquina esteja conectada a internet, como faço para computadores que não tem conexão?

  3. Bom dia 

    Poderiam me informar se a validação do NCM no componente ACBrNCM já está atualizado para a nova tabela de códigos?  

    Também gostaria de saber se teria alguma opção de ser modificado os NCMs antigos para os novos?

  4. Percebi, que em algumas mensagens tem o numero 1860 na coluna de telefone é assim mesmo? meu intuito é de receber uma lista com o numero e a mensagem enviada, devo fazer isso por esse método mesmo ou existe alguma outra maneira? 

  5. Boa tarde a todos.

    Estou com dúvidas a respeito do método "listar mensagens" do ACBr SMS. Fiz alguns testes com o Demo mas, não entendi como ele funciona.

    Ele faz o download de algum arquivo de texto com as mensagens recebidas? Existe algum período de tempo no qual as mensagens recebidas são excluídas ou ele armazena todas as mensagens recebidas?

    Esse método deve retornar as mensagens que foram enviadas para o modem que está ligado? Eu enviei algumas mensagens ao modem para testar, mas ele sempre me retorna que não possui mensagens neste modem.

  6. Hoje Pela manhã, após atualizar o ACBr, quando tento compilar o meu projeto aparece o seguinte erro:

    "ACBrNFeDANFEClass.pas(58): Undeclared indefined: 'TDetFormato'"

    ACBrDFeUtil.pas(70): Could not compile used unit 'ACBrDFeException,.pas'

    Já desinstalei duas vezes e o erro persiste. Vocês sabem me informar o que pode ser?

    Esqueci de informar. Estou usando o Delphi 7

  7. Amigos, estou reativando o tópico pois, a responsável entrou de licença e somente agora pude fazer os testes. Também tive alguns problemas pois somente TEFs em produção passam esse cartão. Debugando, o erro acontece na seguinte linha:

    if debito then
        Add('tp_modal="1"')
    else if credito then
        Add('tp_modal="0"');

     

    Está acontecendo o seguinte: Não entra nesse if acima, ou seja, ele não identifica se a venda é crédito ou debito. Vocês já passaram por isso? Essa bandeira é suportada pelo ACBrTEF?

  8. Bom dia a todos. Já vi que no fórum tem outros tópicos com esse assunto, porém nenhum me foi útil, então resolvi incluir outro. 

    O meu problema é o seguinte: Eu preciso tratar o retorno da SEFAZ quando a nota é denegada e gravar algumas informações no Banco, eu estou fazendo dessa forma:

     if ((acbrnfe.webservices.retorno.cstat = 110)or(acbrnfe.webservices.retorno.cstat = 301)or
        (acbrnfe.webservices.retorno.cstat = 303)or(acbrnfe.webservices.retorno.cstat = 302)) then begin
             UsoDenegadoNFe(qrnf.fieldbyname('nr_nf').asstring,AcbrNfe.NotasFiscais.Items[0].NFe.procNFe.chNFe,
                            AcbrNfe.NotasFiscais.Items[0].NFe.procNFe.nProt,qrnf.fieldbyname('nr_loja').asstring);

    end;

    Só que não está entrando nesse IF mesmo quando o retorno é 110 por exemplo. Como posso identificar o retorno da SEFAZ?

×
×
  • 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.