home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / applications / databases / sbase4pro / invoice / invoice.sbp < prev    next >
Text File  |  1995-07-10  |  7KB  |  310 lines
  1. SBP
  2.  ÿ½ *** Browning 3/14/91
  3.  ÿ½ *** Invoice driven by DML Procedural program
  4.  ÿ½ *** Learning example 
  5.  ÿ½ *** Requires V1.21 or greater
  6.  ÿ½ *** Not presented as a finished application
  7.  
  8.  ÿ³ÿ_ÿwErrTrap
  9.  ÿ¬ÿ…
  10.  ÿÊÿË""
  11.  
  12.  ÿ½ *** Initialize the panel, W$, and pan% for execute statement
  13.  ÿ½ *** used in WaitMenu: below.  W$ and pan% are modified by the  
  14.  ÿ½ *** routine in Column3:
  15.  ÿâÿe:w$ÿ"wait panel off or menu":pan%ÿ1
  16.  
  17.  ÿ´ÿ™"product"
  18.  ÿ´ÿœ"invoice"
  19.  
  20.  ÿ½ *** Set up menu structure
  21.  ÿ¬1,0,1,"&File      "
  22.  ÿ¬1,1,1,"&Print"
  23.  ÿ¬1,2,1,"&Setup printer"
  24.  ÿ¬1,3,3
  25.  ÿ¬1,4,1,"E&xit"
  26.  
  27.  ÿ¬2,0,1,"&Record    "
  28.  ÿ¬2,1,1,"&New"
  29.  ÿ¬2,2,3
  30.  ÿ¬2,3,1,"&Delete "
  31.  
  32.  
  33.  ÿ¬3,0,1,"&Utility   "
  34.  ÿ¬3,1,1,"&VCR Panel"
  35.  ÿ¬3,2,3
  36.  ÿ¬3,3,1,"&Shell"
  37.  
  38. WaitMenu: 
  39.  ÿÊÿË"Choose item from menu"
  40.  ÿ¬ÿ³column%,item%
  41.  ÿ–w$
  42.  ÿ³column%ÿvColumn1,Column2,Column3
  43.  ÿwWaitMenu 
  44.  
  45. Column1: ÿ½ *** File Menu
  46.  ÿÉÿæitem%
  47. ÿæ1
  48. ÿ¹ÿYÿíÿs0,0,0,0,0,0,0
  49. ÿæ2
  50. ÿÊÿhÿÂ
  51. ÿæ4
  52. ÿ:ÿ’
  53.  ÿ’ÿÉ
  54.  ÿÃ
  55.  
  56. Column2: ÿ½ *** Record Menu 
  57.  ÿÉÿæitem%
  58. ÿæ1
  59. ÿvEnterIt
  60. ÿæ3
  61. ÿvDeleteIt
  62.  ÿ’ÿÉ
  63.  ÿÃ
  64.  
  65. Column3: ÿ½ *** Utility Menu 
  66.  ÿÉÿæitem%
  67. ÿæ1:ÿ½ *** w$ is used in WaitMenu: 
  68. ÿ¡Pan%ÿ1ÿp
  70. w$ÿ"wait panel or menu"
  72. Pan%ÿ0
  73. ÿ^
  75. w$ÿ"panel off:wait panel off or menu"
  77. Pan%ÿ1
  78. ÿ’ÿ¡
  79. ÿæ3
  80. ÿƒ"newshell"
  81. ÿßÿ³
  82.  ÿ’ÿÉ
  83.  ÿÃ
  84.  
  85. EnterIt: ÿ½ *** Complete entry and validation of form data
  86.  ÿÿœ
  87. CustDataEntry: ÿ½ *** Handle customer entry and validation
  88.  ÿÊÿË"Enter full or partial customer code or N to create new customer"
  89.  ÿ”C_LINK.customer,1
  90.  ÿ½ *** Make user enter something
  91.  ÿØc_link.customerÿ""
  92. ÿÊÿË"*** Blank entry NOT accepted ***"
  93. ÿ›x%%ÿ1ÿq10:ÿ:ÿ±x%%
  94. ÿÏÿ›.7
  95. ÿÊÿË"Enter full or partial customer code or N to create new customer"
  96. ÿ”c_link.customer
  97.  ÿÙ
  98.  ÿÊÿË""
  99.  ÿ¡ÿ>(C_LINK.customer)ÿ"N"ÿpÿvAddNewCustomer
  100.  ÿ½ *** Find the record if it exists
  101.  ÿ¡ÿJ(C_LINK.customer,C_LINK.customer)ÿp
  102. ÿÉÿ¥C_LINK.customerÿ™"customer":ÿ½ *** Make the true record current
  103. ÿœ:ÿ½ *** Make it show on the form 
  104.  ÿ^
  105. ÿÂ"Choose Customer OR","Enter N for NEW",20,,C_LINK.customer,30,C_LINK.customer,COMPANY.customer
  106. ÿ¡ÿ>(C_LINK.customer)ÿ"N"ÿpÿvAddNewCustomer
  107. ÿÉÿ¥C_LINK.customerÿ™"customer"
  108. ÿœ
  109.  ÿ’ÿ¡
  110.  ÿÊÿË""
  111.  C_LINK.invhdrÿC_LINK.customer
  112.  D_LINK.invhdrÿÿI("invhdr")
  113. HeaderEntry: ÿ½ Handle invoice header information
  114.  ÿÊÿË"Enter SHIP TO address"
  115.  ÿ”scompany.invhdrÿqszip.invhdr:ÿ½ *** Enter Ship-to address
  116.  INVDATE.invhdrÿÿQ: ÿ½ *** Set date automatically
  117.  ÿÊÿË"Accept or modify terms"
  118.  INVTERMS.invhdrÿTERMS.customer: ÿ½ *** Move data in customer file to invhdr
  119.  ÿ”invterms.invhdr:ÿ½ *** Give the user the chance to modify
  120. BodyEntry: 
  121.  rct%%ÿ1:ÿ½ *** Set row counter
  122.  ÿ½ *** ORDER returns a negative when Escape key pressed 
  123.  ÿØÿµÿÿ1
  124. ÿÊÿË"Enter quantity"
  125. ÿ”quantity.ldetailÿ"rct%%
  126. ÿ¡quantity.ldetailÿ0ÿpÿ’ÿØ
  127. ÿÊÿË"Enter full or partial stock code"
  128. ÿ”stkcode.ldetailÿ"rct%%
  129. ÿ½ *** Do not accept a blank entry
  130. ÿØstkcode.ldetailÿ""
  131. ÿÊÿË"Blank entry NOT accepted"
  132. ÿ›x%%ÿ1ÿq10:ÿ:ÿ±x%%
  133. ÿÏÿ›.7
  134. ÿÊÿË"Enter full or partial stock code or N for new product"
  135. ÿ”stkcode.ldetailÿ"rct%%
  136. ÿÙ
  137. ÿ¡ÿ>(stkcode.ldetail)ÿ"N"ÿpÿvAddNewProduct
  138. LkUp: ÿ½ *** Verify stockcode exists and give option for new code.
  139. ÿ¡ÿD(stkcode.ldetail,stkcode.product)ÿp
  140. ÿ^
  141. ÿÂ"Choose code OR","Enter 'N' to add new code.",20,a%,stkcode.ldetail,50,stkcode.product,description.product
  142. ÿ¡ÿ>(stkcode.ldetail)ÿ"N"ÿpÿvAddNewProduct
  143. ÿwLkUp
  144. ÿ’ÿ¡
  145. ÿ½ *** Get data from product file and move it to ldetail file 
  146. description.ldetailÿdescription.product
  147. unitcost.ldetailÿunitcost.product
  148. extcost.ldetailÿ(quantity.ldetailÿunitcost.ldetail)
  149. ÿ½ *** Move data from file ldetail to current form transaction line and show it
  150. ÿÍÿœÿ"rct%%:ÿœ
  151. ÿ½ *** Move the cursor back to start of line so data can be modified
  152. ÿ½ *** Perhaps bad accounting practice but client wishes it
  153. ÿÊÿË"Accept or modify description line"
  154. ÿ”description.ldetailÿ"rct%%
  155. ÿÊÿË"Accept or modify unit price"
  156. ÿ”unitcost.ldetailÿ"rct%%
  157. ÿÊÿË""
  158. extcost.ldetailÿ(quantity.ldetailÿunitcost.ldetail)
  159. invtotal.invhdrÿÿl(extcost.ldetail)
  160. ÿÍÿœÿ"rct%%:ÿœ
  161. rct%%ÿrct%%ÿ1
  162.  ÿÙ
  163.  ÿÂ"Save this invoice?","",130,a%
  164.  ÿ¡a%ÿp
  165. ÿÌÿœ
  166.  ÿ^
  167. ÿÉÿœÿY
  168. ÿœ
  169.  ÿ’ÿ¡
  170.  ÿÃ
  171.  
  172. AddNewCustomer: ÿ½ *** 'N' was entered  
  173.  ÿÂ"Are you sure you want","to create a new customer?",130,a%
  174.  ÿ¡a%ÿp
  175. ÿÊÿË"Enter customer information"
  176. ÿÿ™"customer"
  177. ÿ”company.customerÿqzip.customer
  178. x%%ÿ1
  179. ky$ÿÿ+(company.customer,3)ÿÿ(x%%,"000.")
  180. ÿØÿJ(ky$,c_link.customer)
  181. x%%ÿx%%ÿ1
  182. ky$ÿÿ+(company,3)ÿÿ(x%%,"000.")
  183. ÿÙ
  184. c_link.customerÿky$
  185. ÿÂ"Add this customer","to customer file?",130,a%
  186. ÿ¡a%ÿp
  187. ÿÌÿ™"customer"
  188. ÿ^
  189. ÿÉÿœÿY
  190. ÿœ
  191. ÿwWaitMenu 
  192. ÿ’ÿ¡
  193. ÿœ
  194. ÿÃ
  195.  ÿ^
  196.  ÿÃ
  197.  ÿ’ÿ¡
  198.  ÿÃ
  199.  
  200. AddNewProduct: ÿ½ *** 'N' was entered in Lookup (Lkup) 
  201.  desc$ÿ"":unit%ÿ0:stkcode$ÿ""
  202.  ÿÂ"Are you sure you want","to create a new product entry?",130,a%
  203.  ÿ¡a%ÿp
  204. ÿœ2
  205. ÿÊÿË"Enter product description EXAMPLE: Widget Brown"
  206. 79 :ÿ”79:ÿ½ *** desc$
  207. ÿ¡ÿ/(desc$)ÿ
  208. 3ÿpÿw79
  209. ÿÊÿË"Enter product unitcost EXAMPLE: 14.98"
  210. 80 :ÿ”80:ÿ½ *** unit%
  211. ÿ¡unit%ÿ    0ÿpÿw80
  212. ÿÊÿË"Generating unique ID"
  213. ÿ½ *** Build unique stock code
  214. x%%ÿ1
  215. stkcode$ÿÿ+(desc$,3)ÿÿ(x%%,"000.")
  216. ÿØÿJ(stkcode$,stkcode.product)
  217. x%%ÿx%%ÿ1
  218. stkcode$ÿÿ+(desc$,3)ÿÿ(x%%,"000.")
  219. ÿÙ
  220. ÿœ
  221. ÿÂ"Add this product","to product file?",130,a%
  222. ÿ¡a%ÿp
  223. ÿÿ™"product"
  224. stkcode.productÿstkcode$
  225. description.productÿdesc$
  226. unitcost.productÿunit%
  227. ÿÌÿ™"product"
  228. ÿÉÿœÿ"rct%%
  229. stkcode.ldetailÿstkcode.product
  230. ÿ^
  231. ÿœ1
  232. ÿÃ
  233. ÿ’ÿ¡
  234. ÿœ1
  235. ÿÃ
  236.  ÿ^
  237.  ÿœ1
  238.  ÿÃ
  239.  ÿ’ÿ¡
  240.  ÿœ1
  241.  ÿÃ
  242.  
  243. DeleteIt: 
  244.  ÿ•dlt$
  245.  ÿ×dlt$(12)
  246.  dlt$(0)ÿ"1> Just this invoice"
  247.  dlt$(1)ÿ"2> Customer and all of its invoices"
  248.  rdlt$ÿ""
  249.  ÿÂ"Choose the appropriate deletion method","",20,a%,rdlt$,40,dlt$
  250.  ÿÉÿæÿ0(ÿ+(rdlt$,1))
  251. ÿæ1
  252. ÿÂ"Are you sure you wish","to delete this invoice?",148,a%
  253. ÿ¡a%ÿp
  255. ÿØÿD(d_link.invhdr,d_link.ldetail)
  256. ÿÉÿ¾ÿ™"ldetail"
  258. ÿÙ
  260. ÿÉÿ¾ÿ™"invhdr"
  261. ÿ^
  263. ÿÃ
  264. ÿ’ÿ¡
  265. ÿæ2
  266. ÿÂ"You are about to delete this customer","and ALL invoices! Are you SURE?",148,a%
  267. ÿ¡a%ÿp
  269. ÿØÿD(c_link.customer,c_link.invhdr)
  270. ÿØÿD(d_link.invhdr,d_link.ldetail)
  271. ÿÉÿ¾ÿ™"ldetail"
  272. ÿÙ
  273. ÿÉÿ¾ÿ™"invhdr"
  275. ÿÙ
  277. ÿÉÿ¾ÿ™"customer"
  278. ÿ^
  280. ÿÃ
  281. ÿ’ÿ¡
  282. ÿæÿ^
  283. ÿÃ
  284.  ÿ’ÿÉ
  285.  ÿÉÿœÿY
  286.  ÿœ
  287.  ÿÃ
  288.  
  289. ErrTrap: 
  290.  ÿÉÿæÿ&
  291. ÿæ10
  292. ÿ
  293. ÿy
  294. ÿæ8
  295. ÿy
  296. ÿæ11
  297. ÿÂ"Break detected","End program execution?",130,a%
  298. ÿ¡a%ÿp
  300. ÿ’
  301. ÿ^
  303. ÿy
  304. ÿæÿ^
  305. ÿ›x%%ÿ1ÿq10:ÿ:ÿ±x%%
  306. ÿÊÿË"*** Error "ÿÿ((ÿ&)ÿ" "ÿÿ(ÿ&,"000."):ÿ’
  307.  ÿ’ÿÉ
  308.  
  309.  
  310.