Painel de líderes

if ACBrNFe1.Enviar(NumeroLote, False, True) then begin StatusNFCe := ACBrNFe1.WebServices.Enviar.cStat; MsgMotivo := ACBrNFe1.WebServices.Enviar.xMotivo; if StatusNFCe = 204 then begin ACBrNFe1.Consultar; StatusNFCe := ACBrNFe1.WebServices.Consulta.cStat; MsgMotivo := ACBrNFe1.WebServices.Consulta.xMotivo; end; ..... except on E: Exception do begin StrMsg := E.Message; // erros de conexão enviar em modo off-line if (pos('12007', E.Message) > 0) or // erro de conexão (pos('12002', E.Message) > 0) or // timeout (pos('12029', E.Message) > 0) or // limite de tempo de conexão (pos('12157', E.Message) > 0) or // erro no suporte a canais seguros (pos('TIMED OUT', E.Message.ToUpper) > 0) or // timeout (pos('ERRO NAO CATALOGADO', E.Message.ToUpper) > 0) or // erros de tratamento do webservice (pos('SERVICO PARALISADO', E.Message.ToUpper) > 0) // Servico Paralisado Momentaneamente then except on E: Exception do begin StrMsg := E.Message; // erros de conexão enviar em modo off-line if (pos('12007', E.Message) > 0) or // erro de conexão (pos('12002', E.Message) > 0) or // timeout (pos('12029', E.Message) > 0) or // limite de tempo de conexão (pos('12157', E.Message) > 0) or // erro no suporte a canais seguros (pos('TIMED OUT', E.Message.ToUpper) > 0) or // timeout (pos('ERRO NAO CATALOGADO', E.Message.ToUpper) > 0) or // erros de tratamento do webservice (pos('SERVICO PARALISADO', E.Message.ToUpper) > 0) // Servico Paralisado Momentaneamente then begin ///nota offline; end else // consultar a NFC-e em caso de duplicidade, alguns ws retornam como erro // também consultar se o erro for em branco if (Pos('DUPLICIDADE', E.Message.ToUpper) > 0) or (E.Message.Trim.IsEmpty) then begin ACBrNFe1.Consultar; StatusNFCe := ACBrNFe1.WebServices.Consulta.cStat; MsgMotivo := ACBrNFe1.WebServices.Consulta.xMotivo; Tem várias formas de tratar . isso dai é uma e existe N outras

Defina a configuração NFE.Configuracoes.Arquivos.EmissaoPathNFe, dessa forma vai salvar sempre no mês da data de emissão da nota e não o mês da data que o arquivo foi atualizado.

Boa tarde! Quero deixar algumas correções que realizei no componente referente a GNRE. Anexo dois arquivos para GNRE versão 2.0. pgnreRetConsResLoteGNRE: Contém correções na interpretação da rejeição das guias. ACBrGNREGuiasRetorno: Contém correções na interpretação do arquivo de retorno de transmissão das guias. ACBrGNREGuiasRetorno.pas pgnreRetConsResLoteGNRE.pas

de momento consegui resolver assim var MutexHandle: THandle; hwind:HWND; MutexHandle := CreateMutex(nil, True, 'Dfox'); if MutexHandle <> 0 then begin if GetLastError = ERROR_ALREADY_EXISTS then begin MessageDlg('O Sistema Dfox já está em execução', mtInformation, [mbOK], 0); CloseHandle(MutexHandle); hwind := 0; repeat hwind := FindWindowEx(0,hwind,'TApplication','TfrmPrincipal'); until (hwind<>Application.Handle); if (hwind<>0) then begin ShowWindow(hwind,SW_SHOWNORMAL); SetForegroundWindow(hwind); end; Halt; end end;

Boa tarde, Fiz algumas alterações para tratar do Leiaute 7.0. Manual disponível em: http://sped.rfb.gov.br/arquivo/download/5717 ACBRECFBlocos.pas acrescentado ECFVersao700 em: - Type TACBrECFCodVer = (ECFVersao100, ECFVersao200, ECFVersao300, ECFVersao400, ECFVersao500, ECFVersao600, ECFVersao700); - function CodVerToStr(AValue: TACBrECFCodVer): string; - function StrToCodVer(const AValue: string): TACBrECFCodVer; ACBrECFBloco_0_Class.pas acrescentado ECFVersao700 em: - procedure TBloco_0.WriteRegistro0010; - procedure TBloco_0.WriteRegistro0020; ACBrECFBloco_Y_Class.pas acrescentado ECFVersao700 na procedure TBloco_Y.WriteRegistroY800; Seguem em anexo, arquivos alterados para verificação e commit nos fontes. ACBrECFBloco_0_Class.pas ACBrECFBloco_Y_Class.pas ACBrECFBlocos.pas

