*************
* Deck "AMWAYDeckV5.0"
*************

*************
* Card "Customer Card"
	NoAttach
	Routine "Tax Amounts"
		Let TaxCust=0
		Let ATX=TextFrom(".Tax")
		Let Qty=IntegerFrom(".Qty")
		Do "Format Fields","Cust",Cust
		If ATX="Tax"
			Let TaxCust=(Qty*Cust)+(Cust/100*Tax)
		ElseIf ATX="GST"
			Let TaxCust=(Qty*Cust)+(Cust/100*GST)
		ElseIf ATX="PST"
			Let TaxCust=(Qty*Cust)+(Cust/100*PST)
		ElseIf ATX="VAT1"
			Let TaxCust=(Qty*Cust)+(Cust/100*VAT1)
		ElseIf ATX="VAT2"
			Let TaxCust=(Qty*Cust)+(Cust/100*VAT1)
		ElseIf ATX<>""
			Let ATX=FormatValue(TextFrom(".Tax"),"####")
			Let TaxCust=(Qty*Cust)+(Cust/100*ATX)
		ElseIf ATX=""
			Let TaxCust=Cust
		EndIf
		SetText ".Cust",TaxCust
		Do "Format Fields","Cust",TaxCust
	EndScript
	Routine "Store Entry"
		WorkWithDocument "Cust List"
		Let Work=GetDBObjects
		If Work<>CustDataBase[CustIndex]
			Do "Delete Entry",CustIndex
			Let CustIndex=TheLineNumber
			InsertArrayEntry CustDataBase,CustIndex
			Let CustDataBase[CustIndex]=Work
		EndIf
		Do "Load DataFile"
	EndScript
	Routine "Set Tax Field"
		If Arg1
			Let TaxAmount=Arg2
			Let TaxField=Arg3
			Do "Get VS"
			SetText ".Tax",TaxField
			Do "Tax"
			Do "Tax Amounts"
			Let CustDataBase[CustIndex]=GetDBObjects
			Let SearchText=TextFrom(".VS")
			Let SearchField="VS"
			Do "Search Next"
			DoObjectScript "Enter Button",ONRELEASE 
			Do "Search Next"
		EndIf
		Do "Set Field",1
	EndScript
	Routine "Search Next"
		WorkWithDocument "Cust List"
		Local NewCustIndex
		SetSearchArrayFlags NOCASE SUBSTRING 
		Let NewCustIndex=SearchArray(CustDataBase,SearchText,"."||SearchField,CustIndex+1)
		If Not SearchFound
			Let NewCustIndex=SearchArray(CustDataBase,SearchText,"."||SearchField)
			If Not SearchFound
				If SizeOfDocument<>0
					MoveCursorTo STARTOF DOCUMENT 
					SplitLine
					MoveCursor UP 
					Let CustIndex=1
					InsertArrayEntry CustDataBase,CustIndex
					Let CustDataBase[CustIndex]=GetDBObjects
				EndIf
			EndIf
		EndIf
		If SearchFound
			Do "Get Entry",NewCustIndex
		EndIf
	EndScript
	Routine "Do Search"
		If Arg1
			SetText ".VS",Arg5.VS
			SetText ".Des",Arg5.Des
			SetText ".Tax",Arg5.Tax
			Let Cust=Arg5.Cust
			Do "Tax Amounts"
			Let StockIndex=Arg4
			Let SearchText=TextFrom(".VS")
			Let SearchField="VS"
			Do "Search Next"
			DoObjectScript "Enter Button",ONRELEASE 
			Do "Search Next"
		EndIf
	EndScript
	Routine "Delete Entry"
		DeleteArrayEntry CustDataBase,Arg1
		PositionOnLine Arg1
		If TheLineNumber=LinesInDocument
			Clear LINE 
			Delete CHARACTER ,-1
			Let CustIndex=0
		Else
			Delete LINE 
		EndIf
		Do "Load DataFile"
		PositionOnLine Arg1
	EndScript
	Routine "Print Calc Totals"
		SetDrawMode JAM2 
		If ATX="Tax"
			SetPen A,5
			PrintText "Tax=",122,300
			SetPen C,5
			PrintText RightJustify(FormatValue(TotalTaxCustT,DefNote||"###0.00"),7),154,300
		ElseIf ATX="GST"
			SetPen A,5
			PrintText "GST=",122,300
			SetPen C,5
			PrintText RightJustify(FormatValue(TotalTaxCustG,DefNote||"###0.00"),7),154,300
		ElseIf ATX="PST"
			SetPen A,5
			PrintText "PST=",218,300
			SetPen C,5
			PrintText RightJustify(FormatValue(TotalTaxCustP,DefNote||"###0.00"),7),250,300
		ElseIf ATX="VAT1"
			SetPen A,5
			PrintText "VAT1=",122,300
			SetPen C,5
			PrintText RightJustify(FormatValue(TotalTaxCustV1,DefNote||"###0.00"),7),154,300
		ElseIf ATX="VAT2"
			SetPen A,5
			PrintText "VAT2=",218,300
			SetPen C,5
			PrintText RightJustify(FormatValue(TotalTaxCustV2,DefNote||"###0.00"),7),250,300
		ElseIf ATX<>""
			SetPen A,5
			PrintText "Tax=",122,300
			SetPen C,5
			PrintText RightJustify(FormatValue(TotalTaxCustT,DefNote||"###0.00"),7),154,300
		ElseIf ATX=""
			SetPen A,5
			PrintText "Tax=",122,300
			SetPen C,5
			PrintText RightJustify(FormatValue(TotalTaxCustT,DefNote||"###0.00"),7),154,300
		EndIf
	EndScript
	Routine "Print Totals"
		SetDrawMode JAM2 
		SetPrintFont "topaz",8
		SetPen B,5
		PrintText RightJustify(TotalQty,2),113,285
		PrintText RightJustify(FormatValue(TotalCust,DefNote||"###0.00"),7),378,285
	EndScript
	Routine "Totals"
		Let TotalQty=TotalQty+CustDataBase[CustIndex].Qty
		Let TotalCust=TotalCust+CustDataBase[CustIndex].Cust
		Do "Calc Tax"
	EndScript
	Routine "Get Entry"
		SetPrintFont "topaz",8
		SetDrawMode JAM2 
		SetPen B,5
		SetPrintStyle PLAIN ,B,3
		Let CustIndex=Arg1
		SetDBObjects CustDataBase[CustIndex]
		PrintText RightJustify(NumberOfArrayEntries(CustDataBase),4),350,23
		SetPen A,5
		PrintText "Customer Info...",11,23
		PrintText "There Are :",263,23
		PrintText "Items",390,23
		PrintText "Index No.",500,23
		WorkWithDocument "Cust List"
		PositionOnLine Arg1
		If DefDate="MDY"
			Do "Display Date",740,170,204,179,146,213
		Else
			Do "Display Date",740,170,204,146,179,213
		EndIf
	EndScript
	Routine "Draw Card"
		SetDrawMode JAM2 
		SetPen 0
		AreaRectangle 9,93,431,168
		SetPen 5
		AreaRectangle 7,270,456,45
		DrawBorder 7,270,456,45,BEVEL ,4,2
		SetPen A,5
		PrintText "Qty",112,275
		PrintText "Cost =",385,275
		PrintText "Customer Tax:",10,300
		SetDrawMode JAM1 
		PrintText "Ord",238,342
		PrintText "Del",370,342
	EndScript
	Routine "Load Name"
		If Exists("Ram:AMWAYData/CustData/Name.Data")
			Let CustName=LoadVariable("Ram:AMWAYData/CustData/CustName.Data")
			Do "Set Name"
		ElseIf Exists(DefCustDir||"/Cust.Data")
			Let CustName=LoadVariable(DefCustDir||"/CustName.Data")
			SaveVariable CustName,"Ram:AMWAYData/CustData/CustName.Data"
			Do "Set Name"
		ElseIf Not Exists(DefCustDir||"/CustName.Data")
			Do "Get Date"
			Let DistDataBase=LoadVariable("Ram:AMWAYData/DistData/Dist.Data")
			Let CustName.Name=DistDataBase.Name
			Let CustName.ODay=DistDataBase.Day
			Let CustName.OMonth=DistDataBase.Month
			Let CustName.OYear=DistDataBase.Year
			Let CustName.DDay=Day
			Let CustName.DMonth=Month
			Let CustName.DYear=Year
			If DefDate="MDY"
				Let CustName.DelDate=Month||"-"||Day||"-"||Year
				Let CustName.OrdDate=DistDataBase.Month||"-"||DistDataBase.Day||"-"||DistDataBase.Year
			Else
				Let CustName.DelDate=Day||"-"||Month||"-"||Year
				Let CustName.OrdDate=DistDataBase.Day||"-"||DistDataBase.Month||"-"||DistDataBase.Year
			EndIf
			SaveVariable CustName,"Ram:AMWAYData/CustData/CustName.Data"
			Do "Set Name"
		EndIf
	EndScript
	Routine "Set Name"
		Let Name=CustName.Name
		Let DDay=CustName.DDay
		Let DMonth=CustName.DMonth
		Let DYear=CustName.DYear
		Let ODay=CustName.ODay
		Let OMonth=CustName.OMonth
		Let OYear=CustName.OYear
		Let DelDate=CustName.DelDate
		Let OrdDate=CustName.OrdDate
		SetText "Name",Name
		If DefDate="MDY"
			SetText "DelDate",DelDate
			SetText "OrdDate",OrdDate
		Else
			SetText "DelDate",DelDate
			SetText "OrdDate",OrdDate
		EndIf
	EndScript
	Routine "Load DataFile"
		Do "Set Totals"
		WorkWithDocument "Cust List"
		Clear DOCUMENT 
		If Sort="Yes"
			SortArray CustDataBase,INTEGER ,".VS"
		EndIf
		Let CustIndex=FirstArrayIndex(CustDataBase)
		PrintText "                                 ",122,300
		While SearchFound
			Type LeftJustify(CustDataBase[CustIndex].VS,11)
			Type " "
			Type RightJustify(CustDataBase[CustIndex].Qty,2)
			Type " "
			Type LeftJustify(CustDataBase[CustIndex].Des,20)
			Type "  "
			If T="Yes"
				Let ATX=CustDataBase[CustIndex].Tax
				Do "Get VS",CustDataBase[CustIndex].VS
				Let Val=FormatValue(CustDataBase[CustIndex].Tax,"####")
				Type LeftJustify(FormatValue(CustDataBase[CustIndex].Tax,"###%"),4)
			Else
				Type LeftJustify(FormatValue(CustDataBase[CustIndex].Tax,"###%"),4)
			EndIf
			Type "    "
			Type RightJustify(FormatValue(CustDataBase[CustIndex].Cust,DefNote||"###0.00"),7)
			Do "Totals"
			NewLine
			Let CustIndex=NextArrayIndex(CustDataBase,CustIndex)
		EndLoop
		Delete CHARACTER ,-1
		MoveCursorTo STARTOF DOCUMENT 
		Let CustIndex=1
		Do "Print Totals"
	EndScript
	Routine "Set Totals"
		Let ATC=0
		Let TotalQty=0
		Let TotalCust=0
		Let TotalTaxCust=0
		Let TotalTaxCustT=0
		Let TotalTaxCustG=0
		Let TotalTaxCustP=0
		Let TotalTaxCustV1=0
		Let TotalTaxCustV2=0
	EndScript
	Routine "Calc Tax"
		Let Qty=IntegerFrom(".Qty")
		If ATX="Tax"
			Let TotalTaxCustT=TotalTaxCustT+(Qty*Cust/100*Val)
		ElseIf ATX="GST"
			If ATC=1
				Let ATC=2
			Else
				Let ATC=1
			EndIf
			Let TotalTaxCustG=TotalTaxCustG+(Qty*Cust/100*Val)
		ElseIf ATX="PST"
			If ATC=1
				Let ATC=2
			Else
				Let ATC=1
			EndIf
			Let TotalTaxCustP=TotalTaxCustP+(Qty*Cust/100*Val)
		ElseIf ATX="VAT1"
			If ATC=1
				Let ATC=2
			Else
				Let ATC=1
			EndIf
			Let TotalTaxCustV1=TotalTaxCustV1+(Qty*Cust/100*Val)
		ElseIf ATX="VAT2"
			If ATC=1
				Let ATC=2
			Else
				Let ATC=1
			EndIf
			Let TotalTaxCustV2=TotalTaxCustV2+(Qty*Cust/100*Val)
		ElseIf ATX<>""
			Let ATX=FormatValue(TextFrom(".Tax"),"####")
			Let TotalTaxCust=TotalTaxCust+(Qty*Cust/100*ATX)
		ElseIf ATX=""
			Let TotalTaxCust=TotalTaxCust+(Qty*Cust/100*Val)
		EndIf
		Do "Print Calc Totals"
	EndScript
	Routine "Type Calc Totals"
		If ATX="Tax"
			NewLine
			Type "Customer Tax: Tax="
			Type RightJustify(FormatValue(TotalTaxCustT,DefNote||"###0.00"),7)
		ElseIf ATX="GST"
			NewLine
			Type "Customer Tax: GST="
			Type RightJustify(FormatValue(TotalTaxCustG,DefNote||"###0.00"),7)
		ElseIf ATX="PST"
			If ATC=2
				NewLine
				Type "Customer Tax: GST="
				Type RightJustify(FormatValue(TotalTaxCustG,DefNote||"###0.00"),7)
				Type "    Customer Tax: PST="
				Type RightJustify(FormatValue(TotalTaxCustP,DefNote||"###0.00"),7)
			ElseIf ATC=1
				NewLine
				Type "    Customer Tax: PST="
				Type RightJustify(FormatValue(TotalTaxCustP,DefNote||"###0.00"),7)
			EndIf
		ElseIf ATX="VAT1"
			NewLine
			Type "Customer Tax: VAT1="
			Type RightJustify(FormatValue(TotalTaxCustV1,DefNote||"###0.00"),7)
		ElseIf ATX="VAT2"
			If ATC=2
				NewLine
				Type "Customer Tax: VAT1="
				Type RightJustify(FormatValue(TotalTaxCustV1,DefNote||"###0.00"),7)
				Type "    Customer Tax: VAT2="
				Type RightJustify(FormatValue(TotalTaxCustV2,DefNote||"###0.00"),7)
			ElseIf ATC=1
				NewLine
				Type "    Customer Tax: VAT2="
				Type RightJustify(FormatValue(TotalTaxCustV2,DefNote||"###0.00"),7)
			EndIf
		ElseIf ATX<>""
			NewLine
			Type "Customer Tax: Tax="
			Type RightJustify(FormatValue(TotalTaxCustT,DefNote||"###0.00"),7)
		ElseIf ATX=""
			NewLine
			Type "Tax="
			Type RightJustify(FormatValue(TotalTaxCustT,DefNote||"###0.00"),7)
		EndIf
	EndScript
	AfterAttachment
		Do "Set Def"
		Do "Tax"
		If DefBGPic<>""
			ShowPicture DefCBGPic
		EndIf
		Do "Draw Card"
		FastFeedBack On
		Dispose Work
		Let Sort="Yes"
		Do "Get Fields","VS","Qty","Des","Tax","Cust"
		Let FieldNames[6]="Name"
		Let FieldNames[7]="OrdDate"
		Let FieldNames[8]="DelDate"
		If Exists("Ram:AMWAYData/CustData/Cust.Data")
			Let CustDataBase=LoadVariable("Ram:AMWAYData/CustData/Cust.Data")
			Do "Load DataFile"
		ElseIf Exists(DefCustDir||"/Cust.Data")
			Let CustDataBase=LoadVariable(DefCustDir||"/Cust.Data")
			Do "Load DataFile"
			SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
		ElseIf Not Exists(DefCustDir||"/Cust.Data")
			If Exists("Ram:AMWAYData/OrderData/Order.Data")
				Let CustDataBase=LoadVariable("Ram:AMWAYData/OrderData/Order.Data")
				SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			Else
				SetFileRequestMode REGULARMODE ,REJECTICONS PATTERNFIELD 
				SetFileRequestPattern "#?.Data"
				Let FileName=AskForFileName(DefCustDir||"/.Data","Select File To Load...")
				If FileOf(FileName)<>""
					Let CustDataBase=LoadVariable(FileName)
					Do "Load DataFile"
					SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
				Else
					Let CustIndex=1
					Let CustDataBase[CustIndex]=GetDBObjects
					Do "Load DataFile"
					SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
				EndIf
			EndIf
		EndIf
		Do "Load Name"
		Do "Tax Amounts"
		Let StockIndex=Arg4
		Let SearchText=TextFrom(".VS")
		Let SearchField="VS"
		Do "Search Next"
		DoObjectScript "Enter Button",ONRELEASE 
		Do "Search Next"
		Do "Get Date"
		Do "Get Entry",1
		Do "Set Field",1
	EndScript
	MessageFromSubDeck
		If Arg1<>""
			Do Arg1,Alias("Arg2"),Alias("Arg3"),Alias("Arg4"),Alias("Arg5"),Alias("Arg6")
		EndIf
	EndScript
	Routine "PrintTax"
		Do "Get Date"
		Let Name=TextFrom("Name")
		Let DelDate=TextFrom("DelDate")
		Let Orddate=TextFrom("OrdDate")
		WorkWithDocument "Ram:AMWAYData/CustData/Cust.Doc"
		Clear DOCUMENT 
		Type "           Customer Receipt",NEWLINE 
		Type "ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ",NEWLINE 
		Type "Distributor Name:",NEWLINE 
		Type DistDataBase.Name,NEWLINE 
		NewLine
		Type "VS          Qty Description         Tax         Cost"
		MoveCursorTo ENDOF DOCUMENT 
		NewLine
		Type "ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ",NEWLINE 
		InsertDocument "Cust List"
		MoveCursorTo ENDOF DOCUMENT 
		NewLine
		Type "ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ",NEWLINE 
		Type "      Total Qty                           Total Cost",NEWLINE 
		Type "            "
		Type RightJustify(TotalQty,2)
		Type "                               "
		Type RightJustify(FormatValue(TotalCust,DefNote||"###0.00"),7)
		Do "Type Calc Totals"
		NewLine
		NewLine
		Type "Customers Name:               Date of Order "||OrdDate,NEWLINE 
		Type Name,NEWLINE 
		NewLine
		Type "                              Delivery Date "||DelDate,NEWLINE 
		Type "Distributor Signature:",NEWLINE 
		NewLine
		NewLine
		Type "­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­",NEWLINE 
	EndScript
	Window "UserWindow"
		Definition
			Origin 0,12
			Title "Customer Screen..."
			WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR 
			Size 471,365
			DefaultColors 1,0,5
			WindowFlags ACTIVATE TOFRONT WORKBENCH 
			VisualEffects NONE ,WAIT 
		EndScript
		OnCloseButton
			Let CustDataBase[CustIndex]=GetDBObjects
			SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			GotoCard "Ordering Card"
		EndScript
	EndObject
	List "CustDoc"
		Definition
			ListDocument "Cust List" ; where the text comes from
			Origin 9,93
			Size 452,168
			Border INVERT BEVEL  ; BorderStyle, MainPen, ExtraPen
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
			Style PLAIN ,2,1
		EndScript
		OnRelease
			WorkWithDocument "Cust List"
			Do "Get Entry",TheLineNumber
			Do "Set Field",CurrField
		EndScript
	EndObject
	TextMenu "New"
		Definition
			AttachTo MENU ,"Project..."
			Text "New..."
			ShortCutKey "N"
		EndScript
		Occurred
			DoObjectScript "New Button",ONRELEASE 
		EndScript
	EndObject
	TextMenu "Load"
		Definition
			AttachTo MENU ,"Project..."
			Text "Load..."
			ShortCutKey "L"
		EndScript
		Occurred
			DoObjectScript "Load Button",ONRELEASE 
		EndScript
	EndObject
	TextMenu "Save"
		Definition
			AttachTo MENU ,"Project..."
			Text "Save..."
			ShortCutKey "S"
		EndScript
		Occurred
			DoObjectScript "Save Button",ONRELEASE 
		EndScript
	EndObject
	TextMenu "Save As"
		Definition
			AttachTo MENU ,"Project..."
			Text "Save As..."
			ShortCutKey "A"
		EndScript
		Occurred
			SetFileRequestMode REGULARMODE ,REJECTICONS PATTERNFIELD 
			SetFileRequestPattern "#?.Data"
			Let FileName=AskForFileName(DefCustDir||"/Cust.Data","Select File To Load...")
			If FileOf(FileName)<>Nothing
				SaveVariable CustDataBase,FileName
				SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			Else
				Let CustDataBase[CustIndex]=GetDBObjects
			EndIf
		EndScript
	EndObject
	TextMenu "Previous"
		Definition
			AttachTo MENU ,"Project..."
			Text "Previous..."
			ShortCutKey "<"
		EndScript
		Occurred
			DoObjectScript "Previous Button",ONRELEASE 
		EndScript
	EndObject
	TextMenu "Next"
		Definition
			AttachTo MENU ,"Project..."
			Text "Next..."
			ShortCutKey ">"
		EndScript
		Occurred
			DoObjectScript "Next Button",ONRELEASE 
		EndScript
	EndObject
	TextMenu "Delete"
		Definition
			AttachTo MENU ,"Project..."
			Text "Delete..."
			ShortCutKey "D"
		EndScript
		Occurred
			DoObjectScript "Delete Button",ONRELEASE 
		EndScript
	EndObject
	TextMenu "Find"
		Definition
			AttachTo MENU ,"Project..."
			Text "Find..."
			ShortCutKey "F"
		EndScript
		Occurred
			DoObjectScript "Search Button",ONRELEASE 
		EndScript
	EndObject
	TextMenu "Distributor"
		Definition
			AttachTo MENU ,"Project..."
			Text "Distributor..."
			ShortCutKey "T"
		EndScript
		Occurred
			Let CustDataBase[CustIndex]=GetDBObjects
			SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			GotoCard "Distributor Card"
		EndScript
	EndObject
	TextMenu "DataBase"
		Definition
			AttachTo MENU ,"Project..."
			Text "DataBase..."
			ShortCutKey "B"
		EndScript
		Occurred
			Let CustDataBase[CustIndex]=GetDBObjects
			SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			GotoCard "DataBase Card"
		EndScript
	EndObject
	TextMenu "Ordering"
		Definition
			AttachTo MENU ,"Project..."
			Text "Ordering..."
			ShortCutKey "O"
		EndScript
		Occurred
			Let CustDataBase[CustIndex]=GetDBObjects
			SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			GotoCard "Ordering Card"
		EndScript
	EndObject
	TextMenu "Print"
		Definition
			AttachTo MENU ,"Project..."
			Text "Print..."
			ShortCutKey "P"
		EndScript
		Occurred
			SaveDocument "Stock List","Ram:AMWAYData/PrintData/Stock.list"
			Dos "C:Copy Ram:AMWAYData/PrintData/Stock.list PRT:"
		EndScript
	EndObject
	TextMenu "Quit"
		Definition
			AttachTo MENU ,"Project..."
			Text "Quit..."
			ShortCutKey "Q"
		EndScript
		Occurred
			Do "Quit"
		EndScript
	EndObject
	TextField ".VS"
		Definition
			InitialText ""
			Origin 9,73
			Size 88,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			MaxFieldLength 11
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnClick
			Let CurrField=1
		EndScript
		OnRelease
			Let VS=TextFrom(".VS")
			Do "Set Field",3
		EndScript
	EndObject
	IntegerField ".Qty"
		Definition
			Limits 1,99
			InitialInteger 1
			Origin 103,73
			Size 24,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			Justification RIGHT 
			MaxFieldLength 2
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnRelease
			Do "Get VS"
			Let Qty=IntegerFrom(".Qty")
			Let PV=FormatValue(Qty*StockDataBase[StockIndex].PV,"###0.00")
			Let BV=FormatValue(Qty*StockDataBase[StockIndex].BV,"###0.00")
			Let Dist=FormatValue(Qty*StockDataBase[StockIndex].Dist,"###0.00")
			Let Cust=FormatValue(Qty*StockDataBase[StockIndex].Cust,"###0.00")
			SetText ".PV",PV
			SetText ".BV",BV
			SetText ".Dist",Dist
			SetText ".Cust",Cust
			Do "Set Field",3
		EndScript
		OnClick
			Let CurrField=2
		EndScript
	EndObject
	TextField ".Des"
		Definition
			InitialText ""
			Origin 133,73
			Size 160,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			MaxFieldLength 20
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnRelease
			Let Des=TextFrom(".Des")
			Do "Set Field",4
		EndScript
		OnClick
			Let CurrField=3
		EndScript
	EndObject
	TextField ".Tax"
		Definition
			InitialText ""
			Origin 299,73
			Size 24,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			MaxFieldLength 4
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnClick
			Let CurrField=6
		EndScript
		OnRelease
			Do "Set Field",5
		EndScript
	EndObject
	TextField ".Cust"
		Definition
			InitialText ""
			Origin 369,73
			Size 64,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			Justification RIGHT 
			MaxFieldLength 7
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnClick
			Let CurrField=5
		EndScript
		OnRelease
			Do "Format Fields","Cust",Cust
			Let Entry=GetDBObjects
			If Entry<>OrderDataBase[OrderIndex]
				Let SearchText=TextFrom(".VS")
				Let SearchField="VS"
				DoObjectScript "Enter Button",ONRELEASE 
				Do "Search Next"
			EndIf
			Do "Set Field",6
		EndScript
	EndObject
	AreaButton "Info BarA"
		Definition
			Origin 7,20
			Image "AMWAYDeck:AMWAY.br/BarA.br"
			Highlight NONE 
		EndScript
	EndObject
	AreaButton "Info BarB"
		Definition
			Origin 127,20
			Image "AMWAYDeck:AMWAY.br/BarB.br"
			Highlight NONE 
		EndScript
	EndObject
	AreaButton "New Button"
		Definition
			Origin 7,37
			Image "AMWAYDeck:AMWAY.br/New.b0"
			AltImage "AMWAYDeck:AMWAY.br/New.b1"
		EndScript
		OnRelease
			SetDBObjects Nothing
			WorkWithDocument "Cust List"
			Clear DOCUMENT 
			Dispose CustDataBase
			Let CustDataBase[CustIndex]=GetDBObjects
			Do "Load DataFile"
			Do "Get Entry",1
			Do "Set Field",1
		EndScript
	EndObject
	AreaButton "Previous Button"
		Definition
			Origin 45,37
			Image "AMWAYDeck:AMWAY.br/Prev.b0"
			AltImage "AMWAYDeck:AMWAY.br/Prev.b1"
		EndScript
		OnRelease
			Let Entry=GetDBObjects
			If Entry<>CustDataBase[CustIndex]
				DoObjectScript "Enter Button",ONRELEASE 
			EndIf
			Let CustIndex=PreviousArrayIndex(CustDataBase,CustIndex)
			If Not SearchFound
				Let CustIndex=LastArrayIndex(CustDataBase)
			EndIf
			Do "Get Entry",CustIndex
		EndScript
	EndObject
	AreaButton "Next Button"
		Definition
			Origin 152,37
			Image "AMWAYDeck:AMWAY.br/Next.b0"
			AltImage "AMWAYDeck:AMWAY.br/Next.b1"
		EndScript
		OnRelease
			Let Entry=GetDBObjects
			If Entry<>CustDataBase[CustIndex]
				DoObjectScript "Enter Button",ONRELEASE 
			EndIf
			Let CustIndex=NextArrayIndex(CustDataBase,CustIndex)
			If Not SearchFound
				Let CustIndex=FirstArrayIndex(CustDataBase)
			EndIf
			Do "Get Entry",CustIndex
		EndScript
	EndObject
	AreaButton "Load Button"
		Definition
			Origin 227,37
			Image "AMWAYDeck:AMWAY.br/Load.b0"
			AltImage "AMWAYDeck:AMWAY.br/Load.b1"
		EndScript
		OnRelease
			SetFileRequestMode REGULARMODE ,REJECTICONS PATTERNFIELD 
			SetFileRequestPattern "#?.Data"
			Let FileName=AskForFileName(DefCustDir||"/.Data","Select File To Load...")
			If FileOf(FileName)<>""
				Let CustDataBase=LoadVariable(FileName)
				Do "Load DataFile"
				SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			Else
				Let CustIndex=1
				Let CustDataBase[CustIndex]=GetDBObjects
				Do "Load DataFile"
				SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			EndIf
			Do "Get Date"
			Do "Get Entry",1
			Do "Set Field",1
		EndScript
	EndObject
	AreaButton "Save Button"
		Definition
			Origin 297,37
			Image "AMWAYDeck:AMWAY.br/Save.b0"
			AltImage "AMWAYDeck:AMWAY.br/Save.b1"
		EndScript
		OnRelease
			Let CustDataBase[CustIndex]=GetDBObjects
			SortArray CustDataBase,INTEGER ,".VS"
			SaveVariable CustDataBase,DefCustDir||"/Cust.Data"
			SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			If DefDate="MDY"
				SaveVariable CustDataBase,DefCustDir||"/Cust-["||Month||"-"||Day||"-"||Year||"].Data"
				SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust-["||Month||"-"||Day||"-"||Year||"].Data"
			Else
				SaveVariable CustDataBase,DefCustDir||"/Cust-["||Day||"-"||Month||"-"||Year||"].Data"
				SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust-["||Day||"-"||Month||"-"||Year||"].Data"
			EndIf
			Let CustName.Name=TextFrom("Name")
			Let CustName.OrdDate=TextFrom("OrdDate")
			Let CustName.DelDate=TextFrom("DelDate")
			Let CustName.DDay=Day
			Let CustName.DMonth=Month
			Let CustName.DYear=Year
			Let CustName.ODay=ODay
			Let CustName.OMonth=OMonth
			Let CustName.OYear=OYear
			SaveVariable CustName,"Ram:AMWAYData/CustData/CustName.Data"
			SaveVariable CustName,"Ram:AMWAYData/CustData/"||CustName.Name||".Data"
			SaveVariable CustName,DefCustDir||"/CustName.Data"
			SaveVariable CustName,DefCustDir||"/"||CustName.Name||".Data"
		EndScript
	EndObject
	AreaButton "Delete Button"
		Definition
			Origin 367,37
			Image "AMWAYDeck:AMWAY.br/Del.b0"
			AltImage "AMWAYDeck:AMWAY.br/Del.b1"
		EndScript
		OnRelease
			WorkWithDocument "Cust List"
			If LinesInDocument=>1
				Do "Delete Entry",TheLineNumber
				Do "Get Entry",TheLineNumber
			EndIf
			Let CustDataBase[CustIndex]=GetDBObjects
			Do "Set Field",1
		EndScript
	EndObject
	AreaButton "Ordering Button"
		Definition
			Origin 295,319
			Image "AMWAYDeck:AMWAY.br/Ord.b0"
			AltImage "AMWAYDeck:AMWAY.br/Ord.b1"
		EndScript
		OnRelease
			Let CustDataBase[CustIndex]=GetDBObjects
			SaveVariable CustDataBase,"Ram:AMWAYData/CustData/Cust.Data"
			GotoCard "Ordering Card"
		EndScript
	EndObject
	AreaButton "Enter Button"
		Definition
			Origin 0,0
			Highlight NONE 
			Size 1,1
		EndScript
		OnRelease
			WorkWithDocument "Cust List"
			Let L=TheLineNumber
			Do "Store Entry"
			Do "Get Entry",L
			Do "Set Field",CurrField
		EndScript
	EndObject
	AreaButton "Print Button"
		Definition
			Origin 437,37
			Image "AMWAYDeck:AMWAY.br/Prt.b0"
			AltImage "AMWAYDeck:AMWAY.br/Prt.b1"
		EndScript
		OnRelease
			If T="Yes"
				Do "PrintTax"
			Else
				Do "Get Date"
				Let Name=TextFrom("Name")
				Let DelDate=TextFrom("DelDate")
				Let Orddate=TextFrom("OrdDate")
				WorkWithDocument "Ram:AMWAYData/CustData/Cust.Doc"
				Clear DOCUMENT 
				Type "           Customer Receipt",NEWLINE 
				Type "ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ",NEWLINE 
				Type "Distributor Name:",NEWLINE 
				Type DistDataBase.Name,NEWLINE 
				NewLine
				Type "VS      Qty    Description             Cost"
				MoveCursorTo ENDOF DOCUMENT 
				NewLine
				Type "ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ",NEWLINE 
				InsertDocument "Cust List"
				MoveCursorTo ENDOF DOCUMENT 
				NewLine
				Type "ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ",NEWLINE 
				Type "  Total Qty                      Total Cost",NEWLINE 
				Type "        "
				Type CenterString(TotalQty,3)
				Type "                        "
				Type RightJustify(FormatValue(TotalCust,DefNote||"###0.00"),7)
				NewLine
				NewLine
				Type "Customers Name:      Date of Order "||OrdDate,NEWLINE 
				Type Name,NEWLINE 
				NewLine
				Type "                     Delivery Date "||DelDate,NEWLINE 
			EndIf
			SaveDocument "Ram:AMWAYData/CustData/Cust.Doc"
			SaveDocument "Ram:AMWAYData/CustData/Cust.Doc","Ram:AMWAYData/PrintData/CustPrint.Doc"
			Dos "C:Rename Ram:AMWAYData/CustData/Cust.Doc Ram:AMWAYData/CustData/CustOrder-"||Order||"-["||OrdDate||"].Doc"
			Dos "C:Delete Ram:AMWAYData/CustData/Cust.Doc"
			Dos "C:Copy Ram:AMWAYData/CustData "||DefCustDir||"/ All"
			Dos "C:Copy Ram:AMWAYData/PrintData/CustPrint.Doc Prt:"
		EndScript
	EndObject
	AreaButton "VS Button"
		Definition
			Origin 7,55
			Image "AMWAYDeck:AMWAY.br/VS.b0"
			AltImage "AMWAYDeck:AMWAY.br/VS.b1"
		EndScript
		OnRelease
			SetText ".VS",""
			SetObjectState ".VS",On
		EndScript
	EndObject
	AreaButton "Search Button"
		Definition
			Origin 44,55
			Image "AMWAYDeck:AMWAY.br/Ser.b0"
			AltImage "AMWAYDeck:AMWAY.br/Ser.b1"
		EndScript
		OnRelease
			OpenWindow "AMWAYSubDeck","List Stock","Do Search",SearchText,SearchField
		EndScript
	EndObject
	AreaButton "Qty + Button"
		Definition
			Origin 100,55
			Image "AMWAYDeck:AMWAY.br/+.b0"
			AltImage "AMWAYDeck:AMWAY.br/+.b1"
		EndScript
		OnRelease
			Do "Get VS"
			Do "Tax"
			Do "Tax Amounts"
			Let OrderDataBase[OrderIndex]=GetDBObjects
			Let SearchText=TextFrom(".VS")
			Let SearchField="VS"
			Do "Search Next"
			DoObjectScript "Enter Button",ONRELEASE 
			Do "Search Next"
			Do "Set Field",2
		EndScript
		OnClick
			Do "Get VS"
			While ObjectState("Qty + Button")
				Let Qty=IntegerFrom(".Qty")
				Let Qty=Qty+1
				If Qty>99
					Let Qty=1
				EndIf
				Let PV=FormatValue(Qty*StockDataBase[StockIndex].PV,"###0.00")
				Let BV=FormatValue(Qty*StockDataBase[StockIndex].BV,"###0.00")
				Let Dist=FormatValue(Qty*StockDataBase[StockIndex].Dist,"###0.00")
				Let Cust=FormatValue(Qty*StockDataBase[StockIndex].Cust,"###0.00")
				Delay 0,0,10
				SetInteger ".Qty",Qty
				SetText ".PV",PV
				SetText ".BV",BV
				SetText ".Dist",Dist
				SetText ".Cust",Cust
			EndLoop
		EndScript
	EndObject
	AreaButton "Qty - Button"
		Definition
			Origin 115,55
			Image "AMWAYDeck:AMWAY.br/-.b0"
			AltImage "AMWAYDeck:AMWAY.br/-.b1"
		EndScript
		OnRelease
			DoObjectScript "Qty + Button",ONRELEASE 
		EndScript
		OnClick
			Do "Get VS"
			While ObjectState("Qty - Button")
				Let Qty=IntegerFrom(".Qty")
				Let Qty=Qty-1
				If Qty=0
					Let Qty=99
				EndIf
				Let PV=FormatValue(Qty*StockDataBase[StockIndex].PV,"###0.00")
				Let BV=FormatValue(Qty*StockDataBase[StockIndex].BV,"###0.00")
				Let Dist=FormatValue(Qty*StockDataBase[StockIndex].Dist,"###0.00")
				Let Cust=FormatValue(Qty*StockDataBase[StockIndex].Cust,"###0.00")
				Delay 0,0,10
				SetInteger ".Qty",Qty
				SetText ".PV",PV
				SetText ".BV",BV
				SetText ".Dist",Dist
				SetText ".Cust",Cust
			EndLoop
		EndScript
	EndObject
	AreaButton "Des Button"
		Definition
			Origin 131,55
			Image "AMWAYDeck:AMWAY.br/Des.b0"
			AltImage "AMWAYDeck:AMWAY.br/Des.b1"
		EndScript
		OnRelease
			SetText ".Des",""
			Do "Set Field",3
		EndScript
	EndObject
	AreaButton "Tax Button"
		Definition
			Origin 297,55
			Image "AMWAYDeck:AMWAY.br/Tax.b0"
			AltImage "AMWAYDeck:AMWAY.br/Tax.b1"
		EndScript
		OnRelease
			OpenWindow "AMWAYSubDeck","Tax Card","Set Tax Field",SearchText,SearchField
		EndScript
	EndObject
	AreaButton "Cust + Button"
		Definition
			Origin 367,55
			Image "AMWAYDeck:AMWAY.br/+.b0"
			AltImage "AMWAYDeck:AMWAY.br/+.b1"
		EndScript
		OnClick
			Do "Format $","Cust + Button",Max(99999),Cust,"Cust","+",">",0
		EndScript
		OnRelease
			Do "Set Field",8
		EndScript
	EndObject
	AreaButton "Cust Button"
		Definition
			Origin 381,55
			Image "AMWAYDeck:AMWAY.br/Cost.b0"
			AltImage "AMWAYDeck:AMWAY.br/Cost.b1"
		EndScript
		OnRelease
			SetText ".Cust",""
			Do "Set Field",8
		EndScript
	EndObject
	AreaButton "Cust - Button"
		Definition
			Origin 420,55
			Image "AMWAYDeck:AMWAY.br/-.b0"
			AltImage "AMWAYDeck:AMWAY.br/-.b1"
		EndScript
		OnClick
			Do "Format $","Cust - Button",Min(0),Cust,"Cust","-","<",99999
		EndScript
		OnRelease
			Do "Set Field",8
		EndScript
	EndObject
	TextField "Name"
		Definition
			InitialText ""
			Origin 9,339
			Size 208,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			MaxFieldLength 25
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnClick
			Let CurrField=5
		EndScript
		OnRelease
			Let Name=TextFrom("Name")
			Do "Set Field",7
		EndScript
	EndObject
	TextField "OrdDate"
		Definition
			InitialText ""
			Origin 266,339
			Size 64,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			MaxFieldLength 12
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnClick
			Let CurrField=7
		EndScript
		OnRelease
			Let OrdDate=TextFrom("OrdDate")
			Do "Set Field",8
			
		EndScript
	EndObject
	TextField "DelDate"
		Definition
			InitialText ""
			Origin 397,339
			Size 64,12
			Border BEVEL ,4,2 ; BorderStyle, MainPen, ExtraPen
			MaxFieldLength 12
			Font "topaz",8 ; FontName, PointSize
			TextColors 1,5 ; PenA, PenB, DrawMode
			AltTextColors 1,5
		EndScript
		OnClick
			Let CurrField=8
		EndScript
		OnRelease
			Let DelDate=TextFrom("DelDate")
			Do "Set Field",1
		EndScript
	EndObject
	AreaButton "Name Button"
		Definition
			Origin 7,319
			Image "AMWAYDeck:AMWAY.br/Name.b0"
			AltImage "AMWAYDeck:AMWAY.br/Name.b1"
		EndScript
		OnRelease
			SetText ".Name",""
			Do "Display Number"
		EndScript
	EndObject
* End of Card "Customer Card"
*************