Zoey Mattison

Hi everyone, is there a recurring task or function to automatically submit credit card processings? By submit I mean clicking submit in this screen SEAUTH, which is too time intensive if we have over 1000 to do. Thanks, Zoey

You mentioned validating the table, but did you add the new fields to the table? Best, Zoey

Hi @Gonzalez, Bruno! Thanks for all of your input. I really appreciate the instruction about formatting. I just have a few questions: What is the importance of adding the Filter [CLASS] at the end of the block requiring the filter? (Ie. Filter [F:ZPI] & Filter [F:ZGA] as you mentioned on line 24 and 27?) What are classes [V], [S], and [L]? I've never come across that before. Based on that note you wrote about always including them, our own consultant randomly doesn't in their code, so lately I have been writing everything like that without declaring the class (except for masks) when everything is contained within the file. Should I add the F to all of these below? Would the processing time decrease? Here is an example of a program I wrote for a recurring task that looks for documents in PAYMENTH with a NUM field pattern like PAYET* and which as posted, and sends a custom crystal report I made (ZPAYET) to their email address stored in ZPAYET_EMAIL via a workflow where one of the conditions is that ZID = 'INTEGRATION' to make doubly sure it cannot be executed manually via the report screen accidentally . The PAYET number is then stored in a custom database table called ZDOCDATA which acts as as a filter for the program to know whether or not a PAYET document has already been sent to the customer (!find(NUM, ZMAILED)). Our server does not have eclipse debugging enabled, so while I've tried to set it up before, it never works. I use VS code with the Sage X3 plugin instead. I'll update everything in here with the formatting you mentioned, but would like some clarification about the inclusion of classes ([F], etc.) and the adding a filter with no where clause at the end. I am not trained or anything, just learning via example and online help so anything you can provide with regards to making the code better which as much detail as possible would be highly appreciated! I redacted some information below for privacy reasons. Thanks! If !Clalev([ZDD]) : Local File ZDOCDATA[ZDD] : Endif If !Clalev([ZPY]) : Local File PAYMENTH[ZPY] : Endif Global Clbfile ZPAYET_EMAIL Global Char ZID ZID = 'INTEGRATION' Local Char TBPAR_BP(15)(1..50),TBVAL_BP(30)(1..50) TBPAR_BP(1) = "regdeb" Local Char ZMAILED(50)(1..) Local Integer ZI ZI = 1 Filter [ZDD] Where ZTYPE = 'PAYET' and ZNAME = 'MAILING' And CREDAT >= date$-100 For [ZDD] ZMAILED(ZI) = [ZDD]ZNUM ZI = ZI+1 Next Filter [ZPY] Where pat(NUM, 'PAYET*') and !find(NUM, ZMAILED) and STA = 9 and CREDAT >= date$-90 For [ZPY] ZPAYET_EMAIL = func AFNC.INTFLD('BPSUPPLIER','YACHWEB',[ZPY]BPR) if ZPAYET_EMAIL = '' : ZPAYET_EMAIL = '[email protected]' : Endif TBVAL_BP(1) = [ZPY]NUM [ZDD]ZNUM = [ZPY]NUM [ZDD]ZTYPE = 'PAYET' [ZDD]ZNAME = 'MAILING' [ZDD]CREDAT = [ZPY]CREDAT Write [ZDD] Call ETAT("ZPAYET","EMAILX3","",0,"",TBPAR_BP,TBVAL_BP) From AIMP3 Next Raz ZPAYET_EMAIL, ZID, TBPAR_BP, TBVAL_BP, ZMAILED, ZI Close Local File [ZDD], [ZPY] End

