cAT270 ;RAADPLEGEN OPENSTAANDE BONS ;%AT270 ; [ 12/07/92  9:25 PM ]
 ;
T0 ;Raadplegen openstaande bons ;
 ;
T0F ;Consultation bons en suspens ;
 ;
T0E ;Raadplegen openstaande bons ;
 ;
YZ Q
 ;
S1 ;openstaande leveringen exclusief
S1A S R1="UL\UL",R2="F\R",R3="URK\URK",R4="E\E" D ^cAT27
S1Z Q
 ;
S2 ;openstaande leveringen inclusief
S2A S R1="UL\UL",R2="F\R",R3="URK\URK",R4="I\I" D ^cAT27
S2Z Q
 ;
S3 ;openstaande orders exclusief
S3A S R1="OD",R2="F",R3="URK",R4="E" D ^cAT27
S3Z Q
 ;
S4 ;openstaande orders inclusief
S4A S R1="OD",R2="F",R3="URK",R4="I" D ^cAT27
S4Z Q
 ;
S5 ;totaal exclusief
S5A D S1 S RU3=U3 D S3 S U3=U3+RU3
S5Z K RU3 Q
 ;
S6 ;totaal inclusief
S6A D S2 S RU3=U3 D S4 S U3=U3+RU3
S6Z K RU3 Q
 ;
S7 ;openstaande bestellingen leveranciers (excl.)
S7A S R1="TO",R2="F",R3="URK",R4="E" D ^cAT27
S7Z Q
 ;
S8 ;openstaande leveringen leveranciers (excl.)
S8A S R1="TOL",R2="F",R3="URK",R4="E" D ^cAT27
S8Z Q
 ;
S9 ;gekontroleerde leveringen leveranciers (excl.)
S9A S R1="TOL",R2="P",R3="URK",R4="E" D ^cAT27
S9Z Q
 ;
S10 ;openstaande bestellingen leveranciers (incl.)
S10A S R1="TO",R2="F",R3="URK",R4="I" D ^cAT27
S10Z Q
 ;
S11 ;openstaande leveringen leveranciers (incl.)
S11A S R1="TOL",R2="F",R3="URK",R4="I" D ^cAT27
S11Z Q
 ;
S12 ;gekontroleerde leveringen leveranciers (incl.)
S12A S R1="TOL",R2="P",R3="URK",R4="I" D ^cAT27
S12Z Q
 ;
S13 ;totaal inclusief (aankoop)
S13A S RU3=0 F I=10:1:12 D @("S"_I) S RU3=RU3+U3
S13B S U3=RU3
S13Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84