Xailer & OZ Software

Amigos:
He bajado el Xailer 1.2a con el xhabor que tienen actualizado en vuestra pagina, y algo que me funcionaba bien ahora marca el error
error 9023: hb_xgrab requested to allocate zero bytes
oForm1 := TPosFactura():New(Self)
oForm1:oDataSourceRemote := ::oDataSourceRemote
oForm1:oDbfClientes := ::oDbfClientes
oForm1:oDbfCltPuntos := ::oDbfCltPuntos
oForm1:ShowModal()
WITH OBJECT ::oDbfClientes
:Select()
:OrdSetFocus("COD_CLT")
if :Seek(AppData:nCodigoClte) (aqui marca el error!!!!)
::oDocCliente:Value := iif(AppData:nTipoDocum=1, :RUC_CLT, :DNI_CLT)
::oCliente:Value := :BRV_CLT
::oFactBol:cText := iif(AppData:nTipoDocum = 1, "FACTURA", iif(AppData:nTipoDocum = 12,"TICKET DE VENTA",;
iif(AppData:nTipoDocum = 7, "NOTA DE CREDITO", "RECIBO DE INGRESO")))
::oDirCliente:Value := :DIR_CLT
else
::oDocCliente:Value := space(11)
::oCliente:Value := space(35)
::oFactBol:cText := "TICKET DE VENTA"
::oDirCliente:Value := space(50)
endif
END
--

Roque,
Yo empezaria a probar soluciones haciendo una reindexacion de ficheros.
Saludos
Roque Lopez escribió en mensaje <458747a3@news.xailer.com>...
Amigos:
He bajado el Xailer 1.2a con el xhabor que tienen actualizado en vuestra pagina, y algo que me funcionaba bien ahora marca el error
error 9023: hb_xgrab requested to allocate zero bytes


oForm1 := TPosFactura():New(Self)
oForm1:oDataSourceRemote := ::oDataSourceRemote
oForm1:oDbfClientes := ::oDbfClientes
oForm1:oDbfCltPuntos := ::oDbfCltPuntos
oForm1:ShowModal()

WITH OBJECT ::oDbfClientes
:Select()
:OrdSetFocus("COD_CLT")
if :Seek(AppData:nCodigoClte) (aqui marca el error!!!!)
::oDocCliente:Value := iif(AppData:nTipoDocum=1, :RUC_CLT, :DNI_CLT)
::oCliente:Value := :BRV_CLT
::oFactBol:cText := iif(AppData:nTipoDocum = 1, "FACTURA", iif(AppData:nTipoDocum = 12,"TICKET DE VENTA",;
iif(AppData:nTipoDocum = 7, "NOTA DE CREDITO", "RECIBO DE INGRESO")))
::oDirCliente:Value := :DIR_CLT

else
::oDocCliente:Value := space(11)
::oCliente:Value := space(35)
::oFactBol:cText := "TICKET DE VENTA"
::oDirCliente:Value := space(50)
endif
END


--

Roque,
si no se soluciona reindexando los ficheros, como te ha indicado Antonio,
comprueba el valor de AppData:nCodigoClte, y como consejo mio, asegúrate de
que tiene la longitud (en caracteres) suficiente, es decir, si el campo
clave tiene 10 caracteres, lo lógico es buscar con una cadena de 10
caracteres también.
--
Un saludo,
José F. Giménez
http://www.xailer.com