ALA

Posso utilizar os schemas que estão na pasta do Acbr ? C:\ACbr\trunk2\Exemplos\ACBrDFe\Schemas\NFe

Obrigado pela resposta. Não entendi estou utilizando a ultima versão do ACBr. Ele não esta setando o valor correto ? Tenho que alterar onde ?

Estou com a mesma duvida. Tentei realizar o procedimento após manifestar a nota mas esta ocorrendo erro: ACBrNFe.DistribuicaoDFePorChaveNFe( UFtoCUF( FieldByName( 'EMP_CODIGO_UF' ).AsString ), FieldByName( 'EMP_CNPJ' ).AsString, FieldByName( 'NFE_CHAVE_ACESSO' ).AsString ); 20171214114417-con-dist-dfe.xml 20171214114439-dist-dfe.xml

Obrigado, mas não tenho que ajustar nenhum ".pas"....

Italo, para incluir Cubatão no ACBRNFS-e e muito complicado, parece que o WS e da WebIss, que já esta incorporado no componente..

Obrigado pela explicação Italo..

Bom dia Italo, ja tem alguma previsão p entrar em vigor ? O ACBRNFSe será alterado ?

Obrigado. Realizei a alteração e funcionou.. // Antigo chave := Documento_Anterior_Cte.FieldByName( 'DAC_305_CHAVEACESSO' ).AsString; chCTe := Documento_Anterior_Cte.FieldByName( 'DAC_305_CHAVEACESSO' ).AsString;

Estou com o mesmo problema. Porem o documento que estou tentando enviar não tem chave de acesso, hai preencho os outros campos, conforme fazia no CT-e 2.0 31171202128529000110570010000252251000252256-cte.xml

Pessoal, bom dia. Alguém conseguiu resolver o problema da chave. Esta ocorrendo comigo tb... removi a tag cOrgao, hai deu a mensagem abaixo ACBrNFe.EventoNFe.Evento.Clear; with ACBrNFe.EventoNFe.Evento.Add do begin // regmovido p teste em 04/12/2017 InfEvento.cOrgao := 91; infEvento.chNFe := Manifestacao.FieldByName( 'NFE_CHAVE_ACESSO' ).AsString; infEvento.CNPJ := Manifestacao.FieldByName( 'NFE_CPF_CNPJ' ).AsString; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end;

Obrigado, Italo. Funcionou blzinha.. 31171202128529000110580010000000041000000047-mdfe.xml

Italo, obrigado pela resposta. Parece que o WS de Cubatão e WebISS. Esse provedor ja existe no ACBRNFSe.. Outra coisa o projeto NFS-e Padrão Nacional será obrigatório para todas as prefeituras ? Vai utilizar a mesma regra da NFe conjugada ?

Italo boa tarde. Será que vc poderia nos ajudar a incorporar Cubatão/SP no componente ACBRNFS-e, encontrei a documentação em anexo nfe-integracao-v2.pdf

Senhores bom dia. Estou adicionando os dados do pedagio no MDF-e, mas o mesmo não esta aparecendo no XML... Estou utilizando a rotina abaixo: with rodo.valePed.disp.Add do begin // CA55 // if Trim( MDFe_PEDAGIO.FieldByName( 'MCP_CA55_CNPJ_FORNECEDORA' ).AsString ) <> EmptyStr then begin CNPJForn := MDFe_PEDAGIO.FieldByName( 'MCP_CA55_CNPJ_FORNECEDORA' ).AsString; end; // CA56 // if Trim( MDFe_PEDAGIO.FieldByName( 'MCP_CA56_CNPJ_PAGAMENTO' ).AsString ) <> EmptyStr then begin CNPJPg := MDFe_PEDAGIO.FieldByName( 'MCP_CA56_CNPJ_PAGAMENTO' ).AsString; end; // CA57 // if Trim( MDFe_PEDAGIO.FieldByName( 'MCP_CA57_NR_COMP_COMPRA' ).AsString ) <> EmptyStr then begin nCompra := MDFe_PEDAGIO.FieldByName( 'MCP_CA57_NR_COMP_COMPRA' ).AsString; end; // CA58 // vValePed := MDFe_PEDAGIO.FieldByName( 'MCP_CA58_VLR_VALE_PEDAGIO' ).AsCurrency; end; 31171202128529000110580010000000021000000026-mdfe.xml

