jperim

Aos moderadores. Como ninguém me respondeu, eu mexi no ACBr\Fontes\ACBrNFe\ACBrDANFeCBRaveRetrato.pas Peço a algum modereador, se possível/permitido implementar minhas alterações abaixo, para a impressão correta do campo NFe.Transp.veicTransp.RNTC com 20 caracters. Mudei a fonte para 8 nos campos: Nome Transp., Placa, UF, CNPJ, Endereço, Municipio, UF, Ins.Estudual Mudei a fonte para 6 nos campos: Frete por Conta e Código ANTT. //----------ACBrDANFeCBRaveRetrato.pas-----------------------------------------------// TituloDoBloco(PosX,PosY,'TRANSPORTADOR / VOLUMES TRANSPORTADOS'); wTemp_FontSizeText:=FontSizeText; FontSizeText:=8; Box([],PosX,YPos,90,aHeigthPadrao,'Nome / Razão Social',Transp.Transporta.XNome); FontSizeText:=6; Box([fsLeft],XPos,YPos,23,aHeigthPadrao,'Frete Por Conta',NotaUtil.SeSenao(Transp.ModFrete=mfContaEmitente,'0-EMITENTE','1-DESTINATÁRIO'),taCenter); Box([fsLeft],XPos,YPos,27,aHeigthPadrao,'Código ANTT',Transp.VeicTransp.RNTC,taLeftJustify); FontSizeText:=8; Box([fsLeft],XPos,YPos,24,aHeigthPadrao,'Placa do Veículo',Transp.VeicTransp.Placa,taCenter); Box([fsLeft],XPos,YPos,8,aHeigthPadrao,'UF',Transp.VeicTransp.UF,taCenter); // if FontNameUsed = 'Courier New' then // FontSizeText:=8; if Length(Transp.Transporta.CNPJCPF) > 11 then Box([fsLeft],XPos,YPos,30,aHeigthPadrao,'CNPJ / CPF',NotaUtil.FormatarCNPJ(Transp.Transporta.CNPJCPF),taCenter,True) else Box([fsLeft],XPos,YPos,30,aHeigthPadrao,'CNPJ / CPF',NotaUtil.FormatarCPF(Transp.Transporta.CNPJCPF),taCenter,True); Box([fsTop],PosX,YPos,90,aHeigthPadrao,'Endereço',Transp.Transporta.XEnder); Box([fsTop,fsLeft],XPos,YPos,68,aHeigthPadrao,'Município',Transp.Transporta.XMun,taCenter); Box([fsTop,fsLeft],XPos,YPos,8,aHeigthPadrao,'UF',Transp.Transporta.UF,taCenter); Box([fsTop,fsLeft],XPos,YPos,30,aHeigthPadrao,'Inscrição Estadual',Transp.Transporta.IE,taCenter,True); FontSizeText:=wtemp_FontSizeText;

Ainda utilizo NFe 1.0. TACBrNfeDANFERaveCB Meus clientes estão me pedindo para colocar o campo NFe.Transp.veicTransp.RNTC, ainda não tinha utilizado este campo. Implementei no meu sistema, mas a impressão dele só está saindo 8 caracteres, e ele é de 20 caracteres. Alguém pode me ajudar?

Valeu obrigado!

Está previsto a mudança, mas estou apertado de serviço, por isso não mudei ainda. Mas na versão 2.0 o campo VrUnitProd é CURRENCY ? Pq já tenho esse problema no meu sistema inteiro, e troquei tudo pra DOUBLE, mas como uso ACBr, não posso mexer. Vc nunca teve problemas com o CURRENCY nos seus proj.?

No XML e no DANFE.

Depois de muito tempo já usando o ACBrNfe 1.1, um cliente meu me avisou sobre valor errado em alguns campos de valor. Alguém já passou por isso? Campos CURRENCY colocando no final das decimais o valor 1. NFe.Det.Items[0].Prod.vUnCom := 91.1100 ( Valor correto ) NFe.Det.Items[0].Prod.vUnCom := 91.1101 ( Valor gerado errado ) Nos meus projetos não uso CURRENCY pq sempre notei isso, mas nem percebi q o ACBr usava. Alguem tem alguma dica?