FiveTech Software tech support forums

... <cMsg> ] ; [ WHEN <uWhen> ] ; [ BITMAPS <acBitmaps> ] ; [ ON DRAWITEM <uBmpSelect> ] ; [ STYLE <nStyle> ] ; [ <pict: PICT, PICTURE> <cPicture> ]; [ ON EDIT CHANGE <uEChange> ] ; => ; [ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),; ...

... (cFormCta) Esta es la funcion y como se usa ?: Aqui desde get: REDEFINE GET oG_D[01] VAR cCta ID 105 OF oDlg2 BITMAP "AYUDA" PICT "@K ###################"; ACTION ListCat(@cCta,S08,"cCta",oG_D[01]); WHEN lNew VALID V_Cta() Function V_CTA() cCta := FORMATO1("cCta",cCta, ...

... (cFormCta) Esta es la funcion y como se usa ?: Aqui desde get: REDEFINE GET oG_D[01] VAR cCta ID 105 OF oDlg2 BITMAP "AYUDA" PICT "@K ###################"; ACTION ListCat(@cCta,S08,"cCta",oG_D[01]); WHEN lNew VALID V_Cta() Function V_CTA() cCta := FORMATO1("cCta",cCta, ...

... a xx-xx-xxx-xxxx como niveles de cuenta con sus 11 digitos y 4 niveles de cuentas @ 1,1 say "Estructura de cuenta" get cEstructCuenta pict "2-2-3-4" como puedo crear en mi funcion que me grabe siguiente campo la mascara xx-xx-xxx-xxxx si alguien tan amable me regalaria una ...

... GET oGetB VAR cGetB ID 4003 OF oDlg PICTURE "2-2-3-4" VALID ValidaTots( cGetB, @cGetA ) Es que me marca error solo si tecleo unico get pict "2-2-3-4" VALID ValidaTots( cGetB, aqui que haria ) Ya compile marca error .f. y en blanco seguire intentando que hace Gracias Rosita

... no es lo que necesito,lo que necesito es pintar la mascara cuantos equis moestrara en mi say si tecleo en mi get el primer campo get cta1 pict "2" en mi say me muestre 2 "xx" segundo campo get cta2 pict "2" en mi say me muestre 2 x mas "xx-xx" en ...

... 99-99-99-99" saludos Hola armando gracias por la bienvenida,pero no es lo que necesito mira: si tecleo en mi get el primer campo get cta1 pict "2" en mi say me muestre 2 "xx" segundo campo get cta2 pict "2" en mi say me muestre 2 x mas "xx-xx" en ...

... en un say mascaras xx-xx-xxx-xxxx para que el usuario cuantos niveles y digitos tecleo es una funcion que me crea en mi say get estructCuenta pict "2-2-3-4 Say XX-XX-XXX-XXXX Gracias

... a xx-xx-xxx-xxxx como niveles de cuenta con sus 11 digitos y 4 niveles de cuentas @ 1,1 say "Estructura de cuenta" get cEstructCuenta pict "2-2-3-4" como puedo crear en mi funcion que me grabe siguiente campo la mascara xx-xx-xxx-xxxx si alguien tan amable me regalaria una ...

... a xx-xx-xxx-xxxx como niveles de cuenta con sus 11 digitos y 4 niveles de cuentas @ 1,1 say "Estructura de cuenta" get cEstructCuenta pict "2-2-3-4" como puedo crear en mi funcion que me grabe siguiente campo la mascara xx-xx-xxx-xxxx si alguien tan amable me regalaria una ...

... a xx-xx-xxx-xxxx como niveles de cuenta con sus 11 digitos y 4 niveles de cuentas @ 1,1 say "Estructura de cuenta" get cEstructCuenta pict "2-2-3-4" como puedo crear en mi funcion que me grabe siguiente campo la mascara xx-xx-xxx-xxxx si alguien tan amable me regalaria una ...

... lo que andaba buscando :D :) Pero ahora tengo un pequeño inconveniente: REDEFINE GET oG_D[01] VAR cCta ID 105 OF oDlg2 BITMAP "AYUDA" PICT "@K ###################" REDEFINE GET oG_D[02] VAR nSegNg ID 106 OF oDlg2 BITMAP "AYUDA" PICT "9999" WHEN lAP_SN ...

... a valid to verify what the user insert Syntax Verify_all(campo,blocco,linea,colonnna,oControl) for a sample : @ nrow, ncol get aGet[1] var ax1 pict "9" PIXEL SIZE SIZEX,SIZEY OF oDlg NOBORDER CENTER VALID ax1 $ " 123456789" .and. Verify_all(ax1,1,1,1,aGet[1]) FONT oFontNumeri ...

If a get is readonly not is colorized as I wish for a sample : If I have for a sample a get @ nrow, ncol get aGet[1] var ix9 pict "9" PIXEL SIZE SIZEX,SIZEY OF oDlg NOBORDER FONT oFontNumeri UPDATE and then I call aGet[1]:setcolor(CLR_BLACK, CLR_HGRAY) it is colorize if I call ...

SORRY i HAVE ONLY @ nrow, ncol get ax1 pict "9" PIXEL SIZE SIZEX,SIZEY OF oDlg NOBORDER CENTER ; VALID ax1 $ " 123456789" .and. Verifica_tutto(ax1,1,1,1) COLOR CLR_BLACK,nColorBlocco1 ; FONT oFontNumeri If now I change all ...