echo Begin of Upgrade 7.0.124
echo Title: FRSP_PIVLABELS
BRING << \EOF
17 14 FRSP_PIVLABELS22 ÷ôñ úéðåáùç ú÷áãî ú÷ôä0 80 0 0 0 0 3 LOG0 0 
57 10 éèøô çåúéô1 
58 1 14 FRSP_PIVLABELS80 
7 14 FRSP_PIVLABELS80 10 6 INPUTF66 
18 9 LABELSDEF0 
56 9 LABELSDEF12 úå÷áãî úøãâä0 
19 9 LABELSDEF1 9 LABELNAME4 CHAR10 10 8 ä÷áãî íù
19 9 LABELSDEF2 8 LABELDES5 RCHAR32 32 10 ä÷áãî øåàú
19 9 LABELSDEF3 9 LABELPATH4 CHAR64 64 13 ä÷áãî õáå÷ íù
19 9 LABELSDEF4 8 LABELDEF3 INT13 4 15 (ID)ä÷áãî úøãâä
33 9 LABELSDEF8 LABELDEF0 48 
20 9 LABELSDEF65 1 
21 9 LABELSDEF1 8 LABELDEF1 
20 9 LABELSDEF85 2 
21 9 LABELSDEF2 9 LABELNAME1 
9 14 FRSP_PIVLABELS80 10 3 LAB0 0 4 FILE0 0 73 9 LABELSDEF9 LABELNAME
18 8 INVOICES1 
56 8 INVOICES13 úåéôñë úåãåòú0 
19 8 INVOICES1 6 IVDATE4 DATE8 4 5 êéøàú
19 8 INVOICES2 5 IVNUM4 CHAR16 16 7 úéðåáùç
19 8 INVOICES3 3 DOC3 INT13 4 10 (ID) äãåòú
19 8 INVOICES4 2 IV3 INT13 4 12 (ID) úéðåáùç
19 8 INVOICES5 6 QPRICE4 REAL16 8 14 äçðä éðôì íåëñ
33 8 INVOICES6 QPRICE2 50 
19 8 INVOICES6 8 TOTPRICE4 REAL16 8 11 íåìùúì ë"äñ
33 8 INVOICES8 TOTPRICE2 50 
19 8 INVOICES7 8 CURRENCY3 INT13 4 9 (ID) òáèî
19 8 INVOICES8 4 CUST3 INT13 4 13 (ID) çå÷ì 'ñî
19 8 INVOICES9 5 DEBIT4 CHAR1 1 9 éåëæ/áåéç
19 8 INVOICES10 5 IVREF4 CHAR10 10 6 àúëîñà
19 8 INVOICES11 3 VAT4 REAL16 8 4 î"òî
33 8 INVOICES3 VAT2 50 
19 8 INVOICES12 5 UDATE4 DATE14 4 8 äîéúç .ú
19 8 INVOICES13 4 USER3 INT13 4 10 (ID) ùîúùî
33 8 INVOICES4 USER0 48 
19 8 INVOICES14 7 PRINTED4 CHAR1 1 5 ñôãåä
19 8 INVOICES15 5 FINAL4 CHAR1 1 5 úéôåñ
19 8 INVOICES16 3 ORD3 INT13 4 10 (ID) äðîæä
33 8 INVOICES3 ORD0 48 
19 8 INVOICES17 8 DISCOUNT4 REAL16 8 10 úéììë äçðä
33 8 INVOICES8 DISCOUNT2 50 
19 8 INVOICES18 8 DISPRICE4 REAL16 8 14 äçðä éøçà øéçî
33 8 INVOICES8 DISPRICE2 50 
19 8 INVOICES19 7 MONTHLY4 CHAR1 1 14 ?úæëøî úéðåáùç
19 8 INVOICES20 3 PAY3 INT13 4 10 (ID) íåìùú
33 8 INVOICES3 PAY0 48 
19 8 INVOICES21 10 FNCPATTERN3 INT13 4 14 (ID) äòåðú âåñ
33 8 INVOICES10 FNCPATTERN0 48 
19 8 INVOICES22 7 PAYDATE4 DATE8 4 8 ïåòøô .ú
19 8 INVOICES23 8 FNCTRANS3 INT13 4 15 (ID) ïîåé úòåðú
33 8 INVOICES8 FNCTRANS0 48 
19 8 INVOICES24 7 BOOKNUM4 CHAR16 16 9 ñ÷ðô øôñî
19 8 INVOICES25 5 AGENT3 INT13 4 9 (ID) ïëåñ
33 8 INVOICES5 AGENT0 48 
19 8 INVOICES26 3 PIV3 INT13 4 19 (ID) àúëîñà úéðåáùç
33 8 INVOICES3 PIV0 48 
19 8 INVOICES27 9 CALQPRICE4 REAL16 8 15 áùåçî ììåë øéçî
33 8 INVOICES9 CALQPRICE2 50 
19 8 INVOICES28 4 TYPE4 CHAR1 1 3 âåñ
19 8 INVOICES29 8 CHECKING4 CHAR1 1 6 ä÷éãáá
19 8 INVOICES30 7 IMPFILE3 INT13 4 13 (ID) àåáé ÷éú
33 8 INVOICES7 IMPFILE0 48 
19 8 INVOICES31 10 IMPFIVTYPE4 CHAR1 1 17 àåáé ÷éúá .ùç âåñ
19 8 INVOICES32 4 CASH3 INT13 4 10 (ID) äôå÷î
33 8 INVOICES4 CASH0 48 
19 8 INVOICES33 6 TOCASH3 INT13 4 10 (ID) äôå÷ì
33 8 INVOICES6 TOCASH0 48 
19 8 INVOICES34 10 NOVATPRICE4 REAL16 8 18 î"òîá áééç àì íåëñ
33 8 INVOICES10 NOVATPRICE2 50 
19 8 INVOICES35 8 VATPRICE4 REAL16 8 15 î"òîá áééç íåëñ
33 8 INVOICES8 VATPRICE2 50 
19 8 INVOICES36 5 WARHS3 INT13 4 10 (ID) ïñçîî
33 8 INVOICES5 WARHS0 48 
19 8 INVOICES37 7 TOWARHS3 INT13 4 10 (ID) ïñçîì
33 8 INVOICES7 TOWARHS0 48 
19 8 INVOICES38 9 LCURRENCY3 INT13 4 20 (ID) äøîä/äãîöä òáèî
33 8 INVOICES9 LCURRENCY0 48 
19 8 INVOICES39 9 LEXCHANGE4 REAL17 8 14 äøîä/äãîöä øòù
33 8 INVOICES9 LEXCHANGE9 57 
19 8 INVOICES40 4 WTAX4 REAL16 8 14 øå÷îá ñî éåëéð
33 8 INVOICES4 WTAX2 50 
19 8 INVOICES41 9 AFTERWTAX4 REAL16 8 13 ñî éåëéð éøçà
33 8 INVOICES9 AFTERWTAX2 50 
19 8 INVOICES42 11 WTAXPERCENT4 REAL5 8 16 øå÷îá ñî éåëéð %
33 8 INVOICES11 WTAXPERCENT2 50 
19 8 INVOICES43 9 IVBALANCE4 REAL16 8 11 íåìùúì äøúé
33 8 INVOICES9 IVBALANCE2 50 
19 8 INVOICES44 7 ADVFLAG4 CHAR1 1 6 ?äîã÷î
19 8 INVOICES45 7 ACCOUNT3 INT13 4 10 (ID) ïåáùç
33 8 INVOICES7 ACCOUNT0 48 
19 8 INVOICES46 11 CASHPAYMENT4 REAL13 8 14 ïîåæîá íéìåá÷ú
33 8 INVOICES11 CASHPAYMENT2 50 
19 8 INVOICES47 10 STORNOFLAG4 CHAR1 1 7 ? ìèåáî
19 8 INVOICES48 3 TAX3 INT13 4 7 (ID) ñî
33 8 INVOICES3 TAX0 48 
19 8 INVOICES49 8 INTERNAL4 CHAR1 1 16 ? úéîéðô úéðåáùç
19 8 INVOICES50 6 BRANCH3 INT13 4 9 (ID) óéðñ
33 8 INVOICES6 BRANCH0 48 
19 8 INVOICES51 3 LIV3 INT13 4 19 (ID) úñîòåî úéðåáùç
33 8 INVOICES3 LIV0 48 
19 8 INVOICES52 12 ADJPRICEFLAG4 CHAR1 1 13 ?íéøéçî êøòùì
19 8 INVOICES53 12 FNCITEMSFLAG4 CHAR1 1 18 ?ïîåé úãå÷ôì èåøéô
19 8 INVOICES54 7 DETAILS5 RCHAR24 24 5 íéèøô
19 8 INVOICES55 5 OWNER3 INT8 4 11 (ID) ìåôéèì
19 8 INVOICES56 5 PHONE3 INT13 4 12 (ID) øù÷ ùéà
33 8 INVOICES5 PHONE0 48 
19 8 INVOICES57 8 DESTCODE3 INT13 4 8 (ID) øúà
33 8 INVOICES8 DESTCODE0 48 
19 8 INVOICES58 8 SHIPTYPE3 INT13 4 16 (ID) çåìùî ñåôéè
33 8 INVOICES8 SHIPTYPE0 48 
19 8 INVOICES59 7 BALDATE4 DATE8 4 8 ïæàîì .ú
19 8 INVOICES60 5 PLIST3 INT13 4 11 (ID) ïåøéçî
33 8 INVOICES5 PLIST0 48 
19 8 INVOICES61 7 PERCENT4 REAL8 8 18 % úéììë äçðä úòéá÷
33 8 INVOICES7 PERCENT2 50 
19 8 INVOICES62 4 PACK3 INT13 8 10 (ID) äæéøà
33 8 INVOICES4 PACK0 48 
19 8 INVOICES63 7 MWEIGHT4 REAL16 8 15 éðãé åèåøá ì÷ùî
33 8 INVOICES7 MWEIGHT2 50 
19 8 INVOICES64 6 WEIGHT4 REAL16 8 10 åèåøá ì÷ùî
33 8 INVOICES6 WEIGHT2 50 
19 8 INVOICES65 10 AIRWAYBILL4 CHAR20 20 10 äìéáç øôñî
19 8 INVOICES66 15 FREE_TECHNICIAN3 INT13 8 11 (ID) éàðëè.
33 8 INVOICES15 FREE_TECHNICIAN0 48 
19 8 INVOICES67 9 EWIM_DEAL3 INT13 8 17 (ID) úøâñî úðîæä.
33 8 INVOICES9 EWIM_DEAL0 48 
19 8 INVOICES68 10 FIVE_EMAIL4 CHAR48 48 6 EMAIL.
19 8 INVOICES69 18 FIVE_SUTRANSACTION4 CHAR30 30 15 SU TRANSACTION.
19 8 INVOICES70 12 FIVE_COUNTRY3 INT13 8 9 (ID) õøà.
33 8 INVOICES12 FIVE_COUNTRY0 48 
19 8 INVOICES71 11 FIVE_SENDIV4 CHAR1 1 15 ?úéðåáùç úçéìù.
19 8 INVOICES72 11 FIVE_USERID4 CHAR48 48 9 ùîúùî íù.
19 8 INVOICES73 16 FIVE_IVNUMERATOR4 CHAR15 15 8 øåèøîåð.
19 8 INVOICES74 10 FIVE_VATID4 CHAR20 20 6 Vat Id
20 8 INVOICES65 1 
21 8 INVOICES1 2 IV1 
20 8 INVOICES85 2 
21 8 INVOICES2 5 IVNUM1 
21 8 INVOICES2 5 DEBIT3 
21 8 INVOICES2 4 TYPE2 
20 8 INVOICES78 3 
21 8 INVOICES3 7 BOOKNUM1 
21 8 INVOICES3 4 TYPE2 
20 8 INVOICES78 4 
21 8 INVOICES4 3 DOC1 
20 8 INVOICES78 5 
21 8 INVOICES5 3 ORD1 
20 8 INVOICES78 6 
21 8 INVOICES6 7 IMPFILE1 
20 8 INVOICES78 7 
21 8 INVOICES7 6 IVDATE1 
20 8 INVOICES78 8 
21 8 INVOICES8 4 CUST1 
21 8 INVOICES8 5 FINAL3 
21 8 INVOICES8 4 TYPE2 
20 8 INVOICES78 9 
21 8 INVOICES9 4 TYPE2 
21 8 INVOICES9 7 ACCOUNT1 
20 8 INVOICES78 10 
21 8 INVOICES10 16 FIVE_IVNUMERATOR1 
9 14 FRSP_PIVLABELS80 10 3 PAR0 0 4 FILE0 0 73 8 INVOICES5 IVNUM
10 14 FRSP_PIVLABELS80 10 3 PAR11 GENINVOICES70 0 0 0 0 0 0 0 
7 14 FRSP_PIVLABELS80 20 4 SQLI67 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/1 2 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1000;   /*   Delete From Labels   */2 3 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1001;   /* Insert Value To Labels */3 4 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1002;   /*      Print Labels      */4 5 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/5 6 
28 14 FRSP_PIVLABELS80 20 9 SUB 1000;6 7 
28 14 FRSP_PIVLABELS80 20 42 DELETE FROM LABELS WHERE  USER = SQL.USER;7 8 
28 14 FRSP_PIVLABELS80 20 7 RETURN;8 9 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/9 10 
28 14 FRSP_PIVLABELS80 20 9 SUB 1001;10 11 
28 14 FRSP_PIVLABELS80 20 15 :B_LABELDEF = 011 12 
28 14 FRSP_PIVLABELS80 20 1 ;12 13 
28 14 FRSP_PIVLABELS80 20 24 LINK INVOICES TO :$.PAR;13 14 
28 14 FRSP_PIVLABELS80 20 27 ERRMSG 1 WHERE :RETVAL <=0;14 15 
28 14 FRSP_PIVLABELS80 20 25 LINK LABELSDEF TO :$.LAB;15 16 
28 14 FRSP_PIVLABELS80 20 26 ERRMSG 1 WHERE :RETVAL <=016 17 
28 14 FRSP_PIVLABELS80 20 1 ;17 18 
28 14 FRSP_PIVLABELS80 20 9 :CNT = 0;18 19 
28 14 FRSP_PIVLABELS80 20 30 SELECT COUNT(*), MAX(LABELDEF)19 20 
28 14 FRSP_PIVLABELS80 20 22 INTO :CNT, :B_LABELDEF20 21 
28 14 FRSP_PIVLABELS80 20 15 FROM  LABELSDEF21 22 
28 14 FRSP_PIVLABELS80 20 19 WHERE LABELDEF <> 022 23 
28 14 FRSP_PIVLABELS80 20 1 ;23 24 
28 14 FRSP_PIVLABELS80 20 17 UNLINK LABELSDEF;24 25 
28 14 FRSP_PIVLABELS80 20 24 ERRMSG 2 WHERE :CNT <> 125 26 
28 14 FRSP_PIVLABELS80 20 1 ;26 27 
28 14 FRSP_PIVLABELS80 20 12 :T_LINE = 1;27 28 
28 14 FRSP_PIVLABELS80 20 20 DECLARE X CURSOR FOR28 29 
28 14 FRSP_PIVLABELS80 20 33 SELECT IVDATE,IVNUM,INVOICES.TYPE29 30 
28 14 FRSP_PIVLABELS80 20 13 FROM INVOICES30 31 
28 14 FRSP_PIVLABELS80 20 13 WHERE IV <> 031 32 
28 14 FRSP_PIVLABELS80 20 12 ORDER BY 1,232 33 
28 14 FRSP_PIVLABELS80 20 1 ;33 34 
28 14 FRSP_PIVLABELS80 20 7 OPEN X;34 35 
28 14 FRSP_PIVLABELS80 20 29 GOTO 801 WHERE :RETVAL <= 0 ;35 36 
28 14 FRSP_PIVLABELS80 20 10 LABEL 901;36 37 
28 14 FRSP_PIVLABELS80 20 40 FETCH X INTO :X_IVDATE,:X_IVNUM,:X_TYPE;37 38 
28 14 FRSP_PIVLABELS80 20 27 GOTO 701 WHERE :RETVAL <= 038 39 
28 14 FRSP_PIVLABELS80 20 1 ;39 40 
28 14 FRSP_PIVLABELS80 20 22 :T_LINE = :T_LINE + 1;42 51 
28 14 FRSP_PIVLABELS80 20 9 LOOP 901;43 52 
28 14 FRSP_PIVLABELS80 20 10 LABEL 701;44 53 
28 14 FRSP_PIVLABELS80 20 8 CLOSE X;45 54 
28 14 FRSP_PIVLABELS80 20 10 LABEL 801;46 55 
28 14 FRSP_PIVLABELS80 20 16 UNLINK INVOICES;47 56 
28 14 FRSP_PIVLABELS80 20 7 RETURN;48 57 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/49 58 
28 14 FRSP_PIVLABELS80 20 9 SUB 1002;50 59 
28 14 FRSP_PIVLABELS80 20 30 EXECUTE WINPROC '-P','LABELS';51 60 
28 14 FRSP_PIVLABELS80 20 7 RETURN;52 61 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/53 62 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)54 41 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,55 42 
28 14 FRSP_PIVLABELS80 20 38 STRCAT(:O_ENVNUM,'I',:X_TYPE,:X_IVNUM)56 43 
28 14 FRSP_PIVLABELS80 20 33 FROM DUMMY WHERE :O_TWOTYPE = 'Y'57 44 
28 14 FRSP_PIVLABELS80 20 1 ;58 45 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)59 46 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,60 47 
28 14 FRSP_PIVLABELS80 20 30 STRCAT(:O_ENVNUM,'I',:X_IVNUM)61 48 
28 14 FRSP_PIVLABELS80 20 34 FROM DUMMY WHERE :O_TWOTYPE <> 'Y'62 49 
28 14 FRSP_PIVLABELS80 20 1 ;63 50 
28 14 FRSP_PIVLABELS80 20 29 #INCLUDE func/FSPS_getEnvVars64 1 
2 14 FRSP_PIVLABELS80 1 34 .úëøòîä ìäðîì äðô àð .úéîéðô äàéâù
2 14 FRSP_PIVLABELS80 2 20 úããåá ä÷áãî øåçáì àð
1007 14 FRSP_PIVLABELS80 20 4 SQLI67 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/1 2 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1000;   /*   Delete From Labels   */2 3 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1001;   /* Insert Value To Labels */3 4 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1002;   /*      Print Labels      */4 5 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/5 6 
28 14 FRSP_PIVLABELS80 20 9 SUB 1000;6 7 
28 14 FRSP_PIVLABELS80 20 42 DELETE FROM LABELS WHERE  USER = SQL.USER;7 8 
28 14 FRSP_PIVLABELS80 20 7 RETURN;8 9 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/9 10 
28 14 FRSP_PIVLABELS80 20 9 SUB 1001;10 11 
28 14 FRSP_PIVLABELS80 20 15 :B_LABELDEF = 011 12 
28 14 FRSP_PIVLABELS80 20 1 ;12 13 
28 14 FRSP_PIVLABELS80 20 24 LINK INVOICES TO :$.PAR;13 14 
28 14 FRSP_PIVLABELS80 20 27 ERRMSG 1 WHERE :RETVAL <=0;14 15 
28 14 FRSP_PIVLABELS80 20 25 LINK LABELSDEF TO :$.LAB;15 16 
28 14 FRSP_PIVLABELS80 20 26 ERRMSG 1 WHERE :RETVAL <=016 17 
28 14 FRSP_PIVLABELS80 20 1 ;17 18 
28 14 FRSP_PIVLABELS80 20 9 :CNT = 0;18 19 
28 14 FRSP_PIVLABELS80 20 30 SELECT COUNT(*), MAX(LABELDEF)19 20 
28 14 FRSP_PIVLABELS80 20 22 INTO :CNT, :B_LABELDEF20 21 
28 14 FRSP_PIVLABELS80 20 15 FROM  LABELSDEF21 22 
28 14 FRSP_PIVLABELS80 20 19 WHERE LABELDEF <> 022 23 
28 14 FRSP_PIVLABELS80 20 1 ;23 24 
28 14 FRSP_PIVLABELS80 20 17 UNLINK LABELSDEF;24 25 
28 14 FRSP_PIVLABELS80 20 24 ERRMSG 2 WHERE :CNT <> 125 26 
28 14 FRSP_PIVLABELS80 20 1 ;26 27 
28 14 FRSP_PIVLABELS80 20 12 :T_LINE = 1;27 28 
28 14 FRSP_PIVLABELS80 20 20 DECLARE X CURSOR FOR28 29 
28 14 FRSP_PIVLABELS80 20 33 SELECT IVDATE,IVNUM,INVOICES.TYPE29 30 
28 14 FRSP_PIVLABELS80 20 13 FROM INVOICES30 31 
28 14 FRSP_PIVLABELS80 20 13 WHERE IV <> 031 32 
28 14 FRSP_PIVLABELS80 20 12 ORDER BY 1,232 33 
28 14 FRSP_PIVLABELS80 20 1 ;33 34 
28 14 FRSP_PIVLABELS80 20 7 OPEN X;34 35 
28 14 FRSP_PIVLABELS80 20 29 GOTO 801 WHERE :RETVAL <= 0 ;35 36 
28 14 FRSP_PIVLABELS80 20 10 LABEL 901;36 37 
28 14 FRSP_PIVLABELS80 20 40 FETCH X INTO :X_IVDATE,:X_IVNUM,:X_TYPE;37 38 
28 14 FRSP_PIVLABELS80 20 27 GOTO 701 WHERE :RETVAL <= 038 39 
28 14 FRSP_PIVLABELS80 20 1 ;39 40 
28 14 FRSP_PIVLABELS80 20 22 :T_LINE = :T_LINE + 1;42 51 
28 14 FRSP_PIVLABELS80 20 9 LOOP 901;43 52 
28 14 FRSP_PIVLABELS80 20 10 LABEL 701;44 53 
28 14 FRSP_PIVLABELS80 20 8 CLOSE X;45 54 
28 14 FRSP_PIVLABELS80 20 10 LABEL 801;46 55 
28 14 FRSP_PIVLABELS80 20 16 UNLINK INVOICES;47 56 
28 14 FRSP_PIVLABELS80 20 7 RETURN;48 57 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/49 58 
28 14 FRSP_PIVLABELS80 20 9 SUB 1002;50 59 
28 14 FRSP_PIVLABELS80 20 30 EXECUTE WINPROC '-P','LABELS';51 60 
28 14 FRSP_PIVLABELS80 20 7 RETURN;52 61 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/53 62 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)54 41 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,55 42 
28 14 FRSP_PIVLABELS80 20 38 STRCAT(:O_ENVNUM,'I',:X_TYPE,:X_IVNUM)56 43 
28 14 FRSP_PIVLABELS80 20 33 FROM DUMMY WHERE :O_TWOTYPE = 'Y'57 44 
28 14 FRSP_PIVLABELS80 20 1 ;58 45 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)59 46 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,60 47 
28 14 FRSP_PIVLABELS80 20 30 STRCAT(:O_ENVNUM,'I',:X_IVNUM)61 48 
28 14 FRSP_PIVLABELS80 20 34 FROM DUMMY WHERE :O_TWOTYPE <> 'Y'62 49 
28 14 FRSP_PIVLABELS80 20 1 ;63 50 
28 14 FRSP_PIVLABELS80 20 29 #INCLUDE func/FSPS_getEnvVars64 1 
1007 14 FRSP_PIVLABELS80 20 4 SQLI67 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/1 2 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1000;   /*   Delete From Labels   */2 3 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1001;   /* Insert Value To Labels */3 4 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1002;   /*      Print Labels      */4 5 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/5 6 
28 14 FRSP_PIVLABELS80 20 9 SUB 1000;6 7 
28 14 FRSP_PIVLABELS80 20 42 DELETE FROM LABELS WHERE  USER = SQL.USER;7 8 
28 14 FRSP_PIVLABELS80 20 7 RETURN;8 9 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/9 10 
28 14 FRSP_PIVLABELS80 20 9 SUB 1001;10 11 
28 14 FRSP_PIVLABELS80 20 15 :B_LABELDEF = 011 12 
28 14 FRSP_PIVLABELS80 20 1 ;12 13 
28 14 FRSP_PIVLABELS80 20 24 LINK INVOICES TO :$.PAR;13 14 
28 14 FRSP_PIVLABELS80 20 27 ERRMSG 1 WHERE :RETVAL <=0;14 15 
28 14 FRSP_PIVLABELS80 20 25 LINK LABELSDEF TO :$.LAB;15 16 
28 14 FRSP_PIVLABELS80 20 26 ERRMSG 1 WHERE :RETVAL <=016 17 
28 14 FRSP_PIVLABELS80 20 1 ;17 18 
28 14 FRSP_PIVLABELS80 20 9 :CNT = 0;18 19 
28 14 FRSP_PIVLABELS80 20 30 SELECT COUNT(*), MAX(LABELDEF)19 20 
28 14 FRSP_PIVLABELS80 20 22 INTO :CNT, :B_LABELDEF20 21 
28 14 FRSP_PIVLABELS80 20 15 FROM  LABELSDEF21 22 
28 14 FRSP_PIVLABELS80 20 19 WHERE LABELDEF <> 022 23 
28 14 FRSP_PIVLABELS80 20 1 ;23 24 
28 14 FRSP_PIVLABELS80 20 17 UNLINK LABELSDEF;24 25 
28 14 FRSP_PIVLABELS80 20 24 ERRMSG 2 WHERE :CNT <> 125 26 
28 14 FRSP_PIVLABELS80 20 1 ;26 27 
28 14 FRSP_PIVLABELS80 20 12 :T_LINE = 1;27 28 
28 14 FRSP_PIVLABELS80 20 20 DECLARE X CURSOR FOR28 29 
28 14 FRSP_PIVLABELS80 20 33 SELECT IVDATE,IVNUM,INVOICES.TYPE29 30 
28 14 FRSP_PIVLABELS80 20 13 FROM INVOICES30 31 
28 14 FRSP_PIVLABELS80 20 13 WHERE IV <> 031 32 
28 14 FRSP_PIVLABELS80 20 12 ORDER BY 1,232 33 
28 14 FRSP_PIVLABELS80 20 1 ;33 34 
28 14 FRSP_PIVLABELS80 20 7 OPEN X;34 35 
28 14 FRSP_PIVLABELS80 20 29 GOTO 801 WHERE :RETVAL <= 0 ;35 36 
28 14 FRSP_PIVLABELS80 20 10 LABEL 901;36 37 
28 14 FRSP_PIVLABELS80 20 40 FETCH X INTO :X_IVDATE,:X_IVNUM,:X_TYPE;37 38 
28 14 FRSP_PIVLABELS80 20 27 GOTO 701 WHERE :RETVAL <= 038 39 
28 14 FRSP_PIVLABELS80 20 1 ;39 40 
28 14 FRSP_PIVLABELS80 20 22 :T_LINE = :T_LINE + 1;42 51 
28 14 FRSP_PIVLABELS80 20 9 LOOP 901;43 52 
28 14 FRSP_PIVLABELS80 20 10 LABEL 701;44 53 
28 14 FRSP_PIVLABELS80 20 8 CLOSE X;45 54 
28 14 FRSP_PIVLABELS80 20 10 LABEL 801;46 55 
28 14 FRSP_PIVLABELS80 20 16 UNLINK INVOICES;47 56 
28 14 FRSP_PIVLABELS80 20 7 RETURN;48 57 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/49 58 
28 14 FRSP_PIVLABELS80 20 9 SUB 1002;50 59 
28 14 FRSP_PIVLABELS80 20 30 EXECUTE WINPROC '-P','LABELS';51 60 
28 14 FRSP_PIVLABELS80 20 7 RETURN;52 61 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/53 62 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)54 41 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,55 42 
28 14 FRSP_PIVLABELS80 20 38 STRCAT(:O_ENVNUM,'I',:X_TYPE,:X_IVNUM)56 43 
28 14 FRSP_PIVLABELS80 20 33 FROM DUMMY WHERE :O_TWOTYPE = 'Y'57 44 
28 14 FRSP_PIVLABELS80 20 1 ;58 45 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)59 46 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,60 47 
28 14 FRSP_PIVLABELS80 20 30 STRCAT(:O_ENVNUM,'I',:X_IVNUM)61 48 
28 14 FRSP_PIVLABELS80 20 34 FROM DUMMY WHERE :O_TWOTYPE <> 'Y'62 49 
28 14 FRSP_PIVLABELS80 20 1 ;63 50 
28 14 FRSP_PIVLABELS80 20 29 #INCLUDE func/FSPS_getEnvVars64 1 
3 9 PINVOICES70 612 14 FRSP_PIVLABELS80 
3 9 YINVOICES70 612 14 FRSP_PIVLABELS80 
EOF
echo End of Upgrade 7.0.124
BRING << \EOF
65 6 IVDATE8 INVOICES2 4 Date
65 5 IVNUM8 INVOICES2 7 Invoice
65 3 DOC8 INVOICES2 13 Document (ID)
65 2 IV8 INVOICES2 12 Invoice (ID)
65 6 QPRICE8 INVOICES2 16 Price Bef. Disc.
65 8 TOTPRICE8 INVOICES2 12 Amount Owing
65 8 CURRENCY8 INVOICES2 13 Currency (ID)
65 4 CUST8 INVOICES2 13 Customer (ID)
65 5 DEBIT8 INVOICES2 12 Debit/Credit
65 5 IVREF8 INVOICES2 9 Reference
65 3 VAT8 INVOICES2 9 Sales Tax
65 5 UDATE8 INVOICES2 10 Time Stamp
65 4 USER8 INVOICES2 9 User (ID)
65 7 PRINTED8 INVOICES2 8 Printed?
65 5 FINAL8 INVOICES2 5 Final
65 3 ORD8 INVOICES2 10 Order (ID)
65 8 DISCOUNT8 INVOICES2 16 Overall Discount
65 8 DISPRICE8 INVOICES2 20 Price After Discount
65 7 MONTHLY8 INVOICES2 17 Periodic Invoice?
65 3 PAY8 INVOICES2 12 Payment (ID)
65 10 FNCPATTERN8 INVOICES2 16 Transaction (ID)
65 7 PAYDATE8 INVOICES2 12 Payment Date
65 8 FNCTRANS8 INVOICES2 18 Journal Entry (ID)
65 7 BOOKNUM8 INVOICES2 18 Sales Rep Doc. No.
65 5 AGENT8 INVOICES2 14 Sales Rep (ID)
65 3 PIV8 INVOICES2 19 Vendor Invoice (ID)
65 9 CALQPRICE8 INVOICES2 17 Total Calc. Price
65 4 TYPE8 INVOICES2 4 Type
65 8 CHECKING8 INVOICES2 8 Checking
65 7 IMPFILE8 INVOICES2 20 Shipping Voucher(ID)
65 10 IMPFIVTYPE8 INVOICES2 16 Purchase/Expense
65 4 CASH8 INVOICES2 17 From Cashier (ID)
65 6 TOCASH8 INVOICES2 15 To Cashier (ID)
65 10 NOVATPRICE8 INVOICES2 17 Non-taxable Total
65 8 VATPRICE8 INVOICES2 13 Taxable Total
65 5 WARHS8 INVOICES2 19 From Warehouse (ID)
65 7 TOWARHS8 INVOICES2 17 To Warehouse (ID)
65 9 LCURRENCY8 INVOICES2 20 Linked/Exch Curr(ID)
65 9 LEXCHANGE8 INVOICES2 20 Exchange/Linked Rate
65 4 WTAX8 INVOICES2 14 Taxes Withheld
65 9 AFTERWTAX8 INVOICES2 11 After Taxes
65 11 WTAXPERCENT8 INVOICES2 5 % Tax
65 9 IVBALANCE8 INVOICES2 15 Payment Balance
65 7 ADVFLAG8 INVOICES2 16 Advance Payment?
65 7 ACCOUNT8 INVOICES2 12 Account (ID)
65 11 CASHPAYMENT8 INVOICES2 13 Cash Receipts
65 10 STORNOFLAG8 INVOICES2 9 Canceled?
65 3 TAX8 INVOICES2 8 Tax (ID)
65 8 INTERNAL8 INVOICES2 16 Internal Invoice
65 6 BRANCH8 INVOICES2 11 Branch (ID)
65 3 LIV8 INVOICES2 17 Ship Exp Inv (ID)
65 12 ADJPRICEFLAG8 INVOICES2 14 Adjust Prices?
65 12 FNCITEMSFLAG8 INVOICES2 17 Copy to J. Entry?
65 7 DETAILS8 INVOICES2 7 Details
65 5 OWNER8 INVOICES2 16 Assigned to (ID)
65 5 PHONE8 INVOICES2 12 Contact (ID)
65 9 LABELNAME9 LABELSDEF2 13 Type of Label
65 8 LABELDES9 LABELSDEF2 11 Description
65 9 LABELPATH9 LABELSDEF2 10 Label File
65 8 LABELDEF9 LABELSDEF2 18 Type of Label (ID)
65 8 DESTCODE8 INVOICES2 19 Destination Code ID
65 8 SHIPTYPE8 INVOICES2 18 Shimpent Type (ID)
65 7 BALDATE8 INVOICES2 16 Transaction Date
65 5 PLIST8 INVOICES2 15 Price List (ID)
65 7 PERCENT8 INVOICES2 19 Set Overall Disc. %
65 4 PACK8 INVOICES2 10 Crate (ID)
65 7 MWEIGHT8 INVOICES2 19 Manual Gross Weight
65 6 WEIGHT8 INVOICES2 12 Gross Weight
65 10 AIRWAYBILL8 INVOICES2 15 Tracking Number
64 1 2 20 Internal Development
62 8 INVOICES2 19 Financial Documents
62 9 LABELSDEF2 17 Label Definitions
65 6 IVDATE8 INVOICES2 4 Date
65 6 IVDATE8 INVOICES3 4 Date
65 6 IVDATE8 INVOICES6 4 Date
65 6 IVDATE8 INVOICES18 4 Date
65 6 IVDATE8 INVOICES25 4 Date
65 6 IVDATE8 INVOICES39 4 Date
65 6 IVDATE8 INVOICES44 4 Date
65 5 IVNUM8 INVOICES2 7 Invoice
65 5 IVNUM8 INVOICES3 7 Invoice
65 5 IVNUM8 INVOICES6 7 Facture
65 5 IVNUM8 INVOICES18 7 Invoice
65 5 IVNUM8 INVOICES25 7 Invoice
65 5 IVNUM8 INVOICES39 7 Invoice
65 5 IVNUM8 INVOICES44 7 Invoice
65 3 DOC8 INVOICES2 13 Document (ID)
65 3 DOC8 INVOICES3 13 Document (ID)
65 3 DOC8 INVOICES6 13 Document (ID)
65 3 DOC8 INVOICES18 13 Document (ID)
65 3 DOC8 INVOICES25 13 Document (ID)
65 3 DOC8 INVOICES39 13 Document (ID)
65 3 DOC8 INVOICES44 13 Document (ID)
65 2 IV8 INVOICES2 12 Invoice (ID)
65 2 IV8 INVOICES3 12 Invoice (ID)
65 2 IV8 INVOICES6 12 Facture (ID)
65 2 IV8 INVOICES18 12 Invoice (ID)
65 2 IV8 INVOICES25 12 Invoice (ID)
65 2 IV8 INVOICES39 12 Invoice (ID)
65 2 IV8 INVOICES44 12 Invoice (ID)
65 6 QPRICE8 INVOICES2 16 Price Bef. Disc.
65 6 QPRICE8 INVOICES3 16 Price Bef. Disc.
65 6 QPRICE8 INVOICES6 17 Prix Avant Remise
65 6 QPRICE8 INVOICES18 16 Price Bef. Disc.
65 6 QPRICE8 INVOICES25 16 Price Bef. Disc.
65 6 QPRICE8 INVOICES39 16 Price Bef. Disc.
65 6 QPRICE8 INVOICES44 16 Price Bef. Disc.
65 8 TOTPRICE8 INVOICES2 12 Amount Owing
65 8 TOTPRICE8 INVOICES3 12 Amount Owing
65 8 TOTPRICE8 INVOICES6 10 Montant Dû
65 8 TOTPRICE8 INVOICES25 12 Amount Owing
65 8 TOTPRICE8 INVOICES39 12 Amount Owing
65 8 TOTPRICE8 INVOICES44 12 Amount Owing
65 8 CURRENCY8 INVOICES2 13 Currency (ID)
65 8 CURRENCY8 INVOICES3 13 Currency (ID)
65 8 CURRENCY8 INVOICES6 11 Devise (ID)
65 8 CURRENCY8 INVOICES18 13 Currency (ID)
65 8 CURRENCY8 INVOICES25 13 Currency (ID)
65 8 CURRENCY8 INVOICES39 13 Currency (ID)
65 8 CURRENCY8 INVOICES44 13 Currency (ID)
65 4 CUST8 INVOICES2 13 Customer (ID)
65 4 CUST8 INVOICES3 13 Customer (ID)
65 4 CUST8 INVOICES6 11 Client (ID)
65 4 CUST8 INVOICES18 13 Customer (ID)
65 4 CUST8 INVOICES25 13 Customer (ID)
65 4 CUST8 INVOICES39 13 Customer (ID)
65 4 CUST8 INVOICES44 13 Customer (ID)
65 5 DEBIT8 INVOICES2 12 Debit/Credit
65 5 DEBIT8 INVOICES3 12 Debit/Credit
65 5 DEBIT8 INVOICES6 12 Débit/Crédit
65 5 DEBIT8 INVOICES18 12 Debit/Credit
65 5 DEBIT8 INVOICES25 12 Debit/Credit
65 5 DEBIT8 INVOICES39 12 Debit/Credit
65 5 DEBIT8 INVOICES44 12 Debit/Credit
65 5 IVREF8 INVOICES2 9 Reference
65 5 IVREF8 INVOICES3 9 Reference
65 5 IVREF8 INVOICES6 9 Référence
65 5 IVREF8 INVOICES18 9 Reference
65 5 IVREF8 INVOICES25 9 Reference
65 5 IVREF8 INVOICES39 9 Reference
65 5 IVREF8 INVOICES44 9 Reference
65 3 VAT8 INVOICES2 3 VAT
65 3 VAT8 INVOICES3 9 Sales Tax
65 3 VAT8 INVOICES6 3 TVA
65 3 VAT8 INVOICES18 3 VAT
65 3 VAT8 INVOICES25 3 VAT
65 3 VAT8 INVOICES39 3 VAT
65 3 VAT8 INVOICES41 3 VAT
65 3 VAT8 INVOICES44 3 VAT
65 5 UDATE8 INVOICES2 10 Time Stamp
65 5 UDATE8 INVOICES3 10 Time Stamp
65 5 UDATE8 INVOICES6 12 Cachet Heure
65 5 UDATE8 INVOICES18 10 Time Stamp
65 5 UDATE8 INVOICES25 10 Time Stamp
65 5 UDATE8 INVOICES39 10 Time Stamp
65 5 UDATE8 INVOICES44 10 Time Stamp
65 4 USER8 INVOICES2 9 User (ID)
65 4 USER8 INVOICES3 9 User (ID)
65 4 USER8 INVOICES6 16 Utilisateur (ID)
65 4 USER8 INVOICES18 9 User (ID)
65 4 USER8 INVOICES25 9 User (ID)
65 4 USER8 INVOICES39 9 User (ID)
65 4 USER8 INVOICES44 9 User (ID)
65 7 PRINTED8 INVOICES2 8 Printed?
65 7 PRINTED8 INVOICES3 8 Printed?
65 7 PRINTED8 INVOICES6 10 Imprimer ?
65 7 PRINTED8 INVOICES18 8 Printed?
65 7 PRINTED8 INVOICES25 8 Printed?
65 7 PRINTED8 INVOICES39 8 Printed?
65 7 PRINTED8 INVOICES44 8 Printed?
65 5 FINAL8 INVOICES2 5 Final
65 5 FINAL8 INVOICES3 5 Final
65 5 FINAL8 INVOICES6 9 Finaliser
65 5 FINAL8 INVOICES18 5 Final
65 5 FINAL8 INVOICES25 5 Final
65 5 FINAL8 INVOICES39 5 Final
65 5 FINAL8 INVOICES44 5 Final
65 3 ORD8 INVOICES2 10 Order (ID)
65 3 ORD8 INVOICES3 10 Order (ID)
65 3 ORD8 INVOICES6 13 Commande (ID)
65 3 ORD8 INVOICES18 10 Order (ID)
65 3 ORD8 INVOICES25 10 Order (ID)
65 3 ORD8 INVOICES39 10 Order (ID)
65 3 ORD8 INVOICES44 10 Order (ID)
65 8 DISCOUNT8 INVOICES2 16 Overall Discount
65 8 DISCOUNT8 INVOICES3 16 Overall Discount
65 8 DISCOUNT8 INVOICES6 13 Remise Totale
65 8 DISCOUNT8 INVOICES18 16 Overall Discount
65 8 DISCOUNT8 INVOICES25 16 Overall Discount
65 8 DISCOUNT8 INVOICES39 16 Overall Discount
65 8 DISCOUNT8 INVOICES44 16 Overall Discount
65 8 DISPRICE8 INVOICES2 20 Price After Discount
65 8 DISPRICE8 INVOICES3 20 Price After Discount
65 8 DISPRICE8 INVOICES6 17 Prix Après Remise
65 8 DISPRICE8 INVOICES18 20 Price After Discount
65 8 DISPRICE8 INVOICES25 20 Price After Discount
65 8 DISPRICE8 INVOICES39 20 Price After Discount
65 8 DISPRICE8 INVOICES44 20 Price After Discount
65 7 MONTHLY8 INVOICES2 17 Periodic Invoice?
65 7 MONTHLY8 INVOICES3 17 Periodic Invoice?
65 7 MONTHLY8 INVOICES6 20 Facture Périodique ?
65 7 MONTHLY8 INVOICES18 17 Periodic Invoice?
65 7 MONTHLY8 INVOICES25 17 Periodic Invoice?
65 7 MONTHLY8 INVOICES39 17 Periodic Invoice?
65 7 MONTHLY8 INVOICES44 17 Periodic Invoice?
65 3 PAY8 INVOICES2 12 Payment (ID)
65 3 PAY8 INVOICES3 12 Payment (ID)
65 3 PAY8 INVOICES6 13 Paiement (ID)
65 3 PAY8 INVOICES18 12 Payment (ID)
65 3 PAY8 INVOICES25 12 Payment (ID)
65 3 PAY8 INVOICES39 12 Payment (ID)
65 3 PAY8 INVOICES44 12 Payment (ID)
65 10 FNCPATTERN8 INVOICES2 16 Transaction (ID)
65 10 FNCPATTERN8 INVOICES3 16 Transaction (ID)
65 10 FNCPATTERN8 INVOICES6 16 Transaction (ID)
65 10 FNCPATTERN8 INVOICES18 16 Transaction (ID)
65 10 FNCPATTERN8 INVOICES25 16 Transaction (ID)
65 10 FNCPATTERN8 INVOICES39 16 Transaction (ID)
65 10 FNCPATTERN8 INVOICES44 16 Transaction (ID)
65 7 PAYDATE8 INVOICES2 12 Payment Date
65 7 PAYDATE8 INVOICES3 12 Payment Date
65 7 PAYDATE8 INVOICES6 13 Date Paiement
65 7 PAYDATE8 INVOICES18 12 Payment Date
65 7 PAYDATE8 INVOICES25 12 Payment Date
65 7 PAYDATE8 INVOICES39 12 Payment Date
65 7 PAYDATE8 INVOICES44 12 Payment Date
65 8 FNCTRANS8 INVOICES2 18 Journal Entry (ID)
65 8 FNCTRANS8 INVOICES3 18 Journal Entry (ID)
65 8 FNCTRANS8 INVOICES6 20 Ecriture Journal(ID)
65 8 FNCTRANS8 INVOICES18 18 Journal Entry (ID)
65 8 FNCTRANS8 INVOICES25 18 Journal Entry (ID)
65 8 FNCTRANS8 INVOICES39 18 Journal Entry (ID)
65 8 FNCTRANS8 INVOICES44 18 Journal Entry (ID)
65 7 BOOKNUM8 INVOICES2 18 Sales Rep Doc. No.
65 7 BOOKNUM8 INVOICES3 18 Sales Rep Doc. No.
65 7 BOOKNUM8 INVOICES6 20 N° Doc Repres Ventes
65 7 BOOKNUM8 INVOICES18 18 Sales Rep Doc. No.
65 7 BOOKNUM8 INVOICES25 18 Sales Rep Doc. No.
65 7 BOOKNUM8 INVOICES39 18 Sales Rep Doc. No.
65 7 BOOKNUM8 INVOICES44 18 Sales Rep Doc. No.
65 5 AGENT8 INVOICES2 14 Sales Rep (ID)
65 5 AGENT8 INVOICES3 14 Sales Rep (ID)
65 5 AGENT8 INVOICES6 19 Rep Commercial (ID)
65 5 AGENT8 INVOICES18 14 Sales Rep (ID)
65 5 AGENT8 INVOICES25 14 Sales Rep (ID)
65 5 AGENT8 INVOICES39 14 Sales Rep (ID)
65 5 AGENT8 INVOICES44 14 Sales Rep (ID)
65 3 PIV8 INVOICES2 19 Vendor Invoice (ID)
65 3 PIV8 INVOICES3 19 Vendor Invoice (ID)
65 3 PIV8 INVOICES6 19 Fact Fourniss. (ID)
65 3 PIV8 INVOICES18 19 Vendor Invoice (ID)
65 3 PIV8 INVOICES25 19 Vendor Invoice (ID)
65 3 PIV8 INVOICES39 19 Vendor Invoice (ID)
65 3 PIV8 INVOICES44 19 Vendor Invoice (ID)
65 9 CALQPRICE8 INVOICES2 17 Total Calc. Price
65 9 CALQPRICE8 INVOICES3 17 Total Calc. Price
65 9 CALQPRICE8 INVOICES6 13 Prix Tot Calc
65 9 CALQPRICE8 INVOICES18 17 Total Calc. Price
65 9 CALQPRICE8 INVOICES25 17 Total Calc. Price
65 9 CALQPRICE8 INVOICES39 17 Total Calc. Price
65 9 CALQPRICE8 INVOICES44 17 Total Calc. Price
65 4 TYPE8 INVOICES2 4 Type
65 4 TYPE8 INVOICES3 4 Type
65 4 TYPE8 INVOICES6 4 Type
65 4 TYPE8 INVOICES18 4 Type
65 4 TYPE8 INVOICES25 4 Type
65 4 TYPE8 INVOICES39 4 Type
65 4 TYPE8 INVOICES44 4 Type
65 8 CHECKING8 INVOICES2 8 Checking
65 8 CHECKING8 INVOICES3 8 Checking
65 8 CHECKING8 INVOICES6 12 Vérification
65 8 CHECKING8 INVOICES18 8 Checking
65 8 CHECKING8 INVOICES25 8 Checking
65 8 CHECKING8 INVOICES39 8 Checking
65 8 CHECKING8 INVOICES44 8 Checking
65 7 IMPFILE8 INVOICES2 20 Shipping Voucher(ID)
65 7 IMPFILE8 INVOICES3 20 Shipping Voucher(ID)
65 7 IMPFILE8 INVOICES6 18 Bon Transport (ID)
65 7 IMPFILE8 INVOICES18 20 Shipping Voucher(ID)
65 7 IMPFILE8 INVOICES25 20 Shipping Voucher(ID)
65 7 IMPFILE8 INVOICES39 20 Shipping Voucher(ID)
65 7 IMPFILE8 INVOICES44 20 Shipping Voucher(ID)
65 10 IMPFIVTYPE8 INVOICES2 16 Purchase/Expense
65 10 IMPFIVTYPE8 INVOICES3 16 Purchase/Expense
65 10 IMPFIVTYPE8 INVOICES6 17 Achats / Dépenses
65 10 IMPFIVTYPE8 INVOICES18 16 Purchase/Expense
65 10 IMPFIVTYPE8 INVOICES25 16 Purchase/Expense
65 10 IMPFIVTYPE8 INVOICES39 16 Purchase/Expense
65 10 IMPFIVTYPE8 INVOICES44 16 Purchase/Expense
65 4 CASH8 INVOICES2 17 From Cashier (ID)
65 4 CASH8 INVOICES3 17 From Cashier (ID)
65 4 CASH8 INVOICES6 17 de la Caisse (ID)
65 4 CASH8 INVOICES18 17 From Cashier (ID)
65 4 CASH8 INVOICES25 17 From Cashier (ID)
65 4 CASH8 INVOICES39 17 From Cashier (ID)
65 4 CASH8 INVOICES44 17 From Cashier (ID)
65 6 TOCASH8 INVOICES2 15 To Cashier (ID)
65 6 TOCASH8 INVOICES3 15 To Cashier (ID)
65 6 TOCASH8 INVOICES6 15 A Caissier (ID)
65 6 TOCASH8 INVOICES18 15 To Cashier (ID)
65 6 TOCASH8 INVOICES25 15 To Cashier (ID)
65 6 TOCASH8 INVOICES39 15 To Cashier (ID)
65 6 TOCASH8 INVOICES44 15 To Cashier (ID)
65 10 NOVATPRICE8 INVOICES2 17 Non-taxable Total
65 10 NOVATPRICE8 INVOICES3 17 Non-taxable Total
65 10 NOVATPRICE8 INVOICES6 17 Total Non-Taxable
65 10 NOVATPRICE8 INVOICES18 17 Non-taxable Total
65 10 NOVATPRICE8 INVOICES25 17 Non-taxable Total
65 10 NOVATPRICE8 INVOICES39 17 Non-taxable Total
65 10 NOVATPRICE8 INVOICES44 17 Non-taxable Total
65 8 VATPRICE8 INVOICES2 13 Taxable Total
65 8 VATPRICE8 INVOICES3 13 Taxable Total
65 8 VATPRICE8 INVOICES6 13 Total Taxable
65 8 VATPRICE8 INVOICES18 13 Taxable Total
65 8 VATPRICE8 INVOICES25 13 Taxable Total
65 8 VATPRICE8 INVOICES39 13 Taxable Total
65 8 VATPRICE8 INVOICES44 13 Taxable Total
65 5 WARHS8 INVOICES2 19 From Warehouse (ID)
65 5 WARHS8 INVOICES3 19 From Warehouse (ID)
65 5 WARHS8 INVOICES6 20 Depuis Entrepôt (ID)
65 5 WARHS8 INVOICES18 19 From Warehouse (ID)
65 5 WARHS8 INVOICES25 19 From Warehouse (ID)
65 5 WARHS8 INVOICES39 19 From Warehouse (ID)
65 5 WARHS8 INVOICES44 19 From Warehouse (ID)
65 7 TOWARHS8 INVOICES2 17 To Warehouse (ID)
65 7 TOWARHS8 INVOICES3 17 To Warehouse (ID)
65 7 TOWARHS8 INVOICES6 15 A Entrepôt (ID)
65 7 TOWARHS8 INVOICES18 17 To Warehouse (ID)
65 7 TOWARHS8 INVOICES25 17 To Warehouse (ID)
65 7 TOWARHS8 INVOICES39 17 To Warehouse (ID)
65 7 TOWARHS8 INVOICES44 17 To Warehouse (ID)
65 9 LCURRENCY8 INVOICES2 20 Linked/Exch Curr(ID)
65 9 LCURRENCY8 INVOICES3 20 Linked/Exch Curr(ID)
65 9 LCURRENCY8 INVOICES6 20 Chge dvise/lien (ID)
65 9 LCURRENCY8 INVOICES18 20 Linked/Exch Curr(ID)
65 9 LCURRENCY8 INVOICES25 20 Linked/Exch Curr(ID)
65 9 LCURRENCY8 INVOICES39 20 Linked/Exch Curr(ID)
65 9 LCURRENCY8 INVOICES44 20 Linked/Exch Curr(ID)
65 9 LEXCHANGE8 INVOICES2 20 Exchange/Linked Rate
65 9 LEXCHANGE8 INVOICES3 20 Exchange/Linked Rate
65 9 LEXCHANGE8 INVOICES6 20 Taux de Change /lien
65 9 LEXCHANGE8 INVOICES18 20 Exchange/Linked Rate
65 9 LEXCHANGE8 INVOICES25 20 Exchange/Linked Rate
65 9 LEXCHANGE8 INVOICES39 20 Exchange/Linked Rate
65 9 LEXCHANGE8 INVOICES44 20 Exchange/Linked Rate
65 4 WTAX8 INVOICES2 14 Taxes Withheld
65 4 WTAX8 INVOICES3 14 Taxes Withheld
65 4 WTAX8 INVOICES6 14 Taxes Détuites
65 4 WTAX8 INVOICES18 14 Taxes Deducted
65 4 WTAX8 INVOICES25 14 Taxes Deducted
65 4 WTAX8 INVOICES39 14 Taxes Deducted
65 4 WTAX8 INVOICES44 14 Taxes Deducted
65 9 AFTERWTAX8 INVOICES2 11 After Taxes
65 9 AFTERWTAX8 INVOICES3 11 After Taxes
65 9 AFTERWTAX8 INVOICES6 11 Après Taxes
65 9 AFTERWTAX8 INVOICES18 11 After Taxes
65 9 AFTERWTAX8 INVOICES25 11 After Taxes
65 9 AFTERWTAX8 INVOICES39 11 After Taxes
65 9 AFTERWTAX8 INVOICES44 11 After Taxes
65 11 WTAXPERCENT8 INVOICES2 5 % Tax
65 11 WTAXPERCENT8 INVOICES3 5 % Tax
65 11 WTAXPERCENT8 INVOICES6 7 Taxes %
65 11 WTAXPERCENT8 INVOICES18 5 % Tax
65 11 WTAXPERCENT8 INVOICES25 5 % Tax
65 11 WTAXPERCENT8 INVOICES39 5 % Tax
65 11 WTAXPERCENT8 INVOICES44 5 % Tax
65 9 IVBALANCE8 INVOICES2 15 Payment Balance
65 9 IVBALANCE8 INVOICES3 15 Payment Balance
65 9 IVBALANCE8 INVOICES6 18 Balance  Paiements
65 9 IVBALANCE8 INVOICES18 15 Payment Balance
65 9 IVBALANCE8 INVOICES25 15 Payment Balance
65 9 IVBALANCE8 INVOICES39 15 Payment Balance
65 9 IVBALANCE8 INVOICES44 15 Payment Balance
65 7 ADVFLAG8 INVOICES2 16 Advance Payment?
65 7 ADVFLAG8 INVOICES3 16 Advance Payment?
65 7 ADVFLAG8 INVOICES6 9 Acompte ?
65 7 ADVFLAG8 INVOICES18 16 Advance Payment?
65 7 ADVFLAG8 INVOICES25 16 Advance Payment?
65 7 ADVFLAG8 INVOICES39 16 Advance Payment?
65 7 ADVFLAG8 INVOICES44 16 Advance Payment?
65 7 ACCOUNT8 INVOICES2 12 Account (ID)
65 7 ACCOUNT8 INVOICES3 12 Account (ID)
65 7 ACCOUNT8 INVOICES6 11 Compte (ID)
65 7 ACCOUNT8 INVOICES18 12 Account (ID)
65 7 ACCOUNT8 INVOICES25 12 Account (ID)
65 7 ACCOUNT8 INVOICES39 12 Account (ID)
65 7 ACCOUNT8 INVOICES44 12 Account (ID)
65 11 CASHPAYMENT8 INVOICES2 13 Cash Receipts
65 11 CASHPAYMENT8 INVOICES3 13 Cash Receipts
65 11 CASHPAYMENT8 INVOICES6 12 Reçus Caisse
65 11 CASHPAYMENT8 INVOICES18 13 Cash Receipts
65 11 CASHPAYMENT8 INVOICES25 13 Cash Receipts
65 11 CASHPAYMENT8 INVOICES39 13 Cash Receipts
65 11 CASHPAYMENT8 INVOICES44 13 Cash Receipts
65 10 STORNOFLAG8 INVOICES2 9 Canceled?
65 10 STORNOFLAG8 INVOICES3 9 Canceled?
65 10 STORNOFLAG8 INVOICES6 9 Annulez ?
65 10 STORNOFLAG8 INVOICES18 9 Canceled?
65 10 STORNOFLAG8 INVOICES25 9 Canceled?
65 10 STORNOFLAG8 INVOICES39 9 Canceled?
65 10 STORNOFLAG8 INVOICES44 9 Canceled?
65 3 TAX8 INVOICES2 8 Tax (ID)
65 3 TAX8 INVOICES3 8 Tax (ID)
65 3 TAX8 INVOICES6 8 TVA (ID)
65 3 TAX8 INVOICES18 8 Tax (ID)
65 3 TAX8 INVOICES25 8 Tax (ID)
65 3 TAX8 INVOICES39 8 Tax (ID)
65 3 TAX8 INVOICES44 8 Tax (ID)
65 8 INTERNAL8 INVOICES2 16 Internal Invoice
65 8 INTERNAL8 INVOICES3 16 Internal Invoice
65 8 INTERNAL8 INVOICES6 16 Imprimer (Accès)
65 8 INTERNAL8 INVOICES18 16 Printed (Access)
65 8 INTERNAL8 INVOICES25 16 Printed (Access)
65 8 INTERNAL8 INVOICES39 16 Printed (Access)
65 8 INTERNAL8 INVOICES44 16 Printed (Access)
65 6 BRANCH8 INVOICES2 11 Branch (ID)
65 6 BRANCH8 INVOICES3 11 Branch (ID)
65 6 BRANCH8 INVOICES6 11 Agence (ID)
65 6 BRANCH8 INVOICES18 11 Branch (ID)
65 6 BRANCH8 INVOICES25 11 Branch (ID)
65 6 BRANCH8 INVOICES39 11 Branch (ID)
65 6 BRANCH8 INVOICES44 11 Branch (ID)
65 3 LIV8 INVOICES2 17 Ship Exp Inv (ID)
65 3 LIV8 INVOICES3 17 Ship Exp Inv (ID)
65 3 LIV8 INVOICES6 20 Fact Exp Transpr(ID)
65 3 LIV8 INVOICES18 17 Ship Exp Inv (ID)
65 3 LIV8 INVOICES25 17 Ship Exp Inv (ID)
65 3 LIV8 INVOICES39 17 Ship Exp Inv (ID)
65 3 LIV8 INVOICES44 17 Ship Exp Inv (ID)
65 12 ADJPRICEFLAG8 INVOICES2 14 Adjust Prices?
65 12 ADJPRICEFLAG8 INVOICES3 14 Adjust Prices?
65 12 ADJPRICEFLAG8 INVOICES6 14 Ajuster Prix ?
65 12 ADJPRICEFLAG8 INVOICES18 14 Adjust Prices?
65 12 ADJPRICEFLAG8 INVOICES25 14 Adjust Prices?
65 12 ADJPRICEFLAG8 INVOICES39 14 Adjust Prices?
65 12 ADJPRICEFLAG8 INVOICES44 14 Adjust Prices?
65 12 FNCITEMSFLAG8 INVOICES2 17 Copy to J. Entry?
65 12 FNCITEMSFLAG8 INVOICES3 17 Copy to J. Entry?
65 12 FNCITEMSFLAG8 INVOICES6 20 Copier p/Ecrit.Jnal?
65 12 FNCITEMSFLAG8 INVOICES18 17 Copy to J. Entry?
65 12 FNCITEMSFLAG8 INVOICES25 17 Copy to J. Entry?
65 12 FNCITEMSFLAG8 INVOICES39 17 Copy to J. Entry?
65 12 FNCITEMSFLAG8 INVOICES44 17 Copy to J. Entry?
65 7 DETAILS8 INVOICES2 7 Details
65 7 DETAILS8 INVOICES3 7 Details
65 7 DETAILS8 INVOICES6 7 Détails
65 7 DETAILS8 INVOICES18 7 Details
65 7 DETAILS8 INVOICES25 7 Details
65 7 DETAILS8 INVOICES39 7 Details
65 7 DETAILS8 INVOICES44 7 Details
65 5 OWNER8 INVOICES2 16 Assigned to (ID)
65 5 OWNER8 INVOICES3 16 Assigned to (ID)
65 5 OWNER8 INVOICES6 14 Assigné à (ID)
65 5 OWNER8 INVOICES18 16 Assigned to (ID)
65 5 OWNER8 INVOICES25 16 Assigned to (ID)
65 5 OWNER8 INVOICES39 16 Assigned to (ID)
65 5 OWNER8 INVOICES44 16 Assigned to (ID)
65 5 PHONE8 INVOICES2 12 Contact (ID)
65 5 PHONE8 INVOICES3 12 Contact (ID)
65 5 PHONE8 INVOICES6 12 Contact (ID)
65 5 PHONE8 INVOICES18 12 Contact (ID)
65 5 PHONE8 INVOICES25 12 Contact (ID)
65 5 PHONE8 INVOICES39 12 Contact (ID)
65 5 PHONE8 INVOICES44 12 Contact (ID)
65 9 LABELNAME9 LABELSDEF2 13 Type of Label
65 9 LABELNAME9 LABELSDEF3 13 Type of Label
65 9 LABELNAME9 LABELSDEF44 13 Type of Label
65 8 LABELDES9 LABELSDEF2 11 Description
65 8 LABELDES9 LABELSDEF3 11 Description
65 8 LABELDES9 LABELSDEF44 11 Description
65 9 LABELPATH9 LABELSDEF2 10 Label File
65 9 LABELPATH9 LABELSDEF3 10 Label File
65 9 LABELPATH9 LABELSDEF44 10 Label File
65 8 LABELDEF9 LABELSDEF2 18 Type of Label (ID)
65 8 LABELDEF9 LABELSDEF3 18 Type of Label (ID)
65 8 LABELDEF9 LABELSDEF44 18 Type of Label (ID)
65 8 DESTCODE8 INVOICES2 19 Destination Code ID
65 8 DESTCODE8 INVOICES3 19 Destination Code ID
65 8 DESTCODE8 INVOICES6 19 Cose Destination ID
65 8 DESTCODE8 INVOICES18 19 Destination Code ID
65 8 DESTCODE8 INVOICES25 19 Destination Code ID
65 8 DESTCODE8 INVOICES39 19 Destination Code ID
65 8 DESTCODE8 INVOICES44 19 Destination Code ID
65 8 SHIPTYPE8 INVOICES2 18 Shimpent Type (ID)
65 8 SHIPTYPE8 INVOICES3 18 Shimpent Type (ID)
65 8 SHIPTYPE8 INVOICES6 19 Type Transport (ID)
65 8 SHIPTYPE8 INVOICES18 18 Shimpent Type (ID)
65 8 SHIPTYPE8 INVOICES25 18 Shimpent Type (ID)
65 8 SHIPTYPE8 INVOICES39 18 Shimpent Type (ID)
65 8 SHIPTYPE8 INVOICES44 18 Shimpent Type (ID)
65 7 BALDATE8 INVOICES2 16 Transaction Date
65 7 BALDATE8 INVOICES3 16 Transaction Date
65 7 BALDATE8 INVOICES6 16 Date Transaction
65 7 BALDATE8 INVOICES18 16 Transaction Date
65 7 BALDATE8 INVOICES25 16 Transaction Date
65 7 BALDATE8 INVOICES39 16 Transaction Date
65 7 BALDATE8 INVOICES44 16 Transaction Date
65 5 PLIST8 INVOICES2 15 Price List (ID)
65 5 PLIST8 INVOICES3 15 Price List (ID)
65 5 PLIST8 INVOICES6 18 Liste de Prix (ID)
65 5 PLIST8 INVOICES18 15 Price List (ID)
65 5 PLIST8 INVOICES25 15 Price List (ID)
65 5 PLIST8 INVOICES39 15 Price List (ID)
65 5 PLIST8 INVOICES44 15 Price List (ID)
65 7 PERCENT8 INVOICES2 19 Set Overall Disc. %
65 7 PERCENT8 INVOICES3 19 Set Overall Disc. %
65 7 PERCENT8 INVOICES6 19 Fixer Tot. Remise %
65 7 PERCENT8 INVOICES18 19 Set Overall Disc. %
65 7 PERCENT8 INVOICES25 19 Set Overall Disc. %
65 7 PERCENT8 INVOICES39 19 Set Overall Disc. %
65 7 PERCENT8 INVOICES44 19 Set Overall Disc. %
65 4 PACK8 INVOICES2 10 Crate (ID)
65 4 PACK8 INVOICES3 10 Crate (ID)
65 7 MWEIGHT8 INVOICES2 19 Manual Gross Weight
65 7 MWEIGHT8 INVOICES3 19 Manual Gross Weight
65 6 WEIGHT8 INVOICES2 12 Gross Weight
65 6 WEIGHT8 INVOICES3 12 Gross Weight
65 10 AIRWAYBILL8 INVOICES2 15 Tracking Number
65 10 AIRWAYBILL8 INVOICES3 15 Tracking Number
64 1 2 20 Internal Development
64 1 3 20 Internal Development
64 1 4 20 Internal Development
64 1 5 20 Internal Development
64 1 6 20 Internal Development
64 1 8 20 Internal Development
64 1 11 20 Internal Development
64 1 18 20 Internal Development
64 1 25 20 Internal Development
64 1 30 20 Internal Development
64 1 31 20 Internal Development
64 1 35 20 Internal Development
64 1 38 20 Internal Development
64 1 39 20 Internal Development
64 1 41 20 Internal Development
64 1 43 20 Internal Development
64 1 44 20 Internal Development
62 8 INVOICES2 19 Financial Documents
62 8 INVOICES3 19 Financial Documents
62 8 INVOICES6 19 Financial Documents
62 8 INVOICES18 19 Financial Documents
62 8 INVOICES25 19 Financial Documents
62 8 INVOICES39 19 Financial Documents
62 8 INVOICES44 19 Financial Documents
62 9 LABELSDEF2 17 Label Definitions
62 9 LABELSDEF3 17 Label Definitions
62 9 LABELSDEF44 17 Label Definitions
EOF
echo Begin of Upgrade 7.0.576
echo Title: SO14000458
DBI <<\EOF
CREATE TABLE FSPS_ENVCONT 'êùîä - úåøáç.' 0
DNAME(CHAR,8,'äøáç')
ENVNUM(INT,3,'SPS-ä÷éøñì äøáç ãå÷')
TWOTYPE(CHAR,1,'SPS-ìåôë ñåôéè')
FSPS_INCDES(CHAR,1,'÷éøñ éðôì øåàú úãì÷ä')
UNIQUE(DNAME)
;
EOF
BRING << \EOF
1013 11 ENVIRONMENT70 0 0 0 11 FSPS_ENVNUM0 19 SPS-ä÷éøñì äøáç ãå÷3 0 100 0 0 0 0 0 0 0 0 
1015 11 ENVIRONMENT70 11 FSPS_ENVNUM0 70 20 FSPS_ENVCONT5.ENVNUM3 INT
1013 11 ENVIRONMENT70 0 0 0 12 FSPS_TWOTYPE0 14 SPS-ìåôë ñåôéè1 0 102 10 0 0 0 0 0 0 0 
1015 11 ENVIRONMENT70 12 FSPS_TWOTYPE0 70 21 FSPS_ENVCONT5.TWOTYPE4 CHAR
1013 11 ENVIRONMENT70 0 0 0 11 FSPS_INCDES0 20 ÷éøñ éðôì øåàú úãì÷ä1 0 104 10 0 0 0 0 0 0 0 
1015 11 ENVIRONMENT70 11 FSPS_INCDES0 70 25 FSPS_ENVCONT5.FSPS_INCDES4 CHAR
18 11 ENVIRONMENT2 
56 11 ENVIRONMENT5 úåøáç0 
19 11 ENVIRONMENT1 5 DNAME4 CHAR8 8 4 äøáç
19 11 ENVIRONMENT2 7 CREATOR4 CHAR8 8 7 øöåé íù
19 11 ENVIRONMENT3 5 TITLE5 RCHAR32 32 11 àìî äøáç íù
19 11 ENVIRONMENT4 3 POS3 INT8 4 5 íå÷éî
19 11 ENVIRONMENT5 7 ENVFLAG4 CHAR1 1 9 ?éúøáç áø
19 11 ENVIRONMENT6 8 ENVRATES4 CHAR1 1 20 éúøáç áø íéøòù ïåëãò
19 11 ENVIRONMENT7 4 LANG3 INT6 4 7 äôù ãå÷
33 11 ENVIRONMENT4 LANG0 48 
19 11 ENVIRONMENT8 6 HRFLAG4 CHAR1 1 11 ?ùåðà éáàùî
20 11 ENVIRONMENT85 1 
21 11 ENVIRONMENT1 5 DNAME1 
18 12 FSPS_ENVCONT2 
56 12 FSPS_ENVCONT13 êùîä - úåøáç.0 
19 12 FSPS_ENVCONT1 5 DNAME4 CHAR8 8 4 äøáç
19 12 FSPS_ENVCONT2 6 ENVNUM3 INT3 8 19 SPS-ä÷éøñì äøáç ãå÷
33 12 FSPS_ENVCONT6 ENVNUM0 48 
19 12 FSPS_ENVCONT3 7 TWOTYPE4 CHAR1 1 14 SPS-ìåôë ñåôéè
19 12 FSPS_ENVCONT4 11 FSPS_INCDES4 CHAR1 1 20 ÷éøñ éðôì øåàú úãì÷ä
20 12 FSPS_ENVCONT85 1 
21 12 FSPS_ENVCONT1 5 DNAME1 
1013 11 ENVIRONMENT70 11 ENVIRONMENT5 DNAME0 10 FSPS_DNAME0 0 8 0 99 0 72 0 0 12 FSPS_ENVCONT5 DNAME15 1 
24 9400 15 FSPS_getEnvVars70 
1011 4 func70 15 FSPS_getEnvVars70 
22 4 func70 15 FSPS_getEnvVars70 2 /*2 1 
22 4 func70 15 FSPS_getEnvVars70 16 get the env vars1 2 
22 4 func70 15 FSPS_getEnvVars70 38 output: :O_ENVNUM (char 3), :O_TWOTYPE3 3 
22 4 func70 15 FSPS_getEnvVars70 2 */4 4 
22 4 func70 15 FSPS_getEnvVars70 34 :O_ENVNUM = ''; :O_TWOTYPE = '\0';6 5 
22 4 func70 15 FSPS_getEnvVars70 29 SELECT ITOA(ENVNUM,3),TWOTYPE5 6 
22 4 func70 15 FSPS_getEnvVars70 26 INTO :O_ENVNUM, :O_TWOTYPE8 7 
22 4 func70 15 FSPS_getEnvVars70 55 FROM FSPS_ENVCONT WHERE DNAME = SQL.ENV AND ENVNUM > 0;7 8 
22 4 func70 15 FSPS_getEnvVars70 17 SELECT '',TWOTYPE9 9 
22 4 func70 15 FSPS_getEnvVars70 26 INTO :O_ENVNUM, :O_TWOTYPE10 10 
22 4 func70 15 FSPS_getEnvVars70 56 FROM FSPS_ENVCONT WHERE DNAME = SQL.ENV AND ENVNUM <= 0;11 11 
24 9399 9 FSPS_BUF170 
1011 11 ENVIRONMENT70 9 FSPS_BUF170 
22 11 ENVIRONMENT70 9 FSPS_BUF170 47 GOTO 999 WHERE :$.FSPS_ENVNUM = :$1.FSPS_ENVNUM1 1 
22 11 ENVIRONMENT70 9 FSPS_BUF170 38 AND :$.FSPS_TWOTYPE = :$1.FSPS_TWOTYPE2 2 
22 11 ENVIRONMENT70 9 FSPS_BUF170 37 AND :$.FSPS_INCDES = :$1.FSPS_INCDES;10 3 
22 11 ENVIRONMENT70 9 FSPS_BUF170 31 INSERT INTO FSPS_ENVCONT(DNAME)3 4 
22 11 ENVIRONMENT70 9 FSPS_BUF170 17 VALUES(:$.DNAME);4 5 
22 11 ENVIRONMENT70 9 FSPS_BUF170 19 UPDATE FSPS_ENVCONT5 6 
22 11 ENVIRONMENT70 9 FSPS_BUF170 28 SET ENVNUM = :$.FSPS_ENVNUM,6 7 
22 11 ENVIRONMENT70 9 FSPS_BUF170 26 TWOTYPE = :$.FSPS_TWOTYPE,7 8 
22 11 ENVIRONMENT70 9 FSPS_BUF170 28 FSPS_INCDES = :$.FSPS_INCDES11 9 
22 11 ENVIRONMENT70 9 FSPS_BUF170 23 WHERE DNAME = :$.DNAME;8 10 
22 11 ENVIRONMENT70 9 FSPS_BUF170 10 LABEL 999;9 11 
24 9398 16 FSPS_POST-UPDATE70 
1011 11 ENVIRONMENT70 16 FSPS_POST-UPDATE70 
22 11 ENVIRONMENT70 16 FSPS_POST-UPDATE70 30 #INCLUDE ENVIRONMENT/FSPS_BUF11 1 
EOF
echo End of Upgrade 7.0.576
BRING << \EOF
65 5 DNAME11 ENVIRONMENT2 7 Company
65 7 CREATOR11 ENVIRONMENT2 12 Creator Name
65 5 TITLE11 ENVIRONMENT2 17 Full Company Name
65 3 POS11 ENVIRONMENT2 3 Pos
65 7 ENVFLAG11 ENVIRONMENT2 14 Multi-company?
65 8 ENVRATES11 ENVIRONMENT2 19 MultiCo Exch Rates?
65 4 LANG11 ENVIRONMENT2 13 Language Code
65 6 HRFLAG11 ENVIRONMENT2 19 Personnel Managemt?
62 11 ENVIRONMENT2 9 Companies
65 5 DNAME11 ENVIRONMENT2 7 Company
65 5 DNAME11 ENVIRONMENT3 7 Company
65 5 DNAME11 ENVIRONMENT5 7 Empresa
65 5 DNAME11 ENVIRONMENT6 10 Entreprise
65 5 DNAME11 ENVIRONMENT44 7 Company
65 7 CREATOR11 ENVIRONMENT2 12 Creator Name
65 7 CREATOR11 ENVIRONMENT3 12 Creator Name
65 7 CREATOR11 ENVIRONMENT5 18 Nombre del creador
65 7 CREATOR11 ENVIRONMENT6 12 Nom Créateur
65 7 CREATOR11 ENVIRONMENT44 12 Creator Name
65 5 TITLE11 ENVIRONMENT2 17 Full Company Name
65 5 TITLE11 ENVIRONMENT3 17 Full Company Name
65 5 TITLE11 ENVIRONMENT5 8 Compa?ia
65 5 TITLE11 ENVIRONMENT6 16 Nom Ent. Complet
65 5 TITLE11 ENVIRONMENT44 17 Full Company Name
65 3 POS11 ENVIRONMENT2 3 Pos
65 3 POS11 ENVIRONMENT3 3 Pos
65 3 POS11 ENVIRONMENT5 3 Pos
65 3 POS11 ENVIRONMENT6 3 Pos
65 3 POS11 ENVIRONMENT44 3 Pos
65 7 ENVFLAG11 ENVIRONMENT2 14 Multi-company?
65 7 ENVFLAG11 ENVIRONMENT3 14 Multi-company?
65 7 ENVFLAG11 ENVIRONMENT5 14 Multi-Empresa?
65 7 ENVFLAG11 ENVIRONMENT6 17 Multi-Entreprise?
65 7 ENVFLAG11 ENVIRONMENT44 14 Multi-company?
65 8 ENVRATES11 ENVIRONMENT2 19 MultiCo Exch Rates?
65 8 ENVRATES11 ENVIRONMENT3 19 MultiCo Exch Rates?
65 8 ENVRATES11 ENVIRONMENT5 19 MultiEmpTasadeCamb?
65 8 ENVRATES11 ENVIRONMENT6 20 Taux Chg Mult-Entre?
65 8 ENVRATES11 ENVIRONMENT44 19 MultiCo Exch Rates?
65 4 LANG11 ENVIRONMENT2 13 Language Code
65 4 LANG11 ENVIRONMENT3 13 Language Code
65 4 LANG11 ENVIRONMENT5 18 C?digo de Lenguaje
65 4 LANG11 ENVIRONMENT6 11 Code Langue
65 4 LANG11 ENVIRONMENT44 13 Language Code
65 6 HRFLAG11 ENVIRONMENT2 19 Personnel Managemt?
65 6 HRFLAG11 ENVIRONMENT3 19 Personnel Managemt?
65 6 HRFLAG11 ENVIRONMENT5 19 Manejo de Personal?
65 6 HRFLAG11 ENVIRONMENT6 17 Gestion Personnel
65 6 HRFLAG11 ENVIRONMENT44 19 Personnel Managemt?
62 11 ENVIRONMENT2 9 Companies
62 11 ENVIRONMENT3 9 Companies
62 11 ENVIRONMENT44 9 Companies
EOF
echo Begin of Upgrade 7.0.613
echo Title: FRSP_PIVLABELS
BRING << \EOF
1007 14 FRSP_PIVLABELS80 20 4 SQLI67 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/1 2 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1000;   /*   Delete From Labels   */2 3 
28 14 FRSP_PIVLABELS80 20 42 GOSUB 1001;   /* Insert Value To Labels */3 4 
28 14 FRSP_PIVLABELS80 20 43 /* GOSUB 1002;         Print Labels      */4 5 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/5 6 
28 14 FRSP_PIVLABELS80 20 9 SUB 1000;6 7 
28 14 FRSP_PIVLABELS80 20 42 DELETE FROM LABELS WHERE  USER = SQL.USER;7 8 
28 14 FRSP_PIVLABELS80 20 7 RETURN;8 9 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/9 10 
28 14 FRSP_PIVLABELS80 20 9 SUB 1001;10 11 
28 14 FRSP_PIVLABELS80 20 15 :B_LABELDEF = 011 12 
28 14 FRSP_PIVLABELS80 20 1 ;12 13 
28 14 FRSP_PIVLABELS80 20 24 LINK INVOICES TO :$.PAR;13 14 
28 14 FRSP_PIVLABELS80 20 27 ERRMSG 1 WHERE :RETVAL <=0;14 15 
28 14 FRSP_PIVLABELS80 20 25 LINK LABELSDEF TO :$.LAB;15 16 
28 14 FRSP_PIVLABELS80 20 26 ERRMSG 1 WHERE :RETVAL <=016 17 
28 14 FRSP_PIVLABELS80 20 1 ;17 18 
28 14 FRSP_PIVLABELS80 20 9 :CNT = 0;18 19 
28 14 FRSP_PIVLABELS80 20 30 SELECT COUNT(*), MAX(LABELDEF)19 20 
28 14 FRSP_PIVLABELS80 20 22 INTO :CNT, :B_LABELDEF20 21 
28 14 FRSP_PIVLABELS80 20 15 FROM  LABELSDEF21 22 
28 14 FRSP_PIVLABELS80 20 19 WHERE LABELDEF <> 022 23 
28 14 FRSP_PIVLABELS80 20 1 ;23 24 
28 14 FRSP_PIVLABELS80 20 17 UNLINK LABELSDEF;24 25 
28 14 FRSP_PIVLABELS80 20 24 ERRMSG 2 WHERE :CNT <> 125 26 
28 14 FRSP_PIVLABELS80 20 1 ;26 27 
28 14 FRSP_PIVLABELS80 20 12 :T_LINE = 1;27 28 
28 14 FRSP_PIVLABELS80 20 20 DECLARE X CURSOR FOR28 29 
28 14 FRSP_PIVLABELS80 20 33 SELECT IVDATE,IVNUM,INVOICES.TYPE29 30 
28 14 FRSP_PIVLABELS80 20 13 FROM INVOICES30 31 
28 14 FRSP_PIVLABELS80 20 13 WHERE IV <> 031 32 
28 14 FRSP_PIVLABELS80 20 12 ORDER BY 1,232 33 
28 14 FRSP_PIVLABELS80 20 1 ;33 34 
28 14 FRSP_PIVLABELS80 20 7 OPEN X;34 35 
28 14 FRSP_PIVLABELS80 20 29 GOTO 801 WHERE :RETVAL <= 0 ;35 36 
28 14 FRSP_PIVLABELS80 20 10 LABEL 901;36 37 
28 14 FRSP_PIVLABELS80 20 40 FETCH X INTO :X_IVDATE,:X_IVNUM,:X_TYPE;37 38 
28 14 FRSP_PIVLABELS80 20 27 GOTO 701 WHERE :RETVAL <= 038 39 
28 14 FRSP_PIVLABELS80 20 1 ;39 40 
28 14 FRSP_PIVLABELS80 20 22 :T_LINE = :T_LINE + 1;42 51 
28 14 FRSP_PIVLABELS80 20 9 LOOP 901;43 52 
28 14 FRSP_PIVLABELS80 20 10 LABEL 701;44 53 
28 14 FRSP_PIVLABELS80 20 8 CLOSE X;45 54 
28 14 FRSP_PIVLABELS80 20 10 LABEL 801;46 55 
28 14 FRSP_PIVLABELS80 20 16 UNLINK INVOICES;47 56 
28 14 FRSP_PIVLABELS80 20 7 RETURN;48 57 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/49 58 
28 14 FRSP_PIVLABELS80 20 9 SUB 1002;50 59 
28 14 FRSP_PIVLABELS80 20 30 EXECUTE WINPROC '-P','LABELS';51 60 
28 14 FRSP_PIVLABELS80 20 7 RETURN;52 61 
28 14 FRSP_PIVLABELS80 20 68 /******************************************************************/53 62 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)54 41 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,55 42 
28 14 FRSP_PIVLABELS80 20 38 STRCAT(:O_ENVNUM,'I',:X_TYPE,:X_IVNUM)56 43 
28 14 FRSP_PIVLABELS80 20 33 FROM DUMMY WHERE :O_TWOTYPE = 'Y'57 44 
28 14 FRSP_PIVLABELS80 20 1 ;58 45 
28 14 FRSP_PIVLABELS80 20 62 INSERT INTO LABELS(KLINE, SORT, USER,LABELQUANT,LABELDEF,PAR1)59 46 
28 14 FRSP_PIVLABELS80 20 48 SELECT :T_LINE, :T_LINE, SQL.USER,1,:B_LABELDEF,60 47 
28 14 FRSP_PIVLABELS80 20 30 STRCAT(:O_ENVNUM,'I',:X_IVNUM)61 48 
28 14 FRSP_PIVLABELS80 20 34 FROM DUMMY WHERE :O_TWOTYPE <> 'Y'62 49 
28 14 FRSP_PIVLABELS80 20 1 ;63 50 
28 14 FRSP_PIVLABELS80 20 29 #INCLUDE func/FSPS_getEnvVars64 1 
1007 14 FRSP_PIVLABELS80 30 6 LABELS67 
9 14 FRSP_PIVLABELS80 30 3 MSG0 0 5 ASCII0 0 0 0 0 
EOF
echo End of Upgrade 7.0.613
BRING << \EOF
EOF
