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.
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
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Fallos en Xailer 7 y siguientes
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
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
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Fallos en Xailer 7 y siguientes
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
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
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Fallos en Xailer 7 y siguientes
Ejemplo de código donde se genera el error:
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
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
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Fallos en Xailer 7 y siguientes
DB MySQL
Reitero que todo funciona de maravilla hasta la versión 6
Saludos
Daniel Pechir
Reitero que todo funciona de maravilla hasta la versión 6
Saludos
Daniel Pechir
Re: Fallos en Xailer 7 y siguientes
Daniel,
por favor, muestra la estructura de la tabla. Puedes verla con "SHOW CREATE TABLE Auxcli1"
por favor, muestra la estructura de la tabla. Puedes verla con "SHOW CREATE TABLE Auxcli1"
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Fallos en Xailer 7 y siguientes
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
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
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Fallos en Xailer 7 y siguientes
Y perdón por mi insistencia
Funciona de maravilla hasta la versión 6
Saludos
Funciona de maravilla hasta la versión 6
Saludos
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Fallos en Xailer 7 y siguientes
Usando MariaDB con MySQL
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Fallos en Xailer 7 y siguientes
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:
No he tenido ningún error. A continuación he realizado el siguiente proceso:
2) Edición de registros:
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.
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
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
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 80 veces
-
- Mensajes: 192
- Registrado: Vie Mar 15, 2013 12:32 am
Re: Fallos en Xailer 7 y siguientes
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
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
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Fallos en Xailer 7 y siguientes
Proyecto de ejemplo que se pueda compilar y enlazar creando un ejecutable. Utilice la opción de menú Proyecto -> Exportar proyecto.
Gracias
Gracias