ALA

Senhores, boa tarde. Utilizo o componente ACBrNFeDANFERave ha anos sem problemas. Agora estou querendo troca pelo componente ACBrNFeDANFERaveCB. Existe alguma restrição ou problema em realiza essa troca ?

Senhores, para resolver este problema alterei a na unit pnfsConversao TnfseTEmissao = ( TeNormal, TeContigencia ); para na unit pnfsConversao TnfseTEmissao = ( TeNormalNFSe, TeContigenciaNFSe );

Senhores, obrigado pela ajuda. Consegui resolver o problema. Removi todas as instalações do ACBr, baixe uma nova versão, reinstalei, hai funcionou blz....

Régys, obrigado. Realizei o procedimento que vc solicitou, mas o erro só aparece quando tento executar o projeto. Quando abro não aparece o erro. Estou utilizando o demo do ACBrECF.

Isaque encontrei alguns post's sobre o assunto nenhum deles vala sobre o problema no ACBReECF, a msg que estou recebendo é ao iniciar o projeto, quando compilo não da problema.. Será que vc pode me indicar qual o .Pas devo alterar...

Isaque obrigado pela resposta, mas a unica resposta que encontrei sobre este problema esta no link https://www.google.com/url?q=http://www.projetoacbr.com.br/forum/index.php%3F/topic/10930-elgin-ecd-mfd-fit-1e-problemas-ecf/&sa=U&ei=-PA4VdPlGI_HsQTV_4C4Bg&ved=0CAUQFjAA&client=internal-uds-cse&usg=AFQjCNEoWMBhV_vzranVQ9vDYWzHf_465g mas não tem nada a ver com o problema que esta ocorrendo comigo...

Delphi 2007

Senhores, bom dia. Após atualizar o ACBR esta ocorrendo a --------------------------- Application Error --------------------------- Exception EReadError in module ECFTeste.exe at 0001F8F3. Error reading ACBrECF1.FormMsgFonte.Charset: Property FormMsgFonte.Charset does not exist. --------------------------- OK --------------------------- No Demo ocorre a mesma mensagem..

Podemos esperar problemas para os próximos dias.

Comunicado De Paralisação Sefaz/mg

Boa tarde. Favor entrar em contato. Geraldo Cunha/Adriano Luiz, 31-3660-3250. www.multilogica.com.br

Qual linguagem ?

Qual linguagem ?

Valor 500,00. Anexo copia da NF-e

Obrigado pela resposta...

Pessoal bom dia. Alguém esta sabendo alguma coisa sobre a alteração abaixo: Nesta nova legislacao publicada no DOU de 31.3.2015, com efeitos a partir de 1º.5.2015, o Ato Cotepe ICMS nº 5/2015, que aprova o Manual de Orientações do Contribuinte do Manifesto Eletrônico de Documentos Fiscais (MDF-e), versão 1.00a, o qual estabelece especificações técnicas do MDF-e, do Documento Auxiliar do MDF-e (DAMDFE) e dos Pedidos de Concessão de Uso e Registro de Eventos, via WebServices...

Pessoal erro meu, estava executando o procedimento errado. O correto é: with Ide.NFref.Add do begin //Ide.finNFe := fnDevolucao; refNFP.cUF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_CODIGO_UF' ).AsInteger; refNFP.AAMM := FormatDateTime('YYMM', DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_DTEMISSAO' ).AsDateTime ); refNFP.CNPJCPF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_CNPJ_CPF' ).AsString; refNFP.IE := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_IE' ).AsString; refNFP.modelo := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString; //1;//StrToInt( utst_ModeloNFComplementar ); refNFP.serie := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_SERIE' ).AsInteger; refNFP.nNF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_NUMERO' ).AsInteger; lcst_InformacoesComplementares := lcst_InformacoesComplementares + ' COMPLEMENTAR DA NF Nº:' + IntToStr( refNFP.nNF ) + //utst_NumeroNFComplementar + '-SERIE: ' + IntToStr( refNFP.Serie ) + //utst_SerieNFComplementar + '-CNPJ/CPF: ' + refNFP.CNPJCPF + // utst_CNPJNFComplementar + '-ANO/MES: ' + refNFP.AAMM + ' ';//utst_AAMMNFComplementar + ' '; end;

M_Albuquerque, bom dia, quando aconteceu este problema comigo e pq eu estava enviando caracteres especiais nas descrição do produto...

