In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Fallos en Xailer 7 y siguientes

Foro de Xailer profesional en español
Responder
Daniel Pechir
Mensajes: 191
Registrado: Vie Mar 15, 2013 12:32 am

Fallos en Xailer 7 y siguientes

Mensaje por Daniel Pechir »

Hola a todos

A partir de las versión 7, los DataSets querys mandan demasiados errores, cosa que no sucede hasta las versiones 6
tuve que regresar a compilar con la 6

¿ Alguno de ustedes sabe el motivo ?

Gracias por compartir

Daniel Pechir
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: Fallos en Xailer 7 y siguientes

Mensaje por ignacio »

Buenos días,

Si no indica los errores es IMPOSIBLE ayudarle.

Si se pueden reproducir con algún ejemplo, diga cual y forma de reproducirlo. También ayudaría que indicará con que motor de bases de datos y en que operaciones falla. Si hay un error.log, envíelo.

Saludos
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Daniel Pechir
Mensajes: 191
Registrado: Vie Mar 15, 2013 12:32 am

Re: Fallos en Xailer 7 y siguientes

Mensaje por Daniel Pechir »

Ejemplo de código donde se genera el error:
Error .png
Error .png (9.29 KiB) Visto 1885 veces
WITH OBJECT ::oAuxi
:GoTop()

::oProgreso:nValue := 0
nProces := 0
nTotProces := :KeyCount()

::oMsg:cText := 'Calculando Saldos'
::oMsg:lVisible := .T.

STORE CToD(' / / ') TO FECHRE,VFECHRE

DO WHILE !:Eof()
IF !:Num = NIL
STORE :REFE TO VPASE
STORE :FECHA+WDIASGRACIA TO FECHRE,VFECHRE
VSALREF := 0
DO WHILE :REFE = VPASE
VSALREF += :CARGOS - :CREDITO
VSALTOT += :CARGOS - :CREDITO

DO CASE
CASE Date() - FECHRE <= 15
VCOR += :CARGOS - :CREDITO
CASE Date() - FECHRE > 15 .AND. Date() - FECHRE <= 30
V15 += :CARGOS - :CREDITO
CASE Date() - FECHRE > 30 .AND. Date() - FECHRE <= 60
V30 += :CARGOS - :CREDITO
CASE Date() - FECHRE > 60
V60 += :CARGOS - :CREDITO
ENDCASE
******************************************************************************************
:FastEdit() <-----------------------
:Salre := VSALREF <-----------------------
:Saltot := VSALTOT <-----------------------
:FastUpdate() <-----------------------
*******************************************************************************************
:Skip()
nProces += 1
::oProgreso:nValue := Round(nProces/nTotProces*100,0)
ENDDO

DO CASE
CASE VDIAS > 0
IF VFECHRE+VDIAS <= Date()
VVENCI += VSALREF
ENDIF
CASE VDIAS = 0
VVENCI += VSALREF
ENDCASE

ELSE

:Skip()
nProces += 1
::oProgreso:nValue := Round(nProces/nTotProces*100,0)

ENDIF
ENDDO
END
Daniel Pechir
Mensajes: 191
Registrado: Vie Mar 15, 2013 12:32 am

Re: Fallos en Xailer 7 y siguientes

Mensaje por Daniel Pechir »

DB MySQL

Reitero que todo funciona de maravilla hasta la versión 6

Saludos

Daniel Pechir
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Re: Fallos en Xailer 7 y siguientes

Mensaje por jfgimenez »

Daniel,

por favor, muestra la estructura de la tabla. Puedes verla con "SHOW CREATE TABLE Auxcli1"
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Daniel Pechir
Mensajes: 191
Registrado: Vie Mar 15, 2013 12:32 am

Re: Fallos en Xailer 7 y siguientes

Mensaje por Daniel Pechir »

Hola

Con éste código se crea la tabla

PUBLIC cArch := "Auxcli"+PUSUARIO // Auxcli

cCmdQuery:= "DROP TABLE IF EXISTS "+cArch
AppData:oMySqlDS:Execute( cCmdQuery )

cCmdQuery:= "CREATE TABLE IF NOT EXISTS "+cArch+" (regis int auto_increment, "+;
"Num Int, Fecha Date, Refe Varchar(8), Ndoc Varchar(10), "+;
"Folio Varchar(8), Cargos Double, Credito Double, Salre Double, "+;
"Saltot Double, Concepto Varchar(15), Nche Int, Banco Varchar(20), "+;
"Tven varchar(1), primary key (regis))"

AppData:oMySqlDS:Execute( cCmdQuery )

Gracias por contestar

Saludos
Daniel Pechir
Mensajes: 191
Registrado: Vie Mar 15, 2013 12:32 am

Re: Fallos en Xailer 7 y siguientes

Mensaje por Daniel Pechir »

Y perdón por mi insistencia

Funciona de maravilla hasta la versión 6

Saludos
Daniel Pechir
Mensajes: 191
Registrado: Vie Mar 15, 2013 12:32 am

Re: Fallos en Xailer 7 y siguientes

Mensaje por Daniel Pechir »

Usando MariaDB con MySQL
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: Fallos en Xailer 7 y siguientes

Mensaje por ignacio »

Buenos días,

Me he tomado el tiempo de crear su tabla en un servidor propio alojado en Internet y he realizado el siguiente proceso:

1) Alta de registros:

Código: Seleccionar todo

METHOD Button1Click( oSender ) CLASS TForm1

   local nFor

   with object ::oSQLTable1
      FOR nFor := 1 to 1000
         :FastAppend()
         :SalRe := 0
         :SalTot := 0
         :FastUpdate()
         ::oProgressBar1:nValue := nFor
      next
   end with

RETURN Nil
No he tenido ningún error. A continuación he realizado el siguiente proceso:

2) Edición de registros:

Código: Seleccionar todo

METHOD Button1Click( oSender ) CLASS TForm1

   local nFor

   with object ::oSQLTable1
      FOR nFor := 1 to 1000
         :FastEdit()
         :SalRe := nFor
         :SalTot := nFor * 10
         :FastUpdate()
         :Skip()
         ::oProgressBar1:nValue := nFor
      next
   end with

RETURN Nil
Y tampoco he tenido ningún error.

Le ruego nos mande un PEQUEÑISIMO EJEMPLO que muestre el error para que podamos ayudarle. Siento no poder darle mejor respuesta.

Un saludo

Nota: Adjunto el script del resultado obtenido.

POSIBLE CAUSA: Repensando un poco en su problema, es posible que la causa se produzca porque el dataset que está intentando actualizar lo está mostrando también en un Browse y el browse al repintarse, provoca un cambio de registro de activo que impide la posterior actualización. En dicho caso la solución es sencilla: Cree un nuevo dataset que no esté vinculado con ningún Browse.
Adjuntos
Test.zip
(7.71 KiB) Descargado 72 veces
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Daniel Pechir
Mensajes: 191
Registrado: Vie Mar 15, 2013 12:32 am

Re: Fallos en Xailer 7 y siguientes

Mensaje por Daniel Pechir »

Muchísimas gracias Ignacio por su tiempo

El ejemplo con el mensaje de error es el que muestro arriba
Y es a manera de ejemplo ya que con la versión 7, en todos los programas donde agrego registros al DataSet, muestra el error de que el campo cambió despúes del edit

Saludos y nuevamente Gracias
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: Fallos en Xailer 7 y siguientes

Mensaje por ignacio »

Proyecto de ejemplo que se pueda compilar y enlazar creando un ejecutable. Utilice la opción de menú Proyecto -> Exportar proyecto.

Gracias
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder