import AEP_INVOICE_PDF:*; Local AEP_INVOICE_PDF:AEP_INVOICE_PDF &my_rpt; Local Record &Rec; Local number &i; Local string &InstanceArgList, &RptAetRecName, &RptDatRecName, &InitArgList, &AbsFolder; Local string &sql_str; &sql_str = "Select PRCSOUTPUTDIR from PS_CDM_LIST where PRCSINSTANCE = :1"; SQLExec(&sql_str, AEP_RC_AET.PROCESSINSTANCE, &AbsFolder); If All(&AbsFolder) Then &AbsFolder = &AbsFolder | Left(&AbsFolder, 1) End-If; &InstanceArgList = "abspath=" | &AbsFolder; rem &InstanceArgList = &InstanceArgList | ",pi=" | AEP_RC_AET.PROCESSINSTANCE; &my_rpt = create AEP_INVOICE_PDF:AEP_INVOICE_PDF(&InstanceArgList); rem build argument list; &RptAetRecName = "AEP_INVOICE_PDF"; &RptDatRecName = &RptAetRecName; &InitArgList = "rpt_aet_rec=" | &RptAetRecName | ","; &InitArgList = &InitArgList | "rpt_dat_rec=" | &RptDatRecName | ","; If &my_rpt.InitReport(&InitArgList) = True Then &Rec = CreateRecord(Record.AEP_INVOICE_PDF); For &i = 1 To 5 &Rec.GetField(Field.AEP_KEY_DETAIL).Value = "INV-000" | &i; &my_rpt.SubmitData(&Rec, &Rec.GetField(Field.AEP_KEY_DETAIL).Value); End-For; &my_rpt.FinalizeReport("", &Rec); End-If; &my_rpt.ToLog("", "End");