PRGACNTs 1 TECH.RegisteredObject 0 KlantNr:%String %String 0 dan IsBinnenbreedte = false defaulten! Set tmpAr("Verpakking") = $P(pdlMaten,"\",6) ; bvb. Procom met/zonder onderdelen Set tmpAr("NietMeeleveren") = $P(pdlMaten,"\",7) ; Contains NMCP;NMAK;NMRL;NMBS; ... Set tmpAr("AntislipmatKleur") = $P(pdlMaten,"\",8) ; indien "AF.xx" dan Materiaal = AgoFiber, anders "AGO" set SqlStatement = ..GenerateSql(KlantNr,.tmpAr) } quit SqlStatement ]]> %String %String %String NietMeeleveren:%ListOfDataTypes %String %String Property:%String,Value:%String 1 %String pdlMaten:%String,DCM:%String 1 %String