Ver Mensaje Individual
  #3  
Antiguo 04-12-2017
Avatar de The Cid James
The Cid James The Cid James is offline
Miembro
NULL
 
Registrado: jun 2013
Posts: 129
Reputación: 11
The Cid James Va por buen camino
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
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
Responder Con Cita