Sugestão Aos Colaboradores Do Acbrboleto

[Danilo]

Seria ótimo se o procedimento  

procedure TACBrBoleto.GerarRemessa( NumeroRemessa : Integer );

 

fosse uma função e retornasse um boolean, pois apos a geração da remessa, há uma serie de procedimentos que só devem ser executados se a remessa for de fato gerada.

 

 

 

[Daniel Simoes]

Se não me engano haverá um exception quando o componente não conseguir gerar a Remessa...

[Danilo]

sim Daniel, ele gera um exeption, mas ainda assim executa o restante do código: ex: 

   FDataModule.ACBrBoleto.GerarRemessa(cdsConfiguracao.FieldByName('REMESSA').AsInteger);

   TldiBoletos.AtualizaNN(cdsConfiguracao.FieldByName('ID').AsString, IntToStr(NN));
   TldiBoletos.Atualiza_Sequencial_Remessa(cdsConfiguracao.FieldByName('ID').AsString,IntToStr(cdsConfiguracao.FieldByName('REMESSA').AsInteger));
   cdsRemessa.EnableControls;
   CDS_Cab.EnableControls;

nao tentei o try except end; ah nao ser que coloque um Exit na exceção, mas nao sei se resolve.

                  

 

[Daniel Simoes]

Se ocorrer um Exception na linha do GerarRemessa, as linhas debaixo serão ignoradas... ele sairá da procedure ou function...

[Jéter Rabelo Ferreira]

sim Daniel, ele gera um exeption, mas ainda assim executa o restante do código: ex: 

   FDataModule.ACBrBoleto.GerarRemessa(cdsConfiguracao.FieldByName('REMESSA').AsInteger);

   TldiBoletos.AtualizaNN(cdsConfiguracao.FieldByName('ID').AsString, IntToStr(NN));
   TldiBoletos.Atualiza_Sequencial_Remessa(cdsConfiguracao.FieldByName('ID').AsString,IntToStr(cdsConfiguracao.FieldByName('REMESSA').AsInteger));
   cdsRemessa.EnableControls;
   CDS_Cab.EnableControls;

nao tentei o try except end; ah nao ser que coloque um Exit na exceção, mas nao sei se resolve.

Bom dia Danilo.

 

Efetue um Try Except que resolve seu problema

 

try
  FDataModule.ACBrBoleto.GerarRemessa(cdsConfiguracao.FieldByName('REMESSA').AsInteger);

  TldiBoletos.AtualizaNN(cdsConfiguracao.FieldByName('ID').AsString, IntToStr(NN));
  TldiBoletos.Atualiza_Sequencial_Remessa(cdsConfiguracao.FieldByName('ID').AsString,IntToStr(cdsConfiguracao.FieldByName('REMESSA').AsInteger));
  cdsRemessa.EnableControls;
  CDS_Cab.EnableControls;
except
  on E: exception do
  begin
    raise Exception.Create('Erro ao gerar remessa' + #13#10 +
	  'Erro retornado foi o seguinte:' + #13#10 E.message);
  end;
end; 

 

Atenciosamente.

[Danilo]

Bom dia Danilo.

 

Efetue um Try Except que resolve seu problema

 

try
  FDataModule.ACBrBoleto.GerarRemessa(cdsConfiguracao.FieldByName('REMESSA').AsInteger);

  TldiBoletos.AtualizaNN(cdsConfiguracao.FieldByName('ID').AsString, IntToStr(NN));
  TldiBoletos.Atualiza_Sequencial_Remessa(cdsConfiguracao.FieldByName('ID').AsString,IntToStr(cdsConfiguracao.FieldByName('REMESSA').AsInteger));
  cdsRemessa.EnableControls;
  CDS_Cab.EnableControls;
except
  on E: exception do
  begin
    raise Exception.Create('Erro ao gerar remessa' + #13#10 +
	  'Erro retornado foi o seguinte:' + #13#10 E.message);
  end;
end; 

 

Atenciosamente.

 

 

blz.. obrigado Jéter, 

não tinha o habito de usar assim o try except .. mas agora entendi ... apresenta uma mensagem mais amigável ao user.