I've re-written some of the calls to use GACCENTRYD and accounted for InfoPOS documents mostly not using PAY1 mask (error: NBLIG non existente) If !Clalev([ZPI]) : Local File PINVOICED[ZPI] : Endif If !Clalev([ZGA]) : Local File GACCENTRYD[ZGA] : Endif If !pat([M:PAY0]NUM, 'IP*') For i = 0 to [M:PAY1]NBLIG-1 If (!pat([M:PAY1]VCRNUM(i), 'ORD*') & !pat([M:PAY1]VCRNUM(i), 'BTS*') & !pat([M:PAY1]VCRNUM(i), 'WEB*')) Filter [ZGA] Where TYP = [M:PAY1]VCRTYP(i) & NUM = [M:PAY1]VCRNUM(i) Read [ZGA] First If fstat = 0 If [ZGA]BPR <> 'V5555' [M:PAY1]ZOKYAKU(i) = [ZGA]BPR + ' - ' + func AFNC.INTFLD('BPARTNER','BPRNAM',[ZGA]BPR) Affzo [M:PAY1]ZOKYAKU(i) Else Filter [ZPI] Where NUM = [M:PAY1]VCRNUM(i) & NUMORI <> '' Read [ZPI] first If fstat = 0 [M:PAY1]ZOKYAKU(i) = func AFNC.INTFLD('PRECEIPT','BPSNUM',[ZPI]NUMORI)+' - '+func AFNC.INTFLD('BPARTNER','BPRNAM',func AFNC.INTFLD('PRECEIPT','BPSNUM',[ZPI]NUMORI)) Affzo [M:PAY1]ZOKYAKU(i) Endif Endif Endif Else [M:PAY1]ZOKYAKU(i) = func AFNC.INTFLD('SORDER','BPCINV',[M:PAY1]VCRNUM(i)+'~')+' - '+func AFNC.INTFLD('SORDER','BPINAM',[M:PAY1]VCRNUM(i)+'~') Affzo [M:PAY1]ZOKYAKU(i) Endif Next Endif

Hi everyone, I've written some rather cursed code and was wondering if anyone could help me improve or just beautify how it looks. I am not really privy to that side of sage's programming language and previous attempt result in syntax error so I am seeking any assistance you can give. As it is now, the below code functions flawlessly and does not seem to impact load times of GESPAY documents. This code I've written pulls some extraneous data from certain tables, and places it into a custom field in the GESPAY function screen PAY1 array. There are 3 conditions it checks in order to run, and when I tried to convert it to a case, it doesn't like when I use the pat() function (incorrect data type), so I've gone with three separate if functions here. The code snipped is called via STYLE when a document is opened. $ZOKYAKU If !Clalev([ZPI]) : Local File PINVOICED[ZPI] : Endif For i = 0 to [M:PAY1]NBLIG-1 If (pat([M:PAY1]VCRNUM(i), 'ORD*') | pat([M:PAY1]VCRNUM(i), 'BTS*') | pat([M:PAY1]VCRNUM(i), 'WEB*')) [M:PAY1]ZOKYAKU(i) = func AFNC.INTFLD('SORDER','BPCINV',[M:PAY1]VCRNUM(i)+'~')+' - '+func AFNC.INTFLD('SORDER','BPINAM',[M:PAY1]VCRNUM(i)+'~') Endif If (pat([M:PAY1]VCRNUM(i), 'PIN*') | pat([M:PAY1]VCRNUM(i), 'PCM*')) Filter [ZPI] Where NUM = [M:PAY1]VCRNUM(i) Read [ZPI] first [M:PAY1]ZOKYAKU(i) = func AFNC.INTFLD('BPSUPPLIER','BPSGRU',func AFNC.INTFLD('PRECEIPT','BPSNUM',[ZPI]NUMORI))+' - '+func AFNC.INTFLD('BPSUPPLIER','BPSNAM',func AFNC.INTFLD('PRECEIPT','BPSNUM',[ZPI]NUMORI)) Endif If (pat([M:PAY1]VCRNUM(i), 'DIR*') | pat([M:PAY1]VCRNUM(i), 'INV*') | pat([M:PAY1]VCRNUM(i), 'INT*') | pat([M:PAY1]VCRNUM(i), 'SCM*')) [M:PAY1]ZOKYAKU(i) = func AFNC.INTFLD('SINVOICE','BPR',[M:PAY1]VCRNUM(i)+'~')+' - '+func AFNC.INTFLD('SINVOICE','BPRNAM',[M:PAY1]VCRNUM(i)+'~') Endif Affzo [M:PAY1]ZOKYAKU(i) Next Return Thanks, and have a great day Zoey