FiveTech Software tech support forums

... COMPONENTES AUTOCOLS FOOTERS LINES CELL OF oDlg oBrw:aFilter :=aDataFilter oBrw:aCols[ 3]:nEditType :=EDIT_GET oBrw:aCols[ 3]:bOnPostEdit :={|oCol,xVal,nKey| If(nKey==VK_RETURN,(COMPONENTES[oBrw:nArrayAt][ 3]:=xVal,oBrw:Refresh(),oBrw:MakeTotals()),)} oBrw:aCols[ 3]:nFooterType :=AGGR_SUM oBrw:aCols[ ...

... := 1 For n := 1 to Len( oBrw[I]:aCols ) oCol := oBrw[I]:aCols[ n ] If n == 1 oCol:nEditType := EDIT_GET oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,1]:=xVal,) } oCol:bEditWhen := { || IF(aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,6]=0,.T.,.F.) ...

... siguiente registro.....eso es lo que quiero adaptarlo a mi necesidad. Y no me funciona con el comando: oBrw:aCols[2]:bOnPostEdit := { | oCol,xVal, nKey |IF( nKey == VK_RETURN ,; IF( xVal = spac(29) ,; ( RegDat( xVal ),oBrw:Refresh(),; Y ahi esta la funcion RegDat() Y quiero crear dos modelos ...

... de editar la linea y pasar siguiente linea, pero no me hace el efecto estoy usando version 12.04 FWH. oBrw:aCols[2]:bOnPostEdit := { | oCol,xVal, nKey |IF( nKey == VK_RETURN ,; IF( xVal = spac(29) ,; ( RegDat( xVal ),oBrw:Refresh(),; oBrw:SetFocus()),),)} Adjunto mi codigo fuente y su ejecutable. ...

... oBrw1:aCols[1]:cHeader := "Codigo"+CRLF+'Barra' oBrw1:aCols[1]:cEditPicture := 'XXXXXXXXXXXXXXX' oBrw1:aCols[1]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,"",) } oBrw1:aCols[1]:nEditType := EDIT_GET este picture recibe cualquier dato... pero mi problema es el ...

... oSelf:cPathRs ) } :aEditListTxt := ArrTranspose( aPlanes )[02] :aEditListBound := ArrTranspose( aPlanes )[01] :bOnPostEdit:= { | oCol, xVal, nKey | If( nKey == VK_RETURN, ( oCol:value:= xVal,; oSelf:LoadItem( oBrwPlan, xVal ),; AddRow( oBrwPlan ),; oBrwPlan:SelectCol(01) ),) } END aPlanes:= ...

Buen dia estimados Estoy necesitando ejecutar diferentes formulas usando una MACRO en una funcion llamada FPRUEBA() , al ejecutar la funcion FPRUEBA() me salen error indicando que la Variable oSYS_DAT no existe. Podrian indicarme cual es el error o como puedo ejecutar este calculo de la formula guar...

... := {|| aParcelasModalidade[oBrowse:nArrayAt,3]} oBrowse:aCols[2]:nEditType := EDIT_GET_BUTTON oBrowse:aCols[2]:bOnPostEdit := {| oCol, xVal, nKey | IIf( nKey == VK_RETURN,(aParcelasModalidade[oBrowse:nArrayAt,3] := xVal, oBrowse:Refresh()),) } oBrowse:aCols[2]:bEditBlock := {|r,c| IIf(!Empty(aParcelasModalidade[oBrowse:nArrayAt,1]), ...

... := {|| aParcelasModalidade[oBrowse:nArrayAt,3]} oBrowse:aCols[2]:nEditType := EDIT_GET_BUTTON oBrowse:aCols[2]:bOnPostEdit := {| oCol, xVal, nKey | IIf( nKey == VK_RETURN,(aParcelasModalidade[oBrowse:nArrayAt,3] := xVal, oBrowse:Refresh()),) } oBrowse:aCols[2]:bEditBlock := {|r,c| IIf(!Empty(aParcelasModalidade[oBrowse:nArrayAt,1]), ...

... oCol:nWidth := 22 oCol:nDataStrAlign := AL_CENTER oCol:cEditPicture := "9" oCol:nEditType := EDIT_GET oCol:bOnPostEdit := { | oCol, xVal, nKey | ( NEU_TAGE(xVal, 1, "T1", cMonat, nPage ), ; oBrw2:RefreshCurrent(), ; oBrw2:SelectCol(6), lSpeichern := .F. ) } ------------ ...

... nKey == VK_SPACE, ( oBrw2:GoDown( 1 ), oBrw2:SelectCol(5) ),), ; but didn*t work Day 31 oCol:nEditType := EDIT_GET oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN, ; ( PREIS_SAVE(xVal, 31, "T31",cMonat), ; // val, position, fieldname, dbf / alias oBrw2:RefreshCurrent(), ...

... AL_RIGHT //LEFT oCol01:nWidth := 100 oCol01:nEditType := 1 oCol01:bClrStd := {|| { CLR_BLACK, RGB(166,255,166) }} oCol01:bOnPostEdit = { | oCol, xVal, nKey | DBRLOCK(), (Archi)->Ref_Art := xVal, DBUNLOCK() } oCol01 := oBrw01:AddCol() oCol01:bStrData := { || (Archi)->Cco_Art } oCol01:cEditPicture ...

... I'm having problems starting up. I use: cLicense := "jx4aq86h5ou5mk9i86644936y" xId := DllCall( hDLL,nil,"DPLCreateLibrary" ) xVal := DllCall( hDLL,nil,"DPLUnlockKey",xId,StrPtr(cLicense) ) DllCall( hDLL,nil,"DPLReleaseLibrary",xId ) XId return a value (f.i. ...

... 2 ), asi va la columna que quieras, espero te sirva, cualquier cosa estamos por aca, saludos... :shock:         :bOnPostEdit   := { | oCol, xVal, nKey | If( nKey <> VK_ESCAPE ,;                                                 ( oCol:value := xVal ,;                          ...

... el problema no es la edición (si tengo la línea como sugieres), el problema es que no salva los valores digitados por el usuario, puse un msgalert(xval,xval) y me muestra el dialogo con el valor cero, pero si edito el valor ya existente en esa celda y le doy enter no me salva el valor cero, leí ...