bien pues resulta que despues de que todo funcionaba de maravilla, ahora resulta que siempre
no funcion tratare de describir lo que paso en un form tengo un boton con la siguiente informacion, aqui el form se llama Fcobro
Código Delphi
[-]
if GridResultado.SelectedRows.Count > 0 then
begin
CalculaImportes;
with TFPago.Create(Self) do
try
ShowModal;
finally
FcobroOk:=Pago.result; Free;
RealizaCobro;con esta instruccion if (Fcobrook) then pero no funciona y cuando lo ejecuto resulta que la variable Pago.Result no trae nadad
end;
end;
en este resulta que lo unico que hago es esperar el resultado de una variable de tipo Boolean
de otro form en el que hago lo siguiente, este es el boton de aceptar en el segundo form de nombre Fpago
Código Delphi
[-]
procedure TFPago.BtonAceptarClick(Sender: TObject);
begin
if not (VerificaDatos) then
begin
Exit;
end
else
begin
close;
end;
end;
y esta es la funcion para validar los datos
Código Delphi
[-]
function TFPago.VerificaDatos:Boolean;
var wpago,wcambio,wresultadoouble;
Bverifica:Boolean;
begin
Bverifica:=True;
wpago:=TxtPago.Value;
if TxtFolio.Value=0 then
begin
Application.MessageBox('Proporciona el numero de Folio del Recibo',PChar(Application.Title), MB_OK + MB_ICONERROR);
TxtFolio.SetFocus;
Bverifica := False;
Exit;
end;
if TxtPago.Value=0 then
begin
Application.MessageBox('Proporciona la cantidad con la que se paga',PChar(Application.Title), MB_OK + MB_ICONERROR);
TxtPago.SetFocus;
Bverifica := False;
Exit;
end;
if wpagothen
begin
Application.MessageBox('Con el importe Proporcionado con cubre el Total del Pago',PChar(Application.Title), MB_OK + MB_ICONERROR);
TxtPago.SelectAll;
TxtPago.SetFocus;
Bverifica := False;
Exit;
end
else
begin
wresultado:=wpago-Wtotal;
TxtCambio.value:=wresultado;
end;
Result:=Bverifica;end;
espero me puedan ayudar, de antemano muchas gracias, a resumidas cuentas
se pierde el valor de la variable result cuando la paso a FcobroOk.