Scribd
Hochladen
6 Ansichten2 Seiten

Final Code

Das Dokument beschreibt ein Skript zur Überprüfung von Retourenaufträgen und deren Positionen. Bei Abweichungen zwischen tatsächlicher und erwarteter Menge werden Benachrichtigungen erstellt. Zudem können Aufträge unter bestimmten Bedingungen gelöscht werden.

Hochgeladen von

VIKAS ANNEBOYINA
Copyright
© All Rights Reserved
Wir nehmen die Rechte an Inhalten ernst. Wenn Sie vermuten, dass dies Ihr Inhalt ist, beanspruchen Sie ihn hier.
Verfügbare Formate
Als TXT, PDF, TXT herunterladen oder online auf Scribd lesen
6 Ansichten2 Seiten

Final Code

Das Dokument beschreibt ein Skript zur Überprüfung von Retourenaufträgen und deren Positionen. Bei Abweichungen zwischen tatsächlicher und erwarteter Menge werden Benachrichtigungen erstellt. Zudem können Aufträge unter bestimmten Bedingungen gelöscht werden.

Hochgeladen von

VIKAS ANNEBOYINA
Copyright
© All Rights Reserved
Wir nehmen die Rechte an Inhalten ernst. Wenn Sie vermuten, dass dies Ihr Inhalt ist, beanspruchen Sie ihn hier.
Verfügbare Formate
Als TXT, PDF, TXT herunterladen oder online auf Scribd lesen

###################################################################################

###########################
#Author : GIT-Team
#Date : 06/11/2019
#Description : Send mail to Customer Care regarding do not delete customer number
and delete customer number
###################################################################################
###########################
Gosub EXEC
Return
###################################################################################
###########################
$ACTION
CASE ACTION
When "EXEC" : Gosub EXEC
WHEN DEFAULT
Endcase
RETURN
###################################################################################
###########################
$EXEC
If !clalev([F:YSRD]) : LOCAL FILE SRETURND[F:YSRD] : ENDIF
If !clalev([F:YSRH]) : LOCAL FILE SRETURN [F:YSRH] : ENDIF
If !clalev([F:A_OB]) : Local File AOBJET [F:A_OB] : Endif
Local Integer TYPEVT : TYPEVT = 5
Local Char CODEVT : CODEVT = ""
Local Char OPERAT : OPERAT = ""
Local Char CLEOBJ : CLEOBJ = "YCUSRET"
Local Integer YFLAG,YFLAG1,OKANU,YQT
Global Clbfile GYL(3),GYNUM(3),GQTY(3),GQTY1(3)
local Clbfile YQTY(3),YQTY1(3),YQTY2(3),YQTY3(3)
Local Char CLE1(30),CLE2(30) # Intitialize variables

Filter [F:YSRH] Where [F:YSRH]EXTRTNDAT = date$


For [F:YSRH]
RAZ YFLAG,YFLAG1,GYL,GYNUM,YQTY,GQTY,YQTY1

Filter [F:YSRD] Where [F:YSRD]SRHNUM = [F:YSRH]SRHNUM


For [F:YSRD]
If [F:YSRD]EXTQTY <> [F:YSRD]QTY and [F:YSRD]QTY <> 0
YQTY += ADXIRS+mess(005,6102,1)+[F:YSRD]ITMREF+mess(006,6102,1)+NUM$
([F:YSRD]EXTQTY)+mess(007,6102,1)+NUM$([F:YSRD]QTY)+" "+[F:YSRD]SAU
YFLAG = 1
Elsif [F:YSRD]QTY = 0
YQTY1 += ADXIRS+mess(005,6102,1)+[F:YSRD]ITMREF+mess(006,6102,1)+NUM$
([F:YSRD]EXTQTY)+mess(007,6102,1)+NUM$([F:YSRD]QTY)+" "+[F:YSRD]SAU
YFLAG1 += 1
Endif
Next
IF YFLAG = 1
GYNUM = mess(003,6102,1)+[F:YSRH]SRHNUM
GYL = mess(001,6102,1)+[F:YSRH]SRHNUM
GQTY = YQTY
Call WORKFLOW(TYPEVT,CODEVT,OPERAT,CLEOBJ) From AWRK
Elsif YFLAG1 <> 0 and YFLAG = 0
GYNUM = mess(003,6102,1)+[F:YSRH]SRHNUM+mess(004,6102,1)
GYL = mess(002,6102,1)+[F:YSRH]SRHNUM
GQTY = YQTY1
Call WORKFLOW(TYPEVT,CODEVT,OPERAT,CLEOBJ) From AWRK
# Call SUPPRIME("SRH",[F:YSRH]SRHNUM,"",OKANU) From ADELETE
Endif
Next
Return
###################################################################################
###########################

Das könnte Ihnen auch gefallen