Eduardo Santana

Estou com este mesmo problema, alguém conseguiu resolver?

é este NSU que armazeno no banco apos o manifesto, é o mesmo que estou usando para baixar o xml ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].NSU

Estou usando sim o DistribuicaoDFe, só que algumas nfe´s estão vindo completas e outras resumidas: if qrNFEMANIFESTO.AsString <> 'S' then begin Application.MessageBox('Realize o manifesto da NF-e antes de baixar o XML!','Atenção!',MB_ICONINFORMATION); Exit; end; frmimporta_nfe.ACBrNFe1.DistribuicaoDFePorNSU(UFtoCUF(frmmodulo.qrFilialUF.asstring),SN(frmmodulo.qrFilialCNPJ.asstring),qrNFENSU.AsString); sStat := IntToStr(frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat); sMotivo := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; if frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin sChave := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.CNPJCPF; sNome := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome; sIEst := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.IE; sXml := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe+'-nfe.xml'; case frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; sNSU := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU; sEmissao := DateToStr(frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi); Valor := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF; case frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe of snAutorizado: Impresso := 'A'; snDenegado: Impresso := 'D'; snCancelado: Impresso := 'C'; end; qrNFE.Edit; qrNFECAMINHO_XML.AsString := frmimporta_nfe.PathBaixarXML+'\'+sXml; qrNFEXML.AsString := frmimporta_nfe.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.XML; qrNFE.Post; qrNFEXML.SaveToFile(frmimporta_nfe.PathBaixarXML+'\'+sXml); qrNFE.ApplyUpdates; frmmodulo.Conexao.Commit; Application.MessageBox('XML Baixado com Sucesso!','Atenção',MB_ICONINFORMATION); Exit;

isso esta ocorrendo com alguns clientes : 29180733014556109520550010000018041656848943-nfe.xml

Só tenho clientes na Bahia, e até a semana passada as nfc-e's emitidas aqui, podiam ser consultadas na sefaz do nosso estado, mas a partir do dia 13 ou 14-08-2018, só consigo consulta-las no webserver do rio grande do sul. até agora a única suposição que considerei mais provável, é que o webservice da bahia por questões de manutenção esta reencaminhando para o RS.

Qual o agravante quando erroniamente emitimos nfc-e's usando webservices de outro estado? tem como reverter? é necessário reverter?

Resolvido pessoal. Essa nfc-e foi transmitida para o webservice de outro estado, por isso não estava conseguindo localizar. obrigado pela atenção

Emitir uma nfc-e ontem 14/08 e hj consulto no sistema atraves do acbr, e a sefaz me retorna como autorizada, porem quando consulto no site da sefaz ou atraves do qrcode, me retorna que a nfce não foi localizada

Olá pessoal, boa tarde! Pretendo implementar o TEF em meu PDV, usando o PayGo; Alguém poderia me dar instruções de como fazer isso? Aplicação desenvolvida em Delphi Seattle

Perfeito, foi isso mesmo!

descobri. CST := StrToCSTICMS(OK,copy(tbvitenslanccst.Text,2,2)); ICMS.orig := StrToOrig( OK, copy(tbvitenslanccst.Text,1,1)); estou compilando mais ainda não testei o resultado.

por exemplo: with ICMS do begin CST := cst00; ICMS.orig := oeNacional; como informo a cst e orig que esta no meu banco de dados? pra ficar assim: with ICMS do begin CST := 40; ICMS.orig := 0;