FiveTech Support Forums

FUNCTION MENU_FAMILIA(cEmpresa, cUsuario, Nivel)
Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ]
LOCAL oGet,nIndex,aIdx:={}
LOCAL cBusca      := Space(60)
Local cSeek:=""
Local oCampo, cCampo :=space(50)
Local cCod_Mar:="   ",cNom_Mar:="          "

cTab_Fam:=XServer:Query("SELECT cod_fam,nom_fam  FROM tab_fam ORDER BY cod_fam")
Define Font oFont2 Name "Tahoma" Size 0,-11 Bold

DEFINE DIALOG oDlg ResName "BROW6BC" TITLE "MAESTRO DE FAMILIA DE PRODUCTOS/ARTICULOS" //COLOR Rgb( 255, 0, 0 ), Rgb(185,230,255)

  Redefine BtnGet oCampo Var cCampo Id 1002 Of oDlg Resource "BTO_ZOOM" Font oFont2 PICTURE "@!" COLOR RGB(128,0,0) ;
           Action (FiltrarFamilia(oBrw,cCampo,cTab_Fam))

  Redefine BtnBmp oBtn2[1]  Id 101 Resource "BTO_NUEVO"  Of oDlg 2007 When ( Nivel = 3 .or. Nivel = 4 );  // BTO_NUEVO
           Action (Add_Familia(.T.,oBrw, cTab_Fam),cTab_Fam:Refresh(),oBrw:Refresh() ) Tooltip "Permite Ingresar nuevo Registro.."

  Redefine BtnBmp oBtn2[2]  Id 102 Resource "BTO_CAMBIA" Of oDlg 2007 When ( Nivel = 3 .or. Nivel = 4 );
           Action (Add_Familia(.F.,oBrw, cTab_Fam),cTab_Fam:Refresh(),oBrw:Refresh() ) Tooltip "Permite Cambiar y/o Modificar Registro.."

  Redefine BtnBmp oBtn2[3]  Id 103 Resource "BTO_BORRA"  Of oDlg 2007 When ( Nivel = 3 .or. Nivel = 4 );
           ACTION ( Del_Familia(oBrw,cTab_Fam,cEmpresa),cTab_Fam:Refresh() ) Tooltip "Permite Borrar y/o Eliminar Registro.."

  Redefine BtnBmp oBtn2[4]  Id 104 Resource "BTO_PRINT"  Of oDlg 2007 When ( Nivel = 3 .or. Nivel = 4 );
           ACTION ( MSGRUN( "Procesando...., espere un momento por favor ", "Usuario" , {|| Print_Familia(cEmpresa,cTab_Fam) } ) ,oBrw:Refresh(),oBrw:Gotop()) Tooltip "Imprime informe General del Archivo.."

  Redefine BtnBmp oBtn2[5]  Id 105 Resource "BTO_EXCEL"  Of oDlg 2007 When ( Nivel = 3 .or. Nivel = 4 );
           ACTION ( MSGRUN( "Procesando...., espere un momento por favor ", "Usuario" , {|| Excel_Familia(cEmpresa,cTab_Fam) } ) ,oBrw:Refresh(),oBrw:Gotop()) Tooltip "Excel informe General del Archivo.."

  Redefine BtnBmp oBtn2[6]  Id 106 Resource "BTO_SALIR"  Of oDlg 2007;
           ACTION oDlg:End() Tooltip "Salir del Proceso.."

  oBrw:=TxBrowse():New(oDlg)
  oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW   // Con cursor de todo el renglón
  oBrw:nColDividerStyle    := LINESTYLE_RAISED
  oBrw:nRowDividerStyle    := LINESTYLE_RAISED
  oBrw:bClrSelFocus        := {|| { nRGB(  0,  0,  0), nRGB(128,255,128) } }  // para barra de linea selecc cuando el control tiene el foco
  oBrw:lColDividerComplete := (.t.)                // (.T.) Mantiene siempre llena la pantalla
  oBrw:nHeaderHeight       := 35                   // Altura de los encabezados
  oBrw:nRowHeight          := 25                   // Altura del renglón
  oBrw:nHeaderLines        := 3                    // Número de líneas de encabezados
  oBrw:nDataLines          := 2                    // Número de líneas de detalle
  oBrw:nFooterHeight       := 20                   // Altura del footer
  oBrw:nFooterLines        := 2                    // Número de líneas en el footer
  oBrw:lFooter             := (.T.)                // Sí queremos línea de footer
  oBrw:lHScroll            := (.T.)                // Quitamos el scroll horizontal
  oBrw:lVScroll            := (.T.)                // Quitamos el scroll horizontal
  oBrw:bClrHeader          := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
  oBrw:bClrStd             := {|| If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
  oBrw:bClrFooter          := {|| { nRGB(000,000,000), nRGB(150,200,200) } }
  oBrw:bClrSel             := {|| { nRGB(000,000,000), nRGB(128,255,128) } }  // para barra de linea selecc cuando el control no tiene el foco
  oBrw:l2007:=.T.
  oBrw:nStretchCol         := STRETCHCOL_WIDEST
  oBrw:bRClicked    := {|| ARTICULOS_FAMILIA(cTab_Fam:cod_fam,cTab_Fam:nom_fam,cUsuario,cEmpresa) }
  oBrw:bKeyDown     := { | nKey | TeclasFamilia(nKey, oBrw, cTab_Fam) }
  oBrw:oFont        := oFont2
  oBrw:SetDolphin(cTab_Fam,.T.,.T.)

  oBrw:aCols[1]:cHeader       := "Código"
  oBrw:aCols[1]:bStrData      := { || cTab_Fam:cod_fam }
  oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
  oBrw:aCols[1]:nDataStrAlign := AL_LEFT   //LEFT
  oBrw:aCols[1]:nWidth        := 100
  oBrw:aCols[1]:cSortOrder    := "cod_fam"
  oBrw:aCols[1]:bLClickHeader := {|| oBrw:GoTop() }
  oBrw:aCols[1]:cToolTip      :="Haga doble Click para ordenar por código"

  oBrw:aCols[2]:cHeader       := "Detalle"
  oBrw:aCols[2]:bStrData      := { || cTab_Fam:nom_fam }
  oBrw:aCols[2]:nHeadStrAlign := AL_CENTER
  oBrw:aCols[2]:nDataStrAlign := AL_LEFT   //LEFT
  oBrw:aCols[2]:nWidth        := 300
  oBrw:aCols[2]:cSortOrder    := "nom_fam"
  oBrw:aCols[2]:bLClickHeader := {|| oBrw:GoTop() }
  oBrw:aCols[2]:cToolTip      :="Haga doble Click para ordenar por Detalle"

  Redefine Say oBrw:oSeek Var oBrw:cSeek Id 1001 Of oDlg Picture "@!" Font oFont2 //COLOR Rgb( 255, 0, 0 ), Rgb(185,220,255)
  oBrw:CreateFromResource( 1000 )

ACTIVATE DIALOG oDlg CENTERED
oFont2:End()
cTab_Fam:End()
Return NIl