FiveTech Support Forums

        REDEFINE GET aGets[ 4] VAR nIrA ID 104 OF oDlg UPDATE;
            PICTURE "@Z 9999999";
            VALID IrA(nIrA,oBrw,aGets);
            MESSAGE "Teclee el folio que desea localizar"

        REDEFINE XBROWSE oBrw ID 200 OF oDlg;
            DATASOURCE oRsHdr ;
            COLUMNS "HDR_SER", "HDR_FAC", "Date2Txt(HDR_FDE)", "HDR_CLI", "CLI_NOM", "HDR_PRO", "HDR_REF", "HDR_TOU", "HDR_TOT","HDR_CAN" ;
            HEADERS "Ser","Folio", "Emitida", "Cliente","Nombre o Razón Social","Proyecto","Referencia","Unidades","Importe","Can";
            COLSIZES 45,60,80,50,130,75,100,100,110,40;
            PICTURES NIL,"@Z 9999999",NIL,"@Z 99999",NIL,NIL,NIL,"@Z 99,999.999","@Z 99,999,999,999.99",NIL;
            JUSTIFY {AL_LEFT,AL_RIGHT,AL_RIGHT,AL_RIGHT,AL_LEFT,AL_LEFT,AL_LEFT,AL_RIGHT,AL_RIGHT,AL_CENTER};
            FOOTERS AUTOSORT BACKGROUND "Lineas"

            WITH OBJECT oBrw
                :l2007            := (.F.)
                :lHScroll         := (.F.)
                :lVScroll         := (.F.)
                :nMarqueeStyle    := MARQSTYLE_HIGHLROW
                :nColDividerStyle := LINESTYLE_LIGHTGRAY
                :nRowDividerStyle := LINESTYLE_LIGHTGRAY
                :nStretchCol      := STRETCHCOL_WIDEST
                :nHeaderHeight      := 25
                :nRowHeight         := 22
                :nFooterHeight      := 25
                :bClrHeader       := { || {CLR_WHITE,CLR_BLACK} }
                :bClrFooter       := { || {CLR_WHITE,CLR_BLACK} }
                :bClrSel          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                :bClrSelFocus     := { || {oApp:nFClrFocus,oApp:nBClrFocus} }
                :bClrStd          := { || IF( oBrw:KeyNo % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
                :nRecSelColor     := oApp:nRowParClr
                :lDisplayZeros    := (.F.)   // zero values are not displayed. Added by GNRao. No need to use @Z
                :blDblClick         := { | nRow, nCol, nKey | (Editar(oBrw,(.F.)),oBrw:SetFocus())}
                :bKeyDown           := { | nKey, nFlags | IIF(nKey == VK_RETURN,(Editar(oBrw,(.F.)),oBrw:SetFocus()),)}

               WITH OBJECT :aCols[01]
                    :cOrder := "A"
                END

                WITH OBJECT :aCols[10]
                    :SetCheck( { "SI","NO" } )
                END
            END

        ACTIVATE DIALOG oDlg NOWAIT ON INIT (oDlg:MOVE(0,0),oBrw:SetFocus()) VALID ! GetASyncKey(VK_ESCAPE)
    ACTIVATE WINDOW oWnd ON INIT (oWnd:SETSIZE(oDlg:nWidth+15,oDlg:nHeight+29)) VALID Cierra()