Una de tDatabase (Resuelto!!)

[jose_murugosa]

Tengo una función para la rutina de altas bajas y modificaciones de una base única.

Esta función que utiliza la antes mencionada carga los controles para editar ...

Code: Select all  Expand view  RUN

FUNCTION D_Categor( oDbf, oPage )
   LOCAL oChk
   REDEFINE GET oDbf[1]:Descrip    ID 101 OF oPage:aDialogs[1] update
   REDEFINE CHECKBOX oChk VAR oDbf[1]:Dentic ID 102 OF oPage:aDialogs[1] update
   REDEFINE BITMAP oBmp[2] ID 103 OF oPage:aDialogs[1] UPDATE ADJUST
   Act(oDbf)
RETURN nil


La función act, lo que hace es desplegar para el caso de que la base de datos sea categor ( por categorías) o razas, un bmp con el mismo nombre del 2do campo de la base o si no lo hay un bmp gris.

Code: Select all  Expand view  RUN

FUNCTION Act(oDbf)
   IF Upper(oDbf[1]:cFile)="CATEGOR"
      IF !lNuevo .and.   File(".\MMEDIA\" + IF(Len(Alltrim(oDbf[1]:aBuffer[2]))>8, Substr(oDbf[1]:aBuffer[2],1,8), Alltrim(oDbf[1]:aBuffer[2]) )+".BMP" )
         oBmp[2]:LoadBmp(".\MMEDIA\" + IF(Len(Alltrim(oDbf[1]:aBuffer[2]))>8, Substr(oDbf[1]:aBuffer[2],1,8), Alltrim(oDbf[1]:aBuffer[2]) )+".BMP")
      ELSE
         oBmp[2]:LoadBmp(".\MMEDIA\GRIS.BMP")
      ENDIF
   ELSEIF Upper(oDbf[1]:cFile)="RAZAS"
      IF !lNuevo .and.   File(".\MMEDIA\" + IF(Len(Alltrim(oDbf[1]:aBuffer[2]))>8, Substr(oDbf[1]:aBuffer[2],1,8), Alltrim(oDbf[1]:aBuffer[2]) )+".BMP" )
         oBmp[2]:LoadBmp(".\MMEDIA\" + IF(Len(Alltrim(oDbf[1]:aBuffer[2]))>8, Substr(oDbf[1]:aBuffer[2],1,8), Alltrim(oDbf[1]:aBuffer[2]) )+".BMP")
      ELSE
         oBmp[2]:LoadBmp(".\MMEDIA\GRIS.BMP")
      ENDIF
   ENDIF
return NIL


Funciona perfectamente si compilo con la tdatabase de julio, pero no con la que viene a partir de agosto.

Hasta ahora lo que hago es compilar la tdatabase de julio con el exe para no perder tiempo, pero me gustaría que pudiera funcionar con la actual.

gracias desde ya por su ayuda.

[Antonio Linares]

José,

Puedes poner algunas traza en tu código ?

MsgInfo( oDbf[1]:cFile )

MsgInfo( oDbf[1]:aBuffer[2] )

y comparar la diferencia ? gracias

[jose_murugosa]

José,

Puedes poner algunas traza en tu código ?

MsgInfo( oDbf[1]:cFile )

MsgInfo( oDbf[1]:aBuffer[2] )

y comparar la diferencia ? gracias

Antonio, el tema es que la nueva tdatabase tiene un nuevo método Setarea que establece a cFile como la ruta + el nombre de archivo, mientras que la anterior no tenía este método y establecía a cFile como el nombre del archivo sin la ruta.

Me parece mejor como está ahora.

Codigo Método SetArea Líneas 250 a 252 de tDatabase:

Code: Select all  Expand view  RUN

::cFile     = Alias( nWorkArea )
   if ::Used()
      ::cFile     = ( nWorkArea )->( DbInfo( DBI_FULLPATH ) )...

Ya está resuelto.