Sugestäo para AcbrBoleto.pas

[centuryinf]

Sugestáo

Implementei no arquivo AcbrBoleto.pas uma forma de o usuário determinar onde gerar os arquivos

pena que toda vez que atualizo o Acbr, tenho que alterar este fonte

function GerarRemessa( NumeroRemessa : Integer; destino : STRING ) : String;     <<<<<<<---------------------

////chamada

   ACBrBoleto1.GerarRemessa( strtoint(edlote.text),editDestino.txt );           <<<<<<<---------------------     //EX:       f:\remessa

Function TACBrBoleto.GerarRemessa( NumeroRemessa : Integer; destino : STRING ) : String;         <<<<<<<---------------------
var
   SLRemessa   : TStringList;
   ContTitulos : Integer;
   NomeArq     : String ;
begin
   Result:= '';
   if ListadeBoletos.Count < 1 then
      raise Exception.Create(ACBrStr('Lista de Boletos está vazia'));

   ChecarDadosObrigatorios;
    dirarqremessa:=dirarqremessa+destino;                  <<<<<<<---------------------
   if not DirectoryExists( DirArqRemessa ) then                                         
      ForceDirectories( DirArqRemessa );

   if not DirectoryExists( DirArqRemessa ) then
      raise Exception.Create( ACBrStr('Diretório inválido:' + sLineBreak + DirArqRemessa) );

   if ( NomeArqRemessa = '' ) then
      NomeArq := Banco.CalcularNomeArquivoRemessa
   else
      NomeArq := DirArqRemessa + PathDelim +NomeArqRemessa;

   SLRemessa := TStringList.Create;
   try
      if LayoutRemessa =c400 then
      begin
         Banco.GerarRegistroHeader400( NumeroRemessa, SLRemessa );

         for ContTitulos:= 0 to ListadeBoletos.Count-1 do
            Banco.GerarRegistroTransacao400( ListadeBoletos[ContTitulos], SLRemessa);

         Banco.GerarRegistroTrailler400( SLRemessa );

      end
      else
      begin
        SLRemessa.Add( Banco.GerarRegistroHeader240( NumeroRemessa ) );

         for ContTitulos:= 0 to ListadeBoletos.Count-1 do
             SLRemessa.Add( Banco.GerarRegistroTransacao240( ListadeBoletos[ContTitulos] ) );

         SLRemessa.Add( Banco.GerarRegistroTrailler240( SLRemessa ) );
      end;
      SLRemessa.SaveToFile(NomeArq );
       Result:= NomeArq;
   finally
      SLRemessa.Free;
   end;
end;
 

[Juliomar Marchetti]

Anexe a unit alterada que ela pode ser avaliada e subida ao svn

não cole trecho de código pois geralmente não é visto.

[José M. S. Junior]

Bom dia,

Já existe esta propriedade para Remessa e Retorno, basta passar o caminho antes de chamar a função ex:

ACBrBoleto1.DirArqRemessa:=  'f:\remessa' ;
ACBrBoleto1.GerarRemessa( 1 ); 

[centuryinf]

obrigado José ...

 

[centuryinf]

Ola José

Tentei utilizar da forma que voce me mostrou,  o que ocorre é que tenho varios bancos na mesma empresa, ou seja gero 3 arquivos de remessa de cada vez, 

fiz o seguinte, iformei ao componenete

ex:  acbrboleto1.dirarqremessa:='f:\sistema\remessa\banespa';

        acbrboleto1.dirarqremessa:='f:\sistema\remessa\Brasil';

para que ao gerar cada banco, em pastas separadas,   mas o componente nao respeita e grava

os arquivos sempre na pasta f:\sistema\remessa       misturando os arquivos dos outros bancos

e ja com a mudanca que havia mencionado acima, cria-va os arquivos seprados

 

[Agnaldo Prates]

1 hora atrás, centuryinf disse:

ex:  acbrboleto1.dirarqremessa:='f:\sistema\remessa\banespa';

        acbrboleto1.dirarqremessa:='f:\sistema\remessa\Brasil';

Eu utilizo vários tb e dá certo, o que faço diferente é:

ex:  acbrboleto1.dirarqremessa:='f:\sistema\remessa\banespa'; para acbrboleto1.dirarqremessa:='f:\sistema\remessa\banespa\';

        acbrboleto1.dirarqremessa:='f:\sistema\remessa\Brasil'; para acbrboleto1.dirarqremessa:='f:\sistema\remessa\Brasil\';

Funciona normal aqui.

[centuryinf]

Valeu Agnaldo,

Eu estava deixando fixo no componente, mas agora passei os dados no momento da geraçao

e funcionou perfeitamente.

 

Obrigado