|
Gracias por tu respuesta
la ayuda de mi delphi no esta funcionando en este momento pero he
probado el componente que me dijiste y ha funcionado muy bien nada mas que ahora tengo otra pregunta ¿Se puede hacer que el usuario no pueda darle el nombre al archivo? porque se lo debo de generar yo mismo y orita lo que estoy haciendo es mostrar el nombre que genere en el dialogo pero quisiera que no pudieran modificarlo
no se si alguna de las propiedades de este componente me permitan hacer esto
aqui esta el nuevo codigo y gracias nuevamente por tu respuesta
procedure TT_MovTraspasoSalida.Generardocumento;
var
fecha, hora, nombrearchtxt: string;
begin
fecha := StringReplace (DateToStr (Now), '/', '_', [rfReplaceAll]);
hora := StringReplace (TimeToStr (Now), ':', '', [rfReplaceAll]);
hora := StringReplace (hora, '.', '', [rfReplaceAll]);
Memo1.Clear;
SaveDialog1.FileName := 'TS' +
fecha + StrSinEspa (hora) + '.txt';
if not SaveDialog1.Execute then exit;
begin
nombrearchtxt := SaveDialog1.FileName;
end;
IBOQueryConDoc.Open;
IBOQueryConDoc.First;
while not (IBOQueryConDoc.EOF) do
begin
Memo1.Lines.Add (IBOQueryConDocACO_CODIGO.AsString + ',' +
IBOQueryConDocSAD_CANTIDAD.AsString);
IBOQueryConDoc.Next;
end;
Memo1.Lines.SaveToFile (nombrearchtxt);
ShowMessage ('Se a generado un documento para este traspaso en: ' + nombrearchtxt);
end;
|