FiveTech Software tech support forums

Code: Select all

      REDEFINE LISTBOX oBrw[1] ;
         FIELDS  "";
         HEADERS "Origen",       ;
                 "Proveedor",    ;
                 "Actual",       ;
                 "En curso",     ;
                 "Comprom", ;
                 "Crítico"       ;
         sizes 100, 60, ;
               60, 60, ;
               60, 60  ;
         ID 203;
         OF oFolder:aDialogs[2];
         UPDATE;
         colors CLR_BLACK, rgb( 210, 230, 250 )   // lindo celestito que hace juego con el cursor

         //----------( Configuracion de la TW )----------

         oBrw[1]:cAlias:= "array"
         oBrw[1]:setarray( vDatosOrigen )

         oBrw[1]:nHeaderHeight := 21
         oBrw[1]:nFooterHeight := 16
         oBrw[1]:nLineHeight   := 19

         oBrw[1]:ladjlastcol   := .t.
         oBrw[1]:oFont         := GetFont():CELDA
         oBrw[1]:aHJustify     := { 2, 2, 2, 2, 2, 2 }
         oBrw[1]:aJustify      := { 2, 2, .T., .T., .T., .T. }

         oBrw[1]:lAutoEdit     := .F.
         oBrw[1]:lAutoSkip     := .T.
         oBrw[1]:lCellStyle    := .F.
         oBrw[1]:oHScroll      := NIL

         oBrw[1]:nLineStyle    := 10

         // Ajustes del browser
         oBrw[1]:nAt        := 1

         oBrw[1]:lAutoEdit  := .T.
         oBrw[1]:lAutoSkip  := .T.
         oBrw[1]:lCellStyle := .T.
         oBrw[1]:nColAct    := 1

         oBrw[1]:bGotop     := { || oBrw[1]:nAt:= 1 }

         obrw[1]:bLine      := { | nAt | nat:= oBrw[1]:nat, ;
                                             { vDatosOrigen[nat, 1], vDatosOrigen[nat, 2], ;
                                             Transform( vDatosOrigen[nAt, 3], "@E 9,999" ), ;
                                             Transform( vDatosOrigen[nat, 4], "@E 9,999" ), ;
                                             Transform( vDatosOrigen[nat, 5], "@E 9,999" ), ;
                                             Transform( vDatosOrigen[nAt, 6], "@E 9,999" ) } }

Code: Select all

oBrw:lDrawFooters := .t.
oBrw:aFooters    := { "", "", trans(ntot, "@E 9,999,999,999" ) }