Colegas:
Tengo un gran problema con las fechas.
Este metodo lo que hace es recorrer el archivo planilla tomar el codigo de concepto y el importe y buscar en el archivo concepto el codigo de concepto y le suma el importe. eso lo hace perfectamente, pero el problemas es con las fechas, cuando quiero contolar entre dos fechas no hay caso me larga errores de tipo de datos, como si no comparara las dos fechas en el mismo tipo.
PROTECT oDCmfechadesde AS DATETIMEPICKER que inclusive si esta fecha la cambio en la pantalla no me la toma , me toma el valor inicial que tiene.
El dbseek que hago me dice que no esta indexada la base de dato,
El dbseek que hago me dice que no esta indexada la base de dato,
Cual pueden ser los inconvenientes que estoy teniendo.
Espero que me entiedan muchas gracias cualquier cosa les paso el .MEF
METHOD calculasaldos CLASS conceptos_saldos
LOCAL oConcepto AS concepto
oConcepto := Concepto{SELF,TRUE}
oConcepto := Concepto{SELF,TRUE}
DBUSEAREA(TRUE,"DBFNTX","PLANILLA","MovMov",TRUE)
MovMov->DBGOTOP()
// MovMov->DBSEEK(oDcmfechadesde:Value)
DO WHIL !MovMov->EOF()
* ? DToS(movmov->fecha)
* ? oDCmfechadesde:Value
* IF MovMov->fecha < oDCmfechadesde:Value
* MovMov->DBSKIP()
* LOOP
* ENDI
MovMov->DBGOTOP()
// MovMov->DBSEEK(oDcmfechadesde:Value)
DO WHIL !MovMov->EOF()
* ? DToS(movmov->fecha)
* ? oDCmfechadesde:Value
* IF MovMov->fecha < oDCmfechadesde:Value
* MovMov->DBSKIP()
* LOOP
* ENDI
mCodconc:=MovMov->cod_conc
mImporte:=MovMov->impop + (MovMov->impon*-1)
mImporte:=MovMov->impop + (MovMov->impon*-1)
oConcepto:Seek(mCodconc)
oConcepto:Replace()
oConcepto:impo := mImporte
oConcepto:Replace()
oConcepto:impo := mImporte
MovMov->DBSKIP()
ENDD
oConcepto:Close()
MovMov->DBCLOSEAREA()
MovMov->DBCLOSEAREA()
RETU
Muchas gracias
Luengo Sergio
Analista de Sistemas
General Pico - La Pampa
Analista de Sistemas
General Pico - La Pampa