Add or modify

Save sample Sage code

---

Name

Description

Views

Content

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); }

---

Add/Update

---