Clipper/FiveWin - Mouse Inactivo

   
Vista:

Mouse Inactivo

Publicado por Juan Morales (37 intervenciones) el 07/07/2012 15:27:18
Buenos dias amigos, Necesito hacerles una consulta, estoy usando fwh 6 con xharbourd, tengo un programa de consulta de movimientos de varios meses usando listbox, atravez de un Folder con 12 pestañas, y bases de datos Mysql, funciona bien pero el desplazamiento dentro del listbox funciona solo con las flechas, el mouse queda inactivo, el programa los tengo funcionando con clipper normal y funciona bien, lo he cambiado a bases de a datos con recordset y pude hacerlo funcionar pero no entiendo porque el mouse queda inactivo, le faltara alguna instruccion para el uso del folder con fwh.. cualquier sugerencia se lo agradezo.. gracias.. dejo una parte del programa..

#include "FiveWin.ch"
#Include "Ado.ch"
#include "Report.ch"
#include "Folder.ch"

STATIC oRv,oWnd
*------------------------------------------------------------------------------
FUNCTION WVALFOLD(oWPpal) // FOLDER DE VALES WVALINV
*------------------------------------------------------------------------------

local oDlg, oFld, aDialogs[12],oLbx, vAnof:=xAnoinv
Local nOption:=1, nOldOption:=1,oCurPulsa
Local NM[12],RECALTOT,HallaDH

LOCAL vTdeb:=0,vThab:=0,vReg:=0,vRega:=0
LOCAL oTdeb:=0,oThab:=0,oReg:=0,oRega:=0

LOCAL VFECHA:=DATE(),VCOSLUG:=XCOSLUG,VTIPOPE:="E",VNVALE:=SPACE(6)


SET _3DLOOK ON

DEFINE ICON oIco RESOURCE "SISAM"


DEFINE WINDOW oWnd FROM 0.15,0.5 TO 30,95;
TITLE "Registro y Consulta de Vales";
COLOR RGB(0,0,0),RGB(192,220,192);
ICON oIco ;
NO MAXIMIZE ;
MDICHILD OF oWPpal



NM[1] = '&Enero'
NM[2] = '&Febrero'
NM[3] = '&Marzo'
NM[4] = '&Abril'
NM[5] = 'Ma&yo'
NM[6] = '&Junio'
NM[7] = 'Ju&lio'
NM[8] = 'A&gosto'
NM[9] = 'S&etiembre'
NM[10] = '&Octubre'
NM[11] = '&Noviembre'
NM[12] = '&Diciembre'

zMesf:=Month(xfecinv)
nOption:=zMesf
nOldOption:=zMesf


* INICIO SIGLO DE DESLPLEGUE


DEFINE CURSOR oCurPulsa RESOURCE "Dedo"


vTdeb :=0
vThab :=0
vRega :=0
vReg :=0



* ABRO REGISTRO DE COMPROBANTES

PUBLIC oRv:= TOLEAUTO():New("adodb.recordset")
oRv:LockType := adLockOptimistic
oRv:CursorType := adOpenKeyset
oRv:CursorLocation := adUseClient
oRv:ActiveConnection(oApp:oCon)
oRv:Source := "SELECT * FROM WVALINV WHERE ANO = '" + AllTrim(STR(VANOF)) + "' AND MES = '" + ALLTRIM(STR(ZMESF)) + "' ORDER BY TIPOPE,NVALE "
oRv:Open()


IF oRv:BOF() .AND. oRv:EOF()
ELSE
oRv:MoveFirst()
DO WHILE .NOT. oRv:EOF()

vReg+= 1

If oRv:Fields("Flag"):Value <> 'A'
vRega+= 1
Endif

vTDeb += oRv:Fields("TOTCAN"):Value
vTHab += oRv:Fields("TOTBOL"):Value

oRv:MoveNext()

ENDDO
oRv:MoveFirst()
ENDIF



DEFINE DIALOG oDlg RESOURCE "Con100" OF oWnd
REDEFINE FOLDER oFld ID 100 OF oDlg ;
PROMPT NM[1],NM[2],NM[3],NM[4],NM[5],NM[6],NM[7],NM[8],NM[9],NM[10],NM[11],NM[12] ;
DIALOGS "Con100_FL","Con100_FL","Con100_FL","Con100_FL","Con100_FL","Con100_FL" , ;
"Con100_FL","Con100_FL","Con100_FL","Con100_FL","Con100_FL","Con100_FL" ;
ON CHANGE( oRv:Close(),zMesf:=nOption,Eval(HallaDH),vtdeb:=Tvale(vanof,zMesf,1),vthab:=Tvale(vanof,zMesf,2),vRega:=Tvale(vanof,zMesf,4),;
vReg:=Tvale(vanof,zMesf,3),EVAL(RECALTOT),oFld:aDialogs[nOption]:Refresh(),oLbx:Refresh(),oDlg:Refresh())

// Caja de Di logo -----------------------------------------------------


** SI Existe
IF oRv:BOF() .AND. oRv:EOF()
ELSE

REDEFINE LISTBOX oLbx FIELDS DTOC(oRv:Fields("Fecval"):Value) ,;
oRv:Fields("TIPOPE"):Value ,;
oRv:Fields("NVALE"):Value ,;
oRv:Fields("COSLUG"):Value ,;
TransForm (oRv:Fields("TOTCAN"):Value, "@Z 999,999,999,999.99"),;
TransForm (oRv:Fields("TOTBOL"):Value,"@Z 999,999,999,999.99"),;
oRv:Fields("FLAG"):Value ,;
STR(oRv:Fields("ANO"):Value) ,;
STR(oRv:Fields("MES"):Value) ;
HEADERS "Fecha", "Tva", "Vale", "Clugar", "T.Cant", "T.Monto","Status","Ano","Mes" ;
FIELDSIZES 70, 30, 60,40,100,100, 20,40,30 ;
COLOR CLR_BLUE , CLR_HCYAN ;
ID 110 ;
OF oFld:aDialogs[ 1 ]

oLbx:aJustify := {.F., .F., .F., .F., .T., .T., .F., .T., .T. }
oLbx:bLogicLen = { || oRv:RecordCount() }
oLbx:bGoTop = { || oRv:MoveFirst() }
oLbx:bGoBottom = { || oRv:MoveLast() }
oLbx:bSkip = { | nSkip | Skipper( oRv, nSkip ) }

ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clipper/FiveWin
- Código fuente de Clipper/FiveWin
- Cursos de Clipper/FiveWin
- Temas de Clipper/FiveWin
información
Códigos de Clipper/FiveWin
- Visor de archivos DBF
- Melodias
- Vaciar bases de datos

Mouse Inactivo

Publicado por Juan Morales (37 intervenciones) el 10/07/2012 20:58:21
Bueno Gracias a los amigos que tuvieron la amabilidad de leer el texto , Ignoro cual es el problema pero cambie la clase del dialogo que soporta el listbox a "TWBROWSE" Y funciono normal yo le habia puesto "SYSTABCONTROL32" , como se indica en los cambio a x harboud..

si alguno tiene el mismo problema puede probar asi.. Gracias..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar