FiveTech Software tech support forums

... Str(ni1)+CRLF+Str(ni2)+CRLF+Str(ni3) } oCol:nWidth:= 120 i+=3 next oBrw:CreateFromResource( 110 ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:nHeaderLines := 3 oBrw:nFooterLines ...

... } oCol:nWidth:= 120 NFOR+=2 next oBrw:CreateFromResource( 110 ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:nHeaderLines := 3 oBrw:nFooterLines ...

... :cEditPicture:="99999,999,999.99" :nEditType:=EDIT_NONE :nWidth:= 65 :nDataStrAlign:=AL_RIGHT END :nMarqueeStyle := MARQSTYLE_HIGHLCELL :nColDividerStyle := LINESTYLE_BLACK :nRowDividerStyle := LINESTYLE_BLACK :nTop:=55 :nLeft:=50 :nBottom:=175 //nWidth=150 :nRight:=160 //nHeight=200 ...

... ENTG000->(DBGOTOP()) * oBrw := TXBrowse():New(oDlgPRESUP) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:bCLRSTD:={||IF(RECNO()%2==0,{CLR_BLACK,CLR_1},{CLR_BLACK,CLR_2})} ...

... := EDIT_GET uBrw:aCols[6]:bStrData := {|| TRANS(bStruc[uBrw:nArrayAt, 6 ],"@E 999,999.99")} uBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL uBrw:nColDividerStyle := LINESTYLE_DARKGRAY uBrw:lColDividerComplete := .t. uBrw:nFooterLines := 2 uBrw:lFooter := .t. uBrw:aCols[ 1 ]:cFooter := "Total:" ...

... := EDIT_GET uBrw:aCols[6]:bStrData := {|| TRANS(bStruc[uBrw:nArrayAt, 6 ],"@E 999,999.99")} uBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL uBrw:nColDividerStyle := LINESTYLE_DARKGRAY uBrw:lColDividerComplete := .t. uBrw:nFooterLines := 2 uBrw:lFooter := .t. uBrw:aCols[ 1 ]:cFooter := "Total:" ...

... obrow:nfreeze:=1 obrow:nColDividerStyle := LINESTYLE_GREEN obrow:nRowDividerStyle := LINESTYLE_GREEN oCol := obrow:AddCol() oCol:cHeader := "Unit" oCol:bStrData := {||odb1:unit} ...

... ='"+OP:AGENCIA+"'" ) oBrw := TXBrowse():new( oDlg ) oBrw:CreateHeader() MySetBrowse( oBrw,oQry ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY oBrw:nHeaderLines := 0 oBrw:lColDividerComplete := .F. oBrw:nRowHeight ...

... " oBrw:aCols[2]:cHeader := "Cabecera 1" + space(5) oBrw:aCols[3]:cHeader := "Cabecera 2" + space(5) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:CreateFromResource( 501 ) ACTIVATE DIALOG oDlg center MUCHAS GRANCIAS

... NTOTAL() METHOD SAVE() METHOD end() INLINE ::Destroy() METHOD SetMySQL(oquery,ledit) CLASS TXBrowse ::nMarqueeStyle := MARQSTYLE_HIGHLCELL ::nColDividerStyle := LINESTYLE_LIGHTGRAY ::nRowDividerStyle := LINESTYLE_LIGHTGRAY ::lColDividerComplete := .t. ::nRowHeight := 23 ::lfastedit := .t. ...

... := "Nombre Cajero" :aCols[02]:bStrData := { || DB_TABLAS:DESTAB } :aCols[02]:nWidth := 220 :nFreeze := 02 :lColDividerComplete := .T. :nColDividerStyle := 002 :lHScroll := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :nMarqueeStyle := 006 :CreateFromResource(104) END WITH OBJECT ...

... DEFINE WINDOW oChild TITLE "Incremental seek " MDICHILD OF oWnd oBrw := TXBrowse():New( oChild ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrw:nColDividerStyle := LINESTYLE_INSET oBrw:nRowDividerStyle := LINESTYLE_INSET oBrw:bSeek := { |c| DbSeek( Upper( c ) ) } oBrw:SetRDD() oBrw:CreateFromCode() ...

... DATOS DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd oBrw := TXBrowse():New( oWnd ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:SetRDD() oCol:= oBrw:aCols[ 3 ] oCol:nEditType:= ...

... nFor DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd oBrw := TXBrowse():New( oWnd ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:SetRDD() for nFor := 1 to len( oBrw:aCols ...

... nFor DEFINE WINDOW oChild TITLE "Auto edit browse" MDICHILD OF oWnd oBrw := TXBrowse():New( oWnd ) oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL oBrw:nColDividerStyle := LINESTYLE_BLACK oBrw:nRowDividerStyle := LINESTYLE_BLACK oBrw:lColDividerComplete := .t. oBrw:SetRDD() for nFor := 1 to len( oBrw:aCols ...