OT Ayuda - Conexion con ADS - caracter raro
Publicado: Lun Oct 12, 2009 8:54 pm
Pido ayuda para resolver sl siguiente detalle:
Al leer campos de una tabla con ADS y xharbour de Xailer (July 2009) agrega
un caracter raro al final en los campos leidos, agrego el codigo de prueba
mas simple que pude hacer para compilar con xedit2 y la imagen del
resultado. Este caracter no lo muestra al accesar la tabla en forma directa.
Raro el caso y ya no encuentro que mas hacer
/*
* Proyecto: prueba
* Fichero: Module1.prg
* Descripción:
* Autor:
* Fecha: 29/09/2009
*/
#include "Ads.ch"
Function Main()
request hb_gt_win
Request ADS
RddRegister("ADS",1)
ADSSetServerType(7)
AdsSetFileType(1)
AdsLocking(.F.)
AdsRightsCheck(.F.)
REQUEST ADSKEYCOUNT, ADSKEYNO, ADSGETRELKEYPOS, ADSSETRELKEYPOS
Set Date To BRITISH
Set Century On
Set Epoch To 1950
Set Deleted On
Set( 106, 1 ) // sistema de bloqueo de registros compatible con clipper
5.2
Use 192.168.16.99:6262SysDbfClientes Index
192.168.16.99SysDbfCliente2 New Shared ReadOnly Via "ADS"
Clientes->( DbSeek( "JUAN" ) )
Alert( "("+AllTrim( Clientes->Nombre )+")" )
Close Data
Return .T.
--
Juan Castillo Arteaga
Area de sistemas
C.Fernandez y Cia., S.A. de C.V.
Attached files
Al leer campos de una tabla con ADS y xharbour de Xailer (July 2009) agrega
un caracter raro al final en los campos leidos, agrego el codigo de prueba
mas simple que pude hacer para compilar con xedit2 y la imagen del
resultado. Este caracter no lo muestra al accesar la tabla en forma directa.
Raro el caso y ya no encuentro que mas hacer
/*
* Proyecto: prueba
* Fichero: Module1.prg
* Descripción:
* Autor:
* Fecha: 29/09/2009
*/
#include "Ads.ch"
Function Main()
request hb_gt_win
Request ADS
RddRegister("ADS",1)
ADSSetServerType(7)
AdsSetFileType(1)
AdsLocking(.F.)
AdsRightsCheck(.F.)
REQUEST ADSKEYCOUNT, ADSKEYNO, ADSGETRELKEYPOS, ADSSETRELKEYPOS
Set Date To BRITISH
Set Century On
Set Epoch To 1950
Set Deleted On
Set( 106, 1 ) // sistema de bloqueo de registros compatible con clipper
5.2
Use 192.168.16.99:6262SysDbfClientes Index
192.168.16.99SysDbfCliente2 New Shared ReadOnly Via "ADS"
Clientes->( DbSeek( "JUAN" ) )
Alert( "("+AllTrim( Clientes->Nombre )+")" )
Close Data
Return .T.
--
Juan Castillo Arteaga
Area de sistemas
C.Fernandez y Cia., S.A. de C.V.
Attached files