Aliq_Icms Com Decimal

[Anderson Rodrigo da silva]

Gostaria de saber como proceder para valores de aliquotas de icms com fator decimal acima de zero ex.: 5,6. pois apresenta erro ao gerar sped fiscal, haja visto que foi modificado de: LFill( ALIQ_ICMS, 6, 2 ) ) para: VLFill( ALIQ_ICMS, 0, 2 )

 

strLinha := LFill('0200') +

                      LFill( COD_ITEM ) +

                      LFill( DESCR_ITEM ) +

                      LFill( COD_BARRA ) +

                      LFill( COD_ANT_ITEM ) +

                      LFill( UNID_INV ) +

                      LFill( strTIPO_ITEM ) +

                      LFill( COD_NCM ) +

                      LFill( EX_IPI ) +

                      LFill( COD_GEN ) +

                      LFill( COD_LST ) +

                      VLFill( ALIQ_ICMS, 0, 2 );    <------------------------------------

 

fiz o teste no Sped piscofins e tudo ok. verifiquei e ainda está LFill( ALIQ_ICMS, 6, 2 ) ).

 

estou passando o valor como --> float

[Anderson Rodrigo da silva]

sobe

[Juliomar Marchetti]

Bom dia

Percebi que é seu segundo post e é relativamente novo no fórum!

 

Seja bem vindo ao mesmo!

Gostaria de convidar a ler as regras do fórum!

segue o link

 

Se está informando algum problema no fonte do sistema, anexe a unit alterada ao post

que faremos a validação e subimos ao svn!

 

também peço para que aguarde a resposta, pois é um fórum colaborativo e visto que nem 24 horas se passou do seu post pode ser considerado spam e ser bloqueado seus posts !

[Dalvan]

Boa Tarde,

também tive o mesmo caso, passei uma ALIQ_ICMS com decimal ( Ex. 2,42 ).
fui depurando e o erro ocorre na função IsNumber(2,42), que retorna false, ocorrendo o erro na geração do sped.


comentei as linhas que testam o IsNumber, e gerou correto o arquivo do SPED.

function TACBrTXTClass.VLFill(Value: Variant;
                             Size: Integer;
                             Decimal: Integer;
                             Caracter: Char;
                             Mascara: String): String;
var
intFor, intP: Integer;
strCurMascara: string;
begin
  strCurMascara := FCurMascara;
  // Se recebeu uma mascara como parametro substitue a principal
  if Mascara <> '' then
     strCurMascara := Mascara;

  // Se o parametro Nulo = true e Value = 0, será retornado '|'
  if (Value = Null) or (Value=Unassigned) then
  begin
     Result := FDelimitador;
     Exit;
  end;
  // Checa se é um valor numérico
  //----------------->> if not IsNumber(Value) then
  //----------------->>   raise Exception.Create( Format('[%a] Não é um valor numérico!', [Value]) );

  intP := 1;
  for intFor := 1 to Decimal do
  begin
     intP := intP * 10;
  end;

  if (strCurMascara <> '#') and (strCurMascara <> '') then
     Result := FDelimitador + FormatCurr(strCurMascara, Value)
  else
     Result := LFill(Trunc(Value * intP), Size, False, Caracter);
end;
 

[EMBarbosa]

É possível reproduzir esse erro no programa de Exemplo?

Quais são as alterações a serem feitas?

[Dalvan]

boa tarde,

no programa de exemplo, é só colocar um percentual de icms com decimal que ocorre erro na geração do arquivo SPED.


exemplo:

with Registro0200New do
      begin
        COD_ITEM := '000001';
        DESCR_ITEM := 'PRODUTO 1';
        COD_BARRA := '';
        UNID_INV := 'UN';
        TIPO_ITEM := tiMercadoriaRevenda;
        COD_NCM := '30049026';
        COD_GEN := '30';
        ALIQ_ICMS := 2.42;
      end;

[Juliomar Marchetti]

Boa noite

Favor atualizar o svn e testar!

Possível correção aplicada !