Jump to content

dev botao

Campo faltando no bloco C120


edgarbottini
  • Este tópico foi criado há 4785 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

[]'s

Edgar

Delphi Rocks!

Link to comment
Share on other sites

  • 2 weeks later...

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.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 4785 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.