No SVN Obrigado

Boa tarde Joas, Você esta equivocado, a SEFAZ vai passar aceitar o XML com essa tag em ambiente de produção em 05/04/2021, mas só vai ativar a regra de validação em 01/09/2021.

Agradeço Observei novamente o componente ACBrNFce1.Configuracoes.WebServices.SSLType := TSSLType(DM.sql_configuracoesSSLType.AsInteger) Não estava passando os dados corretamente, corrigir e funcionou normalmente Agradeço

Boa tarde, Nesse XML consta a tag <indIntermed> para não gerar a tag é preciso atribuir o valor iiSemOperacao ao campo indIntermed. E para quem utiliza o ACBrMonitor deve deixar o campo sem nenhum valor: indIntermed=

O ultimo update da LibXML2 é de 30 de Outubro de 2019 ou seja ela é bem estável e tem poucos updates. Esta versão é a que se encontra nos fontes do ACBr.

Bom dia Alex, Sugiro que você utilize o método DistribuicaoDFePorUltNSU passando como parâmetros: 1. Código IBGE da UF do autor da consulta (destinatário da mercadoria); 2. CNPJ do autor da consulta; 3. Numero do último NSU. Quando executamos pela primeira vez o numero do último NSU é zero. Na segunda em diante devemos sempre informar o o valor retornado em UltNSU na execução anterior. Exemplo: Primeira execução: NFe.DistribuicaoDFePorUltNSU(43, 03971828000185, 0) UltNSU retornado é 78 Segunda execução: NFe.DistribuicaoDFePorUltNSU(43, 03971828000185, 78) UltNSU retornado é 105 Terceira execução: NFe.DistribuicaoDFePorUltNSU(43, 03971828000185, 105) UltNSU retornado é 140 (...) Espero ter ajudado. Quando ao erro de inativo ou inoperante, isso é normal ocorrer, pois muitos desenvolvedores acabaram utilizando esse serviço para obter o XML da nota com a finalidade de alimentar o controle de estoque e contas a pagar, em vez de orientar o seu cliente a solicitar o XML a nota para o seu fornecedor, visto que é obrigação legal (consta na legislação) que o emitente da nota é obrigado a disponibilizar o XML assinado e com o protocolo de autorização ao destinatário da mercadoria. O serviço: Distribuição DF-e tem como finalidade mostrar para o autor da consulta quem esta emitindo nota contra o CNPJ dele. E através dos eventos de Manifestação do Destinatário, o mesmo poderá manifestar cada uma das notas, desta forma avisando ao fisco se realmente comprou ou não comprou a mercadoria de uma determinada empresa.

XML foi inventado bem antes de 2018.. e essa Lib foi uma das primeiras a tratar ele com maestria... então SIM, está estável...

Por enquanto eu também estou usando a 1.0.2 por causa das dependências da 1.1.1. Assinatura e validação de XML

como a OpenSSL1.0.X já suporta TLS12, não há muita necessidade de atualização... Promovemos a compatibilidade com OpenSSL 1.1.x, porque no mundo Linux, é difícil achar a versão 1.0.x

Sobre a OpenSSL leia aqui:

continua igual pois é dessa forma que se tem no manual

Sim tu pode salvar no banco lembre-se que não salve o xml na tabela onde tu tem os dados da venda e sim em uma tabela especifica pois se tu tiver um SElect * from nessa tabela vai ser lento mesmo

Se possível anexe o manual que você tem.

Essa rejeição está ocorrendo na validação de Schemas da SEFAZ, pois ainda não está sendo aceito a tag indIntermed em ambiente de Produção.

Obrigado Italo, amanhã irei entrar em contato com o pessoal da IPM.

De certa maneira, a "venda no balcão" não deixa de ser venda na "plataforma própria" da loja. Até onde sei, no momento só em homologação. Mas essa informação é bom sempre você conferir na NT e na Sefaz da sua UF.