Jump to content

dev botao

Ajuste Registro C170 em caso de calculo por unidade


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

Recommended Posts

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.

Link to comment
Share on other sites

  • Consultores

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

Qual foi o erro?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores

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

Favor atualizar.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • Consultores

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

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

  • Consultores

OK.

Estou verificando aqui.

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

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores

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

Por favor, teste e me dê o retorno.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 4584 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.