FiveTech Support Forums

    #include "FiveWin.ch"
    #include "InKey.ch"
    #include "xbrowse.ch"

#DEFINE COL1    1
#DEFINE COL2    2
#DEFINE COL3    3
#DEFINE COL4    4
#DEFINE COL5    5

#define DCONSU  0
#define DALTAS  1
#define DMODIF  2

#DEFINE DREGISTRO   { SPACE(10) , SPACE(40), 0,  CTOD(""), CTOD("") }

STATIC nAccion

    function Prueba2()

       local aArray := {}

       local oWnd, ;
             oBrw, oCol

       local nI

       AADD(aArray, DREGISTRO)

       define window oWnd FROM 0,0 TO 24, 120 title "test" //menu oMenu

       oBrw:= txbrowse():new( oWnd )
       oBrw:nRowHeight := 25
       oBrw:nColDividerStyle    := LINESTYLE_BLACK
       oBrw:nRowDividerStyle    := LINESTYLE_BLACK


       oCol := oBrw:AddCol()
       oCol:cHeader       := "Código"
       oCol:nWidth        := 80
       oCol:bStrData      := {|| IIF( LEN( aArray ) == 0, SPACE(10), aArray[oBrw:nArrayAt, COL1] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_LEFT
       oCol:nArrayCol     := COL1
       oCol:nEditType     := EDIT_GET
       oCol:bClrEdit      := { || {CLR_BLACK, CLR_YELLOW} }
       oCol:bEditValid    := { |oGet, oCol| ValidaCol(oGet, oCol, COL1) }
       oCol:bOnPostEdit   := { |oCol, xValue, nKey| PostEdit( oCol, xValue, nKey, COL1) }

       oCol := oBrw:AddCol()
       oCol:cHeader       := "Comentario"
       oCol:nWidth        := 320
       oCol:bStrData      := {|| IIF( LEN( aArray ) == 0, SPACE(40), aArray[oBrw:nArrayAt, COL2] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_LEFT
       oCol:nArrayCol     := COL2
       oCol:nEditType     := EDIT_GET
       oCol:bClrEdit      := { || {CLR_BLACK, CLR_YELLOW } }
       oCol:bEditValid    := { |oGet, oCol| ValidaCol(oGet, oCol, COL2) }
       oCol:bOnPostEdit   := { |oCol, xValue, nKey| PostEdit( oCol, xValue, nKey, COL2) }

       oCol := oBrw:AddCol()
       oCol:cHeader       := "Importe"
       oCol:nWidth        := 80
       oCol:bStrData      := {|| IIF( LEN( aArray ) == 0, 0, aArray[oBrw:nArrayAt, COL3] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_RIGHT
       oCol:nArrayCol     := COL3
       oCol:nEditType     := EDIT_GET
       oCol:bClrEdit      := { || {CLR_BLACK, CLR_YELLOW } }
       oCol:bEditValid    := { |oGet, oCol| ValidaCol(oGet, oCol, COL3) }
       oCol:bOnPostEdit   := { |oCol, xValue, nKey| PostEdit( oCol, xValue, nKey, COL3) }


       oCol := oBrw:AddCol()
       oCol:cHeader       := "Fecha 1"
       oCol:nWidth        := 80
       oCol:bStrData      := {|| IIF( LEN( aArray ) == 0, CTOD(""), aArray[oBrw:nArrayAt, COL4] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_CENTER
       oCol:nArrayCol     := COL4
       oCol:nEditType     := EDIT_GET
       oCol:bClrEdit      := { || {CLR_BLACK, CLR_YELLOW } }
       oCol:bEditValid    := { |oGet, oCol| ValidaCol(oGet, oCol, COL4) }
       oCol:bOnPostEdit   := { |oCol, xValue, nKey| PostEdit( oCol, xValue, nKey, COL4) }

       oCol := oBrw:AddCol()
       oCol:cHeader       := "Fecha 2"
       oCol:nWidth        := 80
       oCol:bStrData      := {|| IIF( LEN( aArray ) == 0, CTOD(""), aArray[oBrw:nArrayAt, COL5] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_CENTER
       oCol:nArrayCol     := COL5
       oCol:nEditType     := EDIT_GET
       oCol:bClrEdit      := { || {CLR_BLACK, CLR_YELLOW } }
       oCol:bEditValid    := { |oGet, oCol| ValidaCol(oGet, oCol, COL5) }
       oCol:bOnPostEdit   := { |oCol, xValue, nKey| PostEdit( oCol, xValue, nKey, COL5) }


       oBrw:bPastEof  := { || AddRow( oBrw) }
       oBrw:bKeyDown := {| nKey | If( nKey == VK_DELETE, DelRow( oBrw ), NIL ) }


       oBrw:SetArray( aArray )

       oBrw:CreateFromCode()

       oWnd:oClient := oBrw

       nAccion := DCONSU

       ACTIVATE window oWnd ON INIT oWnd:Center()


    return nil


STATIC FUNCTION PostEdit(oCol, xValue, nKey, nCol)

If nKey == VK_ESCAPE .or. nKey == 0
   If nAccion == DALTAS
      DelRow(oCol:oBrw)
      RETURN .T.
   EndIf
EndIf

oCol:Value := xValue

If nAccion == DALTAS .and. nCol == COL5
   msginfo("guardar alta")
   nAccion := DCONSU
   RETURN .T.
EndIf


If nAccion != DALTAS
   MSGINFO("GUARDAR MODIFICACION")
eNDIF

If nKey == VK_RETURN
  oCol:oBrw:GoRight()
  PostMessage( oCol, WM_CHAR, VK_RETURN)
EndIf


RETURN .T.

STATIC FUNCTION ValidaCol(oGet, oCol, nCol)
dEPURA(OgET:CtEXT)
return .t.


static function AddRow( oBrw )
   If nAccion == DALTAS
      RETURN NIL
   EndIf

   AAdd( oBrw:aArrayData, DREGISTRO )
   oBrw:GoBottom()
   oBrw:GoLeftMost()
   oBrw:Refresh()
   oBrw:SetFocus()
   nAccion := DALTAS
   PostMessage( oBrw:hWnd, WM_CHAR, VK_RETURN)
return nil

static function DelRow( oBrw, aDialogo )
   If oBrw:nLen > 0
      ADel( oBrw:aArrayData, oBrw:nArrayAt )
      ASize( oBrw:aArrayData, oBrw:nLen - 1 )
      oBrw:Refresh()
   endif
   oBrw:SetFocus()
   nAccion := DCONSU

return nil

FUNCTION Prueba3()
  Local oWnd, oBrw, oCol, aProductos

   define window oWnd FROM 0,0 TO 24, 120 title "test" //menu oMenu


       aProductos := {}
       //AADD( aProductos, { "codigo", "Descripción", 10, 20, 200 })

    // DEFINICION BROWSE
       oBrw := TXBrowse():New(oWnd )

       WITH OBJECT oBrw
          :nMarqueeStyle    := MARQSTYLE_HIGHLROW
          :nColDividerStyle := LINESTYLE_BLACK
          :lAllowColSwapping := .f.
          :lAllowColHiding := .f.
          :lColDividerComplete := .t.
          :nHeaderHeight := 30
          :l2007 := .t.
          :lFooter := .t.
          :lRecordSelector := .t.
          :lFastEdit       := .t.
          :bClrStd := {|| IF( oBrw:nArrayAt % 2 == 0, {CLR_BLACK, CLR_WHITE} ,;
             {0, RGB(203, 226, 254)} ) }
       END WITH
    //
       oCol := oBrw:AddCol()
       oCol:cHeader       := "Código"
       oCol:nWidth        := 70
       oCol:bStrData      := {|| IIF( LEN( aProductos ) == 0, SPACE(10) ,  aProductos[oBrw:nArrayAt, 1] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_LEFT
       oCol:nEditType     := EDIT_GET
       oCol:nArrayCol := 1
    //
       oCol := oBrw:AddCol()
       oCol:cHeader       := "Descripción"
       oCol:nWidth        := 350
       oCol:bStrData      := {|| IIF( LEN( aProductos ) == 0, SPACE(10) ,;
                                  aProductos[oBrw:nArrayAt, 2] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_LEFT
       oCol:nEditType     := EDIT_GET
       oCol:nArrayCol := 2
    //
       oCol := oBrw:AddCol()
       oCol:cHeader       := "Cantidad"
       oCol:nWidth        := 50
       oCol:bStrData      := {|| IIF( LEN( aProductos ) == 0, SPACE(10) ,;
                                  aProductos[oBrw:nArrayAt, 3] ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_RIGHT
       oCol:nEditType     := EDIT_GET
       oCol:nArrayCol := 3
    //
       oCol := oBrw:AddCol()
       oCol:cHeader       := "Precio Unitario"
       oCol:nWidth         := 100
       oCol:bStrData      := {|| IIF( LEN( aProductos ) == 0, SPACE(10) ,;
                                  TRANSF( aProductos[oBrw:nArrayAt, 4], "@E999,999.99" ) ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_RIGHT
       oCol:nEditType     := EDIT_GET
       oCol:nArrayCol := 4
    //
       oCol := oBrw:AddCol()
       oCol:cHeader       := "Sub-Total"
       oCol:nWidth         := 100
       oCol:bStrData      := {|| IIF( LEN( aProductos ) == 0, SPACE(10) ,;
                                  TRANSF( aProductos[oBrw:nArrayAt, 5], "@E999,999.99" ) ) }
       oCol:nHeadStrAlign := AL_CENTER
       oCol:nDataStrAlign := AL_RIGHT
       oCol:nFooterType   := AGGR_SUM
       oCol:nFootStrAlign := AL_RIGHT
       oCol:nEditType     := EDIT_GET
       oCol:cDataType     := "N"
       oCol:cEditPicture  := "@E 9,999,999.99"
       oCol:nArrayCol := 5
    //


       oBrw:CreateFromCode()
       AADD( aProductos, { "codigo", "Descripción", 10, 20, 200 })
       oBrw:SetArray( aProductos, .t. )

       oWnd:oClient := oBrw

       //oBrw:MakeTotals(); oBrw:RefreshFooters(); oBrw:REFRESH()
      // FIN DEFINICION DEL xBROWSE CON ARRAY

      /*

    // BOTONES CUERPO DE LA FACTURA (agr,mod,eli)
       REDEFINE BUTTONBMP aBtn[2] ID 202 OF oDlg ; // AGREGAR PRODUCTOS
          ACTION ( lAgregar := .t. ,; // ACTIVO LOS GETs
             limpiaget( aVar, aGet ) ,; // INICIALIZO LAS var CUERPO FACTURA
             aGet[24]:SetFocus(), aGet[24]:REFRESH() ) ; // VA A COD.
          BITMAP 2004 PROMPT "Agregar" ;
          WHEN ( !EMPTY( aVar[33] ) )

       REDEFINE BUTTONBMP aBtn[3] ID 203 OF oDlg ; // MODIFICAR PRODUCTOS
          ACTION ( IIF( LEN( aProductos ) == 0, lSuma := .f., ) ,;
             lMODIFI := .t., modifipro( aVar, aGet, oBrw, .f. ) ) ; // ACT.LAS var CUERPO FACTURA
          BITMAP 2004 PROMPT "Modificar" ;
          WHEN lSuma .and. LEN( aProductos ) > 0

       REDEFINE BUTTONBMP aBtn[4] ID 204 OF oDlg ; // ELIMINAR PRODUCTOS
          ACTION ( IIF( LEN( aProductos ) == 0, lSuma := .f., ) ,;
             elimipro( aVar, aGet, oBrw ) ) ;
          BITMAP 2004 PROMPT "Eliminar" ;
          WHEN lSuma .and. LEN( aProductos ) > 0
    // FIN BOTONES CUERPO DE LA FACTURA (agr,mod,eli)
    */
    ACTIVATE WINDOW oWnd ON INIT oWnd:Center()

   oBrw:nMarqueeStyle    := MARQSTYLE_HIGHLCELL  
   oBrw:lFastEdit := .t.    //.t.= edicion rapida, salta a sig col