FiveTech Software tech support forums

... REFRESH oLbx:bChange:={|| oDlg:Update()} debrias usar un OBJ por cada GET y por cada SAY, mira la idea que te dice Willy. oLbx:bChange:={|| aEval( aGets, {| o | o:refresh() } ) } recuerda que aGets = Array ( n Elementos Get )

... pixel update size 30,10 //<-- Aquí tengo el problema aoget[n]:bSETGET := GenLocalBlock ( avarget, n ) y la funcion : function GenLocalBlock ( aGets, n ) return bSETGET ( aGets [n] ) la definición de bSETGET () está en el archivo FiveWin.CH, por si le quieres echar un vistazo. Espero te sirva.

Porque este combobox : REDEFINE COMBOBOX aGets[9] VAR oMa_Exento ITEMS mexento ID 104 OF oFld:aDialogs[ 1 ] UPDATE cuando pregunto en esta funcion si cambio: If aGets[9]:oGet:changed cambio:=.T. Endif Y por qué no hacerlo así: REDEFINE COMBOBOX ...

asi:
If aGets[9]:oGet:oGet:changed
cambio:=.t.
Endif

me da siempre .F.

Saludos

Prueba asi:

If aGets[9]:oGet:oGet:changed

Porque este combobox : REDEFINE COMBOBOX aGets[9] VAR oMa_Exento ITEMS mexento ID 104 OF oFld:aDialogs[ 1 ] UPDATE cuando pregunto en esta funcion si cambio: If aGets[9]:oGet:changed cambio:=.T. Endif me da este errors: Error description: Error ...

... ; HEADER "Código","Nombre","Ventas", "Costo","Utilidad","Margen" ; ID 172 ; OF oDlg ; ON DBLCLICK dobleclick_PreccosCod( oPreccos, oPreccosCli, aGets , oWnd ) ; SIZES 40,250,75,75,75,75 UPDATE oPreccosCli:SetBrowse( oLbx ) TENGO UN EVENTO QUE ES DBLCLICK , PERO QUIERO SABER COMO HACER PARA DARLE ...

... ) ; ON INIT ( SetParent( oWndFact01:hWnd, oWndMain:hWnd ), oBGet1 := GetBitmap(oFoc,"Ayuda",,bLAct2),; llenarLLnReen( oLbx, oWndFact01, oPreccos, Agets, aTot ) ); tal y como me lo enviaste. Muchas Gracias Atentamente, Julio Ponce

... para poder visualizar la otra aplicacion. Aca les dejo mi codigo para ver si alguien encuentra mi error. FUNCTION PreccosVCons( oWnd ) Local oDlg, aGets := { Date(), Date(),space(20) }, oGet, oLbx Local aTot := {0,0,0,0} LOCAL oPara := _DaPara(), nAge , oSay, oGet1, oAgen, aLinea, oLinea, oSiNo,aSiNo ...

... oLbx:lDrawFooters :=.T. oLbx:aActions := Array( 6 ) oLbx:aActions[1] := { || OrdenArEq( 3, 3 , oPreccos, oLbx,oWndFact01,aGets ) } oLbx:aActions[2] := { || OrdenArEq( 2, 3 , oPreccos, oLbx,oWndFact01,aGets ) } oLbx:aActions[3] := { || OrdenArEq( 1, 3 , oPreccos, oLbx,oWndFact01,aGets ...

OK. REVISE LOS EJEMPLOS Y LO HICE DE ESTA MANERA function PreccosV( oWnd ) Local oDlg, aGets := { Date(), Date(),space(20) }, oGet, oLbx Local aTot := {0,0,0,0} LOCAL oPara := _DaPara(), nAge , oSay, oGet1, oAgen, aLinea, oLinea, oSiNo,aSiNo LOCAL cTabla, oDb, oBase, ...

Fergonm: Tamabien tienes la alternativa de usar la clase DatePicker. Ejemplo: REDEFINE dtPicker aGets[01] VAR oHFac:HDR_FDE ID 101 OF oDlg UPDATE debes incluir #Include "DtPicker.ch" Y en los recursos defines un control DatePicker. Saludos Armando, no tengo referencia ...

Fergonm:

Tamabien tienes la alternativa de usar la clase DatePicker.

Ejemplo:

REDEFINE dtPicker aGets[01] VAR oHFac:HDR_FDE ID 101 OF oDlg UPDATE

debes incluir
#Include "DtPicker.ch"

Y en los recursos defines un control DatePicker.

Saludos

... izquierda, el get es numerico (recibe puros números) a pesar de que el campo lo tengo definido como carácter, este es el código. REDEFINE BTNGET aGets[02] VAR oHdr:HDR_SOC ID 102 OF oDlg UPDATE; WHEN lAppend; RESOURCE "Buscar" PICTURE "@K 9999999"; VALID ChkSoc(oDlg,oHdr,aGets); ACTION (oHdr:HDR_SOC ...

... aadd(adatosh,{(lalias)->columna1,(lalias)->columna2}) (lalias)->(dbskip()) enddo TWBrowse():lHScroll:= .f. @ 34,02 LISTBOX agets[8] FIELDS ""; HEADERS 'Columna 1','Columna2'; FIELDSIZES 60,100; ON DBLCLICK haceralgo(); SIZE 228,82 OF ODlg PIXEL agets[8]:bLine:= {|nAt| nAt:= ...