Campo faltando no bloco C120

[edgarbottini]

Ola pessoal, procurei aqui no forum mas nao encontrei nada a respeito, então resolvi criar o topico pra saber se mais alguem teve esse problema. Seguinte: tenho um cliente que emite nota de importação, então precisei gerar o bloco C120, porém o PVA acusou problema de estrutura, quando fui ver, o TRegistroC120 não tem o campo NUM_ACDRAW, "Número do Ato Concessório do regime Drawback", então fiz as seguintes mudanças no código e funcionou,

arquivo: ACBrEFDBloco_C, a partir da linha: 416

TRegistroC120 = class

private

fCOD_DOC_IMP: TACBrDoctoImporta; /// Documento de importação:

fNUM_DOC__IMP: String; /// Número do documento de Importação.

fPIS_IMP: currency; /// Valor pago de PIS na importação

fCOFINS_IMP: currency; /// Valor pago de COFINS na importação

fNUM_ACDRAW: String; /// Numero do Ato Concessório ro regime Drawback public

property COD_DOC_IMP: TACBrDoctoImporta read FCOD_DOC_IMP write FCOD_DOC_IMP;

property NUM_DOC__IMP: String read FNUM_DOC__IMP write FNUM_DOC__IMP;

property PIS_IMP: currency read FPIS_IMP write FPIS_IMP;

property COFINS_IMP: currency read FCOFINS_IMP write FCOFINS_IMP;

property NUM_ACDRAW: String read fNUM_ACDRAW write fNUM_ACDRAW; end;

arquivo: ACBrEFDBloco_C_Class, a partir da linha 1109

with RegC100.RegistroC120.Items[intFor] do

begin

Add( LFill('C120') +

LFill( Integer(COD_DOC_IMP), 0 ) +

LFill( NUM_DOC__IMP ) +

LFill( PIS_IMP,0,2 ) +

LFill( COFINS_IMP,0,2 ) +

LFill( NUM_ACDRAW ) ) ;

end;

então, pra mim funcionou, mas nao sei como é o processo de sugerir alteração/correção, aí eu postei aki, espero ter ajudado

[Isaque Pinheiro]

Ola pessoal, procurei aqui no forum mas nao encontrei nada a respeito, então resolvi criar o topico pra saber se mais alguem teve esse problema. Seguinte: tenho um cliente que emite nota de importação, então precisei gerar o bloco C120, porém o PVA acusou problema de estrutura, quando fui ver, o TRegistroC120 não tem o campo NUM_ACDRAW, "Número do Ato Concessório do regime Drawback", então fiz as seguintes mudanças no código e funcionou,

arquivo: ACBrEFDBloco_C, a partir da linha: 416

TRegistroC120 = class

private

fCOD_DOC_IMP: TACBrDoctoImporta; /// Documento de importação:

fNUM_DOC__IMP: String; /// Número do documento de Importação.

fPIS_IMP: currency; /// Valor pago de PIS na importação

fCOFINS_IMP: currency; /// Valor pago de COFINS na importação

fNUM_ACDRAW: String; /// Numero do Ato Concessório ro regime Drawback public

property COD_DOC_IMP: TACBrDoctoImporta read FCOD_DOC_IMP write FCOD_DOC_IMP;

property NUM_DOC__IMP: String read FNUM_DOC__IMP write FNUM_DOC__IMP;

property PIS_IMP: currency read FPIS_IMP write FPIS_IMP;

property COFINS_IMP: currency read FCOFINS_IMP write FCOFINS_IMP;

property NUM_ACDRAW: String read fNUM_ACDRAW write fNUM_ACDRAW; end;

arquivo: ACBrEFDBloco_C_Class, a partir da linha 1109

with RegC100.RegistroC120.Items[intFor] do

begin

Add( LFill('C120') +

LFill( Integer(COD_DOC_IMP), 0 ) +

LFill( NUM_DOC__IMP ) +

LFill( PIS_IMP,0,2 ) +

LFill( COFINS_IMP,0,2 ) +

LFill( NUM_ACDRAW ) ) ;

end;

então, pra mim funcionou, mas nao sei como é o processo de sugerir alteração/correção, aí eu postei aki, espero ter ajudado

Disponível no SVN.