[Carregar XML através da API do Mercado Livre]

Que ótimo, sucesso nos negócios.

[Carregar XML através da API do Mercado Livre]

Bom dia, 

alterei o código para esse

dmML.ResetRESTComponentsToDefaults;

dmML.RESTClientML.ContentType := 'application/xml';
dmML.RESTClientML.BaseURL := 'https://api.mercadolibre.com/';
dmML.RESTRequestML.Resource := 'shipments/' + strShippingID + '/invoice_data?access_token=' + dmML.OAuth2AuthenticatorML.AccessToken + '&siteId=MLB';
dmML.RESTRequestML.Method := TRESTRequestMethod.rmPOST;
dmML.RESTRequestML.Params.Clear;
dmML.RestRequestML.AddBody(MemoXML.Text, ctAPPLICATION_XML);
dmML.RestRequestML.Execute;

MessageDlg(dmML.RESTResponseML.Content, mtInformation, [mbOK], 0);

e funcionou.

 

Espero que ajude!
 

[Erro na geração do Sped Fiscal Layout 015 - campo IND_DEST]

Bom dia Victor, problema resolvido e me desculpe pelo incômodo, da próxima vez vou tentar alterar eu mesmo e fazer o retorno.

[Erro na geração do Sped Fiscal Layout 015 - campo IND_DEST]

Boa noite, na geração do Sped Fiscal para a versão 015, vigência janeiro de 2022 está ocorrendo o erro <31 - IND_DEST O campo não pode ser preenchido para entrada> mesmo não informando nada no IND_DEST do Registro C500.

O ACBr está informando o valor 1 automaticamente para o campo.

[Erro interno 12030 - NFCe]

Bom dia, o servidor de MG está com problemas desde ontem.

Utilize o https://monitor.tecnospeed.com.br/ para verificar o status do serviço.

Mais informações nesse tópico do ACBr

 

[Carregar XML através da API do Mercado Livre]

Boa tarde,

estou realizando a integração com a Api do Mercado Livre e não consigo realizar a carga do XML, sempre me retorna o erro: {"statusCode":400,"code":"bad_request","message":"Filename cannot be empty","requestId":"b70110a2-ed52-4d41-9125-e08d43c0a0fb"}

"Filename cannot be empty" - Gostaria de saber aonde informar o "Filename", segue meu código.

 

try
  dmML.ResetRESTComponentsToDefaults;
  //
  streamArquivo := TMemoryStream.Create;
  streamArquivo.LoadFromFile(strArquivoXML);
  streamArquivo.Position := 0;
  //
  dmML.RESTClientML.ContentType := 'multipart/form-data';
  dmML.RESTClientML.BaseURL := 'https://api.mercadolibre.com/';
  dmML.RESTRequestML.Resource := 'packs/' + strPackID + '/fiscal_documents';
  dmML.RESTRequestML.Method := TRESTRequestMethod.rmPOST;
  dmML.RESTRequestML.Params.Clear;
  dmML.RESTRequestML.Params.AddItem;
  dmML.RESTRequestML.Params.Items[0].name := 'fiscal_document';
  dmML.RESTRequestML.Params.Items[0].Value := strArquivoXML;
  dmML.RESTRequestML.Params.Items[0].ContentType := ctMULTIPART_FORM_DATA;
  dmML.RESTRequestML.Params.Items[0].Kind := pkFILE;
  dmML.RestRequestML.AddBody(streamArquivo, ctMULTIPART_FORM_DATA);
  dmML.RestRequestML.Execute;
  //
  Memo1.Text := dmML.RESTResponseML.Content.Trim;
except
  on E: Exception do
  begin
    MessageDlg(E.Message, mtError, [mbOK], 0);
  end;
end; 

Desde já agradeço.

[NFC-e - MG Retorno de Consulta]

Boa tarde Ítalo, 

fazendo testes em homologação descobri um erro na rotina .

No envio da nota fiscal série 55 ele tambem exclui o NameSpace.

 

na função anterior do nosso amigo Cleiver, ela fica dentro do  if ((FPConfiguracoesNFe.Geral.ModeloDF = moNFCe) or (FVersaoDF >= ve310)) and FSincrono then

e na sua rotina esta antes, assim ele executa no modo moNFE.

[NFC-e - MG Retorno de Consulta]

Boa tarde, funcionou perfeitamente.

Pelo que percebi foi incluída a procedure "RemoverNameSpace", muito obrigado.

[NFC-e - MG Retorno de Consulta]

Bom dia, consegui resolver somente no sábado utilizando a dica do Cleiver (me ajudou bastante), e somente para envio Síncrono, fica ai somente a dúvida, se essa será a solução final.

Aguardando uma posição dos moderados.

Agradecimento ao projeto ACBr.

[Erro na instalação]

