Page 1 of 1

FOLDER con Workshop

Posted: Fri Aug 10, 2007 4:20 pm
by jhugono
Buenas Tardes a Todos.

Manejo WorkShop, con una lib fwctrls.dll, si uso esta no se ven las pestaƱas de los folders en la Aplicacion, si se la quito la aplicacion marca error. No se que hacer, por hay alguien me comento que pues cambiara de editor de recursos el Gran Paco Horta, digamos a Pellesc

Que suguieren ?

Code: Select all

Define Dialog oDlge Resource "DATCIA" of oLbx Title "Datos De La Empresa"
Redefine FOLDER oFld ID 501 OF oDlge UPDATE ;
         PROMPTS "Empresa","Cuentas" ;
         DIALOGS "DATCIA1","DATCIA2"

Redefine Get vo_empr Var vn_empr ID 101 of oFld:aDialogs[1] Picture "99" valid( keyCia( lNuevo, vn_empr ) ) WHEN .F.
Redefine Get vo_rfc_ Var vc_rfc_ ID 102 of oFld:aDialogs[1] valid(!empty(vc_rfc_))
Redefine Get vo_nomb Var vc_nomb ID 103 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_nomb))
Redefine Get vo_bkey Var vc_bkey ID 104 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bkey))
Redefine Get vo_bloc Var vc_bloc ID 105 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bloc))
Redefine Get vo_bsuc Var vc_bsuc ID 106 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bsuc))
Redefine Get vo_bcta Var vc_bcta ID 107 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bcta))
Redefine Get vo_ruta Var vc_ruta ID 108 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_ruta))

Redefine Get vo_civa Var vc_civa ID 101 of oFld:aDialogs[2] Picture "9999999999999999"
Redefine Get vo_ccom Var vc_ccom ID 102 of oFld:aDialogs[2] Picture "9999999999999999"
Redefine Radio vn_diot ID 201,202 of oFld:aDialogs[2]

Redefine Button ID 801 of oDlge Action(lBotonx := .T. ,lcontinuar := .T., oDlge:End())
Redefine Button ID 802 of oDlge Action(lBotonx := .T. , oDlge:End() ) CANCEL
oDlge:lHelpIcon := .F.
Activate Dialog oDlge Center Valid( lBotonx ) RESIZE16
[quote][/quote]

Les agradesco, Saludos y Gracias ....

Re: FOLDER con Workshop

Posted: Fri Aug 10, 2007 4:38 pm
by ACC69
jhugono wrote:Buenas Tardes a Todos.

Manejo WorkShop, con una lib fwctrls.dll, si uso esta no se ven las pestaƱas de los folders en la Aplicacion, si se la quito la aplicacion marca error. No se que hacer, por hay alguien me comento que pues cambiara de editor de recursos el Gran Paco Horta, digamos a Pellesc

Que suguieren ?

Code: Select all

Define Dialog oDlge Resource "DATCIA" of oLbx Title "Datos De La Empresa"
Redefine FOLDER oFld ID 501 OF oDlge UPDATE ;
         PROMPTS "Empresa","Cuentas" ;
         DIALOGS "DATCIA1","DATCIA2"

Redefine Get vo_empr Var vn_empr ID 101 of oFld:aDialogs[1] Picture "99" valid( keyCia( lNuevo, vn_empr ) ) WHEN .F.
Redefine Get vo_rfc_ Var vc_rfc_ ID 102 of oFld:aDialogs[1] valid(!empty(vc_rfc_))
Redefine Get vo_nomb Var vc_nomb ID 103 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_nomb))
Redefine Get vo_bkey Var vc_bkey ID 104 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bkey))
Redefine Get vo_bloc Var vc_bloc ID 105 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bloc))
Redefine Get vo_bsuc Var vc_bsuc ID 106 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bsuc))
Redefine Get vo_bcta Var vc_bcta ID 107 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_bcta))
Redefine Get vo_ruta Var vc_ruta ID 108 of oFld:aDialogs[1] Picture "@!" valid(!empty(vc_ruta))

Redefine Get vo_civa Var vc_civa ID 101 of oFld:aDialogs[2] Picture "9999999999999999"
Redefine Get vo_ccom Var vc_ccom ID 102 of oFld:aDialogs[2] Picture "9999999999999999"
Redefine Radio vn_diot ID 201,202 of oFld:aDialogs[2]

Redefine Button ID 801 of oDlge Action(lBotonx := .T. ,lcontinuar := .T., oDlge:End())
Redefine Button ID 802 of oDlge Action(lBotonx := .T. , oDlge:End() ) CANCEL
oDlge:lHelpIcon := .F.
Activate Dialog oDlge Center Valid( lBotonx ) RESIZE16
[quote][/quote]
Hola amigo, usa PellesC, a mi nunca me ha dado lata, y es el mejor y facil manejo de crear tus propios dialogos.
Saludos
Adrian


Les agradesco, Saludos y Gracias ....

Gracias Rene ....

Posted: Mon Aug 13, 2007 7:25 pm
by jhugono
Buen dia a Todos.

la solucion es cambiar de TFOLDER a SysTabControl32

eso es todo y puede seguir con WS.

Gracias a RF.

Saludos y Gracias .....