Senhores e possível enviar varias NF-e referenciadas para produtor rual ? Estou utilizando o código abaixo mas o ACBR não permite o comando "Add' para tag refNFP // 4 - COMPLEMENTAR if NFe.FieldByName('NFS_TIPO_EMISSAO').AsString = '4' then begin // ASSEMBLA 3150, 04/03/2015 DocumentoFiscalReferenciado.First; if not DocumentoFiscalReferenciado.IsEmpty then begin while not DocumentoFiscalReferenciado.Eof do begin if ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_CHAVE_ACESSO' ).AsString ) <> EmptyStr ) or ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_NUMERO' ).AsString ) <> EmptyStr ) then begin if ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString ) = '55' ) or ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString ) = '01' ) or ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString ) = '1A' ) then begin with Ide.NFref.Add do begin //Ide.tpNF := tnSaida; RETIRADO ALA 05/10/2011 Ide.finNFe := fnComplementar; // MODELO 55 // if Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString ) = '55' then begin refNFe := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_CHAVE_ACESSO' ).AsString; //utst_NrDANFEComplementar; lcst_InformacoesComplementares := lcst_InformacoesComplementares + ' COMPLEMENTAR DA NF-e Chave: ' + DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_CHAVE_ACESSO' ).AsString + ' '; end // MODELO 1 OU 1A //S else if ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString ) = '01' ) or ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString ) = '1A' )then begin try RefNF.cUF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_CODIGO_UF' ).AsInteger; RefNF.AAMM := FormatDateTime('YYMM', DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_DTEMISSAO' ).AsDateTime ); RefNF.CNPJ := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_CNPJ_CPF' ).AsString; RefNF.modelo := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsInteger; //1;//StrToInt( utst_ModeloNFComplementar ); RefNF.serie := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_SERIE' ).AsInteger; RefNF.nNF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_NUMERO' ).AsInteger; lcst_InformacoesComplementares := lcst_InformacoesComplementares + ' COMPLEMENTAR DA NF Nº:' + IntToStr( RefNF.nNF ) + //utst_NumeroNFComplementar + '-SERIE: ' + IntToStr( RefNF.Serie ) + //utst_SerieNFComplementar + '-CNPJ/CPF: ' + RefNF.CNPJ + // utst_CNPJNFComplementar + '-ANO/MES: ' + RefNF.AAMM + ' ';//utst_AAMMNFComplementar + ' '; except on e : exception do begin ShowMessage( 'Erro ao processar NF-e/NF referenciada Modelo: ' + IntToStr( RefNF.modelo ) + e.message ); Abort; end; end; end; end; end; // PRODUTOR RURAL // if ( Trim( DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString ) = '04' ) then begin try with Ide.refNFP.Add do begin RefNF.cUF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_CODIGO_UF' ).AsInteger; RefNF.AAMM := FormatDateTime('YYMM', DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_DTEMISSAO' ).AsString ); RefNF.CNPJ := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_CNPJ_CPF' ).AsString; RefNF.CPF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_CNPJ_CPF' ).AsString; RefNF.IE := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_EMITENTE_IE' ).AsString; RefNF.modelo := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_MODELO' ).AsString; //1;//StrToInt( utst_ModeloNFComplementar ); RefNF.serie := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_SERIE' ).AsInteger; RefNF.nNF := DocumentoFiscalReferenciado.FieldByName( 'DFR_DOCTO_NUMERO' ).AsInteger; lcst_InformacoesComplementares := lcst_InformacoesComplementares + ' COMPLEMENTAR DA NF Nº:' + RefNF.nNF + //utst_NumeroNFComplementar + '-SERIE: ' + RefNF.Serie + //utst_SerieNFComplementar + '-CNPJ/CPF: ' + RefNF.CNPJ + // utst_CNPJNFComplementar + '-ANO/MES: ' + RefNF.AAMM + ' ';//utst_AAMMNFComplementar + ' '; end; except on e : exception do begin ShowMessage( 'Erro ao processar NF-e/NF referenciada de Produtor Rural. ' + e.message ); Abort; end; end; end; end else begin ShowMessage( 'Número da NF-e/NF Complementar não informado.' ) Abort; end; DocumentoFiscalReferenciado.MoveBy( 1 ); end; end else begin ShowMessage( 'Documento Referenciado não encontado..' ); Abort; end;

Obrigado pela resposta Italo, eu alterei a rotina do componente e esta funcionando. Apenas coloquei NFSe no final da constante. Para alterar todo o meu projeto fica complicado pois estou com muitas demandas....

E um projeto só. Tenho todas as funcionalidades em um mesmo projeto, NF-e, NFS-e, CT-e, MDF-e, CC-e..

Italo, bom dia. Se eu remover a pnfsConversao ocorre os erros em anexo..A solução que encontrei foi alterar o nome da constante // Alterado por Ala em 25/02/2015 TnfseTEmissao = ( TeNormalNFSe, TeContigenciaNFSe );

Régys, realizei a alteração conforme descrito acima. Hai funcionou blz. Poderia realiza esta alteração nos fontes do componente. Obrigado

Poderia trocar o nome da pnfsConversao = > TnfseTEmissao = ( TeNormalNFSe, TeContigenciaNFSe );