Index: zTryout/THB/ConsistencyCheck/Prijzen.cls.xml =================================================================== diff -u -r52010 -r52011 --- zTryout/THB/ConsistencyCheck/Prijzen.cls.xml (.../Prijzen.cls.xml) (revision 52010) +++ zTryout/THB/ConsistencyCheck/Prijzen.cls.xml (.../Prijzen.cls.xml) (revision 52011) @@ -37,13 +37,13 @@ #dim Lijn, Node1, KlantNaam, Korttekst, Identnummer As %String #dim SimPPL, Nettoprijs, Lijstprijs, InclBTW As %Decimal - Set Count = 1 + Set Count = 3 Set KLNr = 0 Set PRNr = 0 Set Node1 = "Check" Kill ^ConsistCheckPrijzenKlantProduct(Node1) - Set ^ConsistCheckPrijzenKlantProduct(Node1) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens Klant-Product-RijInExcelBestand" + Set ^ConsistCheckPrijzenKlantProduct(Node1) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens ""Check""-RijInExcelBestand-Klant-Product" Do ..FileReader.SetFirstDataRow(3) @@ -57,13 +57,13 @@ Set Korttekst = $Piece(Lijn,";",4) Set Identnummer = $Piece(Lijn,";",5) Set Aantal = $Piece(Lijn,";",6) - Set SimPPL = $Piece(Lijn,";",7) + Set SimPPL = $Translate($Piece(Lijn,";",7)," ","") Set Nettoprijs = $Piece(Lijn,";",8) Set Lijstprijs = $Piece(Lijn,";",9) Set Eenheid = $Piece(Lijn,";",10) Set InclBTW = $Piece(Lijn,";",11) - Set ^ConsistCheckPrijzenKlantProduct(Node1,KLNr,PRNr,Count) = ""_KLNr_"\"_KlantNaam_"\"_PRNr_"\"_Korttekst_"\"_Identnummer_"\"_Aantal_"\"_SimPPL_"\"_Nettoprijs_"\"_Lijstprijs_"\"_Eenheid_"\"_InclBTW_"" + Set ^ConsistCheckPrijzenKlantProduct(Node1,Count,KLNr,PRNr) = ""_KLNr_"\"_KlantNaam_"\"_PRNr_"\"_Korttekst_"\"_Identnummer_"\"_Aantal_"\"_SimPPL_"\"_Nettoprijs_"\"_Lijstprijs_"\"_Eenheid_"\"_InclBTW_"" Set Count = Count + 1 }