Re: *** GMX Spamverdacht *** Re: [U2] Error in report generation.

[Allen Egerton]

Mecki FC6rthmann wrote:

Is this going to become a pissing-contest?




Actually it's a fairly interesting thread, presenting a couple options 
for the original poster, along with various styles of coding for him/her 
to look at and think about.  Not a bad thing.


--
Allen Egerton
aegerton at pobox dot com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Re: *** GMX Spamverdacht *** Re: [U2] Error in report generation.

[brian]

No :)

But he is just learning BASIC, so he might as well start with some good 
conventions - like using EQUATEs for field numbers.

Brian


Is this going to become a pissing-contest?

[EMAIL PROTECTED] schrieb:
> And the pretty version:
>
> Brian
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Re: *** GMX Spamverdacht *** Re: [U2] Error in report generation.

[Mecki Förthmann]

Is this going to become a pissing-contest?

[EMAIL PROTECTED] schrieb:

And the pretty version:

Brian


* define some field locations. Normally these would be placed in
* a separate include file and shared.

EQU INVENTORY.CODE To 1
EQU INVENTORY.DESCRIPTION To 2
EQU INVENTORY.TYPE To 3

* only primitive programmers still use upper case!

Crt "Main"
Ct = 0

Open "INVENTORY.T" To INVENTORY Else
  STOP
End
Sent = "SSELECT INVENTORY.T BY ITEM_CODE"
Execute SENT
EOF = @False
Loop
ReadNext ItemCode Else
  EOF = @True
End
Until EOF Do
Read InventoryRec From INVENTORY, ItemCode Then
  GoSub PrintLine
End
Repeat

Crt

Printer Close ;* terminate nicely

STOP


PrintLine:

Ct += 1
If Not(Mod(Ct,10)) Then Crt ".":


Printer On

Print ("ITEM CODE"   "L#16"):InventoryRec
Print ("DESCRIPTION" "L#16"):InventoryRec
Print ("TYPE""L#16"):InventoryRec

Printer Off

Return
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

  




___ 
Telefonate ohne weitere Kosten vom PC zum PC: http://messenger.yahoo.de

---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/