Código Delphi [-] fmodulo.tCliente.Active := true; if fmodulo.qCliente.Locate('id_cliente', fmodulo.qCliente['id_cliente'], []) = true // <== (1) then begin fmodulo.tCliente.Edit; tfcliente.Create(self).ShowModal; end; fmodulo.tCliente.Active := false; // <=== ¡¡¡ (2) !!! fmodulo.qCliente.Refresh;
fmodulo.tCliente.Active := true; if fmodulo.qCliente.Locate('id_cliente', fmodulo.qCliente['id_cliente'], []) = true // <== (1) then begin fmodulo.tCliente.Edit; tfcliente.Create(self).ShowModal; end; fmodulo.tCliente.Active := false; // <=== ¡¡¡ (2) !!! fmodulo.qCliente.Refresh;