Amigos del foro
Esto es parte de mi codigo
Cuando hago el cambio en el combo me muestra el browse me muestra muchos registros cuando en realidad tengo un solo
Si alguien pudiera ayudarme
Muchas gracias
Esto es parte de mi codigo
# 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()) > 0Cuando hago el cambio en el combo me muestra el browse me muestra muchos registros cuando en realidad tengo un solo
Si alguien pudiera ayudarme
Muchas gracias