Pessoal alguém conseguiu implementar a NFS-e de Cubatão ?

Isso, vou testar aqui, breve posto o resultado..

Utilizando em TS

Obrigado. doc "infDoc.infMunDescarga"

Senhores, bom tarde. Alguém já consegui imprimir utilizando o EscPos nas nuvens ? Estou com um cliente que emiti vários relatórios desenvolvidos com EscPos, quando esta na maquina local funciona blzinha. Mas quando coloca o programa nas nuvens não imprime correto e não corta o papel...

E quando for MDF-e deve informar 1 ou 2 ? Obs.: Posso informar doc complementar MDF-e.

Obrigado. Vou bloquear isso aqui. Só permitir informar um tipo de documento...

XML exemplo da net.. Não sei se esta correto. Gostaria de saber se posso enviar documentos diferentes no mesmo MDF-e. Tipo CT-e e NF-e no mesmo MDF-e.. LAYOUT 3.0 MDFe.xlsx

Parece que a tag "tipoDocumento" deve ser preenchida com os valores 1,3,5 mas não estou encontrando essa tag no ACBrMDFe

Engraçado, pensei que poderia ter no mesmo MDF-e os três tipos de documento 1 - CT-e 3 - NF-e 5 - MDF-e

Bom di. Estou tentando envia o XML em anexo. Mas estou recebendo a msg abaixo. Engraçado que estou enviando o grupo solicitado. with infDoc.infMunDescarga.Add do begin cMunDescarga := MDFe.FieldByName( 'MCA_46_CODIGO_MUNICIPIO_DESCARG' ).AsInteger; xMunDescarga := MDFe.FieldByName( 'MCA_47_NOME_MUNICIPIO_DESCARG' ).AsString; with infNFe.Add do // NF-e eletronica // begin chNFe := DocumentosFiscais.FieldByName( 'MDN_065_CHAVE_NFE' ).AsString; if Trim( DocumentosFiscais.FieldByName( 'MDN_066_SEGUNDO_COD_BARRA' ).AsString ) <> EmptyStr then begin SegCodBarra := DocumentosFiscais.FieldByName( 'MDN_066_SEGUNDO_COD_BARRA' ).AsString; if Length( DocumentosFiscais.FieldByName( 'MDN_066_SEGUNDO_COD_BARRA' ).AsString ) < 36 then begin if Application.MessageBox( 'Atenção !!! O Segundo Código de Barras da NF-e está menor que 36 posições. Deseja Continuar ?','Confirmação', MB_YESNO+MB_ICONQUESTION ) = idNo then begin Abort; end; end; end else begin // NOVA REGRA 04/12/2015 // if utst_FormaEmissao = utco_FormaEmissao_Contingencia_MDFe then begin ShowMessage( 'Segundo Código de Barras deve ser informado para MDF-e em contingência (FS-DA e FS-IA)' ); Abort; end; end; if Trim( DocumentosFiscais.FieldByName( 'MDN_D11_IND_REENTREGA' ).AsString ) <> EmptyStr then indReentrega := DocumentosFiscais.FieldByName( 'MDN_D11_IND_REENTREGA' ).AsString else indReentrega := '1'; with infUnidTransp.Add do begin // D14 // if MDFe_DOCS_UNID.FieldByName( 'MEU_D14_TIPO_UNID_TRANSP' ).AsString = EmptyStr then begin ShowMessage( 'Tipo da unidade de transporte deve ser informada. "D14"' ); Abort; end else begin case MDFe_DOCS_UNID.FieldByName( 'MEU_D14_TIPO_UNID_TRANSP' ).ASinteger of 1 : tpUnidTransp := utRodoTracao; // 1 2 : tpUnidTransp := utRodoReboque; // 2 3 : tpUnidTransp := utNavio; // 3 4 : tpUnidTransp := utBalsa; // 4 5 : tpUnidTransp := utAeronave; // 5 6 : tpUnidTransp := utVagao; // 6 7 : tpUnidTransp := utOutros; // 7 end; end; idUnidTransp := MDFe_DOCS_UNID.FieldByName( 'MEU_D15_ID_UNID_TRANSP' ).AsString; // D15'; qtdRat := MDFe_DOCS_UNID.FieldByName( 'MEU_D16_QTD_RATEADA' ).ASCurrency; // D16'; MDFe_DOCS_UNID_LACRES.First; if not MDFe_DOCS_UNID_LACRES.IsEmpty then begin while not MDFe_DOCS_UNID_LACRES.Eof do begin with lacUnidTransp.Add do begin nLacre := MDFe_DOCS_UNID_LACRES.FieldByName( 'MCL_D19_NR_LACRE' ).AsString; // 'D19'; end; MDFe_DOCS_UNID_LACRES.Next; end; end; // D22, 23, 24 // MDFE_DOCS_UNID_CARG.First; if not MDFE_DOCS_UNID_CARG.isEmpty then begin while not MDFe_DOCS_UNID_CARG.Eof do begin with infUnidCarga.Add do begin if MDFe_DOCS_UNID_CARG.FieldByName( 'MEC_D22_TIPO_UNIDADE' ).AsString = EmptyStr then begin ShowMessage( 'Tipo da unidade de carga. "D22"' ); Abort; end else begin case MDFe_DOCS_UNID_CARG.FieldByName( 'MEC_D22_TIPO_UNIDADE' ).AsInteger of 1 : tpUnidCarga := ucContainer; // 1 2 : tpUnidCarga := ucULD; // 2 3 : tpUnidCarga := ucPallet; // 3 4 : tpUnidCarga := ucOutros; // 4; end; end; idUnidCarga := MDFe_DOCS_UNID_CARG.FieldByName( 'MEC_D23_ID_UNIDADE' ).AsString; qtdRat := MDFe_DOCS_UNID_CARG.FieldByName( 'MEC_D24_QTD_RATEADA' ).AsCurrency; //D25.. MDFe_DOCS_UNID_CARG_LACRES.First; if not MDFe_DOCS_UNID_CARG_LACRES.IsEmpty then begin while not MDFe_DOCS_UNID_CARG_LACRES.Eof do begin with lacUnidCarga.Add do begin nLacre := MDFe_DOCS_UNID_CARG_LACRES.FieldByName( 'MCL_D27_NR_LACRE' ).AsString; end; MDFe_DOCS_UNID_CARG_LACRES.Next; end; end; end; MDFe_DOCS_UNID_CARG.Next; end; end; end; // # 20/11/2017 - PRODUTOS PERIGOSOS // MDFe_DOCS_PERIGOSO.First; while not MDFe_DOCS_PERIGOSO.Eof do begin with peri.Add do begin nONU := MDFe_DOCS_PERIGOSO.FieldByName( 'MCP_D30_NR_ONU' ).AsString; xNomeAE := MDFe_DOCS_PERIGOSO.FieldByName( 'MCP_D31_NOME_APROPRIADO' ).AsString; xClaRisco := MDFe_DOCS_PERIGOSO.FieldByName( 'MCP_D32_CLASSE_RISCO' ).AsString; grEmb := MDFe_DOCS_PERIGOSO.FieldByName( 'MCP_D33_GRUPO_EMBALAGEM' ).AsString; qTotProd := MDFe_DOCS_PERIGOSO.FieldByName( 'MCP_D34_QTDE_TOTAL_PRODUTO' ).AsString; qVolTipo := MDFe_DOCS_PERIGOSO.FieldByName( 'MCP_D35_QTDE_TIPO_VOLUMES' ).AsString; end; MDFe_DOCS_PERIGOSO.Next; end; tot.qNFe := tot.qNFe + 1; end; 31171110861678000112580010000001031000001035-mdfe.xml