Index: WV GAProduct Flow.prj.xml =================================================================== diff -u -r1386 -r1695 --- WV GAProduct Flow.prj.xml (.../WV GAProduct Flow.prj.xml) (revision 1386) +++ WV GAProduct Flow.prj.xml (.../WV GAProduct Flow.prj.xml) (revision 1695) @@ -1,6 +1,6 @@ - + @@ -25,7 +25,9 @@ + + Index: BL/Flow/Offerte/Offerte.cls.xml =================================================================== diff -u -r1368 -r1695 --- BL/Flow/Offerte/Offerte.cls.xml (.../Offerte.cls.xml) (revision 1368) +++ BL/Flow/Offerte/Offerte.cls.xml (.../Offerte.cls.xml) (revision 1695) @@ -174,6 +174,8 @@ . . . . . . Set FormOnzePrijs=$S(FormOnzePrijs:$$EXTNUM^vhDTyp(FormOnzePrijs,0,".T",2)_$P(R,D,2)_$S($P(R,D,3)="H":"%",1:" "),1:"") . . . . . . Set Offerte("L",GroepKey)=Offerte("L",GroepKey)_D_FormVerwPrijs_D_FormOnzePrijs_D_$P(R,D,1,3) . . . . . Set $P(Offerte("L",GroepKey),"\",20)=EDILijnRef + . . . . . Set $P(Offerte("L",GroepKey,"Default"),"\",35)=$TR(oLijn.KlantOrderlijnNummer,".",":")_".00" ; Added by WimV on 14/07/2011 + . . . . . Set $P(Offerte("L",GroepKey,"Default"),"\",51)=oLijn.AantalEenheid ; Added by WimV on 14/07/2011 . . . . Else If oLijn.%ClassName()["LijnTekst" Do . . . . . Set Status=oLijn.Status,Tekst=oLijn.Tekst . . . . . Set Offerte("L",GroepKey)="T\"_Grp_";"_Ln_";"_Sub_";"_BO_D_Status_D_$$Strip(Tekst,D) @@ -197,7 +199,12 @@ . . . . Set $P(List(Count),D,5)=$P(List(Count),D,5)_", "_$P(Product,", "),Product=$P(Product,", ",2,999) . . . Set $P(List(Count),D,5)=$E($P(List(Count),D,5),3,99) Set Offerte("H")=OfferteNr_D_KLNr_D_Obj.Status_D_$$Strip(Obj.Referentie)_D_Obj.Datum_D_$$Strip(Obj.Afzender)_D_$$Strip(Obj.Geadresseerde)_D_$$Strip(Obj.CommReferentie) + Set $P(Offerte("H","Default"),"\",51)=oOfferte.EtiketKlantNaam ; Added by WimV on 14/07/2011 + Set $P(Offerte("H","Default"),"\",52)=oOfferte.EtiketWoonplaats ; Added by WimV on 14/07/2011 + ;d WLIP^vhDBG(97,"VerwerkOfferte : "_oOfferte_" Etiket: "_oOfferte.EtiketKlantNaam_" + "_oOfferte.EtiketWoonplaats) + d WLIP^vhDBG(97,"array Offerte :"_$$$ArrayTT("Offerte",.Offerte)) + /// Het verwerken van de offerte Do ##Class(CHUI.Flow.Offerte.Offerte).VerwerkOfferte(.Offerte,.List,Geforceerd) Do ..UnLock(OfferteNr) Index: Flow/Offerte/Hoofding.cls.xml =================================================================== diff -u -r1320 -r1695 --- Flow/Offerte/Hoofding.cls.xml (.../Hoofding.cls.xml) (revision 1320) +++ Flow/Offerte/Hoofding.cls.xml (.../Hoofding.cls.xml) (revision 1695) @@ -145,6 +145,20 @@ %Boolean + + +De naam van de klant zal op het etiket afgedrukt worden +Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden +%String + + + + +De city van de klant zal op het etiket afgedrukt worden +Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden +%String + + Res.Munt @@ -305,6 +319,12 @@ EmailOrderbevestiging + +EtiketKlantNaam + + +EtiketWoonplaats + 0.6648% Index: BL/Flow/Offerte/pxHoofding.cls.xml =================================================================== diff -u -r1074 -r1695 --- BL/Flow/Offerte/pxHoofding.cls.xml (.../pxHoofding.cls.xml) (revision 1074) +++ BL/Flow/Offerte/pxHoofding.cls.xml (.../pxHoofding.cls.xml) (revision 1695) @@ -4,6 +4,13 @@ %RegisteredObject,%XML.Adaptor 0 + +STRING +,0,1,runtime +1 +ENUM + + ORDER @@ -87,6 +94,22 @@ + + +De naam van de klant zal op het (Orgalux product-)etiket afgedrukt worden +Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden +%String + + + + + +De city van de klant zal op het (Orgalux product-)etiket afgedrukt worden +Specifiek voor SFS, maar kan ook voor andere klanten gebruikt worden +%String + + + d ##class(BL.Flow.Offerte.pxHoofding).Fill() Index: BL/PPS/OL/Inpak.cls.xml =================================================================== diff -u -r1074 -r1695 --- BL/PPS/OL/Inpak.cls.xml (.../Inpak.cls.xml) (revision 1074) +++ BL/PPS/OL/Inpak.cls.xml (.../Inpak.cls.xml) (revision 1695) @@ -5,7 +5,7 @@ Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie serial -%Prod.Product,BL.PPS.OL,BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy,%VHMacro +%Prod.Product,BL.PPS.OL,BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy,BL.Derde.KlantSpecifiek,vhLib.Macro 1 %SerialObject 0 @@ -921,6 +921,15 @@ Set pxLabel.Gemeente=$E($P(Adr,D,7),1,18) Set pxLabel.Taal=$P(^KKL(^KK1(KLNr),0),D,9) + // Added by WimV on 15/07/2011 + If KLNr=$$$KlantSFS { + ; Specifiek voor SFS, maar kan ook voor andere klanten gerbruikt worden + Set OverrideEtiketKlantNaam=$P($G(^KUL(KLNr,FakSoort,BONNr,1)),"\",51) + Set OverrideEtiketWoonplaats=$P($G(^KUL(KLNr,FakSoort,BONNr,1)),"\",52) + Set:($L(OverrideEtiketKlantNaam)) pxLabel.KlantNaam=OverrideEtiketKlantNaam + Set:($L(OverrideEtiketWoonplaats)) pxLabel.Gemeente=OverrideEtiketWoonplaats + } + Set BLNr=99 For Set BLNr=$O(^KUL(KLNr,FakSoort,BONNr,BLNr)) Quit:BLNr="" Do Quit:pxLabel.OrderNr'="" . Set R=^KUL(KLNr,FakSoort,BONNr,BLNr) Index: BL/Flow/Proxy/pxProductLijn.cls.xml =================================================================== diff -u -r1074 -r1695 --- BL/Flow/Proxy/pxProductLijn.cls.xml (.../pxProductLijn.cls.xml) (revision 1074) +++ BL/Flow/Proxy/pxProductLijn.cls.xml (.../pxProductLijn.cls.xml) (revision 1695) @@ -121,6 +121,20 @@ BL.FOP.Basis.pxTekstBlok + + +Specifiek voor EDI-bestellingen (als eerste gebruikt door SFS) +%String + + + + + +Specifiek voor SFS (via EDI-bestellingen) +%String + + + Returns pxProductLijn @@ -220,6 +234,7 @@ . Set ..SpecPrijs="" Quit:(blnManueelProd) + ; OTHER PROPERTIES, NOT FOR ManueelProd ! ;Do ..TekstArrayFromRec(Rec,.arTxt) ;Set ..TEKST=##class(BL.FOP.Basis.pxTekstBlok).CreateFromArray(.arTxt) @@ -264,6 +279,12 @@ . Set ..BestelImpuls=$P($G(^KPBI("D",KLNr,PRNr)),"\",1) . Set ..MinAfname=$$$Max(MinAfn,GrVerp) Do ..FillChargeTrace($P(Rec,"\",43),Taal) + + ; Uitbreidingen voor EDI (zie commentaar bij de resp. properties hierboven) - Added by WimV on 15/07/2011 + If Basis?1(1"O",1"L") Do + . Set ..KlantOrderlijnNummer=$P(Rec,"\",35) + . Set ..AantalEenheid=$P(Rec,"\",51) + Quit ]]> @@ -302,6 +323,7 @@ ;Set ..LEVERDATUM=oLijn.LeverDatum Quit:(blnManueelProd) + ; OTHER PROPERTIES, NOT FOR ManueelProd ! Kill arTxt Set arTxt=1 @@ -313,6 +335,12 @@ ;Set ..AFNAMECONTRACT=$P(Rec,"\",13) ;Set:(Basis?1(1"O",1"L")) ..STOCKUPDATE=($P(Rec,"\",14)["S")||($P(Rec,"\",14)["Z") ;Do ..FillChargeTrace($P(Rec,"\",43),Taal) + + ; Uitbreidingen voor EDI (zie commentaar bij de resp. properties hierboven) - Added by WimV on 15/07/2011 + If oLijn.%Extends("Flow.Offerte.LijnProduct") { + Set ..KlantOrderlijnNummer=oLijn.KlantOrderlijnNummer + Set ..AantalEenheid=oLijn.AantalEenheid + } Quit ]]> Index: BL/Flow/Offerte/pxLijn.cls.xml =================================================================== diff -u -r1074 -r1695 --- BL/Flow/Offerte/pxLijn.cls.xml (.../pxLijn.cls.xml) (revision 1074) +++ BL/Flow/Offerte/pxLijn.cls.xml (.../pxLijn.cls.xml) (revision 1695) @@ -4,6 +4,13 @@ %RegisteredObject,%XML.Adaptor 0 + +STRING +,0,1,runtime +1 +ENUM + + %String @@ -15,6 +22,8 @@ + +zal ingevuld worden in EDILijnRef in Flow.Offerte.LijnProduct %String @@ -24,6 +33,14 @@ + + +Specifiek voor SFS (eenheid is PCE of PR, resp. per stuk of per paar) +Zal mee teruggestuurd worden in de EDI-orderbevestiging +%String + + + Per 1 of 100 Index: Flow/Offerte/LijnProduct.cls.xml =================================================================== diff -u -r1074 -r1695 --- Flow/Offerte/LijnProduct.cls.xml (.../LijnProduct.cls.xml) (revision 1074) +++ Flow/Offerte/LijnProduct.cls.xml (.../LijnProduct.cls.xml) (revision 1695) @@ -127,6 +127,20 @@ %String + + +Specifiek voor SFS (eenheid is PCE of PR, resp. per stuk of per paar) +Zal mee teruggestuurd worden in de EDI-orderbevestiging +%String + + + + +Specifiek voor SFS (referentie naar de Orderlijn, maar mag niet via de property EDILijnRef doorgegeven worden) +Zal mee teruggestuurd worden in de EDI-orderbevestiging +%String + + Type="H" en het halffabrikaat heeft een dimensie @@ -312,6 +326,12 @@ DimensieNetto + +AantalEenheid + + +KlantOrderlijnNummer + Index: BL/Flow/Offerte/ScanEDIMail.cls.xml =================================================================== diff -u -r1683 -r1695 --- BL/Flow/Offerte/ScanEDIMail.cls.xml (.../ScanEDIMail.cls.xml) (revision 1683) +++ BL/Flow/Offerte/ScanEDIMail.cls.xml (.../ScanEDIMail.cls.xml) (revision 1695) @@ -39,7 +39,8 @@ Scans the incoming EDI mail watchfolder and processes every found file This method is (to be) called periodically from the Cache scheduler -d ##class(BL.Flow.Offerte.ScanEDIMail).Scan() +Oproepen via : + d ##class(BL.Flow.Offerte.ScanEDIMail).Scan() 1 0 listOfferteIDs:%ListOfDataTypes 1 +0