Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Ola. Estou com um Erro no Registro C490. O valor( VL_BC_ICMS do Registro C490) deve ser igual à soma do valor do item(VL_ITEM) dos Registros C470 para a mesma combinação CST_ICMS+CFOP+ALIQ_ICMS. Já conferi e nada percebi que no Valor Esperado retornado pelo erro sempre pede a soma de todos os C490 informados até então.  Enviei o arquivo parcial em anexo somente de dois dias para vocês terem noção de como esta. Alguém pode me Ajudar. Desde já Agradeço

sped022018001.txt

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...

Bom dia. Esse erro ocorre quando alguns dos totalizadores tem a mesma alíquota. mesmo ela sendo Zerada.

No meu caso, tenho produtos com cst de substituição triburtaria. o Componente esta informando alíquota 0%(mesmo não informando nada) e ai causa o erro, pois tenho outro totalizador T0000 que tem a alíquota 0% tb(no caso empresas do perfil C).

 

Alterei o código do componente para que não informe o 0% em casos  nulo. Foi uma gambiarra, fiz nas pressas. Pode ser que solucione seu problema;

 

procedure TBloco_C.WriteRegistroC490(RegC405: TRegistroC405);
var
  intFor: integer;
begin
  if Assigned( RegC405.RegistroC490 ) then
  begin
     for intFor := 0 to RegC405.RegistroC490.Count - 1 do
     begin
        with RegC405.RegistroC490.Items[intFor] do
        begin
        if ((CST_ICMS = '010') or
                    (CST_ICMS = '030') or
                    (CST_ICMS = '060') or
                    (CST_ICMS = '500') or
                    (CST_ICMS = '500')) then
        begin
          Add( LFill('C490') +
               LFill( CST_ICMS,3 ) +
               LFill( CFOP,4 ) +
               LFill( ALIQ_ICMS,0,2, True ) +
               LFill( VL_OPR,0,2 ) +
               LFill( VL_BC_ICMS,0,2 ) +
               LFill( VL_ICMS,0,2 ) +
               LFill( COD_OBS ) ) ;
        end
        else
        begin
          Add( LFill('C490') +
               LFill( CST_ICMS,3 ) +
               LFill( CFOP,4 ) +
               LFill( ALIQ_ICMS,6,2 ) +
               LFill( VL_OPR,0,2 ) +
               LFill( VL_BC_ICMS,0,2 ) +
               LFill( VL_ICMS,0,2 ) +
               LFill( COD_OBS ) ) ;
        end;
        end;
        RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;
     end;
     /// Variavél para armazenar a quantidade de registro do tipo.
     FRegistroC490Count := FRegistroC490Count + RegC405.RegistroC490.Count;
  end;
end;

 

 

Link para o comentário
Compartilhar em outros sites

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