Amigos
Sigo molestando.
Tengo un problema, debo cargar dinamicamente un Combobox con un arreglo, en una rutina, para cada fecha seleccionada en el calendario.
El problema es que el arreglo se carga con datos desde una DBF en la rutina, proceso que se realiza correctamente, pero no se Actualiza el Combobox, siempre mantiene el dato con el que ingreso la primera ves que inicio el programa. He intentado varias formas vistas en el foro, pero no soluciona el problema.
Esperando poder solucionar mi problema, les saluda muy atte.
Antonio.
Dejo el C贸digo para ver si alg煤n maestro me puede ayuda:
Sigo molestando.
Tengo un problema, debo cargar dinamicamente un Combobox con un arreglo, en una rutina, para cada fecha seleccionada en el calendario.
El problema es que el arreglo se carga con datos desde una DBF en la rutina, proceso que se realiza correctamente, pero no se Actualiza el Combobox, siempre mantiene el dato con el que ingreso la primera ves que inicio el programa. He intentado varias formas vistas en el foro, pero no soluciona el problema.
Esperando poder solucionar mi problema, les saluda muy atte.
Antonio.
Dejo el C贸digo para ver si alg煤n maestro me puede ayuda:
#include "FiveWin.ch"
#include "xbrowse.ch"
#include "colores.ch"
#include "dtpicker.ch"
#include "calendar.ch"
REQUEST HB_Lang_ESWIN, HB_CODEPAGE_ESWIN
FUNCTION Cua_caj1()
聽 聽 聽 Local oSay,oDlg,oSay1,oSay2,oSay3,oSay4,oBot1,oBtn1,oSay10,oSay11,oSay12,oSay13
聽 聽 聽 Local oFiltra,nFiltra,oFont,oFont1,oFont2
聽 聽 聽 Local nResu1:=1,cResu,oXbrore
聽 聽 聽 Local aFiltra:= {}
聽 聽 聽 Local dFecha:=Date(),oFecha
聽 聽 聽 Private Ing_xbro:=0
聽 聽 聽 Private nTot_vale:=0,nTot_gen:=0
聽 聽 聽 Public oIngre ,Mensa:="",cFiltra:="",In1:=0,Tegre:=0,Galle:=0,Bb1:=0
聽 聽 聽 Private aResu:= {},oResu
聽 聽 聽 SET DELETED ON
聽 聽 聽 HB_LangSelect( "ESWIN" )
聽 聽聽 聽HB_SetCodePage( "ESWIN" )
聽 聽 聽 SET DATE TO BRITISH
聽 聽 聽 SET EPOCH TO 1980
聽 聽 SET DATE FORMAT "DD/MM/YYYY"
聽 聽 聽 AADD( aResu,{ "TODO","TODOS 聽 聽 聽 聽 聽 聽 聽 "}) 聽 <== Arreglo del Combobox que cargo con un dato iniciar el programa
聽 聽 REDEFINE DTPICKER oFecha VAR dFecha ID 103 聽OF 聽oDlg 聽FONT oFont2 PICTURE "@d" UPDATE ;
聽聽 聽聽 聽 聽 聽 聽 聽聽ON CHANGE IF(!Proce_Cua(dFecha,cFiltra,@aResu),(MsgStop(Mensa),.F.), (oIngre:Refresh(),oSay:Refresh(),oFiltra:Refresh(),oResu:Refresh(),oXbrore:Refresh(),oSay13:Refresh(), .T.) )
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ** Aqui Selecciono una Fecha y mando a la Rutina Proce_cua(), se llena el Arreglo aResu(), Pero NO SE ACTUALIZA en el Combobox ID 220, aun cuando paso el arreglo por referencia.
聽 聽 聽 聽聽REDEFINE COMBOBOX oResu VAR nResu1 ITEMS ArrTranspose(aResu)[2] ID 220 OF oDlg COLORS nRGB(9, 11, 10), nRGB(73, 250, 202) Update; 聽 聽 聽<===== Necesito que este Combobox se llene Dinamicamente dependiendo de la fecha
聽 聽 聽 聽聽聽 聽 聽 聽 聽ON CHANGE ((cResu:=ArrTranspose(aResu)[1][oResu:nAt])
聽 聽 聽 聽 聽 聽 聽 聽 ACTIVATE DIALOG oDlg CENTERED ON INIT (oIngre:SetFocus())
Static FUNCTION Proce_Cua(dFecha,cFiltra,aResu)
聽 聽 聽 聽 聽 聽 聽.......
聽 聽 聽 聽 聽 聽 聽.......
聽 聽 聽 聽 聽 聽 聽.......
聽 聽 聽 聽 聽 聽 聽// Aqui se Carga el Arreglo 聽 aResu()
聽 聽 聽 聽 聽 聽 聽Sele e
聽 聽 聽 聽 聽 聽 聽DbGotop()
聽 聽 聽 聽 聽 聽 聽asize( aResu, 0 )
聽 聽 聽聽 聽聽 聽 聽AADD( aResu,{ "TODO","TODOS 聽 聽 聽 聽 聽 聽 聽 "}) 聽 // Agrego un Dato Inicial
聽 聽 聽聽 聽聽 聽 聽Do While !Eof()
聽 聽聽聽 聽 聽 聽 聽 聽 AADD( aResu,{ e->Cod_cua,e->Nom_cua})
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 e->(DbSkip())
聽 聽 聽聽 聽聽 聽 聽 Enddo
聽 聽 聽 聽 聽 聽 聽oResu:Update()
聽 聽 聽 聽 聽 聽 聽oResu:Refresh()
聽 聽 聽 聽 聽 聽 聽// Aqui he comprobado que el Arreglo viene Cargado con 10 Registros
聽 聽 聽 聽 聽 聽 聽Return 聽.t.FWH 22.10 - HARBOUR - PELLES C
