Acbr Sintegra

[volmir]

percebi um erro na unit {ACBRSintegra}

procedure TACBrSintegra.GerarRegistros60I(Registros60I: TRegistros60I);
var
  wregistro: string;
  i: Integer;
begin
for I := 0 to Registros60I.Count - 1 do
begin
  wregistro:='60I';
  wregistro:=wregistro+FormatDateTime('yyyymmdd',Registros60I.Emissao);
  wregistro:=wregistro+PadRight(Trim(Registros60I.NumSerie),20);
  wregistro:=wregistro+PadRight(Trim(Registros60I.ModeloDoc),2);
  wregistro:=wregistro+TBStrzero(Registros60I.Cupom,6);
  wregistro:=wregistro+TBStrzero(IntToStr(Registros60I.Item),3);
  wregistro:=wregistro+PadRight(Registros60I.Codigo,14);
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,###0.000',Registros60I.Quantidade)),13);
  {Valor líquido (valor bruto diminuído do desconto) da mercadoria/produto (com 2 decimais)}
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,##0.00',Registros60I.Valor)),13);//2 decimais alterado por volmir em 15-09-2015
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,##0.00',Registros60I.BaseDeCalculo)),12);
  wregistro:=wregistro+PadRight(TiraPontos(Registros60I.StAliquota),4);
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,##0.00',Registros60I.ValorIcms)),12);
  wregistro:=wregistro+Space(16);
  WriteRecord(wregistro);
end;
end;

 

estava gerando com 3 decimais mas deve ser gerado com 2 decimais apartir de 

Nova redação dada ao campo 10 do subitem 16.5, pelo Conv. ICMS 76/03, efeitos a partir de 16.10.03

[Juliomar Marchetti]

Anexe o arquivo para o merge

[volmir]

percebi um erro na unit {ACBRSintegra}

procedure TACBrSintegra.GerarRegistros60I(Registros60I: TRegistros60I);
var
  wregistro: string;
  i: Integer;
begin
for I := 0 to Registros60I.Count - 1 do
begin
  wregistro:='60I';
  wregistro:=wregistro+FormatDateTime('yyyymmdd',Registros60I.Emissao);
  wregistro:=wregistro+PadRight(Trim(Registros60I.NumSerie),20);
  wregistro:=wregistro+PadRight(Trim(Registros60I.ModeloDoc),2);
  wregistro:=wregistro+TBStrzero(Registros60I.Cupom,6);
  wregistro:=wregistro+TBStrzero(IntToStr(Registros60I.Item),3);
  wregistro:=wregistro+PadRight(Registros60I.Codigo,14);
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,###0.000',Registros60I.Quantidade)),13);
  {Valor líquido (valor bruto diminuído do desconto) da mercadoria/produto (com 2 decimais)}
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,##0.00',Registros60I.Valor)),13);//2 decimais alterado por volmir em 15-09-2015
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,##0.00',Registros60I.BaseDeCalculo)),12);
  wregistro:=wregistro+PadRight(TiraPontos(Registros60I.StAliquota),4);
  wregistro:=wregistro+TBStrZero(TiraPontos(
    FormatFloat('#,##0.00',Registros60I.ValorIcms)),12);
  wregistro:=wregistro+Space(16);
  WriteRecord(wregistro);
end;
end;

 

estava gerando com 3 decimais mas deve ser gerado com 2 decimais apartir de 

Nova redação dada ao campo 10 do subitem 16.5, pelo Conv. ICMS 76/03, efeitos a partir de 16.10.03

ACBrSintegra.pas

Arquivo anexado

[Juliomar Marchetti]

no svn