0 %RegisteredObject 0 %Integer Verwijzing naar Labeldefinitie BL.Derde.Klant.LabelMagRek lijst op sortkey %String 1 lijst op volgnr %String 1 lijst definitie %String 1 %String lb(rs.Data("ID"),rs.Data("PRNr"),rs.Data("ProductNaam"),rs.Data("IdentNr"),rs.Data("EANCode"),rs.Data("Opmerking1"),rs.Data("Opmerking2"),rs.Data("KlantRef"),rs.Data("Verpakking"),rs.Data("Omschrijving")) 1 2 3 4 5 6 7 8 9 10 11 12 1 %RegisteredObject Do ##class(CHUI.Derde.Klant.LabelMagRek).RPLPROD() ;1239) integratie met RPLPROD : Raadplegen van producten en afdrukken van productlabels 1 KLNr:%Integer Scrollen in de productlijst opslaan van instellingen zodanig dat terug kan gegaan worden naar het bovenliggende programma RPLPROD herstellen van de instellingen KLNr Lijst opbouwen om op het scherm te tonen SelID:%Numeric ProductIndex Sorteersleutel instellen rs %String Write en Update van lijst Printer selecteren %Status Record selecteren met een bepaalde ProductID ProdID:%Numeric Een label afdrukken ProdId Een label afdrukken voor ieder product uit de lijst Printer,Layout Import verkoopanalyse Import webshop Import verkoopanalyse Een nieuw product toevoegen aan de lijst 0 Do . . Do WARN^vhTXTPOP("Dit product staat reeds in de lijst","Toevoegen nieuw product") . Else Set OK=1 Set px=..blLabelMagRek.New() Set px.PRNr=PRNr Do NIEUW^vhScherm("LBMAGREK","","","","","",3) If '%SC Do UPDATE^vhLIST(.Lijst,2) Quit Set sc=..blLabelMagRek.Save(px) If $$$ISERR(sc) Do . Do WARN^vhTXTPOP($P($$ParseStatus^vhLib(sc),": ",2,99),"Fout") Else Do . Do ..Fetch() . Do ..SelId(px.%Id()) . Do UPDATE^vhLIST(.Lijst,2) ]]> Een product wijzigen Een product wegdoen uit de lijst Alle producten wegdoen uit de lijst PRNr %Library.CacheStorage ^CHUI.Derde.Klant.LabelMagRekD LabelMagRekDefaultData ^CHUI.Derde.Klant.LabelMagRekD ^CHUI.Derde.Klant.LabelMagRekI ^CHUI.Derde.Klant.LabelMagRekS listnode %%CLASSNAME