Teruggave van Keller (business logic) BL.Derde.KlantSpecifiek 1 %RegisteredObject 0 %Numeric

key : LijnNr

inhoud: $Lb(LadeRef,PRNr,Aantal,Ritnr,Oorzaak,VoorraadStatus,CreditStatus)

]]> %String 1 Minimale verkoopfrequentie 1 KLNr:%Numeric invoegen van de excelijst in een array %Status Controleert of een cel uit een excellijst een titel bevat van een bepaalde kolom KolomTitel,VeldNaam 1 %Boolean KolomTitel,VeldNaam 1 %Integer Zet een LadeRef om in een productnummer LadeRef:%String 1 %Numeric Berekent de voorraadstatus Aanmaak van een creditnota+update van de stock 0 %String basis voor de kredietnota . If "\B\F\C"[("\"_StatusCredit_"\") Do . . Set VNR=VNR+1 . . Set CreditNota(VNR)=PRNr_"\-"_Aantal . . Set $Piece(CreditNota(VNR),"\",5)=0 . ;stock aanpassen van één product . If StatusVoorraad="V" Do . . Do STORE^PRSTOCK("W","O",PRNr,Aantal,"Teruggave van klant") . Else If StatusVoorraad="F" Do . . Do STORE^PRSTOCK("W","O",PRNr,Aantal,"Teruggave klant: foutieve lade") If +VNR Do . Do BUILDOBJ^FLOWORD3(..KLNr,,"Orderreferentie",.CreditNota,,1,,"OrderNummer") ;aanmaken van de kredietnota . Set x=$o(OrderNummer("")) . Set CreditNR=$p(OrderNummer(x),"\",2) . Set Resultaat="Creditnota "_CreditNR_" is aangemaakt`" . If VNR=1 Do . . Set Resultaat=Resultaat_"1 productlijn" . Else Set Resultaat=Resultaat_VNR_" productlijnen" Else Set Resultaat="" Quit Resultaat ;Resultaat bevat een tekst met het nummer van de creditnota en het aantal lijnen ]]> Opslaan van de excellijst in de historiek Lijn %List LijnNr:%Integer LijnNr:%Integer %List Lijn:%List,LijnNr:%Integer %Status Vult de voorraadstatus in LijnNr,Status Vult de creditstatus in LijnNr,Status