FiveTech Support Forums

            REDEFINE GET aGets[02] VAR nPer ID 102 OF oDlg UPDATE;
                BITMAP "Bus16";
                ACTION nPer := BrwPer(oDlg);
                VALID ValPer(oDlg,oBrw,aGets,aSays);
                PICTURE "99";
                MESSAGE "Periodo de nómina"

STATIC FUNCTION ValPer(oDlg,oBrw,aGets,aSays)
    MsgInfo("Devolviendo (.F.)")
RETURN(.F.)

    DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-10
    DEFINE FONT oFont1 NAME "Arial" SIZE 0,-18
    DEFINE ICON oIcono RESOURCE "AppLogo"
    DEFINE WINDOW oWnd MDICHILD OF oWindow FROM 0,0 TO 10,10;
        TITLE "Características de la nómina" ICON oIcono

//      oWnd:bGotFocus  = { || oBrw:SetFocus() } Esta línea es la culpable, comentándola adiós loop, la maldita "ceguera de taller"

        DEFINE DIALOG oDlg RESOURCE "BrwCar" OF oWnd FONT oFont ICON oIcono

            REDEFINE COMBOBOX aGets[01] VAR nTip ID 101 OF oDlg UPDATE;
                PICTURE "@9K";
                PROMPTS acTip;
                ON CHANGE LimCar(oDlg,oBrw,aGets,aSays);
                MESSAGE "Elija el tipo de nómina"

            REDEFINE GET aGets[02] VAR nPer ID 102 OF oDlg UPDATE;
                BITMAP "Bus16";
                ACTION nPer := BrwPer(oDlg);
                VALID ValPer(oDlg,oBrw,aGets,aSays);
                PICTURE "99";
                MESSAGE "Periodo de nómina"


            REDEFINE SAY aSays[01] VAR cFechas ID 103 OF oDlg FONT oFont1 UPDATE

            oBrw:=TxBrowse():New(oDlg)

            oBrw:nMarqueeStyle          := MARQSTYLE_HIGHLROW       // Con cursor de todo el renglón
            oBrw:nColDividerStyle       := LINESTYLE_LIGHTGRAY
            oBrw:nRowDividerStyle       := LINESTYLE_LIGHTGRAY
            oBrw:lColDividerComplete    := (.F.)                            // (.T.) Matiene siempre llena la pantalla
            oBrw:nHeaderHeight          := 25                               // Altura de los encabezados
            oBrw:nRowHeight             := 22                               // Altura del renglón
            oBrw:nHeaderLines               := 1                                // Número de líneas de encabezados
            oBrw:nDataLines             := 1                                // Número de líneas de detalle
            oBrw:nFooterHeight          := 20                               // Altura del footer
            oBrw:nFooterLines               := 1                                // Número de líneas en el footer
            oBrw:lFastEdit                  := (.T.)                            // Edición por celdas
            oBrw:lFooter                    := (.T.)                            // Sí queremos línea de footer
            oBrw:lHScroll                   := (.F.)                            // Quitamos el scroll horizontal

           aCol[ 1]                         := oBrw:AddCol()
            aCol[ 1]:bStrData           := { || IF(oRsCar:BOF() .AND. oRsCar:EOF(),SPACE(1),TRANSFORM(oRsCar:Fields("CAR_CON"):Value,"@Z 999"))}
            aCol[ 1]:cHeader            := "Concepto"
            aCol[ 1]:nHeadStrAlign      := AL_RIGHT
            aCol[ 1]:nDataStrAlign      := AL_RIGHT
            aCol[ 1]:nWidth             := 55

           aCol[ 2]                         := oBrw:AddCol()
            aCol[ 2]:bStrData           := { || IF(oRsCar:BOF() .AND. oRsCar:EOF(),SPACE(1),oRsCar:Fields("CON_DES"):Value)}
            aCol[ 2]:cHeader            := "Descripción"
            aCol[ 2]:nHeadStrAlign      := AL_LEFT
            aCol[ 2]:nDataStrAlign      := AL_LEFT
            aCol[ 2]:nWidth             := 295

           aCol[ 3]                         := oBrw:AddCol()
            aCol[ 3]:bStrData           := { || IF(oRsCar:BOF() .AND. oRsCar:EOF(),SPACE(1),TRANSFORM(oRsCar:Fields("CAR_UNI"):Value,"@Z 99.99"))}
            aCol[ 3]:cHeader            := "Unidds"
            aCol[ 3]:nHeadStrAlign      := AL_RIGHT
            aCol[ 3]:nDataStrAlign      := AL_RIGHT
            aCol[ 3]:nWidth             := 45

           aCol[ 4]                         := oBrw:AddCol()
            aCol[ 4]:bStrData           := { || IF(oRsCar:BOF() .AND. oRsCar:EOF(),SPACE(1),IIF(oRsCar:Fields("CAR_POD"):Value == 1,"P","D"))}
            aCol[ 4]:cHeader            := "P/D"
            aCol[ 4]:nHeadStrAlign      := AL_LEFT
            aCol[ 4]:nDataStrAlign      := AL_CENTER
            aCol[ 4]:nWidth             := 40

            oBrw:blDblClick             := { | nRow, nCol, nKey | Editar(oBrw)}
            oBrw:bKeyDown               := { | nKey, nFlags | IIF(nKey == VK_RETURN,Editar(oBrw),)}

           oBrw:l2007                       := (.F.)

            oBrw:nStretchCol                := STRETCHCOL_LAST

            oBrw:bClrHeader := { || {CLR_WHITE,CLR_BLACK} }
            oBrw:bClrFooter := { || {CLR_WHITE,CLR_BLACK} }
            oBrw:nRecSelColor   := oApp:nRowParClr                  // Triangulo de selección
            oBrw:bClrSel        := {|| IF( oRsCar:AbsolutePosition % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
            oBrw:bClrSelFocus   := { || {oApp:nFClrFocus,oApp:nBClrFocus} }

            oBrw:bGoTop    := { || IF( ! oRsCar:BOF() .AND. ! oRsCar:EOF(), oRsCar:MoveFirst(), ) }
            oBrw:bGoBottom := { || IF( ! oRsCar:BOF() .AND. ! oRsCar:EOF(), oRsCar:MoveLast(), ) }
            oBrw:bBof      := { || oRsCar:BOF() }
            oBrw:bEof      := { || oRsCar:EOF() }
            oBrw:bBookMark := { | uBm | IF( oRsCar:BOF() .AND. oRsCar:EOF(), 0, IF( uBm == NIL, oRsCar:BookMark, oRsCar:BookMark := uBm ) ) }
            oBrw:bKeyNo    := { | n | IF( oRsCar:BOF() .AND. oRsCar:EOF(), 0, IF( n == NIL, oRsCar:AbsolutePosition, oRsCar:AbsolutePosition := n ) ) }
            oBrw:bKeyCount  := {|| oRsCar:RecordCount() }

            oBrw:SetAdo(oRsCar)
            oBrw:bClrStd    := {|| IF( oRsCar:AbsolutePosition % oApp:nRowsInt == 0 ,{ CLR_BLACK, oApp:nRowParClr },{ CLR_BLACK, oApp:nRowNonClr }) }
            oBrw:nRecSelColor   := oApp:nRowParClr

            oBrw:CreateFromResource(200)

        ACTIVATE DIALOG oDlg NOWAIT ON INIT oDlg:MOVE(0,0) VALID ! GetASyncKey(VK_ESCAPE)
    ACTIVATE WINDOW oWnd ON RESIZE ( IF( oWnd<>NIL, oWnd:SETSIZE(oDlg:nWidth,oDlg:nHeight+29), ));
        ON INIT LaBarra(oWnd,oDlg,oBrw) VALID Cierra()