FiveTech Support Forums

   REDEFINE XBROWSE oBrw2  ID 4005 OF oDlg33 DATASOURCE aCodigos FONT oFont2;
                        HEADERS 'Codigo','Nombre del Examen','Canti','Precio','Total';
                      COLUMNS 1, 2,3,4,5;
                        COLSIZES 70, 280, 50, 65, 80;
                        PICTURES '@!','@!','9999','9,999,999','9,999,999';
                                        CELL LINES AUTOSORT NOBORDER;

                                 oBrw2:nMarqueeStyle := MARQSTYLE_HIGHLROW
                                 oBrw2:nColDividerStyle := LINESTYLE_RAISED
                                 oBrw2:nRowDividerStyle := LINESTYLE_RAISED
                                
                                 oBrw2:nFooterLines:=1
                                 

                                 oBrw2:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
                                 
                                 oBrw2:bClrStd  := { || If( Eval( oBrw2:bKeyNo,,oBrw2) % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) },;
                                 { CLR_BLACK, RGB( 232, 255, 232 ) } ) }    // Efecto Cebra

                                 oBrw2:nOpacity    := 230
                                 oBrw2:nHeaderHeight      := 35
                                 oBrw2:nFreeze       := 2

                                 oBrw2:aCols[ 1 ]:oDataFont := oFont7

                                 oBrw2:aCols[2]:cFooter := "TOTAL  -->"
                                                oBrw2:aCols[2]:nFootStrAlign := AL_RIGHT

                                oBrw2:lAutoSort := .t.
                                oBrw2:lFooter := .T.
                                oBrw2:lHScroll := .f.
                                oBrw2:SetStyle( 2007)
                                oBrw2:nColorPen := CLR_RED
                                oBrw2:bChange := {|| oBrw2:Refresh() }

                                 oBrw2:aCols[03]:cEditPicture    := "999"
                                 oBrw2:aCols[03]:nFooterType := AGGR_SUM

                                 oBrw2:aCols[01]:bFooter   := { || Ltrim( Str( oBrw2:KeyNo() ) ) + " / " + LTrim( Str( oBrw2:KeyCount() ) ) }


                                oBrw2:aCols[05]:cFooterPicture := "9,999,999"        //  <--- Este formato  no lo considera, cuando arreglo ingresa sin datos
                                oBrw2:aCols[05]:nFooterType    := AGGR_TOTAL
                                oBrw2:bChange := {|| oBrw2:Maketotals() }
                                oBrw2:MakeTotals()

                        WITH OBJECT oBrw2:aCols[3]                     // <----- Modifico Columna Cantidad
                                     :cEditPicture  := "9,999,999"
                                      :nEditType     := EDIT_GET
                                       :bEditValid    := { |oGet| oGet:VarGet() > 0 }
                                       :bOnPostEdit   := { | oCol, xVal, nKey | If( nKey == VK_RETURN ,;
                                                                      ( oCol:value := xVal ,;
                                                                      totalinea( oBrw2,@Can_Cod1,@Val_Tot1), oBrw2:MakeTotals(), oBrw2:Refresh()), ) }

                        END WITH

FUNCTION XBrwArrVacio()
local oDlg1, oBrw1, oCodi, cCodi:=Space(7), oFont1,oFont2,oFont3, oBt1, oSay
local aDatos := {space(10), 0}
local aArrData :=  { { " ", " ", 0, 0, 0 } }
local aRow := { " ", " ", 0, 0, 0 }, nCanti := 2

local bAddItem := ;
     {|| aRow := { cCodi, aDatos[1], nCanti, aDatos[2], nCanti * aDatos[2] } ,;
         AAdd( oBrw1:aArrayData, aRow ), oBrw1:Refresh() ,; 
         oBrw1:MakeTotals() ,;
         aDatos := {space(10), 0} ,;
         aRow := { " ", " ", 0, 0, 0 } ,;
         cCodi := Space(7), oCodi:Refresh(), oCodi:SetFocus() ;
     }


   DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-12
   DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-12
   DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12

   DEFINE DIALOG oDlg1 SIZE 800,400 PIXEL TITLE "PROBANDO BRW/ARR VACIO"

    @ 20,10 SAY oSay PROMPT "Introduzca Codigo" SIZE 60,20 PIXEL OF oDlg
    @ 20,70 GET oCodi Var cCodi  SIZE 50,10 PIXEL OF oDlg1 PICTURE "@!" COLOR RGB(0,0,128) FONT oFont2 UPDATE;
            VALID if(!empty(cCodi),;
                     if(!CodigoOK(cCodi,@aDatos),(MsgStop("Codigo digitado no existe"),.F.),;
                        ( Eval(bAddItem), .T. ) ) ,.t.)

    @ 35,10 XBROWSE oBrw1 SIZE -10,-60 PIXEL OF oDlg1 ;
            DATASOURCE aArrData ;
            FONT oFont3 ;
            HEADERS 'Codigo','Descripción','Cantidad','Valor Unit','Valor Total' ;
            COLUMNS 1, 2,3,4,5 ;
            COLSIZES 70, 280, 70, 110, 110 ;
            PICTURES nil,nil,'9999','999,999,999','999,999,999' ;
            CELL LINES FOOTERS NOBORDER 

    WITH OBJECT oBrw1
       :nStretchCol      := STRETCHCOL_WIDEST
       :nMarqueeStyle    := MARQSTYLE_HIGHLWIN7
       :nColDividerStyle := LINESTYLE_INSET
       :nRowDividerStyle := LINESTYLE_INSET
       :bClrHeader       := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
       :bClrStd          := {|| { nRGB(  0,  0,  0), nRGB(255,248,220) } }
       :bClrSelFocus     := {|| { nRGB(  255,  255,  255), nRGB(102, 178, 255) } }
       :nFooterLines     := 1

       :aCols[2]:cFooter        := "Total Items --> "
       :aCols[2]:nFootStrAlign  := AL_RIGHT

       :aCols[3]:nFooterType    := AGGR_COUNT
       :aCols[3]:nDataStrAlign  := AL_CENTER
       :aCols[3]:nFootStrAlign  := AL_CENTER

       :aCols[4]:cFooter        := "Total Ingresos --> "
       :aCols[4]:nFootStrAlign  := AL_RIGHT

       :aCols[05]:nFooterType   := AGGR_TOTAL  

       :MakeTotals()
       :CreateFromCode()
   END

   @ 160,300 BTNBMP oBt1 SIZE 60, 20 PROMPT "Salir" OF oDlg1 PIXEL 2007 FONT oFont2 ;
             ACTION oDlg1:End() ;
             ToolTip "Salir del sistema"
   oBt1:lCancel := .t. 
   
   ACTIVATE DIALOG oDlg1 CENTERED ;
            ON INIT ( oCodi:SetFocus(), aSize(aArrData,0), oBrw1:Refresh() ) 

   oFont1:End()
   oFont2:End()
   oFont3:End()
   RETURN NIL
 
   //----------------------------------------------------//
   function CodigoOK(cCod, aDatos)
   local n, aCodi := {  { "000001 ","CODIGO1", 100 },;
                        { "000002 ","CODIGO2", 200 },;
                        { "000003 ","CODIGO3", 300 },;
                        { "000004 ","CODIGO4", 400 },;
                        { "000005 ","CODIGO5", 500 } ;
                     }
   if ( n := Ascan( aCodi, {|a| a[1] == cCod} ) ) == 0
      return .f.
   else
      aDatos := {aCodi[n,2], aCodi[n,3]}
   endif
   return .t.

oBrw:aCols[ x ]:cEditPicture  :=  "@E ###,###.##"