Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Moderadores
Postado

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?

  • Consultores
Postado

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.
  • Moderadores
Postado

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.

  • 2 meses depois ...
Postado

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.

  • Consultores
Postado

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.
  • Este tópico foi criado há 4535 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...