-
Total de ítens
7 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Represinfo Web
-
-
Geste estou tentando fazer A DFe de xml de NFe! COMEÇA A FAZER NORMALMENTE E LOGO DÁ ESSE ERRO DA IMAGEM POSTADA EM ANEXO;
SEGUE O CODIGO Q ESTOU USANDO...: LEMBRANDO QUE COMEÇA A FAZER E AS VEZES ESSE ERRO APARECE NO INICIO E AS VEZES NO FINAL DO PROCESSO!
SEGUE O CODIGO...:
NSU := 0;
repeat
NSU := NSU + 1;
F_Principal.NFe.DistribuicaoDFe(UFtoCUF(DM_GERA_NFE.qry_filialuf_filial.AsString), DM_GERA_NFE.qry_filialcnpj_filial.AsString, '', IntToStr(NSU));
MaxNSU :=strtoint(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU);if F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then
beginj := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1;
with RxProgress1 do
beginMin := 0;
Max := MaxNSU;
Visible := true;end;
for i := 0 to j do
begin
if F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe <> '' then
begin
case F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe of
snAutorizado: situacao := 'A';
snDenegado: situacao := 'D';
snCancelado: situacao := 'C';
end;
with Grid_nfe do
begin
if Addrow then
RowCount := RowCount + 1;Objects[0,RowCount] := CheckBox1;
// Cells[0,RowCount-1] := NovoCheckBox; // -> checkbox
Cells[1,RowCount] := Situacao; // -> situacao
Cells[2,RowCount] := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe;
Cells[3,RowCount] := Copy(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe, 26, 9);
Cells[4,RowCount] := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.CNPJCPF;
Cells[5,RowCount] := F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome;
Cells[6,RowCount] := floattostrf(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF,ffnumber, 12,2);
Cells[7,RowCount] := datetostr(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi);AddRow := True;
RxProgress1.Position := RxProgress1.Position + 1;
RxProgress1.Update;end;
ult_nsu := strtoint(F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU);
Inc(vqtde_importados);
end;end;
if vqtde_importados > 0 then
lbl_qtde_nfe.Caption := IntToStr(vqtde_importados);
lbl_qtde_nfe.Update;
end;
until (F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU = IntToStr(MaxNSU));application.MessageBox('Busca Realizada com Sucesso!','Atenção',MB_OK+MB_ICONINFORMATION);
-
Resolvido era isto mesmo.... muito obrigado
-
SIM! está atualizado... atualizei hoje inclusive...
-
pessoal boa tarde...
estou recorrendo ao forum porque estou desenvolvendo um CTe Mod. 57 e estou recebendo a seguinte Rejeição:
599
Rejeição: Não é permitida a presença de caracteres de edição no inicio/fim da mensagem ou entre as tags da mensagemsei.. que ja foi postado no forum sobre este assunto eu seguir os procedimentos mais o problema persiste.Tentei usando versões 2.0 / 3.0,atualizei o acbr (cheguei a apagar toda a biblioteca e instalar novamente)...ao gerar o xml o mesmo é Assinado e Validado normalmente...não sei mais o que fazer pesquisei no google e nada.... ALGUEM PODE ME SOCORRER?SEGUE EM ANEXO O ARQUIVO XML QUE ESTOU GERANDO E TRANSMITINDO -
sim é NFCe! CONSUMIDOR FINAL.
a venda é para o mesmo UF.
estou fazendo conforme o DEMO.:
with ICMSUFDest do
begin
vBCUFDest := 0.00;
pFCPUFDest := 0.00;
pICMSUFDest := 0.00;
pICMSInter := 0.00;
pICMSInterPart := 0.00;
vFCPUFDest := 0.00;
vICMSUFDest := 0.00;
vICMSUFRemet := 0.00;
end;// partilha do icms e fundo de probreza
Total.ICMSTot.vFCPUFDest := 0.00;
Total.ICMSTot.vICMSUFDest := 0.00;
Total.ICMSTot.vICMSUFRemet := 0.00;segue o XML em anexo... fico agradecido pela ajuda!
-
download NFe
em ACBrNFe
Postado
pessoal boa noite! pesquisei aqui no forum como fazer o download dos arquivos xml de NFe encontrei vários exemplos seguindo-os consigo listar todas as notas mas ao fazer o download dos xml, baixa apenas o resumo, alguém pode me dar uma mãozinha? vou postar abaixo como estou fazendo.
if DM_GERA_NFE.qry_filialtipo_certificado.Value = 'A1' then
begin
F_Principal.NFe.Configuracoes.Geral.SSLLib := libOpenSSL;
F_Principal.NFe.Configuracoes.Certificados.ArquivoPFX := DM_GERA_NFE.qry_filialcaminho_cert.AsString;
F_Principal.NFe.Configuracoes.Certificados.Senha := DM_GERA_NFE.qry_filialsenha_cert.AsString;
F_Principal.NFe.Configuracoes.Certificados.NumeroSerie := DM_GERA_NFE.qry_filialnserie_cert.AsString;
F_Principal.NFe.SSL.CarregarCertificadoSeNecessario ;
end else
begin
F_Principal.NFe.Configuracoes.Geral.SSLLib := libWinCrypt;
F_Principal.NFe.SSL.NumeroSerie := DM_GERA_NFE.qry_filialnserie_cert.AsString;
F_Principal.NFe.SSL.Senha := DM_GERA_NFE.qry_filialsenha_cert.AsString;
F_Principal.NFe.SSL.CarregarCertificadoSeNecessario ;
end;
F_Principal.NFe.Configuracoes.WebServices.IntervaloTentativas := 20000;
while not CDS_Destinadas.Eof do
begin
F_Principal.NFe.EventoNFe.Evento.Clear;
with F_Principal.NFe.EventoNFe.Evento.Add do
begin
InfEvento.cOrgao := 91;
infEvento.chNFe := CDS_Destinadas_CHAVE.AsString;
infEvento.CNPJ := CDS_Destinadas_CNPJ.AsString;
infEvento.dhEvento := now;
infEvento.tpEvento := teManifDestCiencia;
end;
F_Principal.NFe.EnviarEvento(StrToInt('1'));
F_Principal.NFe.DistribuicaoDFePorChaveNFe(UFtoCUF(DM_GERA_NFE.qry_filialuf_filial.AsString),DM_GERA_NFE.qry_filialcnpj_filial.AsString,CDS_Destinadas_CHAVE.AsString);
with F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt do
begin
if cStat = 138 then
begin
DecodeDate(CDS_Destinadas_DTEMISSAO.Value, ano, mes, dia);
case mes of
1: mes1 := 'JANEIRO';
2: mes1 := 'FEVEREIRO';
3: mes1 := 'MARCO';
4: mes1 := 'ABRIL';
5: mes1 := 'MAIO';
6: mes1 := 'JUNHO';
7: mes1 := 'JULHO';
8: mes1 := 'AGOSTO';
9: mes1 := 'SETEMBRO';
10: mes1 := 'OUTUBRO';
11: mes1 := 'NOVEMBRO';
12: mes1 := 'DEZEMBRO';
end;
pasta_dfe_nfe := ExtractFilePath(Application.ExeName)+'XML_NFE\DFe\'+SoNumero(DM_GERA_NFE.qry_filialcnpj_filial.AsString)+'\COMPRAS\'+IntToStr(ano)+'\'+ mes1;
F_Principal.NFe.Configuracoes.Arquivos.PathSalvar := pasta_dfe_nfe;
if not DirectoryExists(pasta_dfe_nfe) then
ForceDirectories(pasta_dfe_nfe);
for i := 0 to docZip.Count - 1 do
begin
if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml)
begin
XML := docZip.Items.XML;
ArqXML := TStringStream.Create(XML);
XMLDocument1.LoadFromStream(ArqXML);
XMLDocument1.Active;
XMLDocument1.SaveToFile(edt_local_download.Text+CDS_Destinadas_CHAVE.AsString+'.xml');
end;
end;
end;
end;
CDS_Destinadas.Next;
end;
application.MessageBox('Download realizado com sucesso!','Atenção',MB_OK+MB_ICONINFORMATION);
end;