Leao

Olá Igor, baixei os schemas mas também não encontrei o mdfeModalRodoviario_v2.00.xsd Obrigado, Leão

Olá Dimas, como ficou a questão do ACBrMDFe1.Manifestos.Items[0].GravarXML('',''); estou com o mesmo problema Obrigado, Leão

Olá Italo, não tem nenhuma propriedade atribuindo a ID somente no botão GerarMDFe procedure TFormGerar_mdfe.btnGerarMDFeClick(Sender: TObject); var vAux : String; begin vAux:=DDADOS.NMDF.ValorString; if not(InputQuery('WebServices Enviar', 'Numero do Manifesto', vAux)) then exit;

Certo, ao clicar no botão Gerar MDFe, mensagem: ID Inválido. Impossível Salvar XML

Olá, estou tentando gerar o MDFe, e ocorrer "ID Inválido. Impossível Salvar XML." Trunk2, atualizado, delphi7 e ACBrMDFeDAMDFeRL1 Testei também o Demo_ACBrMDFe.dpr e ocorre a mesma mengem, no trunk, funcionava já procurei no fórum até dez2014, não achei. ============== \ ================= procedure TFormGerar_mdfe.btnGerarMDFeClick(Sender: TObject); var vAux : String; begin vAux:=DDADOS.NMDF.ValorString; if not(InputQuery('WebServices Enviar', 'Numero do Manifesto', vAux)) then exit; ACBrMDFe1.Manifestos.Clear; GerarMDFe(vAux); ACBrMDFe1.Manifestos.Items[0].GravarXML('', ''); ShowMessage('Arquivo gerado em: '+ACBrMDFe1.Manifestos.Items[0].NomeArq); MemoDados.Lines.Add('Arquivo gerado em: '+ACBrMDFe1.Manifestos.Items[0].NomeArq); MemoResp.Lines.LoadFromFile(ACBrMDFe1.Manifestos.Items[0].NomeArq); LoadXML(MemoResp, WBResposta); PageControl2.ActivePageIndex := 1; end; ================\============== Obrigado, Leão

Olá Daniel, encontrei uma copia antiga em: c:\xmaker6\comp\delphi\synafpc.dcu c:\xmaker6\comp\delphi\synautil.dcu do xmaker6, copiei a atual para lá, e acabou o erro, outro detalhe importante no path do delphi7, colocar como primeiro: $(DELPHI)\Lib; $(DELPHI)\Bin; $(DELPHI)\Imports; $(DELPHI)\Projects\Bpl; $(DELPHI)\Rave5\Lib; D:\Acbr\Fontes\synalist; C:\Xmaker6\Comp\Delphi; Agradeço a todos e obrigado Leão

Olá, usei agora o apagaAcbr.bat, verifiquei que realmente limpou a pasta ...\bpl execultei o ACBrInstal_Trunk2, instalou normal sem nenhum erro. conforme logo em anexo. ao compilar minha aplicação erros: [Error] HTTPSend.pas(616): Undeclared identifier: 'NormalizeHeader' [Fatal Error] ACBrDFeOpenSSL.pas(45): Could not compile used unit 'HTTPSend.pas' Se alguém passou por essa experiência, por favor... Obrigado, Leão log_Delphi_7.txt

Everton todos acbr_*.*

Daniel Simoes, será possível ver com os outros moderadores? Agradeço Leão

Olá Daniel, sim usei o Find in Files, e encontrou em D:\Acbr\trunk2\Fontes\Terceiros\synalist\synautil.pas Esse caminho já estar no path do delphi function NormalizeHeader(Value: TStrings; var Index: Integer): string; function NormalizeHeader(Value: TStrings; var Index: Integer): string; var s, t: string; n: Integer; begin s := Value[Index]; Inc(Index); if s <> '' then while (Value.Count - 1) > Index do begin t := Value[Index]; if t = '' then Break; for n := 1 to Length(t) do if t[n] = #9 then t[n] := ' '; if not(AnsiChar(t[1]) in [' ', '"', ':', '=']) then Break else begin s := s + ' ' + Trim(t); Inc(Index); end; end; Result := TrimRight(s); end; Alguém se habilita a resolver isso. Já re-instalei trunk2 Obrigado, Leão

Daniel, inclusive renomeie para HTTPSend_old.dcu, teste mas continua a mesma mensagem de erro Onde é declarada 'NormalizeHeader' ? Onde estar a function NormalizeHeader? Obrigado, Leão

Olá Daniel, fiz uma varredura em todo hd, existe apenas em dois lugares: D:\Acbr\trunk2\Fontes\Terceiros\synalist httpsend.pas e httpsend.dcu D:\Acbr\trunk2\Lib\Delphi\LibD7 somente a httpsend.dcu ambos com data 22/09/2015, a mudança hoje trunk para trunk2. Agradeço, Leão

Juliomar, não fiz manualmente, conforme .pdf, ACBrComum, no instalador marco apenas qual? Use agora pelo instalador, instalação minima, re-instalou normalmente, mas continua o erro. Obrigado, Leão

