Buenas Tardes
Perdonen no haber respondido antes,,, el Codigo es asi;
Código Delphi
[-]
Try
Screen.Cursor:=crHourGlass;
LockWindowUpdate(Handle);
DetDocumento.Tag:=99;
Relacion.Close;
Relacion.Open;
Relacion.First;
while Not Relacion.eof do
Begin
DetDocumento.Insert;
DetDocumentoNUMLIQUIDA.Value:=RelacionNUMLIQUIDA.Value;
DetDocumentoTOTLIQUIDA.Value:=RelacionTOTLIQUIDA.Value;
DetDocumentoPAGODIV.Value:=RelacionPAGODIV.Value;
DetDocumentoPAGOBOL.Value:=RelacionPAGOBOL.Value;
DetDocumento.Post;
Relacion.Next;
End;
Finally
LockWindowUpdate(0);
Screen.Cursor:=crArrow;
DetDocumento.Tag:=0;
DetDocumento.First;
Relacion.Close;
End;
Imaginense que la tabla "RELACION" tiene 1000 Registros o mas... Alli la Ventana cuando Termina el Proceso me la desaparece y debo Minimizar la aplicación y volverla a maximizar para que me aparezca...
Esa tabla la lleno temporal para que el usuario seleccione varios registros o todos,...