A*================================================================ * CODE SOURCE FICHIER ECRAN A*================================================================ A*%%TS SD 20031107 122222 PRG5 REL-V5R1M0 5722-WDS A* FICHIER CREE PAR CAYEL A* CREER LE 02/0092003 A* MODIFIER LE A*-------------------------------------------------- A* NOM PROG ORIGINE : SELARO3R A* NOM PROG ACTUEL : A* MANAGER : A* FICHIER ECRAN A*================================================================ A*%%EC A DSPSIZ(24 80 *DS3) A CA01(01) A CA02(02) A CA03(03) A CA04(04) A CA05(05) A CA06(06) A CA07(07) A CA08(08) A CF09(09) A CA10(10) A CA11(11) A CA12(12) A R LSTAPPL SFL A*%%TS SD 20031105 150353 PRG5 REL-V5R1M0 5722-WDS A ECCODAPPL 2A O 3 2 A ECLIBAPPL 20A O 3 11 A R LSTCTLAPPL SFLCTL(LSTAPPL) A*%%TS SD 20031105 150353 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(05 20 13 56) A WDWTITLE((*TEXT ' Liste des + A Applications ')) A SFLCSRRRN(&WSENRCAP) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRCAP 5S 0H A PAGAFF16 4S 0H SFLRCDNBR A HAUTPAGE16 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 44PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A 2 11'Libell‚' A ECCHERCHAP 20A B 1 11 A PSHBTN9 2Y 0B 1 29PSHBTNFLD A PSHBTNCHC(9 'Chercher F9') A R SFLAPPLI SFL A*%%TS SD 20031030 100706 PRG5 REL-V5R1M0 5722-WDS A ECDOSAGE 4Y 2B 3 29EDTCDE(1) A ECCODAPPLI 2A B 3 5DSPATR(PC) A COLOR(WHT) A ECLIBAPPLI 20A O 3 8 A ECCODSAVE 2A H A ECTESTLE 8Y 0B 3 35EDTCDE(Y) A ECFOURCH 10A B 3 46 A ECCPT 3S 0O 3 1 A R CTLAPPLI SFLCTL(SFLAPPLI) A*%%TS SD 20031030 104805 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Applications ')) A OVERLAY A N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A RTNCSRLOC(&FMT &ZONE) A FMT 10A H A ZONE 10A H A PAGAFF6 4S 0H SFLRCDNBR A HAUTPAGE6 5S 0H SFLSCROLL A 1 1'Famille :' A COLOR(WHT) A ECCODFAM 2A O 1 11 A ECLIBFAM 22A O 1 14 A PSHBTN9 2Y 0B 1 37PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A PSHBTN12 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 5'Application' A COLOR(WHT) A 2 29'Dos' A COLOR(WHT) A 2 35'Test‚ le' A COLOR(WHT) A 2 46'Fourch conseill‚e' A COLOR(WHT) A 2 1'Nø' A COLOR(WHT) A PSHBTN11 2Y 0B 1 51PSHBTNFLD A PSHBTNCHC(11 'Obs F11') A*================================================================ A R SFLAPPLI2 SFL A*%%TS SD 20031030 100706 PRG5 REL-V5R1M0 5722-WDS A ECCODSAVE 2A H A ECCPT 3S 0O 3 1 A ECOBS 50 B 3 5 A R CTLAPPLI2 SFLCTL(SFLAPPLI2) A*%%TS SD 20031030 100706 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Observations ')) A OVERLAY A N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A RTNCSRLOC(&FMT &ZONE) A FMT 10A H A ZONE 10A H A PAGAFF6 4S 0H SFLRCDNBR A HAUTPAGE6 5S 0H SFLSCROLL A 1 1'Famille :' A COLOR(WHT) A ECCODFAM 2A O 1 11 A ECLIBFAM 22A O 1 14 A PSHBTN9 2Y 0B 1 48PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A PSHBTN12 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 1'Nø' A COLOR(WHT) A 2 5'Commentaire' A COLOR(WHT) A*================================================================ A R CRITERES A*%%TS SD 20031107 090950 PRG5 REL-V5R1M0 5722-WDS A OVERLAY A CTL1 1Y 0H A CTL2 1Y 0H A CTLA 1Y 0H A CTLB 1Y 0H A CTLC 1Y 0H A CTLD 1Y 0H A CTLE 1Y 0H A CTLF 1Y 0H A CTLG 1Y 0H A CTLH 1Y 0H A PGMNOM 10A O 1 2COLOR(RED) A 1 13'Base Selection' A COLOR(WHT) A 1 28'-' A 1 30'Fiche de Recherche' A COLOR(WHT) A PSHBTN3 2Y 0B 2 2PSHBTNFLD A PSHBTNCHC(3 'Quitter F3') A PSHBTN9 2Y 0B 2 16PSHBTNFLD A PSHBTNCHC(9 'Rechercher F9') A PSHBTN2 2Y 0B 2 33PSHBTNFLD A PSHBTNCHC(2 'RAZ CritŠres F2') A 3 4'R‚f‚rence :' A COLOR(WHT) A CRREFDEF 6A B 3 16DSPATR(PC) A CHECK(ER) A COLOR(WHT) A FICHIER 2Y 0B 3 40MLTCHCFLD(*NORSTCSR) A CHCAVAIL((*COLOR WHT)) A CHECK(ER) A CHOICE(1 'Dans le fichier produits') A CHCCTL(1 &CTL1) A 4 3'Appelation :' A COLOR(WHT) A CRAPPEL1 50A B 4 16 A N10 COLOR(WHT) A 10 COLOR(RED) A 5 2'Contre Type :' A COLOR(WHT) A CRCONTRE 50A B 5 16COLOR(WHT) A 6 2'Obs G‚n‚ral :' A COLOR(WHT) A CRNOTES1 50A B 6 16COLOR(WHT) A 7 2'Application :' A COLOR(WHT) A CRCODFAM 2A B 8 16COLOR(WHT) A CHECK(ER) A PSHBTN12 2Y 0B 8 3PSHBTNFLD A CHCAVAIL((*COLOR WHT)) A PSHBTNCHC(12 'Famille :') A CRLIBFAM 20A O 8 19COLOR(WHT) A CRAPPROUVE 2Y 0B 8 41MLTCHCFLD(*NORSTCSR) A CHCAVAIL((*COLOR WHT)) A CHECK(ER) A CHOICE(2 'Famille Approuv‚') A CHCCTL(2 &CTL2) A 9 5'Profil :' A COLOR(WHT) A CRPROFIL 20A B 9 19COLOR(WHT) A 11 2'Legislation :' A COLOR(BLU) A 11 27'Aspect :' A COLOR(BLU) A PSHBTN5 2Y 0B 11 44PSHBTNFLD A CHCAVAIL((*COLOR BLU)) A PSHBTNCHC(5 ' Pays :') A CRPAYS 3A B 11 57CHECK(ER) A COLOR(BLU) A CRLIBPAYS 19A O 11 61COLOR(BLU) A CRCASH1 2Y 0B 12 3MLTCHCFLD A CHCAVAIL((*COLOR BLU)) A CHOICE(1 'Casher Certifi‚') A CHCCTL(1 &CTLA) A CHOICE(2 'Casher Certifiable') A CHCCTL(2 &CTLB) A CHOICE(3 'Hallal Certifi‚') A CHCCTL(3 &CTLC) A CHOICE(4 'Hallal Certifiable') A CHCCTL(4 &CTLD) A CHOICE(5 'Pr‚sence d''AllergŠne') A CHCCTL(5 &CTLE) A CHOICE(6 'Pr‚sence D''OGM') A CHCCTL(6 &CTLF) A CRASPE 2Y 0B 12 28SNGCHCFLD A CHCAVAIL((*COLOR BLU)) A CHOICE(1 'Liquide') A CHOICE(2 'Poudre') A CHOICE(3 'Tous') A PSHBTN6 2Y 0B 12 44PSHBTNFLD A CHCAVAIL((*COLOR BLU)) A PSHBTNCHC(6 ' Statut :') A CRSTATUT 3A B 12 57CHECK(ER) A COLOR(BLU) A CRLIBSTATU 19A O 12 61COLOR(BLU) A PSHBTN4 2Y 0B 13 44PSHBTNFLD A CHCAVAIL((*COLOR BLU)) A PSHBTNCHC(4 'Support :') A CRSUPPORT 3A B 13 57CHECK(ER) A COLOR(BLU) A CRLIBSUPP 19A O 13 61COLOR(BLU) A CRCOUL 2Y 0B 15 28MLTCHCFLD(*NORSTCSR) A CHCAVAIL((*COLOR BLU)) A CHECK(ER) A CHOICE(1 'Incolore') A CHCCTL(1 &CTLG) A 17 28'Point Eclair >=' A COLOR(BLU) A CRECLA 3Y 0B 17 44COLOR(BLU) A 17 53'Prix de revient <' A COLOR(PNK) A CRPRIXRE 8Y 2B 17 71COLOR(PNK) A EDTCDE(1) A CHECK(ER) A 19 10'Vendu :' A COLOR(YLW) A PSHBTN10 2Y 0B 19 19PSHBTNFLD A CHCAVAIL((*COLOR YLW)) A PSHBTNCHC(10 'Soci‚t‚ :') A CRVCODSOC 8A B 19 32COLOR(YLW) A CHECK(RZ) A CHECK(ER) A CRVLIBSOC 24A B 19 41COLOR(YLW) A PSHBTN11 2Y 0B 20 19PSHBTNFLD A CHCAVAIL((*COLOR YLW)) A PSHBTNCHC(11 ' Pays :') A CRVCODPAY 3A B 20 32COLOR(YLW) A CHECK(ER) A CRVLIBPAY 24A B 20 41COLOR(YLW) A 21 22'Ann‚e :' A COLOR(YLW) A CRVANNEE 4A B 21 32COLOR(YLW) A 22 2'Echantillonn‚ :' A COLOR(TRQ) A PSHBTN7 2Y 0B 22 19PSHBTNFLD A CHCAVAIL((*COLOR TRQ)) A PSHBTNCHC(7 'Soci‚t‚ :') A CRECODSOC 8A B 22 32CHECK(RB) A CHECK(ER) A COLOR(TRQ) A CRELIBSOC 24A B 22 41COLOR(TRQ) A PSHBTN8 2Y 0B 23 19PSHBTNFLD A CHCAVAIL((*COLOR TRQ)) A PSHBTNCHC(8 ' Pays :') A CRECODPAY 3A B 23 32CHECK(ER) A COLOR(TRQ) A CRELIBPAY 24A B 23 41COLOR(TRQ) A 24 22'Ann‚e :' A COLOR(TRQ) A CREANNEE 4A B 24 32CHECK(ER) A COLOR(TRQ) A 18 32'Code' A COLOR(YLW) A 18 41'Libell‚' A COLOR(YLW) A 19 66'Client Factur‚' A COLOR(YLW) A 20 66'Pays Livraison' A COLOR(YLW) A 21 41'3 ans + ann‚e en cours' A 24 41'3 ans + ann‚e en cours' A CRCOLORANT 2Y 0B 16 28MLTCHCFLD(*NORSTCSR) A CHCAVAIL((*COLOR BLU)) A CHECK(ER) A CHOICE(1 'Colorant') A CHCCTL(1 &CTLH) A CRMSGERR 60 O 10 10COLOR(RED) A R FICHE A*%%TS SD 20031107 122222 PRG5 REL-V5R1M0 5722-WDS A OVERLAY A PGMNOM 10A O 1 2COLOR(RED) A 1 13'Base Selection' A COLOR(WHT) A 1 28'-' A 1 30'Fiche Ar“me' A COLOR(WHT) A PSHBTN9 2Y 0B 2 41PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A PSHBTN11 2Y 0B 2 55PSHBTNFLD A PSHBTNCHC(11 'Liste F11') A PSHBTN12 2Y 0B 2 68PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 3 4'R‚f‚rence :' A COLOR(WHT) A ECREFPRO 6A O 3 16COLOR(WHT) A 4 3'Appelation :' A COLOR(WHT) A ECAPPEL1 50A O 4 16COLOR(WHT) A 5 2'Contre Type :' A COLOR(WHT) A ECCONTRE 50A B 5 16COLOR(WHT) A DSPATR(PC) A 6 2'Obs G‚n‚ral :' A COLOR(WHT) A ECNOTES1 50A B 6 16COLOR(WHT) A ECNOTES2 50A B 7 16COLOR(WHT) A 8 4'Obs Perso :' A COLOR(WHT) A ECNOTES3 50A B 8 16COLOR(WHT) A ECNOTES4 50A B 9 16COLOR(WHT) A 11 5'Enregistr‚ dans le fichier s‚lecti- A on :' A COLOR(WHT) A ECSELECT 2Y 0B 11 45SNGCHCFLD((*NUMCOL 2) (*GUTTER 2)) A CHCAVAIL((*COLOR BLU)) A CHOICE(1 'Oui') A CHOICE(2 'Non') A ECCODCREA 3A O 13 13COLOR(PNK) A ECLIBCREA 15A O 13 17COLOR(PNK) A 13 33': Cr‚ateur' A COLOR(PNK) A ECSTOCK 11Y 3O 14 18COLOR(PNK) A EDTCDE(1) A 14 33': Stock' A COLOR(PNK) A ECDATECREA 8Y 0O 15 22COLOR(PNK) A EDTCDE(Y) A 15 33': Date Cr‚ation' A COLOR(PNK) A ECPRIXRE 8Y 2O 16 22COLOR(PNK) A EDTCDE(1) A 16 33': Prix Revient' A COLOR(PNK) A PSHBTN1 2Y 0B 20 2PSHBTNFLD A PSHBTNCHC(1 'Parent F1') A PSHBTN4 2Y 0B 20 20PSHBTNFLD A PSHBTNCHC(4 'Famille F4') A PSHBTN7 2Y 0B 20 38PSHBTNFLD A PSHBTNCHC(7 'Application F7') A PSHBTN2 2Y 0B 21 2PSHBTNFLD A PSHBTNCHC(2 'Statut F2') A PSHBTN5 2Y 0B 21 20PSHBTNFLD A PSHBTNCHC(5 'Vendu F5') A PSHBTN8 2Y 0B 21 38PSHBTNFLD A PSHBTNCHC(8 'L‚gislation F8') A PSHBTN3 2Y 0B 22 2PSHBTNFLD A PSHBTNCHC(3 'Support F3') A PSHBTN6 2Y 0B 22 20PSHBTNFLD A PSHBTNCHC(6 'Echantillon F6') A ECMSGERR 60A O 18 11COLOR(RED) A ECVALID 10A O 2 29COLOR(RED) A R LEGIS A*%%TS SD 20031031 153147 PRG5 REL-V5R1M0 5722-WDS A WINDOW(5 2 18 74) A WDWTITLE((*TEXT ' L‚gislation ')) A OVERLAY A PSHBTN12 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 9 26'Legislation :' A COLOR(BLU) A ECCASH1 1A O 10 27COLOR(RED) A 10 29'Casher Certifi‚' A COLOR(BLU) A ECCASH2 1A O 11 27COLOR(RED) A 11 29'Casher Certifiable' A COLOR(BLU) A ECHALL1 1A O 12 27COLOR(RED) A 12 29'Hallal Certifi‚' A COLOR(BLU) A ECHALL2 1A O 13 27COLOR(RED) A 13 29'Hallal Certifiable' A COLOR(BLU) A ECALLER 1A O 14 27COLOR(RED) A 14 29'Pr‚sence d''AllergŠne' A COLOR(BLU) A ECOGM 1A O 15 27COLOR(RED) A 15 29'Pr‚sence D''OGM' A COLOR(BLU) A 6 2'Point Eclair :' A COLOR(BLU) A ECECLA 3Y 0O 6 17COLOR(BLU) A 3 8'Aspect :' A COLOR(BLU) A ECASPE 7A O 3 17COLOR(BLU) A DSPATR(PC) A 4 7'Couleur :' A COLOR(BLU) A ECCOUL 15A O 4 17COLOR(BLU) A 5 2'Colorant E...:' A COLOR(BLU) A ECCOLO 50A O 5 17COLOR(BLU) A*================================================================ A R SFLVENDU SFL A*%%TS SD 20031029 125423 PRG5 REL-V5R1M0 5722-WDS A ECCPT 3S 0O 3 1DSPATR(PC) A ECANNE2 2S 0O 3 5 A ECCODPAY 3A O 3 8COLOR(YLW) A ECLIBPAY 15A O 3 12 A ECCODSOC 8A O 3 28COLOR(YLW) A ECLIBSOC 24A O 3 37 A ECQTE 9Y 3O 3 62EDTCDE(1) A*================================================================ A R CTLVENDU SFLCTL(SFLVENDU) A*%%TS SD 20031029 093736 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Vendus ')) A OVERLAY A N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A RTNCSRLOC(&FMT &ZONE) A FMT 10A H A ZONE 10A H A PAGAFF4 4S 0H SFLRCDNBR A HAUTPAGE4 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 28'Soci‚t‚' A COLOR(YLW) A 2 8'Pays' A COLOR(YLW) A 2 5'An' A COLOR(YLW) A 2 70'Qte' A COLOR(YLW) A PSHBTN11 2Y 0B 1 44PSHBTNFLD A PSHBTNCHC(11 'F11 Compl‚ment') A 2 1'Nø' A COLOR(YLW) A R SFLVENDU2 SFL A*%%TS SD 20031029 124913 PRG5 REL-V5R1M0 5722-WDS A ECCPT 3S 0O 3 1 A ECOBS 50A B 3 5DSPATR(PC) A ECREF 6A H A ECAN 2S 0H A ECPAYS 3A H A ECCLT 8A H A R CTLVENDU2 SFLCTL(SFLVENDU2) A*%%TS SD 20031107 120153 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Compl‚ment ')) A OVERLAY A N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A RTNCSRLOC(&FMT &ZONE) A FMT 10A H A ZONE 10A H A PAGAFF4 4S 0H SFLRCDNBR A HAUTPAGE4 5S 0H SFLSCROLL A PSHBTN10 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(10 'Retour F10') A 2 5'Commentaire / Retour Client' A COLOR(YLW) A PSHBTN9 2Y 0B 1 48PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A 2 1'Nø' A COLOR(YLW) A ECVALID 10 O 1 36COLOR(RED) A*================================================================ A R SFLPAREN SFL A*%%TS SD 20031014 125544 PRG5 REL-V5R1M0 5722-WDS A ECREFPRO2 6A O 3 2COLOR(BLU) A ECGROUPE 6S 0O 3 9 A ECDETAIL 50A B 3 16 A DSPATR(PC) A N70 DSPATR(PR) A 70 COLOR(RED) A ECVERSION 6A B 3 67 A N71 DSPATR(PR) A 71 COLOR(RED) A*================================================================ A R CTLPAREN SFLCTL(SFLPAREN) A*%%TS SD 20031030 121103 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Parents ')) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A PAGAFF5 4S 0H SFLRCDNBR A HAUTPAGE5 5S 0H SFLSCROLL A 2 2'R‚f' A COLOR(BLU) A PSHBTN12 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A PSHBTN9 2Y 0B 1 48PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A 2 67'Version' A COLOR(BLU) A 2 9'Groupe' A COLOR(BLU) A 2 16'D‚tail' A COLOR(BLU) A 2 40'Nø du parent ou SUPPRI -->' A COLOR(RED) A ECMSGERRPA 40A O 1 2COLOR(RED) A*================================================================ A R SFLECHAN SFL A*%%TS SD 20031029 093736 PRG5 REL-V5R1M0 5722-WDS A ECCODPAY2 3A O 3 10COLOR(TRQ) A ECANNE 4A O 3 5 A ECLIBPAY2 15A O 3 14 A ECCODSOCI 8A O 3 30COLOR(TRQ) A ECLIBSOCI 20A O 3 39 A ECCPT 3S 0O 3 1DSPATR(PC) A ECJJ 2S 0O 3 61 A ECMM 2S 0O 3 64 A*================================================================ A R CTLECHAN SFLCTL(SFLECHAN) A*%%TS SD 20031007 111319 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Echantillons ')) A OVERLAY A N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A RTNCSRLOC(&FMT &ZONE) A FMT 10A H A ZONE 10A H A PAGAFF3 4S 0H SFLRCDNBR A HAUTPAGE3 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 30'Soci‚t‚' A COLOR(TRQ) A 2 10'Pays' A COLOR(TRQ) A 2 5'An' A COLOR(TRQ) A PSHBTN11 2Y 0B 1 44PSHBTNFLD A PSHBTNCHC(11 'Compl‚ment F11') A 2 1'Nø' A COLOR(TRQ) A R SFLECHAN2 SFL A*%%TS SD 20031028 155552 PRG5 REL-V5R1M0 5722-WDS A ECCPT 3S 0O 3 1DSPATR(PC) A ECCODAPP 2A O 3 5COLOR(TRQ) A ECLIBAPP 20A O 3 8 A ECDOSAGE 4Y 2O 3 29 A ECOBSECHAN 38A B 3 35 A ECSOC 1A H A ECCDP 1A H A ECCDA 3S 0H A ECCD1 5S 0H A ECCD2 2S 0H A ECSEQ 3S 0H A R CTLECHAN2 SFLCTL(SFLECHAN2) A*%%TS SD 20031107 120153 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Echantillons - Co- A mpl‚ment ')) A OVERLAY A N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A RTNCSRLOC(&FMT &ZONE) A FMT 10A H A ZONE 10A H A PAGAFF3 4S 0H SFLRCDNBR A HAUTPAGE3 5S 0H SFLSCROLL A PSHBTN9 2Y 0B 1 48PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A PSHBTN10 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(10 'Retour F10') A 2 5'Applications' A COLOR(TRQ) A 2 35'Commentaire / Retour client' A COLOR(TRQ) A 2 29'Dosag' A COLOR(TRQ) A 2 1'Nø' A COLOR(TRQ) A ECVALID 10 O 1 36COLOR(RED) A R LSTESOC SFL A*%%TS SD 20030930 140801 PRG5 REL-V5R1M0 5722-WDS A ECCODESOC 8A O 3 2COLOR(TRQ) A A ECLIBESOC 30A O 3 11 A ECCODEPAY 3A O 3 42COLOR(TRQ) A R LSTCTLESOC SFLCTL(LSTESOC) A*%%TS SD 20030930 140801 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 20 13 56) A WDWTITLE((*TEXT ' Soci‚t‚s ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF12 4S 0H SFLRCDNBR A HAUTPAGE12 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 44PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(TRQ) A 2 11'Libell‚' A COLOR(TRQ) A ECHERCHSOC 15A B 1 11 A PSHBTN9 2Y 0B 1 29PSHBTNFLD A PSHBTNCHC(9 'Chercher F9') A 2 42'Pays' A COLOR(TRQ) A R LSTVSOC SFL A*%%TS SD 20030930 140801 PRG5 REL-V5R1M0 5722-WDS A ECCODVSOC 8A O 3 2COLOR(YLW) A ECLIBVSOC 30A O 3 11 A ECCODVPAY 3A O 3 42COLOR(YLW) A R LSTCTLVSOC SFLCTL(LSTVSOC) A*%%TS SD 20030930 140801 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 20 13 56) A WDWTITLE((*TEXT ' Soci‚t‚s ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF14 4S 0H SFLRCDNBR A HAUTPAGE14 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 44PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(YLW) A 2 11'Libell‚' A COLOR(YLW) A VCHERCHSOC 15A B 1 11 A PSHBTN9 2Y 0B 1 29PSHBTNFLD A PSHBTNCHC(9 'Chercher F9') A 2 42'Pays' A COLOR(YLW) A* CLRL(*NO) A*================================================================ A R SFLFAM SFL A*%%TS SD 20031001 124950 PRG5 REL-V5R1M0 5722-WDS A ECFAMILLE 22A O 3 1DSPATR(PC) A ECPROFIL 40A B 3 24 A ECAPPROUVE 1A B 3 70VALUES('O' ' ') A ECCODFAM 2A H A*================================================================ A R CTLFAM SFLCTL(SFLFAM) A*%%TS SD 20031107 120153 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 2 13 74) A WDWTITLE((*TEXT ' Familles ')) A OVERLAY A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A SFLCSRRRN(&WSENRC2) A WSENRC2 5S 0H A PAGAFF2 4S 0H SFLRCDNBR A HAUTPAGE2 5S 0H SFLSCROLL A 1 1'Double click --> D‚tail' A COLOR(WHT) A PSHBTN9 2Y 0B 1 48PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A PSHBTN12 2Y 0B 1 62PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 1'Famille' A COLOR(WHT) A 2 24'Profil' A COLOR(WHT) A 2 64'O=Approuv‚' A COLOR(WHT) A ECVALID 10 O 1 36COLOR(RED) A*================================================================ A R DETAILFE SFL A*%%TS SD 20030912 102351 PRG5 REL-V5R1M0 5722-WDS A ECOPT 1A B 3 1COLOR(WHT) A DSPATR(PC) A ECREFDEF 6A O 3 3 A ECAPPEL1 50A O 3 10 A*================================================================ A R CTLFE SFLCTL(DETAILFE) A*%%TS SD 20031001 145237 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 10 13 66) A WDWTITLE((*TEXT ' Liste des ar“mes - A trouv‚s')) A OVERLAY A PROTECT A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF0 4S 0H SFLRCDNBR A HAUTPAGE0 5S 0H SFLSCROLL A 1 1'Nombre :' A COLOR(BLU) A 2 3'R‚f' A 2 10'Appellation' A PSHBTN12 2Y 0B 1 54PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A NBAROM 4S 0O 1 10COLOR(RED) A 1 22'Double click --> D‚tail' A COLOR(WHT) A R LSTSTATUT SFL A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A ECCODSTATU 3 O 3 2COLOR(BLU) A DSPATR(PC) A ECLIBSTATU 15A O 3 7 A R LSTCTLSTAT SFLCTL(LSTSTATUT) A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Statuts ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF10 4S 0H SFLRCDNBR A HAUTPAGE10 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(BLU) A 2 7'Libell‚' A COLOR(BLU) A R LSTPAYS SFL A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A ECCODPAYS 3A O 3 2COLOR(BLU) A DSPATR(PC) A ECLIBPAYS 15A O 3 7 A R LSTCTLPAYS SFLCTL(LSTPAYS) A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Pays ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF9 4S 0H SFLRCDNBR A HAUTPAGE9 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(BLU) A 2 7'Libell‚' A COLOR(BLU) A R LSTSUPPORT SFL A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A ECCODSUPP 3A O 3 2COLOR(BLU) A DSPATR(PC) A ECLIBSUPP 19A O 3 7 A R LSTCTLSUPP SFLCTL(LSTSUPPORT) A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Supports ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF8 4S 0H SFLRCDNBR A HAUTPAGE8 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(BLU) A 2 7'Libell‚' A COLOR(BLU) A*================================================================ A R SFLSTATU SFL A*%%TS SD 20030929 145236 PRG5 REL-V5R1M0 5722-WDS A ECCODPAYS 3A O 3 2COLOR(BLU) A DSPATR(PC) A ECLIBPAYS 15A O 3 7 A ECLIBSTAT 15A O 3 27 A ECCODSTAT 3A O 3 23COLOR(BLU) A*================================================================ A R CTLSTATU SFLCTL(SFLSTATU) A*%%TS SD 20030929 144708 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Statuts ')) A*N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A PAGAFF1 4S 0H SFLRCDNBR A HAUTPAGE1 5S 0H SFLSCROLL A 2 2'Pays' A COLOR(BLU) A 2 23'Statut' A COLOR(BLU) A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A*================================================================ A R SFLSUPPORT SFL A*%%TS SD 20030929 145429 PRG5 REL-V5R1M0 5722-WDS A ECLIBSUPP 19A O 3 7 A ECCODSUPP 3A O 3 2COLOR(BLU) A DSPATR(PC) A R CTLSUPPORT SFLCTL(SFLSUPPORT) A*%%TS SD 20030929 141651 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Supports ')) A*N64 ROLLUP(31) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A PAGAFF7 4S 0H SFLRCDNBR A HAUTPAGE7 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(BLU) A 2 7'Libell‚' A COLOR(BLU) A R LSTEPAY SFL A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A ECCODPAYS 3 O 3 2COLOR(TRQ) A DSPATR(PC) A ECLIBPAYS 15A O 3 7 A R LSTCTLEPAY SFLCTL(LSTEPAY) A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Pays ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF11 4S 0H SFLRCDNBR A HAUTPAGE11 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(TRQ) A 2 7'Libell‚' A COLOR(TRQ) A R LSTVPAY SFL A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A ECCODPAYS 3A O 3 2COLOR(YLW) A DSPATR(PC) A ECLIBPAYS 15A O 3 7 A R LSTCTLVPAY SFLCTL(LSTVPAY) A*%%TS SD 20030930 151654 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Pays ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF13 4S 0H SFLRCDNBR A HAUTPAGE13 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(YLW) A 2 7'Libell‚' A COLOR(YLW) A R LSTFAM SFL A*%%TS SD 20031006 102531 PRG5 REL-V5R1M0 5722-WDS A ECCODFAM 2A O 3 4COLOR(WHT) A DSPATR(PC) A ECLIBFAM 22A O 3 7 A R LSTCTLFAM SFLCTL(LSTFAM) A*%%TS SD 20031006 102210 PRG5 REL-V5R1M0 5722-WDS A SFLSIZ(0011) A SFLPAG(0010) A WINDOW(10 30 13 46) A WDWTITLE((*TEXT ' Famille ')) A SFLCSRRRN(&WSENRC) A 50 SFLDSP A 50 SFLDSPCTL A N50 SFLCLR A 64 SFLEND(*SCRBAR *SCRBAR) A WSENRC 5S 0H A PAGAFF15 4S 0H SFLRCDNBR A HAUTPAGE15 5S 0H SFLSCROLL A PSHBTN12 2Y 0B 1 34PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 2 2'Code' A COLOR(WHT) A 2 7'Libell‚' A COLOR(WHT) A R FICHESV A*%%TS SD 20031031 133100 PRG5 REL-V5R1M0 5722-WDS A OVERLAY A PGMNOM 10A O 1 2COLOR(RED) A 1 13'Base Selection' A COLOR(WHT) A 1 28'-' A 1 30'Fiche Ar“me' A COLOR(WHT) A PSHBTN9 2Y 0B 2 41PSHBTNFLD A PSHBTNCHC(9 'Valider F9') A PSHBTN11 2Y 0B 2 55PSHBTNFLD A PSHBTNCHC(11 'Liste F11') A PSHBTN12 2Y 0B 2 68PSHBTNFLD A PSHBTNCHC(12 'Retour F12') A 3 4'R‚f‚rence :' A COLOR(WHT) A ECREFPRO 6A O 3 16COLOR(WHT) A 4 3'Appelation :' A COLOR(WHT) A ECAPPEL1 50A O 4 16COLOR(WHT) A 5 2'Contre Type :' A COLOR(WHT) A ECCONTRE 50A B 5 16COLOR(WHT) A DSPATR(PC) A 6 2'Obs G‚n‚ral :' A COLOR(WHT) A ECNOTES1 50A B 6 16COLOR(WHT) A ECNOTES2 50A B 7 16COLOR(WHT) A 8 4'Obs Perso :' A COLOR(WHT) A ECNOTES3 50A B 8 16COLOR(WHT) A ECNOTES4 50A B 9 16COLOR(WHT) A 10 5'Enregistr‚ dans le fichier s‚lecti- A on :' A COLOR(WHT) A ECSELECT 2Y 0B 10 45SNGCHCFLD((*NUMCOL 2) (*GUTTER 2)) A CHCAVAIL((*COLOR BLU)) A CHOICE(1 'Oui') A CHOICE(2 'Non') A 11 2'Legislation :' A COLOR(BLU) A 11 29'Aspect :' A COLOR(BLU) A ECASPE 7A O 11 38COLOR(BLU) A ECCASH1 1A O 12 3COLOR(BLU) A 12 5'Casher Certifi‚' A COLOR(BLU) A 12 28'Couleur :' A COLOR(BLU) A ECCOUL 15A O 12 38COLOR(BLU) A ECCASH2 1A O 13 3COLOR(BLU) A 13 5'Casher Certifiable' A COLOR(BLU) A ECHALL1 1A O 14 3COLOR(BLU) A 14 5'Hallal Certifi‚' A COLOR(BLU) A ECCODCREA 3A O 14 44COLOR(PNK) A ECLIBCREA 15A O 14 48COLOR(PNK) A 14 64': Cr‚ateur' A COLOR(PNK) A ECHALL2 1A O 15 3COLOR(BLU) A 15 5'Hallal Certifiable' A COLOR(BLU) A ECSTOCK 11Y 3O 15 49COLOR(PNK) A EDTCDE(1) A 15 64': Stock' A COLOR(PNK) A ECALLER 1A O 16 3COLOR(BLU) A 16 5'Pr‚sence d''AllergŠne' A COLOR(BLU) A ECDATECREA 8Y 0O 16 53COLOR(PNK) A EDTCDE(Y) A 16 64': Date Cr‚ation' A COLOR(PNK) A ECOGM 1A O 17 3COLOR(BLU) A 17 5'Pr‚sence D''OGM' A COLOR(BLU) A 17 28'Point Eclair :' A COLOR(BLU) A ECECLA 3Y 0O 17 43COLOR(BLU) A ECPRIXRE 8Y 2O 17 53COLOR(PNK) A EDTCDE(1) A 17 64': Prix Revient' A COLOR(PNK) A PSHBTN1 2Y 0B 20 2PSHBTNFLD A PSHBTNCHC(1 'Parent F1') A PSHBTN4 2Y 0B 20 20PSHBTNFLD A PSHBTNCHC(4 'Famille F4') A PSHBTN7 2Y 0B 20 38PSHBTNFLD A PSHBTNCHC(7 'Application F7') A PSHBTN2 2Y 0B 21 2PSHBTNFLD A PSHBTNCHC(2 'Statut F2') A PSHBTN5 2Y 0B 21 20PSHBTNFLD A PSHBTNCHC(5 'Vendu F5') A PSHBTN8 2Y 0B 21 38PSHBTNFLD A PSHBTNCHC(8 'L‚gislation F8') A PSHBTN3 2Y 0B 22 2PSHBTNFLD A PSHBTNCHC(3 'Support F3') A PSHBTN6 2Y 0B 22 20PSHBTNFLD A PSHBTNCHC(6 'Echantillon F6') A ECMSGERR 40A O 23 20COLOR(RED) A 13 27'Colorant :' A COLOR(BLU) A ECCOLORA 40A O 13 38COLOR(BLU)