FiveTech Software tech support forums

... := "Código" oBrw:aCols[1]:bStrData := {|| IIF( oQryArt:LastRec() > 0, oQryArt:inv_codiarti, SPACE(10) ) } oBrw:aCols[1]:nHeadStrAlign := AL_CENTER oBrw:aCols[1]:nDataStrAlign := AL_LEFT oBrw:aCols[2]:cHeader := "Nombre del Artículo" oBrw:aCols[2]:bStrData := ...

... oBrw:aCols[1]:bEditBlock := {|| LeerCodigo(oDlg1,oBrw,aDatos),oBrw:GoRight(),oBrw:GoRight() } oBrw:aCols[1]:nDataStrAlign:= AL_LEFT oBrw:aCols[1]:nHeadStrAlign:= AL_CENTER oBrw:aCols[1]:bF2 := {|| LeerCodigo(oDlg1,oBrw,aDatos),oBrw:GoRight(),oBrw:GoRight() } oBrw:aCols[1]:nWidth := 100 oBrw:aCols[1]:bLClickHeader:= ...

... := "Código" oCol:nWidth := 70 oCol:bStrData := {|| IIF( LEN( aProductos ) > 0, aProductos[oBrw:nArrayAt, 1], SPACE(10) ) } oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_LEFT oCol:bOnPostEdit := {|o,x| aProductos[ oBrw:nArrayAt, 1 ] := x } oCol:nEditType := EDIT_GET ...

... .t. END WITH oCol := oBrow:AddCol() // COL.PARA USAR CHECKBOX oCol:cHeader := "Sel" oCol:bStrData := {|| lCheck } * oCol:SetCheck() oCol:nHeadStrAlign := AL_CENTER oCol:nDataStrAlign := AL_CENTER oCol:nWidth := 30 oCol := oBrow:AddCol() oCol:cHeader := "Código Gasto" oCol:bStrData ...

... oCol:= oLbx:AddCol() oCol:bStrData := { || SQLField(oExi_Suc,"DetFam") } oCol:cHeader := 'Detalle del Familia' oCol:nWidth := 200 oCol:nHeadStrAlign:= AL_CENTER ocol:nEditType := EDIT_LISTBOX ocol:aEditListTxt := aFamilias ocol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,ValidaFamilia( ...

... ) == 'A' ::aFormat := aFormat END nLim := Len( ::oBrow:aCols ) TRY FOR i := 1 TO nLim ::oBrow:aCols[i]:cHeader := aFormat[i, 1] ::oBrow:aCols[i]:nHeadStrAlign := aFormat[i, 2] ::oBrow:aCols[i]:lAllowSizing := aFormat[i, 3] ::oBrow:aCols[i]:nWidth := aFormat[i, 4] ::oBrow:aCols[i]:nDataStrAlign ...

... ) == 'A' ::aFormat := aFormat END nLim := Len( ::oBrow:aCols ) TRY FOR i := 1 TO nLim ::oBrow:aCols[i]:cHeader := aFormat[i, 1] ::oBrow:aCols[i]:nHeadStrAlign := aFormat[i, 2] ::oBrow:aCols[i]:lAllowSizing := aFormat[i, 3] ::oBrow:aCols[i]:nWidth := aFormat[i, 4] ::oBrow:aCols[i]:nDataStrAlign ...

... oCol:cHeader := "Fecha de"+CRLF+"Emision" oCol:nWidth := 80 oCol:nHeadStrAlign:= AL_CENTER /* °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° ° Funcion: Date2Txt() Argumentos: 6 Argumento ...

... := "DESCRIPCION" aoCols[2]:bStrData := { || ::oQryMesa:FieldGet("nombre") } aoCols[2]:nDataStrAlign := AL_LEFT aoCols[2]:nHeadStrAlign := AL_CENTER aoCols[2]:bRClickHeader := {|| msginfo(oBrw:aCols[2]:Value)} o asi: oBrw:aCols[2]:bRClickHeader := {|| msginfo(oBrw:aCols[2]:Value)} ...

... haz probado oCol:= oLbx:AddCol() oCol:bStrData:= { || SQLField(oExi_Suc,"ma_arti") } oCol:cHeader := 'Codigo' oCol:nWidth := 100 oCol:nHeadStrAlign:= AL_CENTER oCol:bToolTip := {|oLbx, nRow, nCol, nKeyFlas| if ( oLbx:MouseRowPos( nRow ) == oLbx:nRowSel,if ( SQLField(oExi_Suc,"ma_arti")="DEMO12", ...

... := aTitulos[1] oBrow:aCols[1]:bStrData := {|| IIF( cQry:LastRec() > 0, cValToChar(cQry:FieldGet( aCampos[1] )), ) } oBrow:aCols[1]:nHeadStrAlign := AL_LEFT oBrow:aCols[1]:nDataStrAlign := AL_LEFT oBrow:aCols[2]:cHeader := aTitulos[2] oBrow:aCols[2]:bStrData := {|| IIF( cQry:LastRec() ...

... aoCols[1]:bStrData := { || TRANSFORM( oQry2:FieldGet("id"), "99999999" ) } aoCols[1]:nDataStrAlign := AL_RIGHT aoCols[1]:nHeadStrAlign := AL_CENTER aoCols[1]:nHeadBmpAlign := AL_RIGHT aoCols[1]:bLClickHeader := { || aoCols[1]:nHeadBmpNo:=1,aoCols[2]:nHeadBmpNo:=0,cCampo:="id"} ...

... oBrw:aCols[1]:bEditBlock := {|| LeerCodigo(oDlg1,oBrw,aDatos),oBrw:GoRight(),oBrw:GoRight() } oBrw:aCols[1]:nDataStrAlign:= AL_LEFT oBrw:aCols[1]:nHeadStrAlign:= AL_CENTER oBrw:aCols[1]:bF2 := {|| LeerCodigo(oDlg1,oBrw,aDatos),oBrw:GoRight(),oBrw:GoRight() } oBrw:aCols[1]:nWidth := 100 oBrw:aCols[1]:bLClickHeader:= ...

... Here is whatsnew.txt for 10.8 * xbrowse: Improvement: It is now possible to assign data of all columns in one single statement. Example: oBrw:nHeadStrAligns := AL_CENTER is equivalent to AEval( oBrw:aCols, { |oCol| oCol:nHeadStrAlign := AL_CENTER } ). If an array of values is assigned, the ...

... oBrw:aCols[1]:bEditBlock := {|| LeerCodigo(oDlg1,oBrw,aDatos),oBrw:GoRight(),oBrw:GoRight() } oBrw:aCols[1]:nDataStrAlign:= AL_LEFT oBrw:aCols[1]:nHeadStrAlign:= AL_CENTER oBrw:aCols[1]:bF2 := {|| LeerCodigo(oDlg1,oBrw,aDatos),oBrw:GoRight(),oBrw:GoRight() } oBrw:aCols[1]:nWidth := 100 oBrw:aCols[1]:bLClickHeader:= ...