No nada de echo el unico evento que tengo el form principal es el formcreate con esto que no tiene nada que ver
Código Delphi
[-]begin
DTPfecha.Date := now;
fmodulo.qnumventa.Active := true;
fmodulo.Qtotal.Active := true;
if fmodulo.qnumventa.Fields.FieldByName('id_venta').IsNull
or (not TryStrToInt(Endeventa.Text, numventa))
then
numventa := fmodulo.qnumventa.fields.FieldByName ('id_venta').AsInteger + 1;
Endeventa.Text := IntToStr(numventa);
if fmodulo.Qtotal.IsEmpty
then
Eventatotal.Text := '0'
else
fmodulo.Qtotal.ParamByName('idv').AsInteger := numventa;
fmodulo.Qtotal.Open;
fmodulo.Qtotal.Refresh;
Eventatotal.Text := fmodulo.Qtotal.Fields.FieldByName('Total').AsString;
end;
En ningun momento toco la consulta de la fecha que es la que me esta generando problemas
Ademas cierro las consultas y demas una vez que se "paga" no tengo nada ahi mas que 3 botonos y ningun evento en el segundo form.
Con respecto a las componentes estoy usando zeos con dataset y consulta nada mas que se activan al abrir el primer form y como dije no se cierran hasta que se hace efectivo el pago. No deberia cerrarse nada si no se hace efectivo el pago