Jump to content

dev botao

Publicada nova versão do PVA - EFD ICMS/IPI - 2.0.25


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

Recommended Posts

  • Moderadores

Publicada nova versão do PVA - EFD ICMS/IPI - 2.0.25

Foi publicada a nova versão do PVA - EFD ICMS/IPI - 2.0.25. Principais Alterações: Registro H005 " Inclusão do campo MOT_INV e alteração da chave do registro para DT_INV + MOT_INV", Inclusão dos Registros H020, 1010, 1390, 1391, Registro D100 " Alteração da descrição do campo para o valor válido 9 - Sem cobrança de frete, Registro C100 " Alteração do campo IND_PGTO retirando o valor válido 9 e incluindo o valor 2 (implica em alteração da descrição do campo para a realização da mesma alteração);

O validador 2.0.24 já foi substituido. Não consigo gerar o registro H020. Além disso, não sei como será o calculo do valor da base de calculo e do icms no caso do inventario, porque nunca ouvi falar disso. Alguém sabe mais detalhes de como será gerado o H020?

Link to comment
Share on other sites

  • Consultores

Como assim não consegue gerar? Você não consegue montar ou não consegue usar o componente?

Também não sei como calcular ainda :(

[]'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

  • Moderadores

Conforme um assessor contabil, isso já era feito no livro de inventario manual, quando a apuração do inventario era feita em uma situação exepcional (que não fosse a declaração normal de fevereiro com referencia a dezembro do exercicio anterior).

Segundo ele, deve-se considerar CST e aliquota padrão de venda estadual do produto. ( :geek: não concordei com isso não, porque assim não tenho a realidade da base de calculo e do valor do icms, nem mesmo uma previsão desses valores, já que tudo depende do tipo de venda (externa/interna), tipo de destinatario, cfop, etc...)

Mas fiz assim e validou.

if (MOT_INV <> miFinalPeriodo) then

            begin

              With RegistroH020New do

              begin

                CST_ICMS := CST (do produto);

                Case CST (do produto) of

                00:begin

                     BC_ICMS  := VL_ITEM (do registro H010);

                     VL_ICMS  := ((VL_ITEM (do registro H010) * Aliquota do produto)*0.01);

                    end;

                10:begin

                     BC_ICMS  := VL_ITEM (do registro H010);

                     VL_ICMS  := ((VL_ITEM (do registro H010) * Aliquota do produto)*0.01);

                    end;

                20:begin

                     BC_ICMS  := VL_ITEM (do registro H010);

                     VL_ICMS  := ((VL_ITEM (do registro H010) * Aliquota do produto)*0.01);

                    end;

                30:begin

                     BC_ICMS  := 0;

                     VL_ICMS  := 0;

                   end;

                40:begin

                     BC_ICMS  := 0;

                     VL_ICMS  := 0;

                   end;

                41:begin

                     BC_ICMS  := 0;

                     VL_ICMS  := 0;

                   end;

                50:begin

                     BC_ICMS  := 0;

                     VL_ICMS  := 0;

                   end;

                51:begin

                     BC_ICMS  := 0;

                     VL_ICMS  := 0;

                   end;

                60:begin

                     BC_ICMS  := 0;

                     VL_ICMS  := 0;

                   end;

                70:begin

                     BC_ICMS  := VL_ITEM (do registro H010);

                     VL_ICMS  := ((VL_ITEM (do registro H010) * Aliquota do produto)*0.01);

                    end;

                90:begin

                     BC_ICMS  := VL_ITEM (do registro H010);

                     VL_ICMS  := ((VL_ITEM (do registro H010) * Aliquota do produto)*0.01);

                    end;

                Else

                   begin

                     BC_ICMS  := VL_ITEM (do registro H010);

                     VL_ICMS  := ((VL_ITEM (do registro H010) * Aliquota do produto)*0.01);

                   end;

                End;

              end;

            end;

Quem tiver + informações, por favor acrescente.

Link to comment
Share on other sites

  • 2 months later...

Olá bom dia!

Ao gerar o bloco H020 pela segunda vez o total de linhas desse bloco fica duplicado no registro 9900, verifiquei que não esta sendo iniciada a variavel que conta o total de registros:

procedure TBloco_H.CriaRegistros;

begin

FRegistroH001 := TRegistroH001.Create;

FRegistroH990 := TRegistroH990.Create;

FRegistroH005Count := 0;

FRegistroH010Count := 0;

FRegistroH020Count := 0; //------> NÃO POSSUI ESTA LINHA

FRegistroH990.QTD_LIN_H := 0;

end;

Att,

Wilson.

Link to comment
Share on other sites

  • Consultores

Obrigado Wilson. Corrigido na revisão 3709

[]'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á 4474 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.