H 064 Y-J S B PKU080 F******************************************************************** F* AB Kinnasand, Box 66, 511 23 Kinna F* RPG II program för textil och tapetorder till IBM System 36 F* Registrering av textil-order, max 200 rader per order F* Högsta pos.nr kan bli 9004, 8999 + 5 standardanmärkningar F* Vallda ADB F******************************************************************** F* F* DATUM ÅTGÄRD PROGRAMMERARE F* F* 84-09-17 Nyupplägg BENGT PETERSSON F* 86-07-23 Ny hantering av rabatter & bonus LASSE JIVERÖ F* 86-10-10 Ej bonus om styrkod 4=1 LASSE JIVERÖ F* 87-01-26 Visa ordervärde i valuta LASSE JIVERÖ F* 87-11-24 Lagra USER-ID i header-posten LASSE JIVERÖ F* 88-06-09 Kundfordran från K011EX LASSE JIVERÖ F* 90-12-12 Automatisk rabatt för mattkund LASSE JIVERÖ F* 91-12-02 Automatiskt 'AVMÄTNINGSTILLÄGG' LASSE JIVERÖ F* 92-03-12 Avmätning bort på internkunder SM6BGP F* 92-03-25 Tillverkningspris på internkund SM6BGP F* 94-01-03 Tillverkningspris på p-lista 88 SM6BGP F* 94-01-25 Avtal kund-rabatt SM6BGP F* 95-06-16 Nytt anm-fält P064, MUS 34 SM6BGP F* 96-03-14 Koll av sista siffran i prod.grp SM6BGP F* 96-04-01 Produktgrupp 33 ges slutsiffra 2 SM6BGP F* 96-12-05 Ändrad prissättning export SM6BGP F* 97-02-10 Specialregler, dottbol.& Danmark SM6BGP F* F*------------------------------------------------------------------- F/EJECT F******************************************************************** F* S U B R U T I N E R SIDA 1 F* F* NIVÅ 1 NIVÅ 2 NIVÅ 3 NIVÅ 4 NIVÅ 5 F* ------ ------ ------ ------ ------ F*UPPSTART PROGRAM ********* F* F* 1 START F* F*BILD 1 OCH 2 IN ********** F* F* 2 BLANKA F* 3 VISA F* (2) BLANKA F* 4 ANNULL F* 5 HPOST F* 6 LPOST F* (2) BLANKA F* (1) START F* 7 B01 F* 8 BORT F* (5) HPOST F* (6) LPOST F* (3) VISA F* (2) BLANKA F* 9 ANMKOL F* 10 ARTKOL F* 11 TRYCK F* (8) BORT F* (5) HPOST F* (6) LPOST F* (3) VISA F* (2) BLANKA F* 12 ARTFCH F/EJECT F* S U B R U T I N E R SIDA 2 F* F* NIVÅ 1 NIVÅ 2 NIVÅ 3 NIVÅ 4 NIVÅ 5 F* ------ ------ ------ ------ ------ F* 13 SÖKLÄT F* 14 RELPS F* 15 FYRAST F* 16 RESERT F* 17 BOKA64 F* 18 VISA2 F* 19 BOKMET F*(14) RELPS F*(15) FYRAST F* 20 UPPDAT F* 21 FYLL F* (3) VISA F* (2) BLANKA F* F*BILD 3 IN **************** F* F* (3) VISA F* (2) BLANKA F* 22 B03 F* 23 SÖK F* 24 ANTPOS F* 25 KLART F* 26 FLYTTA F* 27 LÄS F* 28 FLYTTB F* 29 VISKN F* 30 INFOUT F* F/EJECT F* S U B R U T I N E R SIDA 3 F* F* NIVÅ 1 NIVÅ 2 NIVÅ 3 NIVÅ 4 NIVÅ 5 F* ------ ------ ------ ------ ------ F*BILD 4 IN **************** F* F*(27) LÄS F*(28) FLYTTB F*(29) VISKN F* F*BILD 5 IN **************** F* F* 31 KOD F* 32 GODK F* 33 PRIS F* 34 STARTP F* 35 SETOF <---- F* 36 TEXTIL ----> F* (3) VISA F* (2) BLANKA F* 37 TEST F* 38 ACCEPT F*(30) INFOUT F* (2) BLANKA F* (1) START F* (4) ANNULL F* (5) HPOST F* (6) LPOST F* (2) BLANKA F* (1) START F* F/EJECT F* S U B R U T I N E R SIDA 4 F* F* NIVÅ 1 NIVÅ 2 NIVÅ 3 NIVÅ 4 NIVÅ 5 F* ------ ------ ------ ------ ------ F*BILD 6 IN **************** F* F* (1) START F* 39 B06 F* (3) VISA F* (2) BLANKA F* F*BILD 1 OCH 7 UT ********** F* F* 40 RADER F* F*BILD 5 UT **************** F* F* 41 HUVUD F* 42 ADRESS F*(31) KOD F* F******************************************************************** F/EJECT FWORK CP F 1200 WORKSTN FB001 IC F10801080R 3AI 4 DISK FK011 IC F 640 640R 5AI 4 DISK FT011 IC F20482048R 5AI 4 DISK 94-01-25+ F*011EX IC F 640 640R 5AI 4 DISK FK012 IC F 32 32R 1AI 4 DISK F****************K013 UC F 640 640R DISK 88-06-09B F*REGISTER B090 FORDER UC F 512 512R10AI 451 DISK A F*REGISTER B091 - ACCEPTERADE ORDER-NR FOREGNR UC F 6 6R 6AI 1 DISK A FP003 IC F 128 128R16AI 4 DISK FP063 IC F 256 256R 4AI 4 DISK FP064 UC F 512 512R 7AI 4 DISK FP067 IC F32003200R 5AI 4 DISK FP068 UC F 320 320R DISK FP069 IC F 96 96R13AI 4 DISK FP075 IC F 256 256R 4AI 4 DISK FP080 ID F 128 128L13AI 4 DISK FS052 IT F 11 11 EDISK FS053 IC F 256 256R 3AI 4 DISK E**PRE-EXECUTION-TIME TABLE E S052 TAB52 1 30 3 TAB52D 8 VALUTA-TABELL E**COMPILE-TIME ARRAYS E BLINKA 1 1 25 E CMD 1 1 19 E ENTER 1 1 19 E MSG 1 3 25 E SLUT 1 1 19 E TXT 1 3 20 E**EXECUTION-TIME ARRAYS E**CALCULATION/BILD 01 E ANT 12 7 0 E ARR 12 73 E ART 12 4 0 E AST 12 1 E AVM 12 1 E FNA 12 14 E FÄ4 12 4 E LÅV 12 4 E******************* LÄN 12 5 2 ****** E NR 200 4 ANVÄNDA RADNR E POS 12 4 0 E PRI 12 7 2 E RAB 12 5 2 E TYP 12 1 0 RABATT-TYP E TRY 12 3 0 E**CALCULATION/BILD 02 E A3 9 7 0 E BOK 12 6 0 E DIS 12 6 0 E MET 12 6 0 E T3 9 3 0 E ÅVV 12 4 0 E**CALCULATION/BILD 03 E AR 5 1 E**CALCULATION/BILD 04 E XDI 15 1 0 E XNA 15 36 E XNR 15 5 0 E XPA 15 28 E**B001 E S1 5 70 E S2 5 70 E S3 5 70 E**ORDER E OR 100 4 SPARA RADNR E**P064 E F64 10 1 E LET 10 5 2 E RET 10 7 0 E**P067 E DAT1 100 6 0 E DAT2 100 6 0 E P1 100 7 2 E P2 100 7 2 E P3 100 7 2 E**P068 E FL 15 1 E F68 4 1 E LEL 4 5 2 E LS 15 7 0 E REL 4 7 0 E RL 15 5 2 E RS 15 7 0 E**T011 94-01-25+ E TRR 15 4 0 94-01-25+ I**------------------- REGISTRERING ORDER-RAD ------- IWORK NS 01 1 CA I 2 50POSIN I 6 37 ARTKOL 31 BLANKT I 6 90ARTNR I 6 92LÄNGD I 10 120FÄRG I 6 120ARTFÄR I 13 190ANTAL I 20 20 AVMÄT I 21 252RABATT I 26 322PRIS I 33 33 FLAM I 39 410TRYCK I 42 42 DELETE I 43 450STD I 46 115 NYANM I 116 116 SA I 117 117 STYROE I 118 118 STYRFA I 119 119 STYRFÖ I 120 120 STYR1 I 121 121 STYR2 I 122 122 STYR3 I 123 1250LEVÅVV I 126 1260RTYP I**------------------- EXTRA-BILD ORDER-RAD --------- I NS 02 1 CB I 2 50POSIN I 6 37 ARTKOL 31 BLANKT I 6 90ARTNR I 6 92LÄNGD I 10 120FÄRG I 6 120ARTFÄR I 13 190ANTAL I 20 20 AVMÄT I 21 252RABATT I 26 322PRIS I 33 33 FLAM I 34 34 LEVKOD I 35 370TRYCK I 38 38 DELETE I 39 410LEVÅVV I 42 420RTYP I**------------------- KUNDNR ----------------------- I NS 03 1 CC I 2 60KUNDNR I 7 11 LETORD I 7 7 LET1 I 7 11 AR I 12 160WKEDJA I**------------------- SÖKBILD KUNDER --------------- I NS 04 1 CD I 2 30NI I**------------------- REGISTRERING ORDER-HUVUD ----- I NS 05 1 CE I 2 37 WNAMN1 I 38 73 WNAMN2 I 74 109 WADR1 I 110 145 WADR2 I 146 181 WPADR I 182 205 WLAND I 206 2060WORDK I 207 2120WORDAT I 213 213 WSPRÅK I 214 237 WREF I 238 2400WPRLI I 241 264 WIO I 265 2660WBETV I 267 2680WLEVV I 269 271 WVAL I 272 2730WLEVS I 274 308 WLEVS1 I 309 3090WMOMS I 310 344 WLEVS2 I 345 3470WLEVD I 348 3542WOKR I 355 3592WORAB I 360 3662WBKR I 367 3712WBRAB 63 NOLL I 372 3782WKKR I 379 3832WKRAB I 384 3902WKAKR I 391 3952WKARAB I 396 4022WAVKR I 403 4070WAVMÄP I 408 4122WEXP I 413 4130WPRIO I 414 4150WLTYP 88-03-03+ I**------------------- ANGE REGNR FÖR ÄNDRING ------- I NS 06 1 CF I 2 70REGNR I**------------------- UPPSTART AV PROGRAM ---------- I NS 90 I**-------------------------------------------------- IB001 NS I 3 30DEL08 I 7 356 S1 I 357 706 S2 I 7311080 S3 IK011 NS I 3 30DEL11 I 4 80KNR I 14 49 FNAMN I 50 85 FCO I 86 121 FADR1 I 122 157 FADR2 I 158 1620FPOST I 163 190 FPADR I 191 1930FLANDK I 209 2090FDIV I 210 2110BETV I 212 2130LEVV I 214 2150LEVS I 216 2170PRLI I P 218 2200KEDJA I 221 225 BB I 231 231 SPRÅK I 232 234 VAL I 235 2350ORDK I 236 271 NAMN1 I 272 307 NAMN2 I 308 343 ADR1 I 344 379 ADR2 I P 380 3820POST I 383 410 PADR I P 411 4120LANDK I 422 4230KATEG I P 426 4282ORAB I P 429 4312KRAB I P 432 4342BRAB I P 435 4372AVMÄP I P 435 4374AVMPR 71 POSITIVT I P 444 4470KGRÄNS I 449 4490EXPKOD I 451 4510MOMS I 454 4540STY3 I 455 4550STY4 86-10-10+ I 462 4660NEXT I P 501 5062KFORD I 586 586 AVTRAB 94-01-25+ I 587 587 AVTBON 94-01-25+ I* 88-06-09+ I* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ I* EXTERNT KUNDREGISTER (T.EX I NORGE) HÄMTAR KORREKT KUNDFORDRAN 88-06-09+ I* 88-06-09+ I*011EX NS 88-06-09+ I* 88-06-09+ I* P 501 5062KFORD 88-06-09+ I* 88-06-09+ I* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ I* RABATTREGISTER NYTT 94-01-25 NYTT 88-06-09+ I*011 NS 88-06-09+ I* 88-06-09+ IT011 NS 88-06-09+ I 9 140TAVTFR I 15 200TAVTTI I 21 252TAVRAB I 28 28 TGATYG I 31 31 TMÖTYG I 34 34 TPBTYG I** I 275 334 TART05 I 335 394 TART06 I 395 454 TART07 I** I 609 6140FAVTFR I 615 6200FAVTTI I 621 6250FAVRAB I 628 628 FGATYG I 631 631 FMÖTYG I 634 634 FPBTYG I** IK012 NS I 10 140LFNR I**********K013 NS 88-06-09B I********** 116 1205MOMS1 88-06-09B I********** 126 1305MOMS2 88-06-09B I********** 136 1405MOMS3 88-06-09B I********** 613 6180FREGNR 88-06-09B IORDER NS 10 1 CH 3NC9 I P 15 180ORDDAT I P 19 210OKNR I 22 45 OREF I 46 69 OIO I 70 710OBETV I 72 730OLEVV I 74 108 OLEVS1 I 109 143 OLEVS2 I P 144 1450LISTA I 146 146 OSPRÅK I 147 149 OVAL I 150 1500OORDK I 151 186 ONAMN1 I 187 222 ONAMN2 I 223 258 OADR1 I 259 294 OADR2 I 295 330 OPADR I 331 354 OLAND I P 355 3572OORAB I P 355 3574ORAB2 I P 358 3602OKRAB I P 358 3604KRAB2 I P 361 3632OBRAB I P 361 3634BRAB2 I P 364 3662OKARAB I P 364 3664KARAB I 367 3680LTYP 88-03-03+ I 370 3700OMOMS I P 371 3762OVÄRDE I 377 3770LISTKD I P 378 3812OOKR I P 382 3852OKKR I P 386 3892OBKR I P 390 3932OKAKR I P 395 3972OEXP I 398 3990OLEVS I P 402 4052OAVKR I 406 4080MÅNGA I 410 4100OK022 I 411 411 OK021 I 412 4140OLEVD I 419 4190OPRIO I P 420 4220OAVMÄP I 479 4830OKEDJA I 509 5090EJFÖLJ I NS 11 1 CD 3NC9 I 8 110WARTNR I 8 112WLÄNGD I 8 140WARFÄ I 12 140WFÄRG I 15 170WTRYCK I 18 180TRKOD I P 19 220WANT I 23 230PKOD 37 POSITIV I P 24 272FPRIS I 28 280RKOD 38 POSITIV I P 30 322FRAB I 33 33 WFLAM I 43 470WRECNR I 58 58 WAVMÄT I 65 660ANTKRT I 67 670LÖSPRS I 68 690ARTGR I 70 720WLEVÅV I 81 860WBONDT I NS 12 1 CA 3NC9 I 8 80 RAD I NS 15 1 CN I 8 407 OR I 408 4100SI I 411 4140HÖGST I NS IOREGNR NS IP003 NS I 3 30DEL03 I 20 44 BESK11 I 20 54 BESK12 I 55 79 BESK21 I 55 89 BESK22 I 90 114 BESK31 I 90 124 BESK32 IP063 NS I 3 30DEL63 I 8 31 FNAMN1 I 80 810ARTGR 90-12-12+ I***** BORT 960314 82 830FPDGRP 94-01-25+ I 83 830FPDGRP 96-03-14+ I P 86 890STATNR I 92 92 FFLAM I P 93 940BREDD I P 95 970RAPPL I 98 990KRYMP I 100 1010VIKTKO I 165 1660VÄRDKO I P 102 1040GRLÖP I P 105 1070KVADM I 216 2210BONDAT IP064 NS I 3 30DEL64 I P 17 190FÖRSTA I P 260 299 RET I P 300 329 LET I 330 339 F64 I 330 339 F64 I 413 442 ANM064 95-06-16+ IP067 NS I P 57 602PRIS01 92-03-25+ I P 65 682PRIS02 92-03-25+ I P 73 762PRIS03 92-03-25+ I 81 860DATUM1 92-03-25+ I 87 920DATUM2 92-03-25+ I P 393 792 P1 I P 7931192 P2 I P11931592 P3 I 15932192 DAT1 I 22032802 DAT2 I* 88-06-09+ IP068 NS 88-06-09+ I* FREGNR FINNS ENDAST I RECORD NR 1 88-06-09+ I 20 250FREGNR 88-06-09+ I* 88-06-09+ I 11 130P68TRY I 15 18 F68 I P 39 410NÄSTA I P 102 161 LS I P 162 206 RL I 207 221 FL I P 222 281 RS I 282 2860RECNR I P 292 307 REL I P 308 319 LEL IP069 NS I 3 30DEL69 I P 20 232UPRIS1 I P 24 272UPRIS2 I P 28 312UPRIS3 I 32 370UDAT1 I 38 430UDAT2 IP075 NS I 3 30DEL75 I 8 31 PRBEN I 32 34 VKOD I 35 350MÅTT I 152 1562PÅSLAG 91-12-04+ IP080 NS I 3 30DEL80 I 4 100P80AF I 11 160BOKNR I P 24 270MET7A I P 42 450MET7B I P 74 771F80INL I 18 210F80ÅVD IS053 NS I 3 30DEL53 I 7 30 LAND2 I 152 152 NYL53 87-01-26+ I P 153 1550EXPGRÄ I P 156 1582EXPAVG I P 159 1612AVTILL I P 162 1640GRTP I P 165 1672EXPTP IS052DS DS I 1 11 DS052 I 5 115KURS2 I DS I 1 100OKEY I 1 60REGNR I 7 100ORAD I UDS I 1 50LDAKND KUNDNR I 6 10 LDALET I 11 11 CMDKOD I 12 170XREGNR I 18 25 USERID 87-11-24+ I* 88-06-09+ I 26 305MOMS1 88-06-09+ I 31 355MOMS2 88-06-09+ I 36 405MOMS3 88-06-09+ I* 88-06-09+ I 510 512 WSUTL 88-06-09+ I 510 5120WSLAND 88-06-09+ I* 88-06-09+ I/EJECT C** C N01N02 Z-ADD-1 V FÖR BLÄDDRING C 03 52N99 SETON 54 KUND VISAD C N03 MOVE '*****' LETORD C N04 SETOF 41 C** C MOVE ' ' CMDKOD C MOVE ' ' WLEVK C Z-ADD0 WTRYKO C Z-ADD0 T3 C Z-ADD0 A3 C** C SETOF 1316 C SETOF 1719 C SETOF 202122 C SETOF 232425 C SETOF 262728 C SETOF 293036 C SETOF 424462 C SETOF 677172 C SETOF 737475 C SETOF 768687 C SETOF 888998 C SETOF 99 C**UPPSTART AV PROGRAMMET ---------------------------- C 90 EXSR START 1 C 90 88 SETON 89 FR. UNDERH KUND C* -> TILL BILD 3 C 90 GOTO SLUT C**HOPP TILL AKTUELL BILD-RUTIN ---------------------- C 01 ORDER-RAD COR 02 GOTO T0102 EXTRA-BILD RAD C 03 GOTO T03 KUNDNR C 04 GOTO T04 KUNDLISTA C 05 GOTO T05 ORDER-HUVUD C 06 GOTO T06 REGNR FÖR ÄNDR. C GOTO SLUT C**INPUT FRÅN BILD 01 ELLER 02 (ORDER-RADER) --------- C T0102 TAG C**--------------------------------------------------- C SETOF 54 C LEVÅVV COMP 0 3333 EJ NOLL C Z-ADD0 PK C PRIS COMP 0 70NOLL C N70 MOVE '1' PK 10 PRISKOD C KA EXSR BLANKA 2 SLUT RADER C KA GOTO SLUT C 02 KC GOTO SLUT ÅTER BILD 1 C 01 KD EXSR VISA 3 BLÄDDRA C 01 KD GOTO SLUT C KG SETON 16 ANNULLERA C 01 KJ SI COMP 0 3636 EJ NOLL C 01 KJ 36 SETON 99 C 01 KJ 36 SETOF KJ C 01 36 GOTO SLUT C 01 KJ SETON 16 HÄMTA ORDER C 01 KJ Z-ADDREGNR XREGNR 60 SPARA TAGET NR C KS SETON 16U2LRTILL MENY C*NY ORDER. KUND-BILD EFTER RADER. C 16 SETOF 35 C 16 EXSR ANNULL 4 C 16 GOTO SLUT C EXSR B01 7 C 01 44N33 GOTO SLUT EJ I LAGER C N99N34 EXSR UPPDAT 20 EJ BORTT RAD C GOTO SLUT C**INPUT FRÅN BILD 03 (KUNDNR) ----------------------- C T03 TAG C**--------------------------------------------------- C* 87-01-26+ C Z-ADD*ZEROS OVÄVAL 112 87-01-26+ C* 87-01-26+ C 54 KUNDNR COMP KUNUND 54LIKA C MOVE KUNDNR KUNUND 50 C 54 KA SETON 98 KUND ACCEPT. C 98 GOTO SLUT C KG EXSR VISA 3 ÅTER BILD 1 C KG GOTO SLUT C SETOF 41 C Z-ADD0 Y 40 C Z-ADD0 SIDNR 20 C EXSR B03 22 C NKG 99 42 SETON 18 UNDERH. KUNDREG C 18 Z-ADDREGNR XREGNR C 18 EXSR INFOUT 30 C GOTO SLUT C**INPUT FRÅN BILD 04 (SÖKBILD KUNDER) --------------- C T04 TAG C**--------------------------------------------------- C SETOF 52 C NI COMP 0 14BLÄDDRING C KL NY SÖKNING COR 41 14 SETON 17 SLUT --> BILD 3 C 17 SETOF 41 C 17 GOTO SLUT C N14 NI COMP 15 21 STÖRRE C N14N21 XNR,NI COMP 0 21NR EJ PÅ BILD C 21 SETON 99 C KA 14 SETON 2299 C 99 GOTO SLUT C N14 Z-ADDXNR,NI KUNDNR C N14 KUNDNR CHAINK011 H5 RAD ANGIVEN C** 94-01-25+ C N14 AVTRAB IFEQ 'J' AVTAL KUNDRABATT 94-01-25+ C N14 KUNDNR CHAINT011 H5 AVTAL KUNDRABATT 94-01-25+ C END AVTAL KUNDRABATT 94-01-25+ C** 94-01-25+ C N14 MOVE KUNDNR KUNUND C N14 SETON 52 KUND ANGIVEN C KAN14 SETON 98 KUND ACCEPT. C 98 GOTO SLUT C SETOF 41 C 14N99 EXSR LÄS 27 C GOTO SLUT C*INPUT FRÅN BILD 05 (ORDER-HUVUD) ------------------- C T05 TAG C**--------------------------------------------------- C SETOF 35 OM KOMPL/HÄMTAD C SETOF 4096 C MOVE *BLANKS TEXT C Z-ADD0 MOMSX 53 C Z-ADDKGRÄNS GRÄNS 92 C** C EXSR KOD 31 C EXSR GODK 32 C NKANKCNKE CANNKG GOTO T051 C**PRISSÄTTNING C KAN99 SETON 69 C KAN99 EXSR PRIS 33 C KA GOTO T051 C**KOMPLETTERING ORDER-RADER C KCN99 EXSR VISA 3 C KCN99 SETON 4035 *35-KOMPL. C KC GOTO T051 C**ORDERN ACCEPTERAS C KEN99 Z-ADD2 ORAD C KEN99 OKEY CHAINORDER H2 C KEN99 EXSR TEST 37 C KEN99 OK021 COMP '0' 96 MINDRE C KEN99 96 SETON 84 C KEN99 96 EXCPT DUMMY C KEN99 96 SETOF 84 C KEN99 96 SETON 99 C KEN99 SETON 9740 C KEN99 MOVELTXT,2 TEXT C KEN99 EXCPT ACCEPTANS C KEN99 SETOF 97 C KE GOTO T051 C**ORDERN ANNULLERAS C KG SETON 9740 C KG MOVELTXT,3 TEXT C KG EXCPT ANNULLERING C KG SETOF 97 C**------------------- C T051 TAG C 40 Z-ADD2 ORAD C 40 OKEY CHAINORDER 70 C N69 OVÄRDE SUB OEXP OVÄRDE C N69 OVÄRDE ADD WEXP OVÄRDE C N69 Z-ADDWEXP OEXP C 40 SETON 58 C 40 EXCPT C 40 SETOF 58 C KEN99 EXSR ACCEPT 38 C KG EXSR ANNULL 4 C GOTO SLUT C*INPUT FRÅN BILD 06 (REG.NR) ------------------------ C T06 TAG C**--------------------------------------------------- C KC EXSR START 1 ÅTER BILD 1 C KC GOTO SLUT C EXSR B06 39 C N99 SETON 35 ORDER HÄMTAD C**--------------------------------------------------- C SLUT TAG C**--------------------------------------------------- C 01 33 SETOF 44 C 02 SI COMP 0 70 C** BILD 1 + 7 UT (ORDER-RADER) ----------- C 90N88 EJ FR UND KUND COR 01 99 FEL PÅ RAD COR 01 KD BLÄDDRA COR 01NKANKG CANNKJNKSN44 NÄSTA RAD COR 02NKANKG CANNKS EXSR RADER 40 FRÅN LAGER-B C** C 01 KG FRÅN ANNULL. COR 02 KG -"- COR 03 KG FRÅN KUND-BILD COR 05 KCN99 KOMPLETTERING COR 05 KEN99 ORDERN ACCEPT. COR 05 KG ORDERN ANNULL. COR 06N99 EXSR RADER 40 ORDER HÄMTAD C** BILD 5 UT (ORDER-HUVUD) --------------- C 01 KA 35 KOMPL/HÄMTAD COR 02 KA 35 -"- COR 03NKGN99 KUND ACCEPT. CAN 52 54 KA COR 04N99N14 -"- CAN KA EXSR HUVUD 41 C**--------------------------------------------------- CLR MOVE ' ' BLA73 73 CLR Z-ADD0 PTRE 30 CLR Z-ADD0 P5 50 CLR Z-ADD0 P7 70 CLR Z-ADD0 P9 90 CLR Z-ADD0 P11 110 C******************************************************************** C* 1 START C******************************************************************** C START BEGSR C*INITIERING FÖR RADER C Z-ADD1 NÄ 30 NÄSTA INDEX C Z-ADD0 SI 30 SISTA INDEX C Z-ADD0 HÖGST 40 HÖGSTA RADNR C MOVE ' ' NR ANVÄNDA RADNR C*REG.NR REDAN UTTAGET? C*(ÅTERHOPP FRÅN HÄMTA ORDER, ELLER FRÅN UNDERHÅLL KUNDREG) C XREGNR COMP 0 88 POSITIVT C N88 GOTO STTAG1 C Z-ADDXREGNR REGNR C Z-ADD0 XREGNR C*FRÅN UNDERHÅLL KUNDREG C N90 GOTO STTAG2 C*HÄMTA KUND-INFO C SETOF 39 C LDAKND COMP 0 52 POSITIV C 52 LDAKND CHAINK011 39 C 52N39 DEL11 COMP 9 39DELETAD C 39 SETON 2199 C** 94-01-25+ C 52N39 AVTRAB IFEQ 'J' AVTAL KUNDRABATT 94-01-25+ C LDAKND CHAINT011 H5 AVTAL KUNDRABATT 94-01-25+ C END AVTAL KUNDRABATT 94-01-25+ C** 94-01-25+ C 52N39 FDIV COMP 1 8787 EJ TEXTIL C 87 SETON 2199 C MOVE LDAKND KUNUND C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* HÄMTA KUNDFORDRAN FRÅN EXTERNT KUND-REGISTER (T.EX. I NORGE) 88-06-09+ C* 88-06-09+ C* 52 LDAKND CHAINK011EX 39 88-06-09+ C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* 88-06-09+ C*HÄMTA ORDER-INFO, RAD 0003 C SETOF 15 C Z-ADD3 ORAD C OKEY CHAINORDER 39 C N39 SETON 66 C N39 EXCPT SYSDEL ORDER C N39 SETOF 66 C 15 MOVEAOR NR,1 C*RAD 0004 C SETOF 15 C Z-ADD4 ORAD C OKEY CHAINORDER 39 C N39 SETON 66 C N39 EXCPT SYSDEL ORDER C N39 SETOF 66 C 15 MOVEAOR NR,101 C SI ADD 1 NÄ C GOTO STTAG2 C*REGNR FRÅN F-POST C STTAG1 TAG C 1 CHAINP068 H3 88-06-09Ä C FREGNR ADD 1 FREGNR C Z-ADDFREGNR REGNR 60 C* 88-06-09Ä C EXCPTUPP068 88-06-09Ä C* 88-06-09Ä C*EV. UPPLÄGGNING ORDER-HUVUD C STTAG2 TAG C Z-ADD2 ORAD C OKEY CHAINORDER 39 C 39 SETON 51 C N39 SETON 84 DUMMY-EXCPT C EXCPT C SETOF 395184 C ENDSR C******************************************************************** C* 2 BLANKA PALOMA BLANKA C******************************************************************** C BLANKA BEGSR C MOVE *BLANKS ARR C MOVE *BLANKS FÄ4 C MOVE *BLANKS AVM C MOVE *BLANKS FNA C MOVE *BLANKS AST C Z-ADD0 ART C Z-ADD0 ANT C Z-ADD0 RAB C Z-ADD0 TYP C Z-ADD0 TRY C Z-ADD0 PRI C******************** Z-ADD0 ******* LÄN ************* C Z-ADD0 POS C MOVE ' ' LÅV C Z-ADD0 X 30 C ENDSR C******************************************************************** C* 3 VISA C******************************************************************** C VISA BEGSR C EXSR BLANKA 2 C 01 KD V ADD 1 V 30 ANTAL VARV C SI COMP 12 39 HÖGRE C 39N01 COR 39NKD SI SUB 11 X 30 C N39 Z-ADD1 X C 39 01 KDV MULT 12 X C 39 01 KDX ADD 1 X C Z-ADD0 R 20 C 39 01 KDX COMP SI 70 HÖGRE C 39 01 KD CAN 70 Z-ADD0 V C 39 01 KD CAN 70 Z-ADD1 X C LOOP TAG C R ADD 1 R C DELSTA TAG C SETOF 1112 C MOVE NR,X ORAD C OKEY CHAINORDER 70 C 70 R SUB 1 R C 70 CORN70N11N12 GOTO DELETE C MOVE NR,X POS,R C 12 MOVEARAD ARR,R C 12 GOTO DELETE C WARTNR CHAINP063 H1 C Z-ADDWARTNR ART,R C MOVEAFNAMN1 FNA,R C MOVEAWAVMÄT AVM,R C Z-ADDWFÄRG FÄ3 30 C Z-ADDWANT ANT,R C Z-ADDFRAB RAB,R C Z-ADDRKOD TYP,R C Z-ADDWTRYCK TRY,R C Z-ADDFPRIS PRI,R C******************** Z-ADDWLÄNGD LÄN,R *********** C MOVE WFLAM FÄ4,R C MOVELFÄ3 FÄ4,R C TRKOD COMP 1 59LIKA C 59 MOVE '*' AST,R C WLEVÅV COMP 0 5959 EJ NOLL C 59 MOVELWLEVÅV ÅVL1 1 C 59 MOVE WLEVÅV ÅVH2 2 C 59 MOVEL' .' LÅV,R C 59 MOVELÅVL1 LÅV,R C 59 MOVE ÅVH2 LÅV,R C DELETE TAG C X COMP SI 59 LÄGRE C X ADD 1 X C 59 R COMP 12 59 LÄGRE C N70N11N12 CAN 59 GOTO DELSTA C 59 GOTO LOOP C N70 SETON 84 C N70 EXCPT DUMMY C N70 SETOF 84 C ENDSR C******************************************************************** C* 4 ANNULL C******************************************************************** C ANNULL BEGSR C*SYS-DELETA ORDER-POSTER OCH BORTBOKA ARTIKEL-RADER C Z-ADD1 X C ALOOP TAG C SETOF 1112 C MOVE NR,X ORAD C OKEY CHAINORDER 70 C 70 CORN70N11N12 GOTO ATAG EJ AKTIV RAD C SETON 66 C EXCPT SYSDEL ORDER C SETOF 66 C 12 GOTO ATAG TEXTRAD C*ARTIKEL-RAD BORTBOKAS C TRKOD COMP 0 21 STÖRRE C N21 EXSR HPOST 5 C 21 EXSR LPOST 6 C SETON 91 C EXCPT P064, P068 C SETOF 912122 C SETOF 2325 C* C ATAG TAG C X COMP SI 59 LÄGRE C X ADD 1 X C 59 GOTO ALOOP C*BORTTAG ORDER-HUVUD C Z-ADD2 ORAD C OKEY CHAINORDER 70 C N70 SETON 66 C N70 EXCPT SYSDEL ORDER C N70 SETOF 66 C*BORTTAG ORDER-INFO, RAD 0003 C Z-ADD3 ORAD C OKEY CHAINORDER 70 C N70 SETON 66 C N70 EXCPT SYSDEL ORDER C N70 SETOF 66 C*BORTTAG ORDER-INFO, RAD 0004 C Z-ADD4 ORAD C OKEY CHAINORDER 70 C N70 SETON 66 C N70 EXCPT SYSDEL ORDER C N70 SETOF 66 C*FÖRBERED NÄSTA ORDER C Z-ADD0 KUNDNR C EXSR BLANKA 2 C 01 KG ANNULL. COR 02 KG -"- COR 05 KG EXSR START 1 -"- C ENDSR C******************************************************************** C* 5 ÅTERBOKNING AV RESERVATION PÅ ARTIKEL/FÄRG C******************************************************************** C HPOST BEGSR C WARFÄ CHAINP064 39 C N39 DEL64 COMP 9 39LIKA C Z-ADD0 X C LOOP1 TAG C X ADD 1 X C LET,X COMP WLÄNGD 22LIKA C 22 F64,X COMP WFLAM 22LIKA C 22 RET,X SUB WANT RET,X 25NOLL C 22 25 Z-ADD0 LET,X C 22 25 MOVE ' ' F64,X C X COMP 10 23 23STÖRRE/LIKA C N22N23 GOTO LOOP1 C ENDSR C******************************************************************** C* 6 ÅTERBOKNING AV RESERVATION PÅ ARTIKEL/FÄRG/TRYCK-NR C******************************************************************** C LPOST BEGSR C WRECNR CHAINP068 H1 C Z-ADD0 X C LOOP2 TAG C X ADD 1 X C LEL,X COMP WLÄNGD 22LIKA C 22 F68,X COMP WFLAM 22LIKA C 22 REL,X SUB WANT REL,X 25NOLL C 22 25 Z-ADD0 LEL,X C 22 25 MOVE ' ' F68,X C X COMP 4 23 23STÖRRE/LIKA C N22N23 GOTO LOOP2 C ENDSR C******************************************************************** C* 7 B01 C******************************************************************** C B01 BEGSR C Z-ADDPOSIN ORAD C OKEY CHAINORDER 48 C N48 SETON 84 C N48 EXCPT DUMMY C N48 SETOF 84 C DELETE COMP ' ' 32BLANK C DELETE COMP 'B' 34 C 34 EXSR BORT 8 C 34 GOTO B01S C POSIN COMP 0 63NOLL C 63 HÖGST COMP 10 21 C N63N21 POSIN COMP 0010 21 LÄGRE C N63N21 POSIN COMP 9000 21 21 C 63N21 HÖGST COMP 8989 21 C SETOF 39 C STD COMP 0 08NOLL C NYANM COMP *BLANKS 59BLANKT C 31 08 59 CORN31N08 CORN31N59 SETON 39 C 39 SETON 212223 C 39 SETON 242526 C 39 SETON 272829 C N32N34 SETON 20 C AVMÄT COMP ' ' 6767 EJ BLANK C 67 AVMÄT COMP ',' 70 1983-02-21 C 67 70 MOVE 'X' AVMÄT 1983-02-21 C 67 AVMÄT COMP 'X' 6767 EJ "X" C 31 EXSR ANMKOL 9 C N31 EXSR ARTKOL 10 C 21 COR 22 COR 23 COR 24 COR 25 COR 26 SETON 99 C 19 COR 20 COR 30 COR 27 COR 28 COR 29 SETON 99 C 67 COR 71 COR 72 COR 73 COR 74 COR 75 COR 76 SETON 99 C N99N31 EXSR TRYCK 11 C 63N99 HÖGST ADD 10 POSIN C 63N99 MOVE '0' POSIN C ARTNR CHAINP063 81 ARTBEN-ÄNDR RAD C B01S ENDSR C******************************************************************** C* 8 BORT C******************************************************************** C BORT BEGSR C SETOF 1112 C Z-ADDPOSIN ORAD C MOVE POSIN POSIA 4 C OKEY CHAINORDER 39 C N39N11N12 SETON 84 C N39N11N12 EXCPT DUMMY C N39N11N12 SETOF 84 C N39N11N12 SETON 39 C 39 SETON 202199 C 20 GOTO BORTS C SETON 66 C 66 EXCPT C SETOF 66 C*BLANKA I ARRAY "NR" MED ANVÄNDA POSITIONER --------- C Z-ADD1 X C BLOOP TAG C NR,X COMP POSIA 39TRÄFF C 39 MOVE *BLANKS NR,X C N39 X COMP SI 39 39SLUT C N39 X ADD 1 X C N39 GOTO BLOOP C*---------------------------------------------------- C 11 SETON 91 ART.RAD C TRKOD COMP 0 21 STÖRRE C N21 91 EXSR HPOST 5 C 21 91 EXSR LPOST 6 C 91 EXCPT C SETOF 212223 C SETOF 2591 C EXSR VISA 3 C BORTS ENDSR C******************************************************************** C* 9 ANMKOL C******************************************************************** C ANMKOL BEGSR C SA COMP 'S' 39SVENSKA C N39 SA COMP 'E' 39ENGELSKA C N39 SA COMP 'T' 39TYSKA C STD COMP 0 08NOLL C NYANM COMP *BLANKS 59BLANKT C N08N39 SETON 29 C 08 59 CORN08N59 SETON 28 C N08 STD CHAINB001 39 C N08N39 DEL08 COMP 9 39LIKA C N08 39 SETON 28 C STYROE COMP ' ' 7171 C 71 STYROE COMP 'X' 7171 C STYRFA COMP ' ' 7272 C 72 STYRFA COMP 'X' 7272 C STYRFÖ COMP ' ' 7373 C 73 STYRFÖ COMP 'X' 7373 C STYR1 COMP ' ' 7474 C 74 STYR1 COMP 'X' 7474 C STYR2 COMP ' ' 7575 C 75 STYR2 COMP 'X' 7575 C STYR3 COMP ' ' 7676 C 76 STYR3 COMP 'X' 7676 C ENDSR C******************************************************************** C* 10 ARTKOL C******************************************************************** C ARTKOL BEGSR C N22 ARTNR COMP 1000 22 MINDRE C N22 ARTNR COMP 8999 22 STÖRRE C ARTNR CHAINP063 39 C N39 DEL63 COMP 9 39LIKA C 39 SETON 22 C N22 FFLAM COMP 'F' 39 C N22 39 MOVE 'F' FLAM C N22 FFLAM COMP 'X' 3939 SKALL KOLLAS C N22 39 FFLAM COMP FLAM 2222 C ARTFÄR CHAINP064 39 C N39 SETON 47 C 47 EXCPT C SETOF 47 C N39 DEL64 COMP 9 39LIKA C 39 SETON 23 C ANTAL COMP 0 39LIKA C 39 SETON 24 C* C RABATT COMP 0 39NOLL C RTYP COMP 0 85NOLL C N39 85 RAB + EJ TYP COR 39N85 SETON 2686 EJ RAB + TYP C* 86-07-23+ C RTYP COMP 0 85 86-07-23+ C N85 RTYP COMP 1 85 86-07-23+ C N85 RTYP COMP 3 85 86-07-23+ C N85 SETON 2686 86-07-23+ C* C 02 LEVKOD COMP 'X' 59LIKA C 02N59 LEVKOD COMP ' ' 1919 C ENDSR C******************************************************************** C* 11 TRYCK C******************************************************************** C TRYCK BEGSR C 01N48 EXSR BORT 8 C EXSR ARTFCH 12 C SETON 44 C***45****************MOVE NORML LÄNGD ****** C Z-ADDFÖRSTA NÄSTA 70 HIGH C L01 TAG C N70 GOTO L01S C NÄSTA CHAINP068 70 C 70 1 DIV P11 STOPP 10 STOPP C SETON 46 C 46 EXCPT C SETOF 46 C TRYCK COMP P68TRY 39LIKA C NÄSTA COMP 0 70 C 70N39 GOTO L01 C SETOF 13 C EXSR SÖKLÄT 13 C NÄSTA COMP 0 70 C 70 44 GOTO L01 C L01S TAG C 33 ÅVV COR 02 44 EXSR BOKA64 17 C 01 44N33 EXSR VISA2 18 C ENDSR C******************************************************************** C* 12 ARTFCH ARTNR,FÄRGNR CHAINAR TILL P064 C******************************************************************** C ARTFCH BEGSR C ARTFÄR CHAINP064 H1 C SETON 47 C 47 EXCPT C SETOF 47 C ENDSR C******************************************************************** C* 13 SÖKLÄT SÖK LÄNGD, TRYCK-NR ANGIVET C******************************************************************** C SÖKLÄT BEGSR C Z-ADD0 TOTL 70 C Z-ADD0 L 30 C L02 TAG C L ADD 1 L C FL,L COMP FLAM 70 C 70 EXSR RELPS 14 C L COMP 15 70 LÄGRE C 70 GOTO L02 C EXSR FYRAST 15 C ANTAL ADD 1000 JÄMFÖR 80 ** 100 METER ** C SETOF 1344 C 01 TOTL COMP JÄMFÖR 134413 C 01 TOTL COMP ANTAL 59 MINDRE C 01 59 MOVE 'X' WLEVK 1 C 02 LEVKOD COMP 'X' 59LIKA C 02N59 TOTL COMP ANTAL 99 C 02N59N99 SETON 13 C 02 59 SETON 44 C 33 SETOF 13 ÅVV C 33 SETON 44 ÅVV C 13 Z-ADDP68TRY TRYCK C 13 EXSR RESERT 16 C ENDSR C******************************************************************** C* 14 RELPS C******************************************************************** C RELPS BEGSR C TOTL ADD LS,L TOTL C TOTL SUB RS,L TOTL C ENDSR C******************************************************************** C* 15 FYRAST C******************************************************************** C FYRAST BEGSR C Z-ADD0 A C R01 TAG C A ADD 1 A C LEL,A COMP LÄNGD 70 C 70 F68,A COMP FLAM 70 C 70 TOTL SUB REL,A TOTL C A COMP 4 70 LÄGRE C 70 GOTO R01 C ENDSR C******************************************************************** C* 16 RESERT RESERVERA, TRYCK-NR ANGIVET C******************************************************************** C RESERT BEGSR C SETOF 32 C Z-ADD0 VARVA 10 C A03 TAG C Z-ADD0 A 10 C VARVA ADD 1 VARVA C A01 TAG C A ADD 1 A C LEL,A COMP LÄNGD 70LIKA C 70 F68,A COMP FLAM 70 C N70 32 LEL,A COMP 0 70 C 70 RECNR CHAINP068 H1 C 70 Z-ADDLÄNGD LEL,A C 70 ANTAL ADD REL,A REL,A C 70 MOVE FLAM F68,A C 70 SETON 46 C 70 MOVE '1' WTRYKO 10 C 46 EXCPT C SETOF 46 C 70 GOTO RESUT C A COMP 4 70 LÄGRE C 70 GOTO A01 C VARVA COMP 1 32LIKA C 32 GOTO A03 C RESUT ENDSR C******************************************************************** C* 17 BOKA64 C******************************************************************** C BOKA64 BEGSR C Z-ADD0 B 20 C ARTFÄR CHAINP064 H1 C B0164 TAG C B ADD 1 B C LET,B COMP LÄNGD 70LIKA C 70 F64,B COMP FLAM 70 C 70 RET,B ADD ANTAL RET,B C 70 GOTO BOKAUR C B COMP 10 70 LÄGRE C 70 GOTO B0164 C Z-ADD0 B C B0264 TAG C B ADD 1 B C LET,B COMP 0 70LIKA C 70 Z-ADDLÄNGD LET,B C 70 Z-ADDANTAL RET,B C 70 MOVE FLAM F64,B C 70 GOTO BOKAUR C B COMP 10 70 C 70 GOTO B0264 C BOKAUR TAG C SETON 47 C 47 EXCPT C SETOF 47 C ENDSR C******************************************************************** C* 18 VISA2 C******************************************************************** C VISA2 BEGSR C XFOOTRET XRET 60 C XRET DIV 10 XRET H XRET NU I METER 1981-03-12 C Z-ADD0 T3 C Z-ADD0 A3 C Z-ADD0 C 20 1-36 C Z-ADD0 BOK C Z-ADD0 ÅVV C Z-ADD0 MET C Z-ADD0 DIS C EXSR BOKMET 19 C Z-ADDFÖRSTA NÄSTA 70 HÖGRE C N70 GOTO SA3SLU C V00 TAG C Z-ADD0 L C NÄSTA CHAINP068 H1 C SETON 46 C 46 EXCPT C SETOF 46 C Z-ADD0 TOTL C V01 TAG C L ADD 1 L C FL,L COMP FLAM 39LIKA C 39 EXSR RELPS 14 C L COMP 15 70 LÄGRE C 70 GOTO V01 C EXSR FYRAST 15 C TOTL COMP 0 7070 C 70 C ADD 1 C C 70 Z-ADDP68TRY T3,C C 70 Z-ADDTOTL A3,C C NÄSTA COMP 0 70 C C COMP 9 39LIKA C 70N39 GOTO V00 C SA3SLU ENDSR C******************************************************************** C* 19 BOKMET C******************************************************************** C BOKMET BEGSR C Z-ADD0 BM 20 C MOVELARTFÄR KEY80 130 C MOVE '000000' KEY80 C KEY80 SETLLP080 C L80 TAG C SETOF 70 C READ P080 70END OF FILE C 70 GOTO SLUT80 C P80AF COMP ARTFÄR 7070 C 70 GOTO SLUT80 C DEL80 COMP 9 39LIKA C 39 GOTO L80 C MET7B COMP 0 39 STÖRRE C N39 MET7A SUB F80INL WK 70H70 C 39 MET7B SUB F80INL WK H70 C 70 BM ADD 1 BM C 70 WK COMP XRET 39 LÄGRE C 70 39 XRET SUB WK XRET C 70N39 WK SUB XRET DIS,BM C 70N39 Z-ADD0 XRET C 70 Z-ADDBOKNR BOK,BM C 70 Z-ADDF80ÅVD ÅVV,BM C 70 Z-ADDWK MET,BM C BM COMP 12 70 C 70 GOTO L80 C SLUT80 ENDSR C******************************************************************** C* 20 UPPDAT C******************************************************************** C UPPDAT BEGSR C Z-ADD0 F 10 C FEMMAN TAG C F ADD 1 F C SA COMP 'S' 39SVENSKA C NYANM COMP *BLANKS 59BLANKT C 59 39 31 MOVEAS1,F NYANM C SA COMP 'E' 39ENGELSKA C 59 39 31 MOVEAS2,F NYANM C SA COMP 'T' 39TYSKA C 59 39 31 MOVEAS3,F NYANM C 31 NYANM COMP *BLANKS 70 C 31 70 GOTO UPPSLU C F COMP 1 70 C 70 POSIN ADD 1 POSIN C Z-ADDPOSIN ORAD C OKEY CHAINORDER 39 C SETON 56 C 56 EXCPT UPPDATERING C SETOF 56 C 39 EXSR FYLL 21 C F COMP 5 70 LÄGRE C STD COMP 0 08NOLL C N08 MOVE *BLANKS NYANM C N08 31 70 GOTO FEMMAN C UPPSLU TAG C EXSR VISA 3 C ENDSR C******************************************************************** C* 21 FYLL C******************************************************************** C FYLL BEGSR C Z-ADD2 ORAD C OKEY CHAINORDER H1 C MÅNGA ADD 1 MÅNGA C SETON 61 C EXCPT C SETOF 61 C POSIN COMP HÖGST 39 STÖRRE C 39 Z-ADDPOSIN HÖGST 40 C MOVE POSIN NR,NÄ C Z-ADDNÄ SI 30 C NÄ ADD 1 NÄ C ENDSR C******************************************************************** C* 22 B03 C******************************************************************** C B03 BEGSR C SETOF 54 C KUNDNR COMP 0 52 C MOVE KUNDNR LDAKND C LETORD COMP '*****' 5353 C MOVE LETORD LDALET C**UNDERHÅLL KUNDREG? -------------------------------- C KH MOVE 'H' CMDKOD NYREGISTR C KI MOVE 'I' CMDKOD BORTTAG C KJ MOVE 'J' CMDKOD FRÅGA C KK MOVE 'K' CMDKOD ÄNDRING C CMDKOD COMP ' ' 4242 EJ BLANK C 42 SETON 99 STYR OUTPUT C 42 GOTO B03END C**KONTROLL ALTERNATIV ------------------------------- C 52 53 CORN52N53 SETON 212299 C 99 GOTO B03END C**KONTROLL KUNDNR ----------------------------------- HÄR SKER KONTROLL C SETOF 39 C 52 KUNDNR CHAINK011 39 C 52N39 DEL11 COMP 9 39LIKA C 39 SETON 2199 C** 95-05-31+ C Z-ADD*ZEROS XKEDJA 50 nolla output kedja 95-05-31+ C Z-ADD*ZEROS VKEDJA 50 nolla visa kedja 95-05-31+ C WKEDJA IFGT *ZEROS om kedja är ifyllt 95-05-31+ C WKEDJA CHAINK011 39 chain till kundreg 95-05-31+ C 39 SETON 2199 kedjan finns inte! 95-05-31+ C 39 MOVEL'FINNS EJ'WKEDNM 36 visa detta........ 95-05-31+ C N39 MOVELFNAMN WKEDNM kedjan fanns,visa! 95-05-31+ C N39 Z-ADDWKEDJA XKEDJA fyll output kedja! 95-05-31+ C Z-ADDWKEDJA VKEDJA fyll visa-kedja!!! 95-05-31+ C Z-ADD*ZEROS WKEDJA nolla input!!!!!!! 95-05-31+ C END om kedja är ifyllt 95-05-31+ C N99 KUNDNR CHAINK011 39 återställ ordning! 95-05-31+ C** 94-01-25+ C 52N39 AVTRAB IFEQ 'J' AVTAL KUNDRABATT 94-01-25+ C KUNDNR CHAINT011 39 AVTAL KUNDRABATT 94-01-25+ C END AVTAL KUNDRABATT 94-01-25+ C** 94-01-25+ C 52N39 FDIV COMP 1 8787 EJ TEXTIL C 87 SETON 2199 C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* HÄMTA KUNDFORDRAN FRÅN EXTERNT KUND-REGISTER (T.EX. I NORGE) 88-06-09+ C* 88-06-09+ C* 52 KUNDNR CHAINK011EX 39 88-06-09+ C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* 88-06-09+ C**SÖKNING ------------------------------------------- C 53N99 EXSR SÖK 23 C 53N99 EXSR LÄS 27 C B03END ENDSR C******************************************************************** C* 23 SÖK C******************************************************************** C SÖK BEGSR C LET1 COMP '*' 23 C 23 SETON 2299 C N23 LET1 CHAINK012 24 C 24 SETON 99 C N99 EXSR ANTPOS 24 C N99 EXSR FLYTTA 26 C N99 MOVEAAR SÖKER 5 C ENDSR C******************************************************************** C* 24 ANTPOS C******************************************************************** C ANTPOS BEGSR C Z-ADD1 XX 10 C LOOPA TAG C XX ADD 1 XX C AR,XX COMP '*' 39LIKA C 39 EXSR KLART 25 C XX COMP 5 32 MINDRE C N39N32 EXSR KLART 25 C N39N32 SETOF 95 C N39 32 GOTO LOOPA C ENDSR C******************************************************************** C* 25 KLART C******************************************************************** C KLART BEGSR C XX COMP 2 92 C XX COMP 3 93 C XX COMP 4 94 C XX COMP 5 95 C ENDSR C******************************************************************** C* 26 FLYTTA SÖKBEGREPPET SOM SLÅS IN C******************************************************************** C FLYTTA BEGSR C MOVEAAR AA 5 C 92 MOVE ' ' AA C 93 MOVE ' ' AA C 94 MOVE ' ' AA C 95 MOVE ' ' AA C ENDSR C******************************************************************** C* 27 LÄS C******************************************************************** C LÄS BEGSR C SIDNR ADD 1 SIDNR C Z-ADD0 XNR C Z-ADD0 XDI C MOVE *BLANKS XNA C MOVE *BLANKS XPA C 03 LET1 CHAINK012 H4 C 03 MOVE LFNR NEXT C LÄSL TAG C NEXT COMP 0 41 C 41 GOTO LÄSS C NEXT CHAINK011 70 C 70 1 DIV P5 STOPP 10 C N70 DEL11 COMP 9 70DELETAD C 70 GOTO LÄSL C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* OM UTLÄNDSK ANVÄNDARE SKALL ENDAST AKTUELLT LANDS KUNDER VISAS 88-06-09+ C* 88-06-09+ C WSUTL IFGT *BLANKS 88-06-09+ C WSLAND IFNE FLANDK 88-06-09+ C GOTO LÄSL 88-06-09+ C END 88-06-09+ C END 88-06-09+ C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* 88-06-09+ C EXSR FLYTTB 28 C AA COMP BB 4170MINDRE/LIKA C 70 EXSR VISKN 29 C N41N70 CORN59 70 GOTO LÄSL C LÄSS ENDSR C******************************************************************** C* 28 FLYTTB RESP KUNDS SÖKORD FRÅN KUNDREG. C******************************************************************** C FLYTTB BEGSR C 92 MOVE ' ' BB C 93 MOVE ' ' BB C 94 MOVE ' ' BB C 95 MOVE ' ' BB C ENDSR C******************************************************************** C* 29 VISKN C******************************************************************** C VISKN BEGSR C SETOF 59 C FDIV COMP 1 39TEXTIL C N39 GOTO VISAEJ C Y ADD 1 Y 40 C Y DIV 15 SID 20 C MVR REST 20 C REST COMP 0 59NOLL C 59 Z-ADD15 RA 20 C N59 Z-ADDREST RA C MOVE KNR XNR,RA C MOVE FNAMN XNA,RA C MOVE FPADR XPA,RA C MOVE FDIV XDI,RA C VISAEJ ENDSR C******************************************************************** C* 30 INFOUT C******************************************************************** C INFOUT BEGSR C*SPARA PROGRAM-TEKNISK ORDER-INFO I ORDER-REG, RAD 3 OCH 4 C MOVEANR,1 OR C Z-ADD3 ORAD C SETON 79 C EXCPT C* C MOVEANR,101 OR C Z-ADD4 ORAD C EXCPT C SETOF 79 C ENDSR C******************************************************************** C* 31 KONTROLL OM KODER ÄR GILTIGA SAMT ÖVERSÄTTNING * C******************************************************************** C KOD BEGSR C SETOF 212223 C SETOF 242526 C SETOF 273009 C SETOF 6999 C MOVEL'K.K011 'KEY11 11 C MOVE '022' KEY11 C MOVELKEY11 KEY16 C MOVE ' ' KEY5 C 80 98 MOVELSPRÅK KEY5 NY ORDER C 05 MOVELWSPRÅK KEY5 C 80N98 10 MOVELOSPRÅK KEY5 EFTER KOMPL. C MOVE KEY5 KEY16 C KEY16 CHAINP003 39 C N39 DEL03 COMP 9 39LIKA C 39 SETON 2599 C 39 GOTO KODEND C KEY5 COMP 'S ' 31 C KEY5 COMP 'E ' 32 C KEY5 COMP 'T ' 33 C 31 MOVE BESK11 BSPRÅK 25 C 32 MOVE BESK21 BSPRÅK C 33 MOVE BESK31 BSPRÅK C MOVE ' ' KEY5 C MOVE '014' KEY11 C MOVELKEY11 KEY16 16 C 98 MOVELBETV KEY5 5 C 05 MOVELWBETV KEY5 C N98 10 MOVELOBETV KEY5 C* 88-06-09+ C* HÄMTA LAND-UNIK TEXT FRÅN KOD-REGISTRET 88-06-09+ C* 88-06-09+ C MOVE FLANDK KEY5 88-06-09+ C* 88-06-09+ C MOVE KEY5 KEY16 C KEY16 CHAINP003 39 C N39 DEL03 COMP 9 39LIKA C* 88-06-09+ C* HÄMTA GENERELL TEXT FRÅN KOD-REGISTRET OM LAND-UNIK KOD SAKNAS 88-06-09+ C* 88-06-09+ C 39 MOVE ' ' KEY5 88-06-09+ C* 88-06-09+ C 39 MOVE KEY5 KEY16 C 39 KEY16 CHAINP003 39 C* 88-06-09+ C N39 DEL03 COMP 9 39LIKA C N39 31 MOVE BESK12 BBETV 35 C N39 32 MOVE BESK22 BBETV C N39 33 MOVE BESK32 BBETV C 39 SETON 2199 C MOVE ' ' KEY5 C 98 MOVELLEVV KEY5 C 05 MOVELWLEVV KEY5 C N98 10 MOVELOLEVV KEY5 C MOVE '015' KEY11 C MOVELKEY11 KEY16 C* 88-06-09+ C* HÄMTA LAND-UNIK TEXT FRÅN KOD-REGISTRET 88-06-09+ C* 88-06-09+ C MOVE FLANDK KEY5 88-06-09+ C* 88-06-09+ C MOVE KEY5 KEY16 C KEY16 CHAINP003 39 C N39 DEL03 COMP 9 39LIKA C* 88-06-09+ C* HÄMTA GENERELL TEXT FRÅN KOD-REGISTRET OM LAND-UNIK KOD SAKNAS 88-06-09+ C* 88-06-09+ C 39 MOVE ' ' KEY5 88-06-09+ C* 88-06-09+ C 39 MOVE KEY5 KEY16 C 39 KEY16 CHAINP003 39 C* 88-06-09+ C N39 DEL03 COMP 9 39LIKA C N39 31 MOVE BESK12 BLEVV 35 C N39 32 MOVE BESK22 BLEVV C N39 33 MOVE BESK32 BLEVV C 39 SETON 2299 C WLEVS COMP 0 70 STÖRRE C WLEVS1 COMP ' ' 39BLANK C WLEVS2 COMP ' ' 59BLANK C 05N70 39 CAN 59 SETON 70 C OLEVS COMP 0 39 STÖRRE C N98 10N39 COR 05N70 GOTO FÖRBI C MOVE ' ' KEY5 C 98 MOVELLEVS KEY5 C 05 70 MOVELWLEVS KEY5 C N98 10 39 MOVELOLEVS KEY5 C MOVE '016' KEY11 C MOVELKEY11 KEY16 C* 88-06-09+ C* HÄMTA LAND-UNIK TEXT FRÅN KOD-REGISTRET 88-06-09+ C* 88-06-09+ C MOVE FLANDK KEY5 88-06-09+ C* 88-06-09+ C MOVE KEY5 KEY16 C KEY16 CHAINP003 59 C N59 DEL03 COMP 9 59LIKA C* 88-06-09+ C* HÄMTA GENERELL TEXT FRÅN KOD-REGISTRET OM LAND-UNIK KOD SAKNAS 88-06-09+ C* 88-06-09+ C 59 MOVE ' ' KEY5 88-06-09+ C* 88-06-09+ C 59 MOVE KEY5 KEY16 C 59 KEY16 CHAINP003 59 C* 88-06-09+ C N59 DEL03 COMP 9 59LIKA C 31N59 MOVE BESK12 BLEVS 35 C 32N59 MOVE BESK22 BLEVS C 33N59 MOVE BESK32 BLEVS C 05 70 MOVE BLEVS WLEVS1 C 05 70 MOVE *BLANKS WLEVS2 C N98 10 39 MOVE BLEVS OLEVS1 C N98 10 39 MOVE *BLANKS OLEVS2 C 59 SETON 2799 C FÖRBI TAG C MOVE ' ' KEY5 C 98 MOVELORDK KEY5 C 05 MOVELWORDK KEY5 C N98 10 MOVELOORDK KEY5 C MOVE '024' KEY11 C MOVELKEY11 KEY16 C MOVE KEY5 KEY16 C KEY16 CHAINP003 59 C N59 DEL03 COMP 9 59LIKA C N59 31 MOVE BESK11 BORDK 25 C N59 32 MOVE BESK21 BORDK C N59 33 MOVE BESK31 BORDK C 59 SETON 2499 C* 88-03-03+ C WLTYP IFGT *ZEROS 88-03-03+ C MOVEL'P070 'KEY11 11 88-03-03+ C MOVE '002' KEY11 88-03-03+ C MOVELKEY11 KEY16 88-03-03+ C MOVE ' ' KEY5 88-03-03+ C MOVELWLTYP KEY5 88-03-03+ C MOVE KEY5 KEY16 88-03-03+ C KEY16 CHAINP003 39 88-03-03+ C N39 DEL03 COMP 9 39LIKA 88-03-03+ C 39 SETON 0999 88-03-03+ C END 88-03-03+ C* 88-03-03+ C KEY5 COMP 'S ' 31 C MOVEL1 KEY4 40 TEXTIL C 98 MOVE PRLI PRLIST 30 C 98 MOVEL0 PRLIST C 98 MOVE PRLIST KEY4 C 05 MOVE WPRLI KEY4 C N98 10 MOVE LISTA KEY4 C KEY4 CHAINP075 70 C N70 DEL75 COMP 9 70LIKA C 70 SETON 2399 C N70 80 98VAL COMP VKOD 3030 C N70 80N98OVAL COMP VKOD 3030 C N70 05 WVAL COMP VKOD 3030 C N70 80 30 CORN70 05 30 SETON 99 C KODEND ENDSR C******************************************************************** C* 32 KONTROLL OM ORDERN SKALL GODKÄNNAS * C******************************************************************** C GODK BEGSR C SETOF 28 C LEVV COMP WLEVV 5252 OLIKA C LEVS COMP WLEVS 5353 OLIKA C ORAB COMP WORAB 54 MINDRE C BRAB COMP WBRAB 43 MINDRE C 0 COMP WKARAB 70 MINDRE C 70 MOVE '1' F507 10 C N70 MOVE '0' F507 C WPRLI COMP PRLI 2929 OLIKA C WORAB COMP 0 39LIKA C N54 39 WOKR COMP 0 54 STÖRRE C KRAB COMP WKRAB 39 MINDRE C 39 MOVE '1' F505 1 C N39 MOVE ' ' F505 C WKRAB COMP 0 08NOLL C N39 08 WKKR COMP 0 39 STÖRRE C N43 63 WBKR COMP 0 43 STÖRRE C WBETV COMP 15 64LIKA 1983-02-21 C N64 WBETV COMP 16 64 1983-02-21 C N64 WBETV COMP 17 64 1983-02-21 C BETV COMP WBETV 08 STÖRRE C 08 MOVE '1' F501 1 C N08 MOVE ' ' F501 C 08N64 C** 52 ******** ** BORTTAGEN ** C** 53 ******** ** BORTTAGEN ** C** 54 ******** ** BORT 940926 94-09-26B COR 39N64 COR 43 COR 70 SETON 28 C** kontroll av kundfordran / kreditgräns C MOMS COMP 1 71 C MOMS COMP 2 72 C MOMS COMP 3 73 C 71 Z-ADDMOMS1 MOMSX C 72 Z-ADDMOMS2 MOMSX C 73 Z-ADDMOMS3 MOMSX C OVÄRDE MULT MOMSX MBEL 92H C OVÄRDE ADD MBEL BRUTTO 112 C KFORD ADD BRUTTO JMFR 112 C JMFR COMP GRÄNS 08 STÖRRE C 08 MOVE '1' F510 1 C N08 MOVE ' ' F510 C 08 SETON 28 C 28 MOVE '1' OK022 C N28 MOVE '0' OK022 C MOVE OK022 XK022 1 C ENDSR C******************************************************************** C* 33 PRISSÄTTNING AV ORDERRADER * C******************************************************************** C PRIS BEGSR C 69 MOVELTXT,1 TEXT 20 C 69 SETON 97 C EXCPT INFO-BILD C SETOF 97 C Z-ADD2 ORAD C OKEY CHAINORDER 70 C SETON 58 C EXCPT C SETOF 58 C WBRAB COMP 0 63 STÖRRE C Z-ADD0 ORDVÄR 112 C* 86-07-23+ C Z-ADD*ZEROS BONVÄR 92 86-07-23+ C Z-ADD*ZEROS SUMAVM 72 86-07-23+ C Z-ADD*ZEROS ORABKR 72 86-07-23+ C Z-ADD*ZEROS KRABKR 72 86-07-23+ C* 86-07-23+ C OKEY CHAINORDER H2 C EXSR STARTP 34 C SETOF 59 WEJFÖL "1" C MOVE '1' WEJFÖL C* 88-05-24+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-05-24+ C* LEIF GARDINER - KONTROLL AV TOTALA ANTALET INKÖPTA METER 88-05-24+ C* 88-05-24+ C***** Z-ADD*ZEROS X 88-05-24+ C***** Z-ADD*ZEROS TOTKÖP 90 88-05-24+ C***** LOOP3A TAG 88-05-24+ C***** X ADD 1 X 88-05-24+ C***** X COMP SI 64 STÖRRE 88-05-24+ C***64 GOTO PRIS2A 88-05-24+ C***** EXSR SETOF 35 88-05-24+ C***** SETOF 1112 88-05-24+ C***** MOVE NR,X ORAD 88-05-24+ C***** OKEY CHAINORDER 70 88-05-24+ C**N11 GOTO LOOP3A EJ ART.RAD 88-05-24+ C* 88-05-24+ C***** WANT IFGE 250 > ELLER = 25 METER 88-05-24+ C***** ADD WANT TOTKÖP 88-05-24+ C***** END 88-05-24+ C* 88-05-24+ C***** SETON 84 88-05-24+ C***84 EXCPT 88-05-24+ C***** SETOF 84 88-05-24+ C***** GOTO LOOP3A 88-05-24+ C***** PRIS2A TAG 88-05-24+ C* 88-05-24+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-05-24+ C* 88-05-24+ C Z-ADD0 X C LOOP3 TAG C X ADD 1 X C X COMP SI 64 STÖRRE C 64 GOTO PRIS2 C EXSR SETOF 35 C SETOF 1112 C MOVE NR,X ORAD C OKEY CHAINORDER 70 C N11 GOTO LOOP3 EJ ART.RAD C** 94-01-25+ C** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 94-01-25+ C** 94-01-25+ C** OM KUNDEN HAR RABATT-AVTAL OCH INGEN MANUELL RABATT ÄR SATT 94-01-25+ C** 94-01-25+ C PKOD IFNE 1 INGEN MANUELL RABATT 94-01-25+ C AVTRAB IFEQ 'J' J=RABATTAVTAL K011 94-01-25+ C TAVTFR IFLE UDATE AVTAL DATUM T011 94-01-25+ C TAVTTI IFGE UDATE AVTAL DATUM T011 94-01-25+ C** 94-01-25+ C WARTNR CHAINP063 39 94-01-25+ C** 94-01-25+ C Z-ADD*ZEROS RKOD RABATT-TYP NOLL 94-01-25+ C Z-ADD*ZEROS FRAB RABATT % NOLL 94-01-25+ C** 94-01-25+ C** 94-01-25+ C FPDGRP IFEQ 3 96-04-01+ C Z-ADD2 FPDGRP 96-04-01+ C END 96-04-01+ C** 94-01-25+ C** BORT FPDGRP IFEQ 31 PROD.GRP 31 P063 94-01-25+ C FPDGRP IFEQ 1 PROD.GRP 3(1) P063 96-03-14+ C TMÖTYG IFEQ 'J' J=AVTAL T011 94-01-25+ C TART06 IFEQ *BLANKS INGA ARTIKLAR 94-01-25+ C PKOD IFEQ *ZEROS EJ MANUELLT PRIS 94-01-25+ C RKOD IFEQ *ZEROS EJ MANUELL RABATT 94-01-25+ C** 94-01-25+ C Z-ADD1 RKOD 38 RABATT-TYP = 1 94-01-25+ C Z-ADDTAVRAB FRAB RABATT % T011 94-01-25+ C** 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C** 94-01-25+ C** 94-01-25+ C** BORT FPDGRP IFEQ 31 PROD.GRP 31 P063 94-01-25+ C FPDGRP IFEQ 1 PROD.GRP 3(1) P063 96-03-14+ C TMÖTYG IFEQ 'J' J=AVTAL T011 94-01-25+ C TART06 IFNE *BLANKS ARTIKLAR FINNS 94-01-25+ C PKOD IFEQ *ZEROS EJ MANUELLT PRIS 94-01-25+ C RKOD IFEQ *ZEROS EJ MANUELL RABATT 94-01-25+ C** 94-01-25+ C MOVEATART06 TRR FYLL ARRAY'EN 94-01-25+ C SETOF 45 94-01-25+ C 1 DO 15 IX 20 LOOP 94-01-25+ C N45 WARTNR COMP TRR,IX 45TRÄFF?? 45=EQ 94-01-25+ C END 1 STEGA 1 ELEMENT 94-01-25+ C** 94-01-25+ C 45 Z-ADD1 RKOD 38 RABATT-TYP = 1 94-01-25+ C 45 Z-ADDTAVRAB FRAB RABATT % T011 94-01-25+ C** 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C** 94-01-25+ C** 94-01-25+ C** BORT FPDGRP IFEQ 32 PROD.GRP 32 P063 94-01-25+ C FPDGRP IFEQ 2 PROD.GRP 3(2) P063 96-03-14+ C TGATYG IFEQ 'J' J=AVTAL T011 94-01-25+ C TART05 IFEQ *BLANKS INGA ARTIKLAR 94-01-25+ C PKOD IFEQ *ZEROS EJ MANUELLT PRIS 94-01-25+ C RKOD IFEQ *ZEROS EJ MANUELL RABATT 94-01-25+ C** 94-01-25+ C Z-ADD1 RKOD 38 RABATT-TYP = 1 94-01-25+ C Z-ADDTAVRAB FRAB RABATT % T011 94-01-25+ C** 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C** 94-01-25+ C** 94-01-25+ C** BORT FPDGRP IFEQ 32 PROD.GRP 32 P063 94-01-25+ C FPDGRP IFEQ 2 PROD.GRP 3(2) P063 96-03-14+ C TGATYG IFEQ 'J' J=AVTAL T011 94-01-25+ C TART05 IFNE *BLANKS ARTIKLAR FINNS 94-01-25+ C PKOD IFEQ *ZEROS EJ MANUELLT PRIS 94-01-25+ C RKOD IFEQ *ZEROS EJ MANUELL RABATT 94-01-25+ C** 94-01-25+ C MOVEATART05 TRR FYLL ARRAY'EN 94-01-25+ C SETOF 45 94-01-25+ C 1 DO 15 IX 20 LOOP 94-01-25+ C N45 WARTNR COMP TRR,IX 45TRÄFF?? 45=EQ 94-01-25+ C END 1 STEGA 1 ELEMENT 94-01-25+ C** 94-01-25+ C 45 Z-ADD1 RKOD 38 RABATT-TYP = 1 94-01-25+ C 45 Z-ADDTAVRAB FRAB RABATT % T011 94-01-25+ C** 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C END 94-01-25+ C** 94-01-25+ C** 94-01-25+ C* FPDGRP IFEQ 39 PROD.GRP 39 P063 94-01-25+ C* TPBTYG IFEQ 'J' J=AVTAL T011 94-01-25+ C* TART07 IFEQ *BLANKS INGA ARTIKLAR 94-01-25+ C* PKOD IFEQ *ZEROS EJ MANUELLT PRIS 94-01-25+ C* RKOD IFEQ *ZEROS EJ MANUELL RABATT 94-01-25+ C** 94-01-25+ C* Z-ADD1 RKOD 38 RABATT-TYP = 1 94-01-25+ C* Z-ADDTAVRAB FRAB RABATT % T011 94-01-25+ C** 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C** 94-01-25+ C** 94-01-25+ C* FPDGRP IFEQ 39 PROD.GRP 39 P063 94-01-25+ C* TPBTYG IFEQ 'J' J=AVTAL T011 94-01-25+ C* TART07 IFNE *BLANKS ARTIKLAR FINNS 94-01-25+ C* PKOD IFEQ *ZEROS EJ MANUELLT PRIS 94-01-25+ C* RKOD IFEQ *ZEROS EJ MANUELL RABATT 94-01-25+ C** 94-01-25+ C* MOVEATART07 TRR FYLL ARRAY'EN 94-01-25+ C* SETOF 45 94-01-25+ C* 1 DO 15 IX 20 LOOP 94-01-25+ C* N45 WARTNR COMP TRR,IX 45TRÄFF?? 45=EQ 94-01-25+ C* END 1 STEGA 1 ELEMENT 94-01-25+ C** 94-01-25+ C* 45 Z-ADD1 RKOD 38 RABATT-TYP = 1 94-01-25+ C* 45 Z-ADDTAVRAB FRAB RABATT % T011 94-01-25+ C** 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C* END 94-01-25+ C** 94-01-25+ C** 94-01-25+ C END AVTAL DATUM T011 94-01-25+ C END AVTAL DATUM T011 94-01-25+ C END J=RABATTAVTAL K011 94-01-25+ C END INGEN MANUELL RABATT 94-01-25+ C** 94-01-25+ C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 90-12-12+ C* Automatisk rabatt för möbelhandlare 90-12-12+ C* 90-12-12+ C**** WARTNR CHAINP063 39 90-12-12+ C* 90-12-12+ C**** KATEG IFEQ 11 KATEGORI = 11 90-12-12+ C**** ARTGR IFGE 12 ARTGR >= 12 90-12-12+ C**** ARTGR IFLE 13 ARTGR <= 13 90-12-12+ C**** PKOD IFEQ *ZEROS EJ MANUELLT PRIS 90-12-12+ C**** RKOD IFEQ *ZEROS EJ MANUELL RABATT 90-12-12+ C* 90-12-12+ C**** Z-ADD1 RKOD 38 RABATT-TYP = 1 90-12-12+ C**** Z-ADD25 FRAB AUTOMATRABATT = 25 % 90-12-12+ C* 90-12-12+ C**** END 90-12-12+ C**** END 90-12-12+ C**** END 90-12-12+ C**** END 90-12-12+ C**** END 90-12-12+ C** 96-12-05+ C* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 90-12-12+ C* 90-12-12+ C EXSR TEXTIL 36 C SETON 49 C 49 EXCPT C SETOF 49 C GOTO LOOP3 C PRIS2 TAG C SETOF 212223 C SETOF 2425 C ORAB2 COMP 0 39 STÖRRE C*** Z-ADD0 ORABKR C***39 ORDVÄR MULT ORAB2 ORABKR 72H C*** ORDVÄR SUB ORABKR ORDVÄR C KRAB2 COMP 0 08 STÖRRE C*** Z-ADD0 KRABKR C***08 ORDVÄR MULT KRAB2 KRABKR 72H C*** ORDVÄR SUB KRABKR ORDVÄR C* C KARAB COMP 0 64 STÖRRE C Z-ADD0 KARBKR C 64 ORDVÄR MULT KARAB KARBKR 72H C ORDVÄR SUB KARBKR ORDVÄR C* 86-07-23+ C STY4 COMP 1 85 EJ BONUS 86-10-10+ C* 86-10-10+ C N85 BONVÄR SUB KARBKR BONVÄR 86-10-10Ä C* 86-07-23+ C Z-ADD0 BRABKR C 63 BONVÄR MULT BRAB2 BRABKR 72H C ORDVÄR SUB BRABKR ORDVÄR C* 86-07-23+ C ORDVÄR ADD SUMAVM ORDVÄR 86-07-23+ C* 86-07-23+ C FLANDK CHAINS053 70 C N70 DEL53 COMP 9 70LIKA C N48 GOTO EJEXP C N70 BRUTTO COMP EXPGRÄ 65 TEXTIL C N70 65 ORDVÄR ADD EXPAVG ORDVÄR TEXTIL C EJEXP TAG C VAL LOKUPTAB52 TAB52D 70TRÄFF C 70 MOVE TAB52D DS052 8 --> 11 C* C 70 Z-ADDORDVÄR OVÄVAL O-VÄRDE VALUTA C* C 70 ORDVÄR MULT KURS2 ORDVÄR H C* 86-07-23+ C 70 BONVÄR MULT KURS2 BONVÄR H 86-07-23+ C* 86-07-23+ C Z-ADD2 ORAD C OKEY CHAINORDER 70 C ORAB2 COMP 0 39 STÖRRE C SETON 50 C EXCPT C SETOF 50 C OKEY CHAINORDER 70 C N70 SETON 84 C N70 EXCPT DUMMY C N70 SETOF 84 C Z-ADDORDDAT ODAT C MOVE OSPRÅK WSPRÅK C ENDSR C******************************************************************** C* 34 BERÄKNINGAR VID HEADER-POSTEN * C******************************************************************** C STARTP BEGSR C SETOF 2122 C SETOF 2426 C SETOF 3738 C SETOF 435465 C MOVE '0' F411 1 C OKNR CHAINK011 H5 C** 94-01-25+ C AVTRAB IFEQ 'J' AVTAL KUNDRABATT 94-01-25+ C OKNR CHAINT011 H5 AVTAL KUNDRABATT 94-01-25+ C END AVTAL KUNDRABATT 94-01-25+ C** 94-01-25+ C STY3 COMP 1 43LIKA C KEDJA COMP 0 39 STÖRRE C NH5 39N43KEDJA CHAINK011 H5 C NH5 39N43STY3 COMP 1 43LIKA C NH5 39 OKNR CHAINK011 H5 C FLANDK CHAINS053 70 C FLANDK COMP 001 96 STÖRRE C EXPKOD COMP 1 48LIKA C Z-ADD0 AVSUM 72 C Z-ADD0 BRUTTO C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* HÄMTA KUNDFORDRAN FRÅN EXTERNT KUND-REGISTER (T.EX. I NORGE) 88-06-09+ C* 88-06-09+ C* OKNR CHAINK011EX 39 88-06-09+ C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* 88-06-09+ C ENDSR C******************************************************************** C* 35 NOLLSTÄLLNING OCH SETOF * C******************************************************************** C SETOF BEGSR C SETOF 313233 C SETOF 5253 C Z-ADD0 PRISX 72 C Z-ADD0 RABX 52 C Z-ADD0 RADPR 72 C Z-ADD0 RADRAB 52 C ENDSR C******************************************************************** C* 36 TEXTIL BERÄKNING AV FÖRSÄLJNINGSPRIS OCH RABATT * C******************************************************************** C TEXTIL BEGSR C* C N59 TRKOD COMP 0 59 STÖRRE C 59 MOVE '0' WEJFÖL 10 C N59 MOVE '1' WEJFÖL C Z-ADDLISTA L C* 87-01-26+ C* KONTROLL OM "STAFFLAD" PRISLISTA 87-01-26+ C* 87-01-26+ C NYL53 COMP *BLANKS 8585 TV. ENGLAND 87-01-26+ C 85 WANT COMP 300 85 85 TV. ENGLAND 87-01-26+ C 85 L ADD 1 L TV. ENGLAND 87-01-26+ C* 88-05-24+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-05-24+ C* LEIF GARDINER - KONTROLL FÖR STAFFLAD PRISLISTA 88-05-24+ C* 88-05-24+ C***** WANT IFGE 250 RADEN MINST 25 M 88-05-24+ C***** ADD 1 L 88-05-24+ C***** TOTKÖP IFGE 3000 TOTALT MINST 300 M 88-05-24+ C***** ADD 1 L 88-05-24+ C***** END 88-05-24+ C***** END 88-05-24+ C***** 87-01-26+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 87-01-26+ C* KONTROLL AV KUND-UNIKT PRIS C* 87-01-07+ C MOVELOKNR FÄLT9 9 C MOVE WARTNR FÄLT9 C* 87-01-07+ C SETOF 85 87-01-07+ C WFÄRG COMP 980 85 85 87-01-07+ C 85 WFÄRG COMP 998 8585 87-01-07+ C 85 Z-ADDWFÄRG WKART 40 87-01-07+ C 85 MOVE WKART FÄLT9 87-01-07+ C* 87-01-07+ C MOVELWFLAM FÄLT4 4 C MOVE L FÄLT4 C MOVELFÄLT9 KEY13 13 C MOVE FÄLT4 KEY13 C* 87-01-07+ C KEY13 CHAINP069 70 C N70 DEL69 COMP 9 70LIKA C 70 GOTO N1 C UDAT1 COMP 0 31 C N31 ORDDAT COMP UDAT1 323132 C N31 32 UDAT2 COMP 0 32 C N31N32 ORDDAT COMP UDAT2 333233 C 31 Z-ADDUPRIS1 PRISX C 32 Z-ADDUPRIS2 PRISX C 33 Z-ADDUPRIS3 PRISX C N70 GOTO N2 C N1 TAG C* BERÄKNING AV FÖRSÄLJNINGSPRIS C MOVELWARTNR KEY5 5 C* 87-01-07+ C SETOF 85 87-01-07+ C WFÄRG COMP 980 85 85 87-01-07+ C 85 WFÄRG COMP 998 8585 87-01-07+ C 85 Z-ADDWFÄRG WKART 40 87-01-07+ C 85 MOVELWKART KEY5 87-01-07+ C* 87-01-07+ C MOVE WFLAM KEY5 C** 92-01-02+ C** Special för Finland 92-01-02+ C** 92-01-02+ C* BORT FLANDK IFEQ 006 landkod Finland 95-01-10B C* BORT WANT IFLT 150 antal decimeter 95-01-10B C* BORT ADD 1 L nästa prislista 95-01-10B C* BORT END 95-01-10B C* BORT END 95-01-10B C** C** Special för FMV 92-01-02+ C** 92-01-02+ C FLANDK IFEQ 001 landkod Sverige 92-01-02+ C PRLI IFEQ 11 prislista 11 92-01-02+ C KATEG IFEQ 51 kundtyp 51 92-01-02+ C WANT IFLT 150 antal decimeter 92-01-02+ C ADD 1 L nästa prislista 92-01-02+ C END 92-01-02+ C END 92-01-02+ C END 92-01-02+ C END 92-01-02+ C** C** Special för alla export-order 96-12-05+ C** 96-12-05+ C PRLI IFNE 21 ej prislista 21 97-02-10+ C PRLI IFNE 29 ej prislista 29 97-02-10+ C PKOD IFEQ *ZEROS ej manuellt pris 96-12-05+ C RKOD IFEQ *ZEROS ej manuell rabatt 96-12-05+ C FLANDK IFGT 001 landkod > 001 96-12-05+ C WANT IFGE 300 antal >= 300 96-12-05+ C Z-ADD1 RKOD 38 rabatt-typ = 1 96-12-05+ C Z-ADD5 FRAB automatrabatt = 5% 96-12-05+ C END antal >= 300 96-12-05+ C END landkod > 001 96-12-05+ C END ej manuell rabatt 96-12-05+ C END ej manuellt pris 96-12-05+ C END ej prislista 21 97-02-10+ C END ej prislista 29 97-02-10+ C** 96-12-05+ C************************************************************************* C KEY5 CHAINP067 H7 C KATEG IFNE 09 92-03-25+ C DAT1,L COMP 0 31 C N31 ORDDAT COMP DAT1,L 323132 C N31 32 DAT2,L COMP 0 32 C N31N32 ORDDAT COMP DAT2,L 333233 C 31 Z-ADDP1,L PRISX C 32 Z-ADDP2,L PRISX C 33 Z-ADDP3,L PRISX C END 92-03-25+ C** 92-03-25+ C** HÄMTA TILLVERKNINGSPRIS OM INTERNKUND 92-03-25+ C** 92-03-25+ C KATEG IFEQ 09 92-03-25+ C** 92-03-25+ C Z-ADDPRIS01 PRISX 92-03-25+ C** 92-03-25+ C DATUM1 IFNE *ZEROS 92-03-25+ C ORDDAT IFGE DATUM1 92-03-25+ C Z-ADDPRIS02 PRISX 92-03-25+ C END 92-03-25+ C END 92-03-25+ C** 92-03-25+ C DATUM2 IFNE *ZEROS 92-03-25+ C ORDDAT IFGE DATUM2 92-03-25+ C Z-ADDPRIS03 PRISX 92-03-25+ C END 92-03-25+ C END 92-03-25+ C** 92-03-25+ C END 92-03-25+ C** 92-03-25+ C** HÄMTA TILLVERKNINGSPRIS OM PRISLISTA = 88 ************* 94-01-03+ C** 94-01-03+ C WPRLI IFEQ 088 94-01-03+ C** 94-01-03+ C Z-ADDPRIS01 PRISX 92-03-25+ C** 92-03-25+ C DATUM1 IFNE *ZEROS 92-03-25+ C ORDDAT IFGE DATUM1 92-03-25+ C Z-ADDPRIS02 PRISX 92-03-25+ C END 92-03-25+ C END 92-03-25+ C** 92-03-25+ C DATUM2 IFNE *ZEROS 92-03-25+ C ORDDAT IFGE DATUM2 92-03-25+ C Z-ADDPRIS03 PRISX 92-03-25+ C END 92-03-25+ C END 92-03-25+ C** 92-03-25+ C** 94-01-03+ C END 94-01-03+ C* 94-01-03+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 92-01-24+ C* TILLÄGG AV AVVIKANDE PÅLÄGG - HÅRDKODAT !!!!!!!! 92-01-24+ C* 92-01-24+ C WARTNR IFEQ 8402 92-01-24+ C GOTO EJPÅSL 92-01-24+ C END 92-01-24+ C* 92-01-24+ C WARTNR IFEQ 8406 92-01-24+ C GOTO EJPÅSL 92-01-24+ C END 92-01-24+ C* 92-01-24+ C WARTNR IFEQ 8407 92-01-24+ C GOTO EJPÅSL 92-01-24+ C END 92-01-24+ C* 92-01-24+ C* WARTNR IFEQ 8426 94-02-01B C* WANT IFLT 500 94-02-01B C* ADD 6,00 PRISX 94-02-01B C* GOTO EJPÅSL 94-02-01B C* END 94-02-01B C* END 94-02-01B C** 94-02-01B C* WARTNR IFEQ 8431 94-02-01B C* WANT IFLT 400 94-02-01B C* ADD 7,00 PRISX 94-02-01B C* GOTO EJPÅSL 94-02-01B C* END 94-02-01B C* END 94-02-01B C** 94-02-01B C* WARTNR IFEQ 8432 94-02-01B C* WANT IFLT 400 94-02-01B C* ADD 20,00 PRISX 94-02-01B C* GOTO EJPÅSL 94-02-01B C* END 94-02-01B C* END 94-02-01B C** 94-02-01B C* 92-03-25+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 91-12-04+ C* TILLÄGG AV EV. PÅLÄGG OM ANTAL METER < GRÄNS (F.N. 15,0 METER) 91-12-04+ C* 91-12-04+ C KATEG IFNE 09 92-03-12+ C ARTGR IFNE 48 91-12-04+ C ARTGR IFNE 49 91-12-04+ C WANT IFLT 150 91-12-04+ C ADD PÅSLAG PRISX 91-12-04+ C END 91-12-04+ C END 91-12-04+ C END 91-12-04+ C END 92-03-12+ C** 97-02-10+ C** Special för Danmark, vissa utvalda artiklar...röda tråden... 97-02-10+ C** 97-02-10+ C PRLI IFEQ 20 prislista Contrast 97-02-10+ C*** PKOD IFEQ *ZEROS ej manuellt pris 97-02-10+ C*** RKOD IFEQ *ZEROS ej manuell rabatt 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 5252 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD66,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD78,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 5251 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD66,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD78,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 5328 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD74,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD86,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 5323 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD74,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD86,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 5325 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD66,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD78,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 5324 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD66,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD78,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 1463 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD66,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD78,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C WARTNR IFEQ 2268 artikelnummer 97-02-10+ C WANT IFGE 300 antal => 30 meter 97-02-10+ C Z-ADD82,00 PRISX låga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C ELSE annars 97-02-10+ C Z-ADD94,00 PRISX höga priset 97-02-10+ C Z-ADD*ZEROS RKOD nollställ rabatt 97-02-10+ C Z-ADD*ZEROS FRAB nollställ rabatt 97-02-10+ C END antal => 30 meter 97-02-10+ C END artikelnummer 97-02-10+ C** 97-02-10+ C*** END ej manuell rabatt 97-02-10+ C*** END ej manuellt pris 97-02-10+ C END prislista Contrast 97-02-10+ C** 97-02-10+ C EJPÅSL TAG 91-12-04+ C* 91-12-04+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 91-12-04+ C* 91-12-04+ C 38 GOTO N2 C* BERÄKNING AV RABATTSATS C Z-ADD0 RABX 52 C N2 TAG C*--------- SUMMERINGAR PER ORDERRAD -------------------------------- C 37 FPRIS COMP PRISX 29 C 37 29 MOVE '1' F411 C N37 Z-ADDPRISX RADPR C 37 Z-ADDFPRIS RADPR C N37N38 Z-ADDRABX RADRAB C 38 Z-ADDFRAB RADRAB C RADPR COMP 0 0808MINDRE/LIKA C 08 MOVE '1' F411 C WANT DIV 10 ANTDEC 71 C MÅTT COMP 1 39LIKA C 39 ANTDEC DIV 0,9144 ANTDEC H C RADPR MULT ANTDEC FÄLT 112H C FÄLT MULT RADRAB FÄLT1 134 C FÄLT1 DIV 100 FÄLT2 92H C FÄLT SUB FÄLT2 RADVÄR 92 C BRUTTO ADD FÄLT BRUTTO 112 C ORDVÄR ADD RADVÄR ORDVÄR 112 C* 86-07-23+ C RKOD COMP 1 85 86-07-23+ C 85 ADD FÄLT2 ORABKR 86-07-23+ C* 86-07-23+ C RKOD COMP 3 85 86-07-23+ C 85 ADD FÄLT2 KRABKR 86-07-23+ C* 86-07-23+ C SETOF 85 87-01-07+ C WFÄRG COMP 980 85 85 87-01-07+ C 85 WFÄRG COMP 998 8585 87-01-07+ C* 86-07-23+ C 85 GOTO EJBON 86-07-23+ C* 87-01-07+ C WBONDT COMP *ZEROS 85 86-07-23+ C 85 WBONDT COMP ORDDAT 85 86-07-23+ C* 86-07-23+ C 85 GOTO EJBON 86-07-23+ C* 86-07-23+ C STY4 COMP 1 85 EJ BONUS 86-10-10+ C* 86-10-10+ C 85 GOTO EJBON 86-10-10+ C* 86-10-10+ C BONVÄR ADD RADVÄR BONVÄR 86-07-23+ C* 86-07-23+ C EJBON TAG 86-07-23+ C* 86-07-23+ C 43 GOTO FÖRBI2 C WAVMÄT COMP 'X' 70LIKA C 70 71 AVMPR MULT RADVÄR AVMKR 72H C 70N71 Z-ADDAVTILL AVMKR C 70 AVSUM ADD AVMKR AVSUM 72 C* 86-07-23+ C 70 ADD AVMKR SUMAVM 86-07-23+ C***70 ORDVÄR ADD AVMKR ORDVÄR ** BORTTAGEN ** 86-07-23B C* 86-07-23+ C FÖRBI2 ENDSR C******************************************************************** C* 37 KONTROLLERA OM PRISUPPGIFTER HAR ÄNDRATS * C******************************************************************** C TEST BEGSR C OORAB COMP WORAB 3939 C N39 OKRAB COMP WKRAB 3939 C N39 OBRAB COMP WBRAB 3939 C N39 OKARAB COMP WKARAB 3939 C N39 OOKR COMP WOKR 3939 C N39 OKKR COMP WKKR 3939 C N39 OBKR COMP WBKR 3939 C N39 OKAKR COMP WKAKR 3939 C N39 OAVMÄP COMP WAVMÄP 3939 TEXTIL C 39 MOVE ' ' OK021 C ENDSR C******************************************************************** C* 38 ACCEPT C******************************************************************** C ACCEPT BEGSR C*SPARA ORDER-INFO C EXSR INFOUT 30 C*UPPLÄGG REG.NR I FILEN OREGNR C SETON 57 C EXCPT C SETOF 57 C*FÖRBERED NÄSTA ORDER C Z-ADD0 KUNDNR C EXSR BLANKA 2 C EXSR START 1 C ENDSR C******************************************************************** C* 39 B06 C******************************************************************** C B06 BEGSR C*FINNS REG.NR I OREGNR-FIL? C REGNR CHAINOREGNR 99 C 99 GOTO B06S C* C SETON 68 C EXCPT SYSDEL OREGNR C SETOF 68 C*INITIERING FÖR RADER C Z-ADD1 NÄ 30 NÄSTA INDEX C Z-ADD0 SI 30 SISTA INDEX C Z-ADD0 HÖGST 40 HÖGSTA RADNR C MOVE ' ' NR ANVÄNDA RADNR C*HÄMTA KUNDINFO C Z-ADD2 ORAD C OKEY CHAINORDER 99 C 99 GOTO B06S C OKNR CHAINK011 H5 C* 88-06-09+ C** 94-01-25+ C AVTRAB IFEQ 'J' AVTAL KUNDRABATT 94-01-25+ C OKNR CHAINT011 H5 AVTAL KUNDRABATT 94-01-25+ C END AVTAL KUNDRABATT 94-01-25+ C** 94-01-25+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* HÄMTA KUNDFORDRAN FRÅN EXTERNT KUND-REGISTER (T.EX. I NORGE) 88-06-09+ C* 88-06-09+ C* OKNR CHAINK011EX 39 88-06-09+ C* 88-06-09+ C* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 88-06-09+ C* 88-06-09+ C*HÄMTA ORDER-INFO, RAD 0003 C SETOF 15 C Z-ADD3 ORAD C OKEY CHAINORDER 99 C 99 GOTO B06S C SETON 66 C EXCPT SYSDEL ORDER C SETOF 66 C 15 MOVEAOR NR,1 C*RAD 0004 C SETOF 15 C Z-ADD4 ORAD C OKEY CHAINORDER 99 C 99 Z-ADD0 SI 30 SISTA INDEX C 99 Z-ADD0 HÖGST 40 HÖGSTA RADNR C 99 MOVE ' ' NR ANVÄNDA RADNR C 99 GOTO B06S C SETON 66 C EXCPT SYSDEL ORDER C SETOF 66 C 15 MOVEAOR NR,101 C SI ADD 1 NÄ C*VISA ORDER-RADER C EXSR VISA 3 C* C B06S ENDSR C******************************************************************** C* 40 RADER C******************************************************************** C RADER BEGSR C*SÄTT AV INDIK. FÖR BILD 1 VID NY/KOMPLETTERING AV/HÄMTAD ORDER C 01 COR 02 GOTO RADTAG C SETOF 192021 C SETOF 222324 C SETOF 252627 C SETOF 282930 C SETOF 678699 C SETOF 717273 C SETOF 747576 C* C RADTAG TAG C 01 KG FRÅN ANNULL. COR 02 KG -"- COR 05 KEN99 ORDERN ACCEPT. COR 05 KG ORDERN ANNULL. COR 06 KC SETON 90 FRÅN REGNR-BILD C*BILD 1 UT ---------- C SETON 77 C EXCPT C SETOF 77 C*BILD 7 UT ---------- C ART,1 COMP 0 19 STÖRRE C ART,2 COMP 0 20 C ART,3 COMP 0 21 C ART,4 COMP 0 22 C ART,5 COMP 0 23 C ART,6 COMP 0 24 C ART,7 COMP 0 25 C ART,8 COMP 0 26 C ART,9 COMP 0 27 C ART,10 COMP 0 28 C ART,11 COMP 0 29 C ART,12 COMP 0 30 C* C SETON 78 C EXCPT C SETOF 780102 C SETOF 0305 C ENDSR C******************************************************************** C* 41 HUVUD C******************************************************************** C HUVUD BEGSR C SETON 80 SLUT DET.RADER C* C SETOF 010203 C SETOF 0410 C SETOF 282930 C SETOF 313233 C SETOF 435253 C SETOF 5464 C SETOF 657172 C SETOF 737475 C SETOF 9296 C* C Z-ADD2 ORAD C OKEY CHAINORDER H2 C NH2 SETON 55 C NH2 EXCPT BLANKA POS 411 C NH2 SETOF 55 C EXSR ADRESS 42 C* C 98 Z-ADD0 DEL53 NY ORDER/KND AC C 98 MOVE *BLANKS LAND2 C 98 Z-ADD0 EXPGRÄ C 98 Z-ADD0 EXPAVG C 98 Z-ADD0 AVTILL C 98 Z-ADD0 GRTP C 98 Z-ADD0 EXPTP C 98 LANDK CHAINS053 70 C* C LANDK COMP 001 08LIKA C N08 NAMN1 COMP *BLANKS 08BLANKT C 08 MOVE *BLANKS WLAND2 24 C N08 MOVE LAND2 WLAND2 C* C Z-ADD0 MOMSX 53 C Z-ADDKGRÄNS GRÄNS 92 C 10 Z-ADDORDDAT ODAT 60 C EXSR KOD 31 C** BILD 5 LÄGGS UT ----------------------- C 98 SETON 60 NY ORDER C N98 SETON 62 KOMPL/HÄMTAD C 60 EXCPT C SETOF 6080 C ENDSR C******************************************************************** C* 42 SKAPAR REDIGERAD POSTADRESS * C******************************************************************** C ADRESS BEGSR C MOVE *BLANKS FPOADR 36 C MOVE *BLANKS POADR 36 C* C MOVELFPOST POST3 3 C MOVE FPOST POST2 2 C MOVELPOST2 POST4 4 C MOVELPOST3 POST8 8 C MOVE POST4 POST8 C MOVELPOST8 FPOADR 36 C FPOST COMP 0 70LIKA C 70 MOVELFPADR FPOADR C N70 MOVE FPADR FPOADR C* C MOVELPOST POST3 C MOVE POST POST2 C MOVELPOST2 POST4 C MOVELPOST3 POST8 C MOVE POST4 POST8 C MOVELPOST8 POADR 36 C POST COMP 0 70LIKA C 70 MOVELPADR POADR C N70 MOVE PADR POADR C* C ENDSR C******************************************************************** OWORK E 77 O K3 'B01' O 90 4 '30' O 02 70 4 '30' O 99POSIN Z 4 O 99ARTNR Z 8 O 99FÄRG Z 11 O 99ANTAL Z 18 O 99AVMÄT 19 O 99RABATTZ 24 O 99PRIS Z 31 O 99FLAM 32 O 99LÄNGD Z 37 O 99TRYCK Z 40 O 99DELETE 41 O 99STD Z 44 O 99NYANM 114 O N99 115 'S' O 99SA 115 O 99STYROE 116 O 99STYRFA 117 O 99STYRFÖ 118 O 99STYR1 119 O 99STYR2 120 O 99STYR3 121 O 01 99BLINKA 146 O 02 99 145 'ANTALET KAN EJ ACCEPTERA' O 02 99 146 'S' O 01 36 145 ' ORDER REDAN PÅBÖRJAD ' O 01 36 146 ' ' O 99LEVÅVVZ 149 O 99RTYP Z 150 O E 78 O K3 'B07' O UDATE 10 '19 - - ' O POS,1 Z 14 O N19ARR,1 87 O POS,2 Z 91 O N20ARR,2 164 O POS,3 Z 168 O N21ARR,3 241 O POS,4 Z 245 O N22ARR,4 318 O POS,5 Z 322 O N23ARR,5 395 O POS,6 Z 399 O N24ARR,6 472 O POS,7 Z 476 O N25ARR,7 549 O POS,8 Z 553 O N26ARR,8 626 O POS,9 Z 630 O N27ARR,9 703 O POS,10Z 707 O N28ARR,10 780 O POS,11Z 784 O N29ARR,11 857 O POS,12Z 861 O N30ARR,12 934 O* O 19ART,1 18 O 19FNA,1 34 O 19AVM,1 36 O 19FÄ4,1 41 O 19ANT,1 49 ' 0 , ' O 19RAB,1 4 56 O 19TYP,1 Z 59 O 19PRI,1 4 69 O 19TRY,1 Z 74 O 19AST,1 75 O********************** 19LÄN,1 4 82 O 19LÅV,1 87 O 20ART,2 95 O 20FNA,2 111 O 20AVM,2 113 O 20FÄ4,2 118 O 20ANT,2 126 ' 0 , ' O 20RAB,2 4 133 O 20TYP,2 Z 136 O 20PRI,2 4 146 O 20TRY,2 Z 151 O 20AST,2 152 O********************** 20LÄN,2 4 159 O 20LÅV,2 164 O 21ART,3 172 O 21FNA,3 188 O 21AVM,3 190 O 21FÄ4,3 195 O 21ANT,3 203 ' 0 , ' O 21RAB,3 4 210 O 21TYP,3 Z 213 O 21PRI,3 4 223 O 21TRY,3 Z 228 O 21AST,3 229 O********************** 21LÄN,3 4 236 O 21LÅV,3 241 O 22ART,4 249 O 22FNA,4 265 O 22AVM,4 267 O 22FÄ4,4 272 O 22ANT,4 280 ' 0 , ' O 22RAB,4 4 287 O 22TYP,4 Z 290 O 22PRI,4 4 300 O 22TRY,4 Z 305 O 22AST,4 306 O********************** 22LÄN,4 4 313 O 22LÅV,4 318 O 23ART,5 326 O 23FNA,5 342 O 23AVM,5 344 O 23FÄ4,5 349 O 23ANT,5 357 ' 0 , ' O 23RAB,5 4 364 O 23TYP,5 Z 367 O 23PRI,5 4 377 O 23TRY,5 Z 382 O 23AST,5 383 O********************** 23LÄN,5 4 390 O 23LÅV,5 395 O 24ART,6 403 O 24FNA,6 419 O 24AVM,6 421 O 24FÄ4,6 426 O 24ANT,6 434 ' 0 , ' O 24RAB,6 4 441 O 24TYP,6 Z 444 O 24PRI,6 4 454 O 24TRY,6 Z 459 O 24AST,6 460 O********************** 24LÄN,6 4 467 O 24LÅV,6 472 O 25ART,7 480 O 25FNA,7 496 O 25AVM,7 498 O 25FÄ4,7 503 O 25ANT,7 511 ' 0 , ' O 25RAB,7 4 518 O 25TYP,7 Z 521 O 25PRI,7 4 531 O 25TRY,7 Z 536 O 25AST,7 537 O********************** 25LÄN,7 4 544 O 25LÅV,7 549 O 26ART,8 557 O 26FNA,8 573 O 26AVM,8 575 O 26FÄ4,8 580 O 26ANT,8 588 ' 0 , ' O 26RAB,8 4 595 O 26TYP,8 Z 598 O 26PRI,8 4 608 O 26TRY,8 Z 613 O 26AST,8 614 O********************** 26LÄN,8 4 621 O 26LÅV,8 626 O 27ART,9 634 O 27FNA,9 650 O 27AVM,9 652 O 27FÄ4,9 657 O 27ANT,9 665 ' 0 , ' O 27RAB,9 4 672 O 27TYP,9 Z 675 O 27PRI,9 4 685 O 27TRY,9 Z 690 O 27AST,9 691 O********************** 27LÄN,9 4 698 O 27LÅV,9 703 O 28ART,10 711 O 28FNA,10 727 O 28AVM,10 729 O 28FÄ4,10 734 O 28ANT,10 742 ' 0 , ' O 28RAB,104 749 O 28TYP,10Z 752 O 28PRI,104 762 O 28TRY,10Z 767 O 28AST,10 768 O********************** 28LÄN,104 775 O 28LÅV,10 780 O 29ART,11 788 O 29FNA,11 804 O 29AVM,11 806 O 29FÄ4,11 811 O 29ANT,11 819 ' 0 , ' O 29RAB,114 826 O 29TYP,11Z 829 O 29PRI,114 839 O 29TRY,11Z 844 O 29AST,11 845 O********************** 29LÄN,114 852 O 29LÅV,11 857 O 30ART,12 865 O 30FNA,12 881 O 30AVM,12 883 O 30FÄ4,12 888 O 30ANT,12 896 ' 0 , ' O 30RAB,124 903 O 30TYP,12Z 906 O 30PRI,124 916 O 30TRY,12Z 921 O 30AST,12 922 O********************** 30LÄN,124 929 O 30LÅV,12 934 O REGNR Z 940 O D 01 44 EJ I LAGER O K3 'B02' O UDATE 10 '19 - - ' O ARTNR Z 15 O FÄRG Z 18 O FNAMN1 42 O FFLAM 43 O STATNRZ 50 O BREDD Z 53 O RAPPL Z 58 O KRYMP Z 60 O VIKTKOZ 62 O VÄRDKOZ 64 O GRLÖP Z 69 O KVADM Z 74 O BOK,1 Z 80 O BOK,2 Z 86 O BOK,3 Z 92 O ÅVV,1 96 O ÅVV,2 100 O ÅVV,3 104 O MET,1 Z 110 O MET,2 Z 116 O MET,3 Z 122 O DIS,1 Z 128 O DIS,2 Z 134 O DIS,3 Z 140 O BOK,4 Z 146 O BOK,5 Z 152 O BOK,6 Z 158 O ÅVV,4 162 O ÅVV,5 166 O ÅVV,6 170 O MET,4 Z 176 O MET,5 Z 182 O MET,6 Z 188 O DIS,4 Z 194 O DIS,5 Z 200 O DIS,6 Z 206 O BOK,7 Z 212 O BOK,8 Z 218 O BOK,9 Z 224 O ÅVV,7 228 O ÅVV,8 232 O ÅVV,9 236 O MET,7 Z 242 O MET,8 Z 248 O MET,9 Z 254 O DIS,7 Z 260 O DIS,8 Z 266 O DIS,9 Z 272 O BOK,10Z 278 O BOK,11Z 284 O BOK,12Z 290 O ÅVV,10 294 O ÅVV,11 298 O ÅVV,12 302 O MET,10Z 308 O MET,11Z 314 O MET,12Z 320 O DIS,10Z 326 O DIS,11Z 332 O DIS,12Z 338 O T3,1 Z 341 O A3,1 350 ' ,0-' O T3,2 Z 353 O A3,2 362 ' ,0-' O T3,3 Z 365 O A3,3 374 ' ,0-' O T3,4 Z 377 O A3,4 386 ' ,0-' O T3,5 Z 389 O A3,5 398 ' ,0-' O T3,6 Z 401 O A3,6 410 ' ,0-' O T3,7 Z 413 O A3,7 422 ' ,0-' O T3,8 Z 425 O A3,8 434 ' ,0-' O T3,9 Z 437 O A3,9 446 ' ,0-' O POSIN Z 450 O ARTNR Z 454 O FÄRG Z 457 O ANTAL Z 464 O AVMÄT 465 O RABATTZ 470 O PRIS Z 477 O FLAM 478 O WLEVK 479 O TRYCK Z 482 O DELETE 483 O LEVÅVVZ 486 O REGNR Z 492 O RTYP Z 493 O ANM064 B 523 95-06-16+ O D 01 KAN35 NY ORDER O OR 02 KAN35 -"- O OR 03NKG 99 FEL O AND N42 O OR 03NKGN99 KUND VISAS O AND 52N54 O OR 03NKGN99 EJ ACCEPT. O AND 52 54NKA O OR 04N99N14 EJ ACCEPT. O AND NKA O OR 04N99 14 KUND-SLUT O AND 17 O OR 89 FR.UND.KND O K3 'B03' O UDATE 10 '19 - - ' O 52KUNDNRZ 15 O 04N14 KUNDNRZ 15 O 89 LDAKNDZ 15 O N21 52FNAMN 51 O N21 52FADR1 87 O N21 52FPOST 93 ' & 0' O N21 52FPADR 123 O* O 04N14NH5FNAMN 51 O 04N14NH5FADR1 87 O 04N14NH5FPOST 93 ' & 0' O 04N14NH5FPADR 123 O LETORD 128 O 99BLINKA 153 O 23 152 ' FELAKTIGT SÖKBEGREPP ' O 23 153 ' ' O 24 152 ' MISSLYCKAD SÖKNING ' O 24 153 ' ' O 87 152 ' EJ TEXTIL-KUND ' O 87 153 ' ' O AVTRAB B 154 95-01-23+ O PRLI Z 156 95-01-23+ O TAVTFRZB 162 95-01-23+ O TAVTTIZB 168 95-01-23+ O TAVRAB B 174 ' , ' 95-01-23+ O AVTBON B 175 95-01-23+ O FAVTFRZB 181 95-01-23+ O FAVTTIZB 187 95-01-23+ O FAVRAB B 193 ' , ' 95-01-23+ O TGATYG B 194 95-01-23+ O TMÖTYG B 195 95-01-23+ O TPBTYG B 196 95-01-23+ O FGATYG B 197 95-01-23+ O FMÖTYG B 198 95-01-23+ O FPBTYG B 199 95-01-23+ O VKEDJA B 204 95-05-31+ O WKEDNM B 240 95-05-31+ O D 03NKGN99 SÖKNING O AND 53 O OR 04 99 FEL O OR 04N99 14 BLÄDDRA O AND N17 O K3 'B04' O UDATE 10 '19 - - ' O SÖKER 15 O SIDNR Z 17 O XNA,1 53 O XPA,1 81 O XNR,1 Z 86 O XNA,2 122 O XPA,2 150 O XNR,2 Z 155 O XNA,3 191 O XPA,3 219 O XNR,3 Z 224 O XNA,4 260 O XPA,4 288 O XNR,4 Z 293 O XNA,5 329 O XPA,5 357 O XNR,5 Z 362 O XNA,6 398 O XPA,6 426 O XNR,6 Z 431 O XNA,7 467 O XPA,7 495 O XNR,7 Z 500 O XNA,8 536 O XPA,8 564 O XNR,8 Z 569 O XNA,9 605 O XPA,9 633 O XNR,9 Z 638 O XNA,10 674 O XPA,10 702 O XNR,10Z 707 O XNA,11 743 O XPA,11 771 O XNR,11Z 776 O XNA,12 812 O XPA,12 840 O XNR,12Z 845 O XNA,13 881 O XPA,13 909 O XNR,13Z 914 O XNA,14 950 O XPA,14 978 O XNR,14Z 983 O XNA,15 1019 O XPA,15 1047 O XNR,15Z 1052 O XDI,1 Z 1053 O XDI,2 Z 1054 O XDI,3 Z 1055 O XDI,4 Z 1056 O XDI,5 Z 1057 O XDI,6 Z 1058 O XDI,7 Z 1059 O XDI,8 Z 1060 O XDI,9 Z 1061 O XDI,10Z 1062 O XDI,11Z 1063 O XDI,12Z 1064 O XDI,13Z 1065 O XDI,14Z 1066 O XDI,15Z 1067 O 99NI 1069 O 41SLUT 1088 O CMD 1107 O 21MSG,1 1132 O 22MSG,2 1132 O N41ENTER 1151 O E 60 NY ORDER O K3 'B05' O UDATE 10 '19 - - ' O KNR 15 O FNAMN 51 O NAMN1 87 O FCO 123 O NAMN2 159 O FADR1 195 O ADR1 231 O FADR2 267 O ADR2 303 O FPOADR 339 O POADR 375 O WLAND2 399 O ORDK 400 O N24BORDK 425 O UDATE 431 O SPRÅK 432 O N25BSPRÅK 457 O PRLIST 484 O N23PRBEN 508 O BETV 534 O N21BBETV 569 O LEVV 571 O N22BLEVV 606 O VAL 609 O LEVS 611 O N27BLEVS 646 O MOMS 647 O ORAB Z 697 O GRÄNS 1 709 O BRAB Z 721 O KFORD 1 735 O KRAB Z 747 O P11 1 761 O 784 'AVMÄTNING ' O AVMÄP Z 796 O 99 825 'BLINKANDE FÄLT EJ GILTIG' O 99 826 'A' O REGNR Z 832 O E 97 INFO O K3 'B08' O TEXT 20 O UDATE 30 '19 - - ' O D 05N69 FEL/EJ CMD O K3 'B05' O UDATE 10 '19 - - ' O KNR 15 O FNAMN 51 O WNAMN1 87 O FCO 123 O WNAMN2 159 O FADR1 195 O WADR1 231 O FADR2 267 O WADR2 303 O FPOADR 339 O WPADR 375 O WLAND 399 O WORDK 400 O N24BORDK 425 O WORDAT 431 O WSPRÅK 432 O N25BSPRÅK 457 O WREF 481 O WPRLI 484 O N23PRBEN 508 O WIO 532 O WBETV 534 O N21BBETV 569 O WLEVV 571 O N22BLEVV 606 O WVAL 609 O WLEVS 611 O N27WLEVS1 646 O WMOMS 647 O N27WLEVS2 682 O WLEVD Z 685 O WOKR Z 692 O WORAB Z 697 O GRÄNS 1 709 O WBKR Z 716 O WBRAB Z 721 O KFORD 1 735 O WKKR Z 742 O WKRAB Z 747 O OVÄRDE1 761 O WKAKR Z 768 O WKARABZ 773 O 784 'AVMÄTNING ' O WAVKR Z 791 O WAVMÄPZ 796 O WEXP Z 801 O 99 825 'BLINKANDE FÄLT EJ GILTIG' O 99 826 'A' O 99 96 825 ' PRISSÄTTNINGEN EJ GJORD' O 99 96 826 ' ' O REGNR Z 832 O WPRIO 833 O* 87-01-26+ O OVÄVAL 845 ' , ' 87-01-26+ O VAL 848 87-01-26+ O WLTYP Z 850 88-03-03+ O D 62 KOMPL/HÄMT O OR 05 69 PRIS-SATT O K3 'B05' O UDATE 10 '19 - - ' O OKNR 15 O FNAMN 51 O ONAMN1 87 O FCO 123 O ONAMN2 159 O FADR1 195 O OADR1 231 O FADR2 267 O OADR2 303 O FPOADR 339 O OPADR 375 O OLAND 399 O OORDK 400 O N24BORDK 425 O ODAT 431 O OSPRÅK 432 O N25BSPRÅK 457 O OREF 481 O LISTA 484 O N23PRBEN 508 O OIO 532 O OBETV 534 O N21BBETV 569 O OLEVV 571 O N22BLEVV 606 O OVAL 609 O OLEVS 611 O N27OLEVS1 646 O OMOMS 647 O N27OLEVS2 682 O OLEVD Z 685 O OOKR Z 692 O OORAB Z 697 O GRÄNS 1 709 O OBKR Z 716 O OBRAB Z 721 O KFORD 1 735 O OKKR Z 742 O OKRAB Z 747 O OVÄRDE1 761 O OKAKR Z 768 O OKARABZ 773 O 784 'AVMÄTNING ' O OAVKR Z 791 O OAVMÄPZ 796 O OEXP Z 801 O 99 825 'BLINKANDE FÄLT EJ GILTIG' O 99 826 'A' O REGNR Z 832 O OPRIO 833 O* 87-01-26+ O OVÄVAL 845 ' , ' 87-01-26+ O VAL 848 87-01-26+ O LTYP Z 850 88-03-03+ O D 01 KJ TILL ÄNDR. O OR 06 99 FEL REG.NR O K3 'B06' O UDATE 10 '19 - - ' O 99REGNR Z 16 O 99MSG,3 41 O DR U2 TILL MENY O OR 18 UND KNDREG O**********K013 E 45 O********** FREGNR 618 O*ORDER-DUMMY OORDER E 84 O*ORDER-DELETE O EDEL 66 O*ORDER-INFO (RAD 0003 OCH RAD 0004) O EADD 79 O 1 'N' O ORAD 7 O OR 407 O SI 410 O HÖGST 414 O OKEY 460 O*ORDER-RAD O*REGISTRERING AV RAD O EADD 56 39 O 31 1 'A' O N31 1 'D' O 3 ' ' O POSIN 7 O BLA73 80 O 31NYANM 77 O 31STYROE 78 O 31STYRFA 79 O 31STYRFÖ 80 O 31STYR1 81 O 31STYR2 82 O 31STYR3 83 O* O N31ARTNR 11 O N31FÄRG 14 O N31TRYCK 17 O 02N13N31 17 '000' O 01 33N31 17 '000' O N31WTRYKO 18 O N31ANTAL 22P O N31PK 23 O N31PRIS 27P O N31RTYP 28 O N31RABATT 32P O N31FLAM 33 O N31RECNR 47 O 02N13N31 47 '00000' O 01 33N31 47 '00000' O N31AVMÄT 58 O N31LEVÅVV 72 O N31BONDAT 86 O OKEY 460 O E 56N39 O 31 1 'A' O N31 1 'D' O 3 ' ' O BLA73 80 O 31NYANM 77 O 31STYROE 78 O 31STYRFA 79 O 31STYRFÖ 80 O 31STYR1 81 O 31STYR2 82 O 31STYR3 83 O* O N31ARTNR 11 O N31FÄRG 14 O N31TRYCK 17 O 02N13N31 17 '000' O 01 33N31 17 '000' O N31WTRYKO 18 O N31ANTAL 22P O N31PK 23 O N31PRIS 27P O N31RTYP 28 O N31RABATT 32P O N31FLAM 33 O N31RECNR 47 O 02N13N31 47 '00000' O 01 33N31 47 '00000' O N31AVMÄT 58 O N31LEVÅVV 72 O N31BONDAT 86 O*PRIS-SÄTTNING AV RAD O E 49 O RKOD 28 90-12-12+ O FRAB 32P 90-12-12+ O N37PRISX 27P O N37N38RABX 32P O N37P7 42P O 37PRISX 42P O 43 58 ' ' O*ORDER-HUVUD O*NY ORDER, UPPLÄGGNING AV ORDER-HUVUD O EADD 51 O 7 'H 0002' O P7 18P O P5 21P O PTRE 145P O P5 357P O P5 360P O P5 363P O P5 366P O P11 376P O P7 381P O P7 385P O P7 389P O P7 393P O P5 397P O P7 405P O P5 422P O P9 441P O OKEY 460 O P9 465P 86-07-23+ O P9 470P 86-07-23+ O USERID 478 87-11-24+ O******* XKEDJA 483 95-05-31+ O P9 500P O*RÄKNARE, REGISTRERING AV RADER O E 61 O MÅNGA 408 O*PRIS-SÄTTNING AV ORDERN O E 50 O ORDVÄR 376P O ORABKR 381P O KRABKR 385P O BRABKR 389P O KARBKR 393P O 65EXPAVG 397P O N65P5 397P O AVSUM 405P O F411 411 O BONVÄR 465P 86-07-23+ O XKEDJA 483 95-05-31+ O WEJFÖL 509 O*KOD "EJ PRIS-SATT" VID HOPP TILL ORDER-HUVUD FRÅN ANNAN BILD O E 55 O 411 ' ' O*UPPDAT. MED BL. A. VÄRDEN FRÅN ORDER-HUVUD-BILD O E 58 O 7 'H1 0002' O WORDAT 18P O KNR 21P O WREF 45 O WIO 69 O WBETV 71 O WLEVV 73 O WLEVS1 108 O WLEVS2 143 O WPRLI 145P O WSPRÅK 146 O WVAL 149 O WORDK 150 O WNAMN1 186 O WNAMN2 222 O WADR1 258 O WADR2 294 O WPADR 330 O WLAND 354 O WORAB 357P O WKRAB 360P O WBRAB 363P O WKARAB 366P O WLTYP Z 368 88-03-03+ O WMOMS 370 O OVÄRDE 376P O 29 377 '1' O N29 377 ' ' O*************** WOKR 381P O*************** WKKR 385P O WBKR 389P O WKAKR 393P O WEXP 397P O WLEVS 399 O MÅTT 400 O WAVKR 405P O XK022 410 O WLEVD 414 O WPRIO 419 O WAVMÄP 422P O OKEDJA 483 95-05-31+ O MBEL 500P O 511 ' ' O F501 501 O********************** 52 502 '1' ********** O********************** 53 503 '1' ********** O 54 504 '1' O F505 505 O 43 506 '1' O F507 507 O EJFÖLJ 509 O F510 510 O FDIV 512 OOREGNR EADD 57 O REGNR 6 O EDEL 68 OP064 E 91N21 O OR 47 O RET 299P O LET 329P O F64 339 O* 88-06-09+ OP068 E UPP068 88-06-09+ O* 88-06-09+ O FREGNR 25 88-06-09+ O* 88-06-09+ O E 91 21 O OR 46 O F68 18 O REL 307P O LEL 319P ** ALTSEQ 5BEA7BEB7CEC ** BLINKA BLINKANDE FÄLT EJ GILTIGA ** CMD CMD 12 - NY SÖKNING ** ENTER ENTER - FORTSÄTT ** MSG FELAKTIGT RADNR RADNR EJ ANGIVET FEL/EJ TILLGÄNGLIGT NR ** SLUT REGISTRET GENOMSÖKT ** TXT PRISSÄTTNING PÅGÅR ORDERN ACCEPTERAS ORDERN ANNULLERAS