hablamos de xharbour.
Quiero operar en una MDB, mediante ADORDD y xbrowse.
Tengo el siguiente codigo que funciona bien en versiones anteriores
- Code: Select all Expand view
function miraregistro()
local base:=Publicas:rMDB+"Registro.mdb"
local oLbx,oDlg
local lSelection := .f.
LOCAL nselectedrow := 0
local cclave:=space(10)
local dato:="Serviruta1"
local comienzo:=dtoc(date())
local ocol
local oDlg1,oSay
DEFINE DIALOG oDlg1 FROM 10, 10 TO 17, 40
oDlg1:cTitle:="Introducir Clave de Acceso"
@ 10, 10 Say oSay Prompt "Clave de acceso" OF oDlg1 PIXEL SIZE 50,10
@ 10, 60 GET cClave OF oDlg1 SIZE 50,10 PIXEL PASSWORD
@ 30, 50 BTNBMP RESOURCE "go" SIZE 20,20 OF oDlg1 ACTION (oDlg1:End())
ACTIVATE DIALOG oDlg1 CENTERED
if cclave<>dato
MsgStop("Error: La contraseña no es valida")
return nil
endif
msgget("FECHA DEL FICHERO","Normalmente el error es de fecha de hoy ",@comienzo)
set deleted off
Try
USE &base VIA "ADORDD" alias paquetes NEW TABLE "UltimoRegistro"
CATCH
Msgstop("No se ha podido establecer conexion con la Base de Datos..","ATENCION")
Return nil
END
comienzo:=comienzo+' '+"01:00:00"
if paquetes->(Recno())>=1
DbSetfilter({|| "Ufecha >= '" + comienzo + "'"},"Ufecha >= '" + comienzo + "'")
PAQUETES->(Dbgotop())
DEFINE DIALOG oDlg FROM 1, 1 TO 50, 80
oDlg:ctitle:="PUEDES BORRAR UN REGISTRO PULSANDO LA TECLA SUPR."
@ 0, 0 XBROWSE oLbx;
OF oDlg ;
COLUMNS "Sel","Expedicion","Bulto", "UFecha", "UPeso","Uvolumen", "Ulargo" ,"Ualto","Uancho";
LINES CELL FASTEDIT AUTOSORT FOOTERS ALIAS alias() NOBORDER SIZE -10,-30 PIXEL
WITH OBJECT oLbx:aCols[ 1 ]
:bEditValue := { || AScan( oLbx:aSelected, oLbx:BookMark ) > 0 }
:SetCheck(nil,.t.)
:bFooter := { || Len( oLbx:aSelected ) }
:nFootStrAlign := 1
END
etc........
Pero en versiones posteriores de fivewin por ejemplo, desde las del año 2015, me lanza el siguiente error, que hace referencia a la linea donde creamos el xbrowse.
//**********************************************
Application
===========
Path and name: C:\COMPILA\FIVEDIT\PROGRAMA\GESPAQN.exe (32 bits)
Size: 6,495,744 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150603)
FiveWin Version: FWHX 15.10
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 16 secs
Error occurred at: 31/03/22, 14:26:12
Error description: Error BASE/1108 Argument error: AT
Args:
[ 1] = C :
[ 2] = U
Stack Calls
===========
Called from: => AT( 0 )
Called from: .\source\function\FILENAME.PRG => CFILENOPATH( 46 )
Called from: .\source\function\FILENAME.PRG => CFILENOEXT( 66 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETRDD( 4206 )
Called from: .\source\classes\XBROWSE.PRG => XBRWSETDATASOURCE( 13443 )
Called from: .\source\classes\XBROWSE.PRG => XBROWSENEW( 13261 )
Called from: c:\compila\fivedit\prg\Funciones.prg => MIRAREGISTRO( 1506 )
Called from: c:\compila\fivedit\prg\Gespaqn.prg => (b)HAZMENU( 576 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1053 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1064 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 262 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3602 )
Called from: c:\compila\fivedit\prg\Menu2003.prg => NOGPF( 0 )
Called from: c:\compila\fivedit\prg\Menu2003.prg => WINRUN( 799 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1020 )
Called from: c:\compila\fivedit\prg\Gespaqn.prg => MAIN( 87 )
//**************************************************************
Creia que venía de la funcion de fivewin Filename.prg, pero he probrado a cambiar y no ha resultado.
Me podeis ayudar a ver a que es debido?
