Boa tarde, o ACBR recebe o xml, mas não está gerando a nota fiscal, e não mostra nenhum erro. eu uso utilizo o lazarus 2.0.10, não utilizo o ACBR MONITOR. vocês poderiam me ajudar?
meu código de envio:
procedure TForm1.EnviarNotaFiscal(Sender: TObject);
var
bStatusEnviar, Sincrono, SinContigencia : Boolean;
begin
Memo1.Lines.Add('');
Memo1.Lines.Add('Enviando NF-e...');
ACBrNFe1.Configuracoes.WebServices.Visualizar := True;
vNumLote := '1';
Sincrono := false;
SinContigencia := True;
bStatusEnviar := ACBrNFe1.Enviar(vNumLote,True,Sincrono);
if bStatusEnviar = true then
begin
if not Sincrono then
begin
Memo1.Lines.Text := ACBrNFe1.WebServices.Retorno.RetWS;
Memo1.Lines.Text := ACBrNFe1.WebServices.Retorno.RetornoWS;
end
else
begin
Memo1.Lines.Add('');
Memo1.Lines.Add('NF-e enviada: '+IntToStr(ACBrNFe1.WebServices.Enviar.cStat) +' - '+ACBrNFe1.WebServices.Enviar.xMotivo);
end;
sChaveNfe := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe;
Memo1.Lines.Add('Chave da NF-e: ' +sChaveNfe);
EdtChaveNfe.Text := sChaveNfe;
ACBrNFe1.NotasFiscais.Items[0].GravarXML(LocalArquivos+'XML\'+sChaveNfe+'-nfe.xml');
Memo1.Lines.Add('NF-e gravada em '+LocalArquivos+'XML\'+sChaveNfe+'-nfe.xml.');
end
else
begin
ACBrNFe1.Configuracoes.Geral.FormaEmissao := TpcnTipoEmissao(teContingencia);
//ACBrNFe1.Configuracoes.Geral.FormaEmissaoCodigo := 9;
ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teContingencia;
ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.xJust := 'NF-e EMITIDA EM CONTINGÊNCIA';
ACBrNFe1.Enviar(vNumLote,True,SinContigencia);
if not SinContigencia then
begin
Memo1.Lines.Text := ACBrNFe1.WebServices.Retorno.RetWS;
Memo1.Lines.Text := ACBrNFe1.WebServices.Retorno.RetornoWS;
end
else
begin
Memo1.Lines.Add('');
Memo1.Lines.Add('NF-e em CONTIGÊNCIA enviada: '+IntToStr(ACBrNFe1.WebServices.Enviar.cStat) +' - '+ACBrNFe1.WebServices.Enviar.xMotivo);
end;
sChaveNfe := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe;
Memo1.Lines.Add('Chave da NF-e EM CONTIGÊNCIA: ' +sChaveNfe);
EdtChaveNfe.Text := sChaveNfe;
ACBrNFe1.NotasFiscais.Items[0].GravarXML(LocalArquivos+'XML\'+sChaveNfe+'-nfe.xml');
Memo1.Lines.Add('NF-e EM CONTIGÊNCIA gravada em '+LocalArquivos+'XML\'+sChaveNfe+'-nfe.xml.');
end;
end;
pedido-nfe-001.xml