Impressão De Cheque Ecfswedastx

giulianon · 11 Setembro, 2013

Boa tarde!

Fiz uma correção na impressão de cheque do protocolo ecfSwedaSTX, pois o mesmo não estava imprimindo a observação no cheque.

Segue o trecho alterado:

procedure TACBrECFSwedaSTX.ImprimeCheque(Banco: String; Valor: Double;
  Favorecido, Cidade: String; Data: TDateTime; Observacao: String);
var
   Moeda,Moedas:String;
   sValor:String;
   sData:String;
begin
  {Apesar de implementadao, não foi possível testar essa rotina por falta de
   equipamento que tivesse o recurso}
   Banco      := IntToStrZero(StrToIntDef(Banco,1),3) ;
   Favorecido := padL(Favorecido,80) ;
   Cidade     := padL(Cidade,30) ;
   Moeda      := padL('Real',20) ;
   Moedas     := padL('Reais',20) ;
   sValor     := FormatFloat('#0.00',Valor);
   sData      := FormatDateTime('dd/mm/yyyy',Data);
   EnviaComando('14|'+Banco+'|'+sValor+'|'+Moeda+'|'+Moedas+'|'+Favorecido+
                '|'+Cidade+'|'+sData+'|N|N|'+Observacao); // Linha alterada

end;

Segue anexo também o arquivo fonte.

Não estou com a última versão dos fontes do ACBr, então pode ter mais código alterado. Dessa forma favor considerar somente a linha indicada.

Att.

Editado 11 Setembro, 2013 por giulianon