Hola Amigos del Foro:
Tengo un problema, estoy pasando de clipper a Five Win y ya me he encontrado con el primer problema.
Tengo una pantalla de ingreso, en la que pido algunos datos como codigo, nombre, direccion, fecha de nacimiento y numero de cargas. Pero debo tener un browse en la misma pantalla que me permita ingresar los hijos.
Lo mismo debe hacer cuando ingrese un codigo existente, debe mostrar los datos, incluyendo los hijos ingresados en el browse.
Se puede hacer de esta forma?
Favor Ayuda.
Antonio Ferrada
Muestro el codigo que tengo.
Define Cursor oCurDedo Resource "Dedo"
Define Font oFont1 Name "Arial Black" Size 0,19
Define Dialog oDlgEdit Resname "Clientes"
Redefine Get oEnti1 Var Enti1 Id 30 Of oDlgEdit Update Picture "@!" Color "w+/b";
Valid (Existe_ent(Enti1),oEnti1:Refresh(),.t.)
Redefine Get oNombre1 Var Nombre1 Id 33 Of oDlgEdit Update Picture "@!" Color "w+/b"
Redefine Get oDirec1 Var Direc1 Id 40 Of oDlgEdit Update Picture "@!" Color "w+/b"
Redefine Get ofecnac1 Var fecnac1 Id 43 Of oDlgEdit Update Picture "@d" Color "w+/b"
Redefine Get onumcar1 Var numcar1 Id 46 Of oDlgEdit Update Picture "99" Color "w+/b*"
REDEFINE LISTBOX oBrw ;
FIELDS Declu->Nom_hij ,Declu->Fec_nac;
HEADERS "Nombre del Hijo", "Fecha Nacimien";
ID 100 OF oDlgEdit ;
FIELDSIZES 100, 80;
ALIAS "Declu" ;
SELECT Declu->koen FOR Enti1;
UPDATE;
ON DBLCLICK (Mues_cot1(),oBrw:Refresh(), oBrw:SetFocus())
Redefine Button Id 150 Of oDlgEdit ;
Action (lPara:=.F.,oDlgEdit:END())
Activate Dialog oDlgEdit Centered
oFont1:End()
Return
