LeoSlander

Bom dia pessoal, alterei a informação da chave da NFe. Quem quiser segue o código abaixo: Alterei a unit do fontes\ACBrCTe\ACBrDACTEFRDM.pas linha 477 onde o textoimpressão recebia somente a chave para nfe: FieldByName('TextoImpressao').AsString := 'NF-e '+copy(chave,21,2)+' '+copy(chave,7,14)+ ' '+copy(chave,23,3)+' '+copy(chave,26,9);

Certo Italo, fiz aqui o teste deu certinho. Minha versão é 4. Obrigado

Boa tarde tem que descomentar a linha: //{$DEFINE QReport_PDF} comando para impressão com o XML carregado no componente: ACBrCTe1.DACTe:=ACBrCTeDACTeQR1; ACBrCTe1.Conhecimetos.ImprimirPDF;

Valeu Italo, vou analisar a melhor solução.

Certo Italo, agradeço muito sua atenção. Você trabalha com o QuickReport ne? Qualquer coisa altero a minha impressão para Quick. Obrigado

Boa tarde Italo. Obrigado pela atenção, eu sei que isso não é obrigatório e sei também sobre o conteudo da chave. O que quero fazer é uma alteração particular que ocorre da mesma forma em outros DACTE que observei. A alteração mantém a chave e ao final da mesma informo o numero da nota que consta na chave, para isto basta eu recorta-lo. Observei também em outros DACTE que separam o modelo, a serie e o número. Abri este tópico para saber se já tinha alguma opção ou algo feito em relação. Obrigado mais uma vez. Vou analisar a melhor forma de alterar a minha questão.

Boa tarde pessoal, seguinte quando relaciono a nota NFE ao CTE pela chave a mesma aparece na impressão. Queria que na impressão aparecesse separadamente o numero da nota. Sei que na chave da nota a numeração se encontra. Qual a melhor forma de inserir isto na impressão: - No formulario de impressão do Fast Report (utilizo Fast Report)? - Ou via código existe alguma variavél para informar o valor? desde já agradeço a atenção de todos.

Boa tarde, geralmente o contador da firma sabe como pesquisar.

Boa tarde, Geralmente este problema é relacionado com o emitente. Pode ser que a empresa emitente esteja com algum problema com o fisco. Exemplo: pode estar desabilitada, devendo imposto, etc. Consulte o seu contador para saber se a empresa esta normalizada.

Olha esse erro acontece comigo quando o interner explorer esta trabalhando em modo Off-Line (Arquivos->Trabalhar Off-Line). Verifique se não é isso que esta acontecendo com vc. abraço

Utilizo a função so para verificação em caso de a chave nao estar salva em meu banco. Mas ótimo já alterei aqui a funcionalidade minha. grato.

Boa tarde Italo, quer dizer que se eu quiser chamar a função para gerar a chave então eu posso usar a mesma da NFe? grato

Boa tarde, pessoal. pcnAuxiliar: Queria saber o seguinte, na função GerarChaveNFe é passado o parametro de forma de emissão (tpemi) que é correspondente a configuração de transmissão: Normal, SCAN, etc. Já na mesma função para o CTe no caso GerarChaveCTe não é passado esse parametro de forma de emissão. Isso significa que o CTe não tem outra forma de emissão senão o modo normal? desde já agradeço a atenção de todos.

Pessoal to ate com vergonha de vcs mas acho q isso acontece com todo mundo. Desculpa ai a minha falta de atenção. aconteceu o seguinte. Antes eu usava o proprio diretorio C:\Program Files\Embarcadero\RAD Studio\7.0\lib para armazenar os fontes do ACBr, porém, nao percebi que tinha um relacionamento libary para este diretorio. Quando entrava no libary eu me certificava de verificar se estava direcionado para a minha pasta correta e não me atentei para isso. Obrigado pela a atenção de todos e mais uma vez desculpa.

espera ai pessoal acho que encontrei o problema

Italo, tem como vc me passar essa classe aqui (dentro de pcnCCeNFe): TCCeNFe = class(TPersistent) private FGerador: TGerador; FSchema: TpcnSchema; FidLote: Integer; FEvento: TInfEventoCollection; procedure SetEvento(const Value: TInfEventoCollection); public constructor Create; destructor Destroy; override; function GerarXML: boolean; function ObterNomeArquivo: string; published property Gerador: TGerador read FGerador write FGerador; property schema: TpcnSchema read Fschema write Fschema; property idLote: Integer read FidLote write FidLote; property Evento: TInfEventoCollection read FEvento write SetEvento; end; pra mim ver se consigo resolver.

Fiz o relocate, verifiquei a propriedade do arquivo onde se encontra: WC Revision 5558 - Last Changed author: anfm - Last Changed revision: 5161 com a data de 12/04/2013, porem, o erro persiste.

Então pessoal, estou baixando novamente agora com o relocate, desculpe ai nao tinha atentado para isso desde ja agradeço a atenção de todos e vou postar o resultado assim que terminar aqui grato

Fazendo o Relocate, assim que terminar posto o resultado. grato

Italo, mesmo erro olha ai a classe dentro da unit pcnCCeNFe TCCeNFe = class(TPersistent) private FGerador: TGerador; FSchema: TpcnSchema; FidLote: Integer; FEvento: TInfEventoCollection; procedure SetEvento(const Value: TInfEventoCollection); public constructor Create; destructor Destroy; override; function GerarXML: boolean; function ObterNomeArquivo: string; published property Gerador: TGerador read FGerador write FGerador; property schema: TpcnSchema read Fschema write Fschema; property idLote: Integer read FidLote write FidLote; property Evento: TInfEventoCollection read FEvento write SetEvento; end; não possui Versao.

tudo bem vou utiliza o mesmo diretorio e o mesmo nome de pasta.

Boa tarde Italo, vou fazer o seguinte criar uma nova pasta baixar todos os fontes novamente e testar e posto o resultado. grato

Esta atualizado e obtive a ultima versão do ACBr atraves do SVN Update. O que estou tentando fazer é justamente instalar os pacotes. Instalei quase todos. Quando fui instalar o em questão deu o erro.

Boa tarde a todos, esta dando erro na unit ACBrNFeWebService na linha 733 a 737 codigo // Incluido por Italo em 18/02/2013 if (FConfiguracoes.Geral.ModeloDF = moNFCe) then CCeNFe.Versao := NFCeCCe else CCeNFe.Versao := NFeCCeNFe; erro: o campo Versao nao existe na Classe mãe. Como posso proceder para corrigir esse erro. esta dando erros também de "implicit string cast from AnsiString to String" desde já agradeço!

Até o momento ainda continua o problema.