Ajuste Registro C170 em caso de calculo por unidade

[dantemartins]

Para corrigir um erro de validação no PVA tive que fazer a seguinte alteração no ACBrEPCBloco_C_Class, na procedure TBloco_C.WriteRegistroC170:

{25} LFill( strCST_PIS ) +

{26} //LFill( VL_BC_PIS,0,2 ) +

DFill(VL_BC_PIS, 2, True) +

{27} //LFill( ALIQ_PIS_PERC,8, 4, False, '0', '#0.0000' ) +

LFill( ALIQ_PIS_PERC,8, 4, True, '0', '#0.0000' ) +

{28} DFill( QUANT_BC_PIS,3,true ) +

{29} DFill( ALIQ_PIS_R,4,true ) +

{30} LFill( VL_PIS,0,2 ) +

{31} LFill( strCST_COFINS ) +

{32} //LFill( VL_BC_COFINS,0,2 ) +

DFill(VL_BC_COFINS, 2, True) +

{33} //LFill( ALIQ_COFINS_PERC,8,4, False, '0', '#0.0000' ) +

LFill( ALIQ_COFINS_PERC,8,4, True, '0', '#0.0000' ) +

{34} DFill( QUANT_BC_COFINS,3,true )+

Campos 26, 27, 32 e 33.

Depois disso sumiu o erro, mais não sei se esse é o procedimento correto.

[EMBarbosa]

Depois disso sumiu o erro, mais não sei se esse é o procedimento correto.

Qual foi o erro?

[dantemartins]

Depois disso sumiu o erro, mais não sei se esse é o procedimento correto.

Qual foi o erro?

que esses campo não poderiam ser informados, e apesar de eu não estar passando nada para esses campos, a procedure gravava zero

[EMBarbosa]

Então seu código estava desatualizado. Isso já foi corrigido.

Favor atualizar.

[dantemartins]

Como ja fiz dessas de perguntar algo aqui antes de ver se ja tava corrigido, antes de postar aqui verifique se ja tinha sido mudado, e tava a mesma coisa, mais vou verificar novamente, obrigado.

[EMBarbosa]

então. Seu código está desatualizado. Veja como está o código atualmente:

              {24} LFill( VL_IPI,0,2 )           +

              {25} LFill( strCST_PIS )           +

              {26} LFill( VL_BC_PIS,0,2 )        +

              {27} DFill( ALIQ_PIS_PERC, 4, True ) +

              {28} DFill( QUANT_BC_PIS,  3, True ) +

              {29} DFill( ALIQ_PIS_R,    4, True ) +

              {30} LFill( VL_PIS,0,2 )           +

              {31} LFill( strCST_COFINS )        +

              {32} LFill( VL_BC_COFINS,0,2 )     +

              {33} DFill( ALIQ_COFINS_PERC, 4, True ) +

              {34} DFill( QUANT_BC_COFINS,3, True )+

              {35} DFill( ALIQ_COFINS_R, 4, True ) +

              {36} LFill( VL_COFINS,0,2 )        +

              {37} LFill( COD_CTA ) ) ;[/code]


Note, só como exemplo, que para preencher ALIQ_PIS_PERC é usado o método DFill e não LFill como está no seu código.

[dantemartins]

então. Seu código está desatualizado. Veja como está o código atualmente:

              {24} LFill( VL_IPI,0,2 )           +

              {25} LFill( strCST_PIS )           +

              {26} LFill( VL_BC_PIS,0,2 )        +

              {27} DFill( ALIQ_PIS_PERC, 4, True ) +

              {28} DFill( QUANT_BC_PIS,  3, True ) +

              {29} DFill( ALIQ_PIS_R,    4, True ) +

              {30} LFill( VL_PIS,0,2 )           +

              {31} LFill( strCST_COFINS )        +

              {32} LFill( VL_BC_COFINS,0,2 )     +

              {33} DFill( ALIQ_COFINS_PERC, 4, True ) +

              {34} DFill( QUANT_BC_COFINS,3, True )+

              {35} DFill( ALIQ_COFINS_R, 4, True ) +

              {36} LFill( VL_COFINS,0,2 )        +

              {37} LFill( COD_CTA ) ) ;

Note, só como exemplo, que para preencher ALIQ_PIS_PERC é usado o método DFill e não LFill como está no seu código.

Estava usando a "minha versão oficiosa" e resolvi atualizar os componentes para pegar as correções oficiais...

O campo "26" e o "32" tem que ter o mesmo tratamento que o "27", "28", "29", "33", "34" e "35", ou seja, se for igual a zero, não mostrar nada no caso de calculo por unidade.

(Re)corrigi meu codigo e vou ficar dando umas conferidas de quando em quando pra ver se ja foi corrigido.

Tks.

[EMBarbosa]

ok. Daí você posta tudo de uma vez que eu tento verificar o mais rápido possível.

[dantemartins]

Só fiz assim:

              {25} LFill( strCST_PIS )           +

              {26} DFill( VL_BC_PIS,     2, True ) +

              {27} DFill( ALIQ_PIS_PERC, 4, True ) +

              {28} DFill( QUANT_BC_PIS,  3, True ) +

              {29} DFill( ALIQ_PIS_R,    4, True ) +

              {30} LFill( VL_PIS,0,2 )           +

              {31} LFill( strCST_COFINS )        +

              {32} DFill( VL_BC_COFINS, 2, True ) +

              {33} DFill( ALIQ_COFINS_PERC, 4, True ) +

              {34} DFill( QUANT_BC_COFINS,3, True )+

              {35} DFill( ALIQ_COFINS_R, 4, True ) +

              {36} LFill( VL_COFINS,0,2 )        +

Se estiver ok, é isso... assim o PVA aceita.

[EMBarbosa]

OK.

Estou verificando aqui.

Acho que isso deverá ser alterado em mais alguns outros registros também.

[EMBarbosa]

Pronto. Já verifiquei no Bloco C e mandei pro SVN na revisão 3385.

Por favor, teste e me dê o retorno.