Chequea este ejemplo que es parte de un prg que me envio un usuario, la function BuscArti() es mia, si deseas mas detalles mandeme un emilio:
Salu2
Willi Quintana
[email protected] // Función AltaExp; Alta de Expedientes
static function AltaExp( oLbx, lAppend )
local nNumero_E := 0
local cReferen := SPACE(20)
local dFecha_E := DATE()
local cAsunto_E := SPACE(40)
local nCod_Per := 0
local cNom_Per := SPACE(40)
local cObserva1 := SPACE(70)
Local cObserva2 := SPACE(70)
Local oDlg1, oGet, oGet1
local lSave := .f.
local nOldrec := RecNo()
DEFAULT lAppend := .f.
select EXPEDIEN
set index to EXPEDIEN
set order to TAG Numero IN EXPEDIEN
GO BOTTOM
DEFINE DIALOG oDlg1 RESOURCE "DIALG02" TITLE "Alta de Expedientes"
REDEFINE GET oGet VAR nNumero_E PICTURE "99999999" ID 101 OF oDlg1; // Este es el Get implicado
VALID Eval( { ||;
IF (nNumero_E=0,;
(oDlg1:End(), .F.),;
IF (EXPEDIEN->(dbSeek(STRZERO(nNumero_E,8))),;
(MsgAlert("Ya existe este número de expediente", "Atención"), .F.),;
(.T.) ) ) } )
REDEFINE GET oGet VAR cReferen ID 102 OF oDlg1
REDEFINE GET oGet VAR dFecha_E ID 103 OF oDlg1
REDEFINE GET oGet VAR cAsunto_E ID 104 OF oDlg1
REDEFINE GET oGet1 VAR nCod_Per PICTURE "9999" ID 105 OF oDlg1;
VALID Eval ( { ||;