|
| Débuté par Guillermo, 16 juin 2005 22:16 - 2 réponses |
| |
| | | |
|
| |
Posté le 16 juin 2005 - 22:16 |
Hi: Guillermo again
The following error is displayed .....
Error in Click on Button4 process, line 4.
HReadNext function called.
No browse started for item on file.
when run this code .....
micampo1 is currency
micampo2 is currency
LOOP
HReadNext(DEMO_Novedades,DEMO_Novedades.CodConcepto)
IF HOut() THEN
BREAK
END
Info("voy a leer novedad con código " + DEMO_Novedades.CodConcepto + " cantidad " + DEMO_Novedades.CantConcepto)
HReadSeek(DEMO_Tabla_Valores,DEMO_Tabla_Valores.CodConcepto,DEMO_Novedades.CodConcepto)
IF HFound(DEMO_Tabla_Valores) THEN
micampo1 = DEMO_Tabla_Valores.ValorConcepto
ELSE
micampo1 = 0
END
micampo2 = micampo2 + (micampo1 * DEMO_Novedades.CantConcepto)
END
Info(micampo2)
If I put for eg. HReadFirst or HReadSeekFirst on Demo_Novedades, before the loop, the error not occurs, but the loop begin in record nº 2
Any ideas ? ... Thanks .... Guillermo |
| |
| |
| | | |
|
| | |
| |
Posté le 16 juin 2005 - 22:55 |
Rearrange your code as below. Once you have read the first record, process it and AFTER that, READ the NEXT record
Hi: Guillermo again
The following error is displayed .....
Error in Click on Button4 process, line 4.
HReadNext function called.
No browse started for item on file.
when run this code .....
micampo1 is currency
micampo2 is currency
hreadfirst((DEMO_Novedades,DEMO_Novedades.CodConcepto)
LOOP
IF HOut() THEN
BREAK
END
Info("voy a leer novedad con código " + DEMO_Novedades.CodConcepto + " cantidad " + DEMO_Novedades.CantConcepto)
HReadSeek(DEMO_Tabla_Valores,DEMO_Tabla_Valores.CodConcepto,DEMO_Novedades.CodConcepto)
IF HFound(DEMO_Tabla_Valores) THEN
micampo1 = DEMO_Tabla_Valores.ValorConcepto
ELSE
micampo1 = 0
END
micampo2 = micampo2 + (micampo1 * DEMO_Novedades.CantConcepto)
HReadNext(DEMO_Novedades,DEMO_Novedades.CodConcepto)
END
Info(micampo2)
If I put for eg. HReadFirst or HReadSeekFirst on Demo_Novedades, before the loop, the error not occurs, but the loop begin in record nº 2
Any ideas ? ... Thanks .... Guillermo |
| |
| |
| | | |
|
| | |
| |
Posté le 17 juin 2005 - 01:08 |
Ok Daniel
I understand the idea.
I thought that the handling was similar to clarion, there the confusion.
Now I am trying to make work the code in Compile & Execute, which already display several errors
Thank you ............ Guillermo
Rearrange your code as below. Once you have read the first record, process it and AFTER that, READ the NEXT record Hi: Guillermo again
The following error is displayed .....
Error in Click on Button4 process, line 4.
HReadNext function called.
No browse started for item on file.
when run this code .....
micampo1 is currency
micampo2 is currency
hreadfirst((DEMO_Novedades,DEMO_Novedades.CodConcepto) LOOP
IF HOut() THEN
BREAK
END
Info("voy a leer novedad con código " + DEMO_Novedades.CodConcepto + " cantidad " + DEMO_Novedades.CantConcepto)
HReadSeek(DEMO_Tabla_Valores,DEMO_Tabla_Valores.CodConcepto,DEMO_Novedades.CodConcepto)
IF HFound(DEMO_Tabla_Valores) THEN
micampo1 = DEMO_Tabla_Valores.ValorConcepto
ELSE
micampo1 = 0
END
micampo2 = micampo2 + (micampo1 * DEMO_Novedades.CantConcepto)
HReadNext(DEMO_Novedades,DEMO_Novedades.CodConcepto)
END
Info(micampo2)
If I put for eg. HReadFirst or HReadSeekFirst on Demo_Novedades, before the loop, the error not occurs, but the loop begin in record nº 2
Any ideas ? ... Thanks .... Guillermo |
| |
| |
| | | |
|
| | | | |
| | |
|