Caros amigos,
Terminei o envio normal da NFE para MT e MA, agora estou criando a contingência DPEC, pelo que vi no manual de integração após sanado problema técnica na UF de origem as notas que foram enviadas em contingência DPEC, devem ser enviada para UF em modo padrão, a pergunta é .
1) Tenho que enviar individualmente cad nota ? tentei enviar em lote mas ocorreu o erro abaixo :
Exception class ESOAHTTPException with message 'Bad Request 400'
'https://hom.sefazvirtual.fazenda.gov.br/NfeRecepcao2/NfeRecepcao2.asmx
vArquivo := ExtractFilePath(Application.ExeName)+'NFE\'+Trim(CurCab.FieldByName('NF_CHAVE_NFE').AsString)+'-NFe.XML';
if FileExists(vArquivo) then
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(vArquivo);
vNumLote := OnlyNumber( IntStrZero(GetGenerator('G_ID_LOTE_NFE',1),10));
if Trim(vNumLote) = '' then
begin
MessageDlg('Número do Lote inválido.',mtError,[mbok],0);
exit;
end;
ACBrNFe1.DANFE.ProtocoloNFe := CurCab.FieldByName('NF_PROTOCOLO_NFE').AsString;
ACBrNFe1.Enviar(vNumLote); ///Aqui ocorre o erro descrito acima
2) Tenho que mandar alguma informação complementar ? ou apensar o xml ?
Estou enviando o numero do protocolo do Danfe tamém conforme abaixo:
vArquivo := ExtractFilePath(Application.ExeName)+'NFE\'+Trim(CurCab.FieldByName('NF_CHAVE_NFE').AsString)+'-NFe.XML';
if FileExists(vArquivo) then
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(vArquivo);
vNumLote := OnlyNumber( IntStrZero(GetGenerator('G_ID_LOTE_NFE',1),10));
if Trim(vNumLote) = '' then
begin
MessageDlg('Número do Lote inválido.',mtError,[mbok],0);
exit;
end;
ACBrNFe1.DANFE.ProtocoloNFe := CurCab.FieldByName('NF_PROTOCOLO_NFE').AsString;
ACBrNFe1.Enviar(vNumLote);
Alguem poderia me ajudar, postando um rotina de dpec envio de lote
Obrigado,