Re: [xHarbour-developers] GPF using HB_Uncompress

Fri, 19 Sep 2008 23:15:10 -0700 

Ron,

> Uncompressed.txt is not attached, so I used some random file, and I was not
> able to see any problem. Any reason why the text can not be hardcoded into
> the sample?
>
Very strange. I can see the "UnCompressed.txt" attachment to my original
message. I can also see the attachment here:
http://sourceforge.net/mailarchive/forum.php?thread_name=15c075f70808290837v4ee75033r3e4690e962fcd4c2%40mail.gmail.com&forum_name=xharbour-developers

I will attach the TXt file on this message.

Now, the GPF only occurs when you use that exact TXT file, so, please
copy/paste this text and save it to UnCompressed.txt:

#include "winfakt.ch"

Function wfScript_wfAfronden()
LOCAL f:=1,oIni,nAfr
LOCAl lRetu

nAfr:=InitsD(12)

lRetu:=MsgGet("Afronden","Op hoeveel decimalen afronden:",@nAfr)
IF !lRetu
RETURN NIL
ENDIF

Msg(1,"Afronden (Verkoop)")
sUseDB(d_Dossier+"V1"+cJaar+".SOC",,"cAlias")
WHILE cAlias->(!Eof())
sRLock("cAlias")
cAlias->BDR1 :=Round(cAlias->BDR1 ,nAfr)
cAlias->BDR2 :=Round(cAlias->BDR2 ,nAfr)
cAlias->BDR3 :=Round(cAlias->BDR3 ,nAfr)
cAlias->BDR4 :=Round(cAlias->BDR4 ,nAfr)
cAlias->BDR5 :=Round(cAlias->BDR5 ,nAfr)
cAlias->NET1 :=Round(cAlias->NET1 ,nAfr)
cAlias->NET2 :=Round(cAlias->NET2 ,nAfr)
cAlias->NET3 :=Round(cAlias->NET3 ,nAfr)
cAlias->NET4 :=Round(cAlias->NET4 ,nAfr)
cAlias->NET5 :=Round(cAlias->NET5 ,nAfr)
cAlias->OPEN :=Round(cAlias->OPEN ,nAfr)
cAlias->LEEG :=Round(cAlias->LEEG ,nAfr)
cAlias->LEEGG:=Round(cAlias->LEEGG,nAfr)
SKIP
ENDDO
sCommit("cAlias")
cAlias->(dbCloseArea())




Msg(,"Afronden (Verkoopdetail)")
sUseDB(d_Dossier+"V2"+cJaar+".SOC",,"cAlias")
cAlias->(dbEval({||sRLock("cAlias"),;
cAlias->NETTO:=Round(cAlias->NETTO,nAfr),;
cAlias->BRUTO:=Round(cAlias->BRUTO,nAfr),;
cAlias->LEEG :=Round(cAlias->LEEG ,nAfr);
}))
sCommit("cAlias")
cAlias->(dbCloseArea())




Msg(,"Afronden (Bank)")
sUseDB(d_Dossier+"BANK"+cJaar+".SOC",,"cAlias")
cAlias->(dbEval({||sRLock("cAlias"),;
cAlias->BEDRAG:=Round(cAlias->BEDRAG,nAfr);
}))
sCommit("cAlias")
cAlias->(dbCloseArea())




Msg(,"Afronden (Aankoop)")
sUseDB(d_Dossier+"AANK"+cJaar+".SOC",,"cAlias")
WHILE cAlias->(!Eof())
sRLock("cAlias")
cAlias->OPEN :=Round(cAlias->OPEN ,nAfr)
cAlias->NETTO :=Round(cAlias->NETTO ,nAfr)
cAlias->BRUTO :=Round(cAlias->BRUTO ,nAfr)
cAlias->LEEG :=Round(cAlias->LEEG ,nAfr)
cAlias->BTW_59 :=Round(cAlias->BTW_59 ,nAfr)
cAlias->BTW_81 :=Round(cAlias->BTW_81 ,nAfr)
cAlias->BTW_55 :=Round(cAlias->BTW_55 ,nAfr)
cAlias->BTW_82 :=Round(cAlias->BTW_82 ,nAfr)
cAlias->BTW_56 :=Round(cAlias->BTW_56 ,nAfr)
cAlias->BTW_82B:=Round(cAlias->BTW_82B,nAfr)
cAlias->BTW_83 :=Round(cAlias->BTW_83 ,nAfr)
cAlias->BTW_86 :=Round(cAlias->BTW_86 ,nAfr)
cAlias->BTW_87 :=Round(cAlias->BTW_87 ,nAfr)
cAlias->BTW_63 :=Round(cAlias->BTW_63 ,nAfr)
cAlias->BTW_84 :=Round(cAlias->BTW_84 ,nAfr)
cAlias->BTW_85 :=Round(cAlias->BTW_85 ,nAfr)
SKIP
ENDDO
sCommit("cAlias")
cAlias->(dbCloseArea())


Msg(0)
sInfo("Alles afgerond...")


RETU NIL

#include "winfakt.ch"

Function wfScript_wfAfronden()
LOCAL f:=1,oIni,nAfr
LOCAl lRetu

nAfr:=InitsD(12)

lRetu:=MsgGet("Afronden","Op hoeveel decimalen afronden:",@nAfr)
IF !lRetu
   RETURN NIL
ENDIF

Msg(1,"Afronden  (Verkoop)")
sUseDB(d_Dossier+"V1"+cJaar+".SOC",,"cAlias")
WHILE cAlias->(!Eof())
   sRLock("cAlias")
   cAlias->BDR1 :=Round(cAlias->BDR1 ,nAfr)
   cAlias->BDR2 :=Round(cAlias->BDR2 ,nAfr)
   cAlias->BDR3 :=Round(cAlias->BDR3 ,nAfr)
   cAlias->BDR4 :=Round(cAlias->BDR4 ,nAfr)
   cAlias->BDR5 :=Round(cAlias->BDR5 ,nAfr)
   cAlias->NET1 :=Round(cAlias->NET1 ,nAfr)
   cAlias->NET2 :=Round(cAlias->NET2 ,nAfr)
   cAlias->NET3 :=Round(cAlias->NET3 ,nAfr)
   cAlias->NET4 :=Round(cAlias->NET4 ,nAfr)
   cAlias->NET5 :=Round(cAlias->NET5 ,nAfr)
   cAlias->OPEN :=Round(cAlias->OPEN ,nAfr)
   cAlias->LEEG :=Round(cAlias->LEEG ,nAfr)
   cAlias->LEEGG:=Round(cAlias->LEEGG,nAfr)
   SKIP
ENDDO
sCommit("cAlias")
cAlias->(dbCloseArea())




Msg(,"Afronden (Verkoopdetail)")
sUseDB(d_Dossier+"V2"+cJaar+".SOC",,"cAlias")
cAlias->(dbEval({||sRLock("cAlias"),;
                     cAlias->NETTO:=Round(cAlias->NETTO,nAfr),;
                     cAlias->BRUTO:=Round(cAlias->BRUTO,nAfr),;
                     cAlias->LEEG :=Round(cAlias->LEEG ,nAfr);
                     }))
sCommit("cAlias")
cAlias->(dbCloseArea())




Msg(,"Afronden (Bank)")
sUseDB(d_Dossier+"BANK"+cJaar+".SOC",,"cAlias")
cAlias->(dbEval({||sRLock("cAlias"),;
                     cAlias->BEDRAG:=Round(cAlias->BEDRAG,nAfr);
                     }))
sCommit("cAlias")
cAlias->(dbCloseArea())




Msg(,"Afronden (Aankoop)")
sUseDB(d_Dossier+"AANK"+cJaar+".SOC",,"cAlias")
WHILE cAlias->(!Eof())
   sRLock("cAlias")
   cAlias->OPEN   :=Round(cAlias->OPEN   ,nAfr)
   cAlias->NETTO  :=Round(cAlias->NETTO  ,nAfr)
   cAlias->BRUTO  :=Round(cAlias->BRUTO  ,nAfr)
   cAlias->LEEG   :=Round(cAlias->LEEG   ,nAfr)
   cAlias->BTW_59 :=Round(cAlias->BTW_59 ,nAfr)
   cAlias->BTW_81 :=Round(cAlias->BTW_81 ,nAfr)
   cAlias->BTW_55 :=Round(cAlias->BTW_55 ,nAfr)
   cAlias->BTW_82 :=Round(cAlias->BTW_82 ,nAfr)
   cAlias->BTW_56 :=Round(cAlias->BTW_56 ,nAfr)
   cAlias->BTW_82B:=Round(cAlias->BTW_82B,nAfr)
   cAlias->BTW_83 :=Round(cAlias->BTW_83 ,nAfr)
   cAlias->BTW_86 :=Round(cAlias->BTW_86 ,nAfr)
   cAlias->BTW_87 :=Round(cAlias->BTW_87 ,nAfr)
   cAlias->BTW_63 :=Round(cAlias->BTW_63 ,nAfr)
   cAlias->BTW_84 :=Round(cAlias->BTW_84 ,nAfr)
   cAlias->BTW_85 :=Round(cAlias->BTW_85 ,nAfr)
   SKIP
ENDDO
sCommit("cAlias")
cAlias->(dbCloseArea())


Msg(0)
sInfo("Alles afgerond...")


RETU NIL
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Reply via email to