ERRO C490

[Célio Rafael Martins Júnior]

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

[AlissonMarcel]

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;