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

[Gr@c@]

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?

[EMBarbosa]

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

[Gr@c@]

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. ( 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.

[wilson_jr]

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.

[EMBarbosa]

Obrigado Wilson. Corrigido na revisão 3709