estoy usando, por primera vez, esta clase.
Uso: FWH 12.04 + xHarbour 1.2.1
Inicialmente tengo el siguiente Folderex codificado desde recursos
Luego de hacer clic en el primer checkbox, deshabilita el siguiente ("Usa Controlador Fiscal") y todos los recursos dependientes (gets y combos).
Ahora bien luego de aplicar Disable+Update a dichos recursos se visualiza asi:
Este es el código que aplico:
- Code: Select all Expand view RUN
- REDEFINE FOLDEREX aO[_Fld] ID 301 OF oDlg ;
PROMPT "Datos Particulares", "Impuestos", "Salidas impresas" ;
DIALOGS "get_DatosPart", "get_Porcent", "get_ToPrint" ;
ALIGN AL_RIGHT, AL_RIGHT, AL_RIGHT, AL_RIGHT ;
ROUND 5 ANIMATE SPEED 10
...
// To Print - Fac.Electronica
REDEFINE CHECKBOX aO[_ChkFE] VAR aCampos[_FFACELE] ID 101 OF aO[_Fld]:aDialogs[3] UPDATE ;
ON CHANGE ( if( aCampos[_FFACELE], aEval( aO, {|o| o:Disable() }, _ChkFC, 2 ), ; // Tambien inclui, aca, o:Refresh() con el mismo resultado
aEval( aO, {|o| o:Enable() }, _ChkFC, 2 ) ), ;
aO[_Fld]:aDialogs[3]:Update() )
REDEFINE GET hDatos["PtoVtaFE"] ID 102 OF aO[_Fld]:aDialogs[3] UPDATE
REDEFINE GET hDatos["RutaLog" ] ID 103 OF aO[_Fld]:aDialogs[3] UPDATE
// To Print - Fac.Fiscal
REDEFINE HLINE ID 201 OF aO[_Fld]:aDialogs[3] COLORS CLR_WHITE, CLR_BACKBLUE3, CLR_BLUE UPDATE
REDEFINE CHECKBOX aO[_ChkFC] VAR aCampos[_FFACFIS] ID 104 OF aO[_Fld]:aDialogs[3] UPDATE
REDEFINE COMBOBOX aO[_CmbCF1] VAR cMarca ITEMS aMarcas ID 105 OF aO[_Fld]:aDialogs[3] UPDATE ;
ON CHANGE oSelf:aIFParam[_Marca]:= aO[_CmbCF1]:nAt
REDEFINE COMBOBOX aO[_CmbCF2] VAR cModelo ITEMS aModelos ID 106 OF aO[_Fld]:aDialogs[3] UPDATE ;
ON CHANGE oSelf:aIFParam[_FISCAL]:= aO[_CmbCF2]:nAt
REDEFINE COMBOBOX aO[_CmbCF3] VAR cConex ITEMS aConex ID 107 OF aO[_Fld]:aDialogs[3] UPDATE ;
ON CHANGE ( oSelf:aIFParam[_IFSERVER]:= if( aO[_CmbCF3]:nAt == 1, "", "0" ), ;
oSelf:aIFParam[_IFSOCKET]:= if( aO[_CmbCF3]:nAt == 1, "", "localhost:2000" ), ;
oSelf:aIFParam[_IFEMUL ]:= if( aO[_CmbCF3]:nAt == 1, "NO", "SI" ) )
REDEFINE COMBOBOX aO[_CmbCF4] VAR cPuerto ITEMS aPuertos ID 108 OF aO[_Fld]:aDialogs[3] UPDATE ;
ON CHANGE oSelf:aIFParam[_IFPORT]:= Str( aO[_CmbCF4]:nAt, 1 )
REDEFINE GET aO[_GetFC1] VAR nSucurCF ID 109 OF aO[_Fld]:aDialogs[3] UPDATE
REDEFINE GET aO[_GetFC2] VAR aCampos[_FDIRLOG] ID 110 OF aO[_Fld]:aDialogs[3] UPDATE
// To Print - Tickeadora
REDEFINE HLINE ID 202 OF aO[_Fld]:aDialogs[3] COLORS CLR_WHITE, CLR_BACKBLUE3, CLR_BLUE UPDATE
REDEFINE CHECKBOX aO[_ChkTK] VAR aCampos[_FPTICKT] ID 111 OF aO[_Fld]:aDialogs[3] UPDATE
REDEFINE GET aO[_GetTK1] VAR aCampos[_FPRINTT] ID 113 OF aO[_Fld]:aDialogs[3] UPDATE
// To Print - Multi impresoras (preimpresos)
REDEFINE HLINE ID 203 OF aO[_Fld]:aDialogs[3] COLORS CLR_WHITE, CLR_BACKBLUE3, CLR_BLUE UPDATE
REDEFINE CHECKBOX aO[_ChkMP] VAR aCampos[_FMULPRN] ID 114 OF aO[_Fld]:aDialogs[3] UPDATE
REDEFINE GET aO[_GetMP1] VAR aCampos[_FPRINTA] ID 115 OF aO[_Fld]:aDialogs[3] UPDATE
REDEFINE GET aO[_GetMP2] VAR aCampos[_FPRINTB] ID 116 OF aO[_Fld]:aDialogs[3] UPDATE
REDEFINE GET aO[_GetMP3] VAR aCampos[_FPRINTX] ID 117 OF aO[_Fld]:aDialogs[3] UPDATE
que estoy haciendo mal?
En otro orden, aunque menor por ahora, intento agregar BITMAPS, pero los mismos no se visuallizan (probados inclusive en los samples)
gracias!