Olá Daniel, ao compilar o ACBr_synapse.dpk da pasta D:\Acbr\trunk2\Pacotes\Delphi\synapse depois compilo meu software ocorre o mesmo erro: HTTPSend.pas(616); Undeclared identifier: 'NormalizeHeader' ACBrDFeOpenSSL.Pas(45): Could not compile user unit 'HTTPSend.pas' o detalhe é que acima do formulário aponta para a pasta: D:\Acbr\trunk2\Fontes\Terceiros\synalist acho que deveria apontar para a mesma ....\pacotes\delphi\synapse Trabalho com delphi7 Obrigado, Leão

Olá Italo, mais uma vez agradeço, atualizei para trunk2, e estou corrigindo detalhes, mas creio que foi corrigido a questão do qMDFe. Obrigado Leão

No anexo do acima do xml, entre InfNFe e chNFe

Olá Everton, estou com o mesmo problema. Depois de atualizar hoje para trunk2 HTTPSend.pas(616); Undeclared identifier: 'NormalizeHeader' ACBrDFeOpenSSL.Pas(45): Could not compile user unit 'HTTPSend.pas' Agradeço... Leão

Italo, não querendo ser chato, mas como tirar aquela linha em branco? Obrigado, Leão

Olá pessoal essa mensagem estar ocorrendo, Rejeição Emissor não habilitado para emissão do MDF-e, conforme o site da sefaz-MA não precisa de nenhum credenciamento basta estar autorizado a emitir CT-e ou NF-e, a empresa emitir NF-e, vários anos. Alguém já passou por essa expeciência? Já fiz varredura no fórum, mas não encontrei nenhuma solução... Obrigado, Leão 21150905517740000113580010000000011000000011-mdfe.xml

Muito obrigado Ítalo. Leão

Olá, estou com um pequeno problema que não consigo corrigir, veja só:Estar gerando um espaço entre as tag <InfNFe> e <chNFe> - <infDoc> - <infMunDescarga> <cMunDescarga>2102325</cMunDescarga> <xMunDescarga>BURITICUPU</xMunDescarga> - <infNFe> <chNFe>21150305517740000113550010000257341000257345</chNFe> - <infUnidTransp> Observação:Ainda não atualizei para trunk2 Parte do fonte: TabGlobal.CSDESCAR_CT.First; if not TabGlobal.CSDESCAR_CT.IsEmpty then begin while not TabGlobal.CSDESCAR_CT.Eof do begin with infCTe.Add do begin chCTe := TabGlobal.CSDESCAR_CT.fieldByName('chcte2').AsString; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.Add do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='1' then tpUnidTransp := utRodoTracao else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='2' then tpUnidTransp := utRodoReboque else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='3' then tpUnidTransp := utNavio else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='4' then tpUnidTransp := utBalsa else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='5' then tpUnidTransp := utAeronave else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='6' then tpUnidTransp := utVagao else if DDADOS_UNID_TRANSP.TPUNIDTRANSP.Conteudo='7' then tpUnidTransp := utOutros; idUnidTransp := DDADOS_UNID_TRANSP.DUNIDTRANSP.Conteudo; //'ABC1234'; // informar a placa se rodoviário // DDADOS_CT_LACRE_TRAN.First; while not DDADOS_CT_LACRE_TRAN.Eof do begin with lacUnidTransp.Add do begin nLacre :=DDADOS_CT_LACRE_TRAN.NLACRE.Conteudo; //'123'; end; DDADOS_CT_LACRE_TRAN.Next; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.Add do begin if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='1' then tpUnidCarga := ucContainer else if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='2' then tpUnidCarga := ucULD else if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='3' then tpUnidCarga := ucPallet else if DDADOS_UNID_CARGA.TPUNIDCARGA.Conteudo='4' then tpUnidCarga := ucOutros; idUnidCarga :=DDADOS_UNID_CARGA.DUNIDCARGA.Conteudo; //'AB45'; // informar o numero da unidade da carga // DDADOS_CT_LACRE_CARGA.First; while not DDADOS_CT_LACRE_CARGA.Eof do begin with lacUnidCarga.Add do begin nLacre := DDADOS_CT_LACRE_CARGA.NLACRE.Conteudo; //'123'; end; DDADOS_CT_LACRE_CARGA.Next; end; qtdRat := DDADOS_UNID_CARGA.QUANT_RATEADA.Conteudo; end; qtdRat := DDADOS_UNID_CARGA.QUANT_RATEADA.Conteudo; end; end; // fim do with TabGlobal.CSDESCAR_CT.Next; end; Obrigado, Leão 21150908512503000158580010000000011000000015-mdfe.xml

É verdade Italo, isso estar ocorrendo aqui no MA e também no PA, o pior que não há nenhuma informação por parte da sefaz, pelo mesmo que eu saiba... Obrigado Leão

Olá Duarte, veja página 9 dessa nt2015.pdf, parece que houve realmente mudança. Leão NT2015.pdf

Olá, aqui também estar ocorrendo a mesma mensagem Falha na Consulta do Registro de Passagem, tente novamente apos 5 minutos. Não houve nenhuma atualização na aplicação, começou segunda(20/07/2015), estranho que o evento e enviado normalmente somente o retorno traz o erro, creio que seja na sefaz mesmo... Detalhe: Não atualizei ainda para o trunk2 Leão

rapaz acabei de testar aqui e estar normal.... Obrigado, Leão