programadorbq

Que ótimo, sucesso nos negócios.

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!

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

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.

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

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.

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.

Boa tarde, funcionou perfeitamente. Pelo que percebi foi incluída a procedure "RemoverNameSpace", muito obrigado.

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.

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

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.

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!

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.

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

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