gustavosousa

Daniel, muito obrigado pela dica, era o CSC. Procurei bastante no fórum sobre esse erro e não encontrei nada específico.

Boa noite pessoal, estou tendo o retorno de "cHashQRCode" inválido ao transmitir NFC-e para o ambiente de homologação no Estado do Ceará. Testei realizar o envio pelo demo do ACBrNFe e deu certo mas pela minha aplicação retorna esse erro "Rejeicao: Parametro do QR-Code divergente da Nota Fiscal (cHashQRCode)". cStat = 397. Estou usando a mesma sequência de comandos para enviar o NFC-e. Depois de adicionar os dados da nota com NFE.Add: NotasFiscais.GerarNFe(); if NotasFiscais.ValidarRegrasdeNegocios(Erros) then begin NotasFiscais.Assinar; // NotasFiscais.Validar; // EnvioOK := WebServices.Envia(NumLote, True); // if EnvioOK then begin // realizar a impressao end; end;

Olá pessoal, tive o mesmo problema ao carregar a DLL. Nossa aplicação em dodos os arquivos relacionados no PAF-ECF no mesmo diretório do EXE. Desa forma achei mais conveniente alterar a função GetPathDLL para: function TACBrECFClass.GetPathDLL : string ; begin if Trim(fsPathDLL) = '' then fsPathDLL := ExtractFilePath(ParamStr(0)); // Result := PathWithDelim(fsPathDLL); end;

Olá pessoal, hoje tive problema ao instalar um leitor serial da bematech em um novo cliente. Foi instalado e configurado tudo certinho. A leitura era feita sem nenhum problema. O fato é que ao longo do dia o sistema ficava lento e travando no momento da leitura do código de barras. passei o dia fazendo testes na bancada com um leitor idêntico e fiz uma alteração no componente ACBrLCB. Vejam abaixo as alterações que fiz: 1° Criei uma nova propriedade Chamada LeituraContinua 2° Alterei o procedimento LeSerial para: //////////////////////////////////////////////////////////////////////////// início ///////////////////////////////////////////////////////////////////////////////////////////////////// with fsDevice.Serial do begin if InstanceActive then begin if fsModoContinuo then AguardandoDados := WaitingDataEx > 0 else AguardandoDados := WaitingData > 0; if AguardandoDados then begin leitura := '' ; { Se tem Sufixo definido deve sempre ler um código completo, até encontrar o Sufixo correto, caso contrário não lê nada, pois é provavel que todos os bytes ainda não chegaram do leitor, nesse caso o código completo será lido no proximo evento do Timer. Entretanto se o sufixo estiver ERRADO, ou seja, diferente do enviado pelo leitor, ele NUNCA lerá NADA... Para TESTES, deixe o Sufixo VAZIO... pois nesse caso, TUDO que estiver disponível na porta serial será lido e retornado } if fs_Sufixo <> '' then begin OldRaiseExcept := RaiseExcept ; try { Desliga a RaiseExcept para nao perder o Buffer da serial, se RecvTerminated falhar (bug da Synaser) } RaiseExcept := false ; leitura := RecvTerminated(200,fs_Sufixo) ; if leitura <> '' then leitura := leitura + fs_Sufixo ; finally RaiseExcept := OldRaiseExcept ; end ; end else leitura := RecvPacket(200) ; if leitura <> '' then begin fsUltimaLeitura := leitura ; {Leitura exatamente como veio do Leitor} if UsarFila then AddFila( leitura ) ; SetUltimoCodigo( leitura ); if Assigned( fsOnLeCodigo ) then fsOnLeCodigo( self ) ; end ; end; end ; end ; //////////////////////////////////////////////////////////////////////////// fim ///////////////////////////////////////////////////////////////////////////////////////////////////// O que está em vervelho foi o que eu modifiquei. Essa foi a única solução que deu certo. Alguém poderia me explicar a diferença entre WaitingData e WaitingDataEx? Seria coerente em uma nova versão do ACBrLCB ser implementada essa propriedade LeituraContinua ou com outro nome para distinguir o uso de WaitingData/WaitingDataEx? Att, Att, Gustavo de Sousa

Ótimo. Obrigado!

Bom dia Pessoal, hoje tive um problema ao gerar o espelho MFD com o ACBr em um cliente. Estava retornando erro ao abrir porta serial, visto que para esse procedimento o ACBr utiliza a DLL do fabricante, no caso, Bematech. Fiz alguns testes e verifiquei que na função "ConfiguraBemaFI32ini" tem a chave: Ini.WriteString('Sistema','Path',aPath ); Para solucionar o problema eu inclui a seguinte chave: Ini.WriteString('Sistema','ControlePorta','1') ; para garantir que o controle de abertura e fechamento da porta serial do ECF Bematech seja realizado pelo ACBr. Não seria interessante o Daniel incluir nos fontes do ACBrSerial esta linha de comando? Att,

Bom dia Pessoal, gostaria de saber como faço no ACBrECF para obter a data e horário da última redução Z no caso de ECF que realize a redução Z pendente automaticamente. Por exemplo: abri o caixa hoje, realizei todas as vendas e no final do dia desliguei o computador sem fazer a redução Z. No caso das impressoras bematech configuradas para realizar a redução Z automaticamente, no dia seguinte quando ligar o ECF ele irá emitir a redução Z automaticamente, quando eu abrir o caixa para ler as informações relativas à última redução Z, gostaria de saber como obter a data e horário da redução, não é a data do movimento da última redução Z. Att, []