Back

pjc revise

PMCHNGH, PMCHNGD, PMREVDO, PMCHNGH, PMCHNGD, PMCHNGD, PMCHNGH, PMREVDO, PMREVDO, PMCHNGD, PMCHNGH, PMCHNGH, PMCHNGH, PMCHNGH, PMCHNGH, PMCHNGH, PMCHNGH, PMCHNGH, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGD, PMCHNGH, PMCHNGH

---

Sub(MainSub);
  //
  // Sage 300 Macro file: C:\sage300\Macros\test1.avb
  // Recorded at: Mon Nov 25 22:08:56 2024
  //
On(Error(GoTo(ACCPACErrorHandler)));
  // TODO: To increase efficiency, comment out any unused DB links.
using(HuAPConnection Connection = new HuAPConnection())
using(HuView PMCHNGH = Connection.GetView("PM0058"))
using(HuView PMCHNGD = Connection.GetView("PM0059"))
using(HuView PMREVDO = Connection.GetView("PM0550"))
{
	PMCHNGH.Compose(PMCHNGD);
	PMCHNGD.Compose(PMCHNGH,PMREVDO);
	PMREVDO.Compose(PMCHNGD);
	PMCHNGH.Order = 1;
	PMCHNGH.Init();
	PMCHNGH.Order = 0;
	PMCHNGH.Init();
	PMCHNGH.Order = 1;
	PMCHNGH["TRANSDATE"] = "";  // Transaction Date
	PMCHNGH["DESC"] = "desc";  // Description
	PMCHNGH["REFERENCE"] = "ref";  // Reference
	PMCHNGD.RecordClear();
	PMCHNGD.RecordCreate(0);
	PMCHNGD["FMTCONTNO"] = "ZZZZZ-AMEXTEST02";  // Job#
	PMCHNGD["PROJECT"] = "PREPROD";  // Phase
	PMCHNGD["CATEGORY"] = "WRITER";  // Category
	PMCHNGD["RQUANTITY"] = "2.00000";  // Quantity
	PMCHNGD["RUNITCOST"] = "2002.000000";  // Unit Cost
	PMCHNGD["RBILLRATE"] = "2602.000000";  // Billing Rate
	PMCHNGD.Insert();
	PMCHNGD["LINENO"] = "-1";  // Line Number
	PMCHNGD["LINENO"] = "-1";  // Line Number
	PMCHNGD.Read();
	PMCHNGD.RecordCreate(0);
	PMCHNGD["FMTCONTNO"] = "ZZZZZ-AMEXTEST02";  // Job#
	PMCHNGD["PROJECT"] = "POSTPRODUCTION";  // Phase
	PMCHNGD["CATEGORY"] = "TAPESTOCKHD6";  // Category
	PMCHNGD["RUNITCOST"] = "22.000000";  // Unit Cost
	PMCHNGD["RBILLRATE"] = "42.000000";  // Billing Rate
	PMCHNGD["RQUANTITY"] = "2.00000";  // Quantity
	PMCHNGD.Insert();
	PMCHNGD["LINENO"] = "-2";  // Line Number
	PMCHNGD["LINENO"] = "-2";  // Line Number
	PMCHNGD.Read();
	PMCHNGD.RecordCreate(0);
	PMCHNGD["LINENO"] = "-2";  // Line Number
	PMCHNGD["LINENO"] = "-2";  // Line Number
	PMCHNGD.Read();
	PMCHNGH.Insert();
	PMCHNGH.Update();
	Exit(Sub);
	ACCPACErrorHandler:;
	Long lCount;;
	Long lIndex;;
	If(Errors(Is(Nothing(Then))));
	MsgBox(Err.Description);
	Else;
	lCount = Errors.Count;
	If(lCount) = 0(Then);
	MsgBox(Err.Description);
	Else;
	For(lIndex) = 0(To(lCount(-(1))));
	MsgBox(Errors.Item(lIndex));
	Next;
	Errors.Clear;
	End(If);
	Resume(Next);
	End(If);
	End(Sub);
}

---