FiveTech Software tech support forums

Code: Select all | Expand

# include "fivewin.ch"
# include "xbrowse.ch"

STATIC cAliasCpe, cAliasCde, cAliasDed, cAliasDep, cAliasInc, cAliasIsr, cAliasOpa
STATIC cAliasPer, cAliasPue, cAliasSmi, cAliasTip, cAliasTva, cAlias

FUNCTION Tablas()
   LOCAL oDlg := nil, oWChild := nil, oFld := nil
   LOCAL aoSay := { nil, nil, nil, nil, nil, nil }
   LOCAL aoObjetos := { nil, nil, nil, nil, nil, nil, nil, nil, nil }
   LOCAL aoBtn := { nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ;
                    nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil }
   LOCAL aoCbx := { nil, nil, nil, nil, nil, nil, nil }
   LOCAL oBrw1, oBrw2, oBrw3, oBrw4, oBrw5, oBrw6, oBrw7
   LOCAL cSay1, cSay2, cSay3, cSay4, cSay5
   LOCAL cMen := "Tablas Control de Personal"
   LOCAL cCveTab, cNomCon, cNomIsr
   LOCAL aGradBarSelFocus:= { { 1, RGB(252,232,171)   , RGB(248,195, 34) } }
   LOCAL aGradBarSel:= {{1, RGB(252,235, 184), RGB(251,222,88)}}

   cAliasCpe := GetNewAlias( "cpersat" )        // catalogo de percepciondes sat
   cAliasCde := GetNewAlias( "cdedsat" )        // catalogo de deducciones sat
   cAliasDed := GetNewAlias( "deduc" )          // catalogo de deducciones empresa
   cAliasDep := GetNewAlias( "deptos" )         // catalogo de departamentos
   cAliasInc := GetNewAlias( "incid" )          // catalogo de incidencias
   cAliasIsr := GetNewAlias( "isr" )            // catalogo de i.s.r.
   cAliasOpa := GetNewAlias( "otrpag" )         // catalogo de otros pagos
   cAliasPer := GetNewAlias( "perc" )           // catalogo de percepciones empresa
   cAliasPue := GetNewAlias( "puestos" )        // catalogo de puestos
   cAliasSmi := GetNewAlias( "salmin" )         // catalogo de salarios minimos
   cAliasTip := GetNewAlias( "tipmov" )         // catalogo de tipos de movimientos
   cAliasTva := GetNewAlias( "tabvac" )         // catalogo de tabla de vacaciones

   if ! net_use( "cpersat",,cAliasCpe,oApp:xDatos ) .or. ;
      ! net_use( "cdedsat",,cAliasCde,oApp:xDatos ) .or. ;
      ! net_use( "deduc",,  cAliasDed,oApp:xDatos ) .or. ;
      ! net_use( "deptos",, cAliasDep,oApp:xDatos ) .or. ;
      ! net_use( "incid",,  cAliasInc,oApp:xDatos ) .or. ;
      ! net_use( "isr",,    cAliasIsr,oApp:xDatos ) .or. ;
      ! net_use( "otrpag",, cAliasOpa,oApp:xDatos ) .or. ;
      ! net_use( "perc",,   cAliasPer,oApp:xDatos ) .or. ;
      ! net_use( "puestos",,cAliasPue,oApp:xDatos ) .or. ;
      ! net_use( "salmin",, cAliasSmi,oApp:xDatos ) .or. ;
      ! net_use( "tabvac",, cAliasTva,oApp:xDatos ) .or. ;
      ! net_use( "tipmov",, cAliasTip,oApp:xDatos )
      return nil; dbCloseAll()
   endif

   oApp:oMnuTab:Disable()
   oApp:aoBtn[5]:Disable()

   cNomCon := "Percepciones"
   cAlias := (cAliasPer)
   cNomIsr := "I.s.r."

   DEFINE WINDOW oWChild mdichild of oApp:oWnd title "Tablas de Control de Personal" ;
      from 00,00 TO 00,00 nomaximize

   DEFINE DIALOG oDlg RESOURCE "DLG_FLD_TABLAS" OF oWChild

   REDEFINE FOLDER oFld ID 800 OF oDlg ;
      PROMPT "Conceptos", "Areas ", "Puestos", "Tipo de movimientos", "Isr", "Salarios Minimos", "Vacaciones", "Datos Patronales" ;
      DIALOGS "DLG_TAB_1", "DLG_TAB_2", "DLG_TAB_2", "DLG_TAB_2", "DLG_TAB_1", "DLG_TAB_2", "DLG_TAB_2", "DLG_TAB_3"

   // Redefine controles dialogo 1 Conceptos de percepciones, deducciones, otros pagos e incidencias

   REDEFINE COMBOBOX aoCbx[1] VAR cNomCon    ID 201 OF oFld:aDialogs[1] UPDATE ;
      ITEMS { "Percepciones", "Deducciones", "Otro Tipo de Pago", "Incidencias", "Cuotas O/P" } ;
      ON CHANGE( IF(Left(cNomCon,1)=="D",cAlias := (cAliasDed), ;
                 IF(Left(cNomCon,1)=="O",cAlias := (cAliasOpa), ;
                 IF(Left(cNomCon,1)=="I",cAlias := (cAliasInc), cAlias := (cAliasPer)))), (cAlias)->(DBGoTop()), oBrw1:refresh(), oBrw1:gotop() )

      oBrw1 := TXBrowse():New( oFld:aDialogs[1] )
      oBrw1:CreateFromResource(500)
      oBrw1:cAlias = cAlias

      oBrw1:nMarqueeStyle       := MARQSTYLE_HIGHLROW
      oBrw1:nColDividerStyle    := LINESTYLE_LIGHTGRAY
      oBrw1:nRowDividerStyle    := LINESTYLE_LIGHTGRAY
      oBrw1:lColDividerComplete := .t.
      oBrw1:bClrStd    := { || If( oBrw1:KeyNo() % 2 == 0, ;
               { CLR_BLACK, RGB( 224, 236, 255 ) }, ;
               { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
      oBrw1:bClrSel       := {|| { nRGB(  0,  0,255), aGradBarSel } }  // para barra de linea selecc cuando el control no tiene el foco
      oBrw1:bClrSelFocus := { || { CLR_BLACK, aGradBarSelFocus } }     // para barra de linea selecc cuando el control tiene el foco
      oBrw1:nFreeze             := 1
      oBrw1:nFooterLines        := 1

      oCol := oBrw1:AddCol()
      oCol:bEditValue := { || (cAlias)->id }
      oCol:cHeader       := "Clave"
      oCol:nWidth        := 70
      oCol:nDataStrAlign := AL_LEFT

      oCol := oBrw1:AddCol()
      oCol:bEditValue := { || (cAlias)->nombre }
      oCol:cHeader       := "Nombre"
      oCol:nWidth        := 300
      oCol:nDataStrAlign := AL_LEFT

   REDEFINE BUTTON aoBtn[1] ID 400 OF oFld:aDialogs[1] UPDATE ;
      ACTION ( cCveTab := Left(cNomCon,1), Agrega_Conceptos(1, cCveTab), oBrw1:refresh() )

   REDEFINE BUTTON aoBtn[2] ID 401 OF oFld:aDialogs[1] UPDATE ;
      ACTION ( cCveTab := Left(cNomCon,1), Agrega_Conceptos(3, cCveTab), oBrw1:refresh() ) WHEN (cAlias)->(LastRec()) > 0

   REDEFINE BUTTON aoBtn[3] ID 402 OF oFld:aDialogs[1] UPDATE ;
      ACTION ( cCveTab := Left(cNomCon,1), Agrega_Conceptos(4, cCveTab), oBrw1:GoTop() ) WHEN (cAlias)->(LastRec()) > 0
 

Code: Select all | Expand

 REDEFINE COMBOBOX aoCbx[1] VAR cNomCon    ID 201 OF oFld:aDialogs[1] UPDATE ;
      ITEMS { "Percepciones", "Deducciones", "Otro Tipo de Pago", "Incidencias", "Cuotas O/P" } ;
      ON CHANGE( IF(Left(cNomCon,1)=="D",cAlias := (cAliasDed), ;
                 IF(Left(cNomCon,1)=="O",cAlias := (cAliasOpa), ;
                 IF(Left(cNomCon,1)=="I",cAlias := (cAliasInc), cAlias := (cAliasPer)))), (cAlias)->(DBGoTop()), oBrw1:cAlias := cAlias  , oBrw1:refresh(), oBrw1:gotop() )

      oBrw1 := TXBrowse():New( oFld:aDialogs[1] )
      oBrw1:CreateFromResource(500)
      oBrw1:cAlias = cAlias                              <-------     esto  ------------------------------------------------^