Hola a todos:
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:
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:
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
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:
@ 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_DROPDOWNLISTEsta 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:
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
Colt Hop ED, S.L.
Carlos Blas Fern谩ndez Dom铆nguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Carlos Blas Fern谩ndez Dom铆nguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
