Tengo un problema con una serie de ComboBox que no se porque sale ni como solucionarlo.
Yo tengo definida una ComboBox de la siguiente manera:
- Code: Select all Expand view
@ 10*ProporV,620*ProporH combobox dDlg003 VAR va100 ITEMS { " " + LocaText( 1, 1,711), " " + LocaText( 1, 1,404), " " + LocaText( 1, 1,581), " " + LocaText( 1, 1,582), " " + LocaText( 1, 1,583), " " + LocaText( 1, 1,584),;
" " + LocaText( 1, 1,138), " " + LocaText( 1, 2, 88), " " + LocaText( 1, 1,109), " " + LocaText( 1, 2,200), " " + LocaText( 1, 1,442), " " + LocaText( 1, 1,204) };
OF wGestAnti PIXEL COLOR escri30, fondo30 SIZE 235*ProporH,20*yProPorV*ProPorV ON CHANGE CambAnti() STYLE CBS_DROPDOWNLIST
Esta la uso para ir de una otra opción del programa sin necesidad de salir, entrar en otra opción y buscar el mes activo y trabajador. Esto lo hace de la siguiente forma:
- Code: Select all Expand view
- FUNCTION Cambanti()
if va100 = 1 .OR. va100 = 9
va100 = 1
dDlg003:Refresh()
dDlg003:SetFocus()
dDlg001:SetFocus()
else
va101 = va100
yTrab = nombre
wGestAnti:End()
oDlgwDat:End()
oRBar:nHeight(0)
oGrupos:End()
oRBar:End()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
RELEASE wGestAnti,wGestAnti1,wGestAnti2,oRBar,oGrupos
CompTC12(ynumcoti)
clos data
SySRefresh()
yOpc = 70
SelOpCom()
endif
RETURN( .T. )
FUNCTION SelOpCom()
do case
case va101 = 1
bDrw:SetFocus()
case va101 = 2
Menu = 3
SubMenu= 7
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
GestTrab(yMesTr,yTrab,3)
case va101 = 3
Menu = 4
SubMenu= 8
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestnomi(yMesTr,yTrab)
case va101 = 4
Menu = 4
SubMenu= 9
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestitc1(yMesTr,yTrab)
case va101 = 5
Menu = 4
SubMenu= 10
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestitc2(yMesTr,yTrab)
case va101 = 6
Menu = 4
SubMenu= 11
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestitra(yMesTr,yTrab)
case va101 = 7
Menu = 4
SubMenu= 1
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
gestinci(yMesTr,yTrab)
case va101 = 8
Menu = 4
SubMenu= 2
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestindi(yMesTr,yTrab)
case va101 = 9
Menu = 4
SubMenu= 3
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestanti(yMesTr,yTrab)
case va101 = 10
Menu = 4
SubMenu= 4
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestvaca(yMesTr,yTrab)
case va101 = 11
Menu = 4
SubMenu= 5
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestdesp(yMesTr,yTrab)
case va101 = 12
Menu = 4
SubMenu= 6
DatoSele()
oVentPrinc:Resize(0,oVentPrinc:nWidth, oVentPrinc:nHeight)
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
gestbore(yMesTr,yTrab)
endcase
RETURN (.T.)
La primera quita lo que hay en pantalla y la segunda pone lo de la nueva opción. El problema es que a veces lo hace bien y otras no y solo pone el siguiente error sin dar mas explicaciones:
Alguien me puede ayudar u orientar para poder solucionarlo.
Un saludo y grcias
Carlos