Bom dia, consegui reinstalar através deste tópico já aberto.

 

[acbrnfe 4.0 Cancelamento com erro]

Bom dia, 

no arquivo ACBrNFeServicos.ini esta faltando o webservice de MG <RecepcaoEvento4>  para produção.

Fiz a inclusão <RecepcaoEvento_4.00=https://nfe.fazenda.mg.gov.br/nfe2/services/NFeRecepcaoEvento4> e funcionou.

[Receita mudou o código da página de consulta completa]

Concordo markapollo, o ideal é o xml fornecido pelo participante, utilizo essa ferramenta no meu sistema para agilizar o processo de entrada da nota fiscal e atualização dos preços pelo cliente.

Abraço e vamos escovar os bits!

[Receita mudou o código da página de consulta completa]

Consegui fazer o sistema de recuperação de xml funcionar.

Utilizei o código gerado pelo botão "Preparar documento para impressão".

Com esta opção é gerado a nota fiscal eletrônica com os campos em formato texto.

Modifiquei o evento WebBrowser1DocumentComplete para:

if WebBrowser1.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=' then

begin

for k := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do

begin

Source := WebBrowser1.OleObject.Document.Images.Item(k).Src;

if (Source = 'http://www.nfe.fazenda.gov.br/scripts/srf/intercepta/captcha.aspx?opt=image') then

begin

dest := ExtractFilePath(ParamStr(0)) + 'captcha.gif';

DownloadFile(Source, dest);

end;

end;

Image1.Picture.LoadFromFile(dest);

btnPegarHTML.Enabled := True;

end

else if WebBrowser1.LocationURL = 'https://www.nfe.fazenda.gov.br/portal/visualizacaoNFe/completa/Default.aspx' then

begin

WebBrowser1.Navigate('https://www.nfe.fazenda.gov.br/PORTAL/visualizacaoNFe/completa/impressao.aspx');

end

else if WebBrowser1.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consultaCompleta.aspx?tipoConteudo=XbSeqxE8pl8=' then

begin

Memo2.Lines.Clear;

//

WebBrowser1.Navigate('http://www.nfe.fazenda.gov.br/portal/consultaImpressao.aspx?tipoConsulta=completa');

end

else if WebBrowser1.LocationURL = 'http://www.nfe.fazenda.gov.br/portal/consultaImpressao.aspx?tipoConsulta=completa' then

begin

textoNFe := WebBrowser1.Document as IHTMLDocument2;

repeat

Application.ProcessMessages;

until Assigned(textoNFe.body);

Memo2.Lines.Text := StripHTML(textoNFe.body.innerHTML);

Memo2.Lines.Text := StringReplace(Memo2.Lines.Text,' ','',[rfReplaceAll, rfIgnoreCase]);

i := 0;

while i < memo2.Lines.Count-1 do

begin

if trim(Memo2.Lines) = '' then

begin

Memo2.Lines.Delete(i);

i := i - 1;

end;

if pos('function',Memo2.lines)>0 then

begin

Memo2.Lines.Delete(i);

i := i - 1;

end;

if pos('document',Memo2.lines)>0 then

begin

Memo2.Lines.Delete(i);

i := i - 1;

end;

if pos('{',Memo2.lines)>0 then

begin

Memo2.Lines.Delete(i);

i := i - 1;

end;

if pos('}',Memo2.lines)>0 then

begin

Memo2.Lines.Delete(i);

i := i - 1;

end;

i := i + 1;

end;

Image1.Picture := nil;

btnGerarXML.Enabled := True;

GeraXml;

end

else if WebBrowser1.LocationURL = 'https://www.nfe.fazenda.gov.br/portal/inexistente_completa.aspx' then

begin

MessageDlg('NF-e INEXISTENTE na base nacional, favor consultar esta NF-e no site da SEFAZ de origem.',mtError,[mbok],0);

Image1.Picture := nil;

btnGerarXML.Enabled := True;

btnNovaConsulta.Enabled := True;

end

else

begin

MessageDlg('Erro carregando URL: '+WebBrowser1.LocationURL,mtError,[mbok],0);

Image1.Picture := nil;

btnGerarXML.Enabled := True;

btnNovaConsulta.Enabled := True;

end;

//////////////////////////////

Depois é preciso alterar o código para buscar os campos corretos do emitente.

[Sped Fiscal - Erro no registro G126 - Campo DT_FIM]

Descobri o mesmo erro no SPED Pis/Cofins - Registro 0205 - é definido o parâmetro de entrada como DT_FIM e informado o parâmetro DT_FIN na saída...

Abraço

[Sped Fiscal - Erro no registro G126 - Campo DT_FIM]

A função WriteRegistroG126 do SPED FIscal esta gravando a variável DT_FIN e o correto é DT_FIM