BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,Prod.Product TECH.RegisteredObject D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportAll() D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportGLSFreightAll() FilePath $$INTDATE^vhLib.DataTypes("01/08/18") { Set bonref=reader.Data("referentie afzender") Set bonref=+$P(bonref,"X",2) Set bedrag=+$TR(reader.Data("bedrag"),",",".") Set ^PVGLSKost(bonref)=$G(^PVGLSKost(bonref))+bedrag Set ^PVGLSKost(bonref,"GLSF")=$G(^PVGLSKost(bonref,"GLSF"))+bedrag } ;Set y=reader.Column(1) } ]]> D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportGLSParcel() FilePath D ##Class(AX.Uitgaand.MAG.impl.ImportGLSKost).%New().ImportTTC() FilePath