FiveTech Software tech support forums

Dear Marc, I think Cristobal means this way: @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT ...

Dear Marc, I think Cristobal means this way: @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER "REQUIRED" BOTTOMBORDER ; INFIELD INFONT oFontI INCLRTXT ...

Where do you put the "REQUIRED" ? I get a syntax error at compiling This is from the sample Subscript0.prg @ nRow, nCol GET aGets[ 1 ] VAR aData[ 1, 2 ] ; PICTURE aData[ 1, 3 ] SIZE nWidth - nCol * 2, 15 PIXEL OF oDlg ; COLOR nClrTxt, CLR_WHITE CUEBANNER aData[ 1, 1 ] BOTTOMBORDER ...

Hola. usas un Get, yo lo uso asi

REDEFINE GET aGets[17] VAR codbarra ID 30 OF oDlg PICTURE "@!" UPDATE

aGets[17]:bKeyDown:={|nKey|If(nkey == VK_RETURN,BuscarProd( @codbarra,oBrw1,aPunto_A,oDlg,TotVal,aGets ), ) }

saludos

Hola.

Tengo un array de oGets que necesito acumular los valores pero solo de ciertos ogets cuando pierde el foco:

aeval(::aGets, { |o, x| iif(x in {1,4,6}, ::sumar(),)})

ahora no puedo usar mas el "in" en harbourd...

Alguna ayuda?
gracias.

Hola Amigos necesito de su ayuda. tengo este control

REDEFINE DTPICKER aGets[1] var oFecha1 ID 121 OF oDlg UPDATE
REDEFINE DTPICKER aGets[2] var oFecha2 ID 122 OF oDlg UPDATE

no me deja cambiar la fecha con el teclado (digitando)

trabajo con workshop

saludos

Tengo problemas con get estaba buscando otra solucion con get simple y mas problemas REDEFINE GET aGets[17] VAR codbarra ID 30 OF oDlg aGets[17]:bKeyDown:={|nKey|If(nkey == VK_RETURN, BuscarCod(@codbarra,aGets), ) } STATIC FUNCTION BuscarCod(codbarra,aGets) aGets[17]:Refresh() ...

Hola amigos, necesito bloquear los dias de un calendario
REDEFINE dtPicker aGets[ 3 ] VAR oFechaIni ID 101 OF oDlg UPDATE

tengo eso, pero los dias anteriores de la fecha actual hay que bloquearlos}
por ejemplo el dias 1, 2, 3 DEBEN ESTAR BLOQUEADOS

saludos

... ACTIVATE DIALOG oDlg CENTERED oFont2:End() RETURN NIL Function Ing_Inv_Gral(oBrw, cTab_Art, xCod_art, cEmpresa) LOCAL oGets:= Array( 05 ), aGets:= Array( 05 ) Local oBtns:= Array( 05 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere, lAppend Local cStock1 :=0, ...

Karinha: Agradezco tu respuesta pero no consigo hacerla funcionar, pongo más código:         REDEFINE GET aGets[01] VAR oBit:RFC ID 101 OF oDlg UPDATE;            BITMAP "Bus16";            PICTURE "@!K";            VALID ValRfc(oDlg,aGets);  ...

... oGraph1, oBar,oDlg,oFnt1,oFnt2 LOCAL oGraph2,oShape LOCAL aVenta:={} LOCAL nTotReg:=0 LOCAL ntotal:=0 Local ntotVenta:=0 Local nMes,ndia LOCAL aGets := Array( 30 ) Local I Local nValor:=0 Local fila:=0 Local nTotalAgencia,nTotalCamino LOCAL cLogo:="c:\systema\bus\ima\logo.bmp" LOCAL ...

... 9, 61, 228, 43, 13 LTEXT "Agencia", 6, 270, 155, 45, 13 COMBOBOX 104, 130, 155, 77, 145, CBS_DROPDOWNLIST | WS_TABSTOP REDEFINE COMBOBOX aGets[14] VAR oPatente ITEMS aBus ID 104 OF oDlg WHEN lValue1 UPDATE / aca imagen: https://s31.postimg.org/lga3alv5j/combo_patente.png

... nuevamente yo con problemas con combobox, les cuento, en workshop o pellec creo un combobox y luego lo llamo con mi programa. REDEFINE COMBOBOX aGets[14] VAR oPatente ITEMS aBus ID 104 OF oDlg WHEN lValue1 UPDATE le doy doy en largo que me muestre la informacion pero cuando la informacion es ...

-amigos como puedo hacer Activar combobox según el valor de otro combobox tengo esto: lValue := .F. REDEFINE COMBOBOX aGets[13] VAR oDetCosto ITEMS aCosto ID 103 OF oDlg UPDATE ON CHANGE ActivaGet(aGets,oDetCosto) REDEFINE COMBOBOX aGets[14] VAR oPatente ITEMS aBus ID 104 OF oDlg ...

... tooltip en un get justo al recibir el foco. En algunos gets tengo tooltips que quisiera me los deplegara justo al recibir el foco, hago esto: if aGETS[x,gTOO]<>NIL oGET[x]:bGotFocus:={||oGET[x]:SetColor(COLOR_NEGRO,COLOR_VERDE), oGET[x]:CheckToolTip(), oGET[x]:EditUpdate(), oGET[x]:Refresh(.t.)} ...