FiveTech Software tech support forums

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

Puedes publicar aqui el RC del diálogo ? gracias

Antonio:

Gracias por responder, aqui te publico el rc del dialogo.

Fw 2.4, Clipper 5.3 y Workshop

tarje.rc

produced by Borland Resource Workshop


*****************************************************************************/


CLIENTES DIALOG LOADONCALL MOVEABLE DISCARDABLE 52, 22, 473, 236
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Maestro Ficha de Clientes"
FONT 8, "Ms Sans Serif"
{
EDITTEXT 30, 57, 6, 54, 11
EDITTEXT 158, 58, 24, 54, 11
EDITTEXT 152, 58, 43, 181, 11
EDITTEXT 153, 58, 59, 181, 11
COMBOBOX 154, 57, 74, 110, 78, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_GROUP | WS_TABSTOP
COMBOBOX 155, 57, 91, 111, 88, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_GROUP | WS_TABSTOP
EDITTEXT 156, 58, 110, 92, 11
EDITTEXT 149, 58, 128, 94, 11
EDITTEXT 159, 58, 145, 181, 11
EDITTEXT 32, 276, 15, 54, 11
EDITTEXT 39, 393, 15, 54, 11
CONTROL "", 100, "TcBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 249, 42, 222, 186
CONTROL "", 150, "BorBtn", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 30, 207, 23, 21
CONTROL "", 180, "BorBtn", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 68, 207, 23, 21
CONTROL "", 220, "BorBtn", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 113, 207, 23, 21
RTEXT "R.u.t. :", 148, 23, 26, 28, 8
RTEXT "Dirección :", -1, 16, 60, 36, 8
RTEXT "Ciudad :", -1, 23, 94, 29, 8
RTEXT "Comuna :", -1, 19, 76, 32, 8
RTEXT "Teléfono :", -1, 19, 110, 33, 9
CONTROL "", -1, "BorShade", 32769 | WS_CHILD | WS_VISIBLE, 15, 203, 145, 30
RTEXT "Celular :", -1, 25, 128, 28, 8
RTEXT "E-mail :", -1, 27, 146, 26, 8
RTEXT "Nombre :", -1, 19, 44, 33, 8
RTEXT "Entidad :", 157, 20, 9, 31, 8
RTEXT "Eje. 11111111-1", 34, 118, 26, 54, 8
RTEXT "Número", 31, 245, 7, 24, 8
CONTROL "", -1, "BorShade", 32769 | WS_CHILD | WS_VISIBLE, 241, 3, 224, 31
RTEXT "Tarjeta ", 33, 242, 22, 28, 8
CTEXT "de", 35, 246, 15, 23, 8
RTEXT "Número", 36, 357, 7, 24, 8
CTEXT "de", 37, 355, 14, 28, 8
RTEXT "Hijos", 38, 360, 22, 17, 8
}

Antonio:

No he tenido respuesta al rc del dialogo que me solicitastes.

Favor, por si por por no, indicame el camino a seguir.

Antonio Ferrada

Una solución es que añadas un botón más "Añadir" y que al pulsarlo salga un nuevo dialogo para escribir los datos de un hijo, que al cerrarlo, repintas el browse con oBrowse:Refresh() y muestra esos datos.

Gracias Antonio:

Pense que existia una solucion directa, lo de ayadir un boton o al modificar en Nº de cargas me cargue el browse lo tenia en consideracion.

Por tu ayuda, muchas gracias.

Antonio Ferrada.