Alteração Em Registros 1210 E 1610

[Jefferson Lupinacci]

CST PIS/COFINS Sendo gerado de Forma incorreta

|1210|00000000000000|31121899|0|11112011|0,00|0,00|0,00|0,00|00.00.00.0000.0000|0|

|1210|00000000000000|01|0|11112011|0,00|0,00|0,00|0,00|00.00.00.0000.0000|0|

 

ACBrEPCBloco_1_Class LINHA 575

 

DE
with Reg1200.Registro1210.Items[intFor] do
        begin
          Add( LFill('1210') +
               LFill( CNPJ ) +
               LFill( CST_PIS ) +
               LFill( COD_PART ) +
               LFill( DT_OPER ) +
               LFill( VL_OPER,0,2 ) +
               LFill( VL_BC_PIS,0,2 ) +
               LFill( ALIQ_PIS,0,2 ) +
               LFill( VL_PIS,0,2 ) +
               LFill( COD_CTA ) +
               LFill( DESC_COMPL ) ) ;
        end;

 

PARA
with Reg1200.Registro1210.Items[intFor] do
        begin
          Add( LFill('1210') +
               LFill( CNPJ ) +
               LFill( CST_PIS, 2 ) +
               LFill( COD_PART ) +
               LFill( DT_OPER ) +
               LFill( VL_OPER,0,2 ) +
               LFill( VL_BC_PIS,0,2 ) +
               LFill( ALIQ_PIS,0,2 ) +
               LFill( VL_PIS,0,2 ) +
               LFill( COD_CTA ) +
               LFill( DESC_COMPL ) ) ;
        end;

 

ACBrEPCBloco_1_Class LINHA 789

 

DE

with Reg1600.Registro1610.Items[intFor] do
        begin
          Add( LFill('1610') +
               LFill( CNPJ ) +
               LFill( CST_COFINS ) +
               LFill( COD_PART ) +
               LFill( DT_OPER ) +
               LFill( VL_OPER,0,2 ) +
               DFill( VL_BC_COFINS, 3 ) +
               DFill( ALIQ_COFINS, 4 ) +
               LFill( VL_COFINS,0,2 ) +
               LFill( COD_CTA ) +
               LFill( DESC_COMPL ) ) ;
        end;

 

PARA

with Reg1600.Registro1610.Items[intFor] do
        begin
          Add( LFill('1610') +
               LFill( CNPJ ) +
               LFill( CST_COFINS, 2 ) +
               LFill( COD_PART ) +
               LFill( DT_OPER ) +
               LFill( VL_OPER,0,2 ) +
               DFill( VL_BC_COFINS, 3 ) +
               DFill( ALIQ_COFINS, 4 ) +
               LFill( VL_COFINS,0,2 ) +
               LFill( COD_CTA ) +
               LFill( DESC_COMPL ) ) ;
        end;

 

 

 

 

ACBrEPCBloco_1_Class.pas

[EMBarbosa]

Olá,

 

 Você viu se esse problema se repete nos registros 1101 e 1501 na sua máquina também?

[Isaque Pinheiro]

Esses campos estão como Integer, mas eles deveriam ser tipados, farei a alteração assim que puder.

[Jefferson Lupinacci]

Olá,

 

 Você viu se esse problema se repete nos registros 1101 e 1501 na sua máquina também?

Ainda não fiz a integração do registro 1501 e 1101 as gerando informo aqui, pois estou executando uma integração completa do sped com a minha aplicação desktop

[Isaque Pinheiro]

Gentileza testar as implementações se segue em anexo, e depois me dê um retorno se possível para que eu possa subir para o repositório.

ACBrEPCBloco_1_Class.zip