diff --git a/ps/ps0430300.cpp b/ps/ps0430300.cpp
index 3512d18f1..646659be5 100755
--- a/ps/ps0430300.cpp
+++ b/ps/ps0430300.cpp
@@ -358,7 +358,7 @@ void TGenera_ordini_mask::update_orders()
   TMask& m = sh.sheet_mask();
   TRelation& rel = *orders.cursor()->relation();
 
-	const int status_pos = sh.cid2index(S_STATODOC);
+	const int status_pos = sh.cid2index(SD_STATODOC);
   for (bool ok = orders.move_first(); ok; ok = orders.move_next())
   {
     TToken_string& row = sh.row(-1);
@@ -886,9 +886,9 @@ void TCreazione_ordini::aggiorna_stato_doc_orig(const TRectype& rdoc)
 void TCreazione_ordini::generate_caric_row(const TSheet_field& sf, TToken_string* row, 
                                            const real qta, TDocumento* d, TRiga_documento& rdoc, TLocalisamfile& righedoc)
 {
-	const TDate dataord = row->get(sf.cid2index(S_DATADOC));
-	const long ndoc = row->get_long(sf.cid2index(S_NUMDOC));
-	const int nriga = row->get_int(sf.cid2index(S_NUMRIGA));
+	const TDate dataord = row->get(sf.cid2index(SD_DATADOC));
+	const long ndoc = row->get_long(sf.cid2index(SD_NUMDOC));
+	const int nriga = row->get_int(sf.cid2index(SD_NUMRIGA));
 	TRectype& rigcar = righedoc.curr();
 	rigcar.put(RDOC_PROVV, 'D');
 	rigcar.put(RDOC_ANNO, dataord.year());
@@ -971,8 +971,8 @@ void TCreazione_ordini::generate_order_row(const TSheet_field& sf, TToken_string
   else
 	  rdoc.put(RDOC_CODIVA, articolo.get(ANAMAG_CODIVA));
 
-  const TString commessa = row->get(sf.cid2index(S_CDC));
-  const TString fase = row->get(sf.cid2index(S_FSC));
+  const TString commessa = row->get(sf.cid2index(SO_CDC));
+  const TString fase = row->get(sf.cid2index(SO_FSC));
   rdoc.put(RDOC_CODCMS, commessa);
   rdoc.put(RDOC_FASCMS, fase);
   
@@ -1035,7 +1035,7 @@ void TCreazione_ordini::generate_docs_head(const char type, const TSheet_field&
   {
     if (!pi.setstatus(n))
       break;
-	  if (row->get_char(sf.cid2index(S_DAEVADERE) == 'X'))
+	  if (row->get_char(sf.cid2index(SD_DAEVADERE) == 'X'))
 		{
       real qta;
       TString8 codforn;
@@ -1043,9 +1043,9 @@ void TCreazione_ordini::generate_docs_head(const char type, const TSheet_field&
 
       if (type == 'C')
       {
-			  qta = row->get(sf.cid2index(S_QTADAEVADERE));
-        codforn = row->get(sf.cid2index(S_FORNITORE));
-        datacons = row->get(sf.cid2index(S_DATACONS));
+			  qta = row->get(sf.cid2index(SD_QTADAEVADERE));
+        codforn = row->get(sf.cid2index(SD_FORNITORE));
+        datacons = row->get(sf.cid2index(SD_DATACONS));
       }
       else
       {
diff --git a/ps/ps0430300a.h b/ps/ps0430300a.h
index 4377f25d4..b9588eab3 100755
--- a/ps/ps0430300a.h
+++ b/ps/ps0430300a.h
@@ -27,8 +27,10 @@
 #define F_DESMAGC			175
 #define F_DEPC				176
 #define F_DESDEPC     177
+
 #define DLG_PRINTDOC  178
 #define DLG_DELDOC    179
+
 #define F_CAZ_CODART  180
 #define F_DATADOC     181
 
@@ -38,7 +40,7 @@
 #define F_DATADOCCAR  204
 #define F_ORDERS      210 
 
-//campi 'S'heet deglio 'O'rdini (SO_)
+//campi 'S'heet degli 'O'rdini (SO_)
 #define SO_CODART			101
 #define SO_DESCR		  102
 #define SO_UM					103
@@ -67,25 +69,26 @@
 #define SO_USER9			126
 #define SO_USER10			127
 
-#define S_DATADOC			101
-#define S_NUMDOC			102
-#define S_NUMRIGA			103
-#define S_STATODOC		104
-#define S_CODART      105 
-#define S_DESCART     106 
-#define S_UM					107
-#define S_QTA					108
-#define S_QTAEVASA		109
-#define S_RESIDUO			110
-#define S_DAEVADERE		111
-#define S_QTADAEVADERE 112
-#define S_DATACONS		113
-#define S_FORNITORE		114
-#define S_RAGSOC			115
-#define S_CDC     		116
-#define S_FSC					117
-#define S_DESCRAGG		118
-#define S_PPCONF			119
-#define S_TAGLIE			120
+//campi 'S'heet dei 'D'ocumenti (SD_)
+#define SD_DATADOC		  101
+#define SD_NUMDOC			  102
+#define SD_NUMRIGA		  103
+#define SD_STATODOC		  104
+#define SD_CODART       105 
+#define SD_DESCART      106 
+#define SD_UM					  107
+#define SD_QTA				  108
+#define SD_QTAEVASA		  109
+#define SD_RESIDUO			110
+#define SD_DAEVADERE		111
+#define SD_QTADAEVADERE 112
+#define SD_DATACONS		  113
+#define SD_FORNITORE		114
+#define SD_RAGSOC			  115
+#define SD_CDC     		  116
+#define SD_FSC				  117
+#define SD_DESCRAGG		  118
+#define SD_PPCONF			  119
+#define SD_TAGLIE			  120
 
 
diff --git a/ps/ps0430300a.uml b/ps/ps0430300a.uml
index 5e268b6d1..581a16dbf 100755
--- a/ps/ps0430300a.uml
+++ b/ps/ps0430300a.uml
@@ -1,37 +1,45 @@
 #include "ps0430300a.h"
 
 TOOLBAR "" 0 -2 0 2
-BU 1 15 2
-BE
-PR -17 -11 "~Elabora"
-PI 120
-EN
-BU 24 15 2
-BE
-PR -27 -11 "Stampa ~Consumi"
-EN
-BU 178 15 2
-BE
-PR -37 -11 "~Stampa Doc."
-EN
-BU 17 15 2
-BE
-PR -47 -11 "E~limina Doc."
-EN
-BU 179 15 2
-BE
-PR -57 -11 "Stampa ~Inv."
-ME RU,MG4,-1
-EN
-BU 27 15 2
-BE
-PR -67 -11 "~Gen. carichi"
-ME 13
-EN
-BU 9 15 2
-BE
-PR -77 -11 ""
-EN
+
+BUTTON 1 15 2
+BEGIN
+  PROMPT -17 -11 "~Elabora"
+  PICTURE 120
+END
+
+BUTTON 24 15 2
+BEGIN
+  PROMPT -27 -11 "Stampa ~Consumi"
+END
+
+BUTTON DLG_PRINTDOC 15 2
+BEGIN
+  PROMPT -37 -11 "~Stampa Doc."
+END
+
+BUTTON 17 15 2
+BEGIN
+  PROMPT -47 -11 "E~limina Doc."
+END
+
+BUTTON 179 15 2
+BEGIN
+  PROMPT -57 -11 "Stampa ~Inv."
+  MESSAGE RUN,MG4,-1
+END
+
+BUTTON 27 15 2
+BEGIN
+  PROMPT -67 -11 "~Gen. carichi"
+  MESSAGE 13
+END
+
+BUTTON 9 15 2
+BEGIN
+  PROMPT -77 -11 ""
+END
+
 ENDPAGE
 
 PAGE "Gestione Documenti" 0 0 0 -3
@@ -56,484 +64,521 @@ END
 SPREADSHEET F_ARTICLES
 BEGIN
 PROMPT 1 3 "Articoli"
-IT "Codice\nArticolo@15"
-IT "Descrizione@35"
-IT "UM"
-IT "Quantitą@10"
-IT "Data\nConsegna@10"
-IT "Codice\nForn.@6"
-IT "Ragione sociale@30"
-IT "Commessa@20"
-IT "Fase@10"
-IT "Id Cespite@20"
-IT "Codice\nAggiuntivo 2@20"
-IT "Lead\ntime@5"
-IT "Lotto minimo\ndi riordino@10"
-IT "Descrizione aggiuntiva@50"
-IT "Giacenza@15"
-IT "Pezzi per\nconfezione@15"
-IT "Disponibilitą@15"
-IT "Campo Aggiuntivo 1@15"
-IT "Campo Aggiuntivo 2@15"
-IT "Campo Aggiuntivo 3@15"
-IT "Campo Aggiuntivo 4@15"
-IT "Campo Aggiuntivo 5@15"
-IT "Campo Aggiuntivo 6@15"
-IT "Campo Aggiuntivo 7@15"
-IT "Campo Aggiuntivo 8@15"
-IT "Campo Aggiuntivo 9@15"
-IT "Campo Aggiuntivo 10@15"
+  ITEM "Codice\nArticolo@15"
+  ITEM "Descrizione@35"
+  ITEM "UM"
+  ITEM "Quantitą@10"
+  ITEM "Data\nConsegna@10"
+  ITEM "Codice\nForn.@6"
+  ITEM "Ragione sociale@30"
+  ITEM "Commessa@20"
+  ITEM "Fase@10"
+  ITEM "Id Cespite@20"
+  ITEM "Codice\nAggiuntivo 2@20"
+  ITEM "Lead\ntime@5"
+  ITEM "Lotto minimo\ndi riordino@10"
+  ITEM "Descrizione aggiuntiva@50"
+  ITEM "Giacenza@15"
+  ITEM "Pezzi per\nconfezione@15"
+  ITEM "Disponibilitą@15"
+  ITEM "Campo Aggiuntivo 1@15"
+  ITEM "Campo Aggiuntivo 2@15"
+  ITEM "Campo Aggiuntivo 3@15"
+  ITEM "Campo Aggiuntivo 4@15"
+  ITEM "Campo Aggiuntivo 5@15"
+  ITEM "Campo Aggiuntivo 6@15"
+  ITEM "Campo Aggiuntivo 7@15"
+  ITEM "Campo Aggiuntivo 8@15"
+  ITEM "Campo Aggiuntivo 9@15"
+  ITEM "Campo Aggiuntivo 10@15"
 END
 
 ENDPAGE
 
 PAGE "Stato Documenti" 0 0 0 -3
 
-ST 201 1
-BE
-PR 1 1 "Dallo stato "
-US %STD 
-IN CODTAB 201
-DI "Codice" CODTAB
-DI "Descrizione@50" S0
-OU 201 CODTAB
-CH NORMAL
-FI OR14_DASTATO
-EN
-ST 202 1
-BE
-PR 21 1 "Allo stato "
-CO US 201
-IN CODTAB 202
-CO DI 201
-OU 202 CODTAB
-CH NORMAL
-FI OR14_ASTATO
-EN
-NU 203 4
-BE
-PR 51 1 "Anno "
-CH REQUIRED
-FI OR14_ANNO
-EN
-DA 204
-BE
-PR 65 1 "Data doc. "
-FL "A"
-EN
+STRING F_DASTATO 1
+BEGIN
+  PROMPT 1 1 "Dallo stato "
+  USE %STD 
+  INPUT CODTAB F_DASTATO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_DASTATO CODTAB
+  CHECKTYPE NORMAL
+  FIELD OR14_DASTATO
+END
+
+STRING F_ASTATO 1
+BEGIN
+  PROMPT 21 1 "Allo stato "
+  COPY USE F_DASTATO
+  INPUT CODTAB F_ASTATO
+  COPY DISPLAY F_DASTATO
+  OUTPUT F_ASTATO CODTAB
+  CHECKTYPE NORMAL
+  FIELD OR14_ASTATO
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 51 1 "Anno "
+  CHECKTYPE REQUIRED
+  FIELD OR14_ANNO
+END
+
+DATE F_DATADOCCAR
+BEGIN
+  PROMPT 65 1 "Data doc. "
+  FLAGS "A"
+END
+
 SPREADSHEET 210
-BE
-PR 1 2 "Ordini"
-IT "Data\nDoc.@10"
-IT "Numero\nDoc.@7"
-IT "Riga\nDoc.@4"
-IT "Stato\nDoc.@4"
-IT "Codice\nArticolo@20"
-IT "Descrizione@50"
-IT "UM"
-IT "Quantitą@15"
-IT "Qta evasa@15"
-IT "Residuo@15"
-IT "Da\nEvadere"
-IT "Qta da evadere@15"
-IT "Data di\nconsegna@10"
-IT "Fornitore"
-IT "Ragione sociale@50"
-IT "Commessa@20"
-IT "Fase@10"
-IT "Descrizione aggiuntiva@50"
-IT "Pezzi\nper conf."
-IT "Taglie@10"
-FL "D"
-EN
+BEGIN
+PROMPT 1 2 "Ordini"
+  ITEM "Data\nDoc.@10"
+  ITEM "Numero\nDoc.@7"
+  ITEM "Riga\nDoc.@4"
+  ITEM "Stato\nDoc.@4"
+  ITEM "Codice\nArticolo@20"
+  ITEM "Descrizione@50"
+  ITEM "UM"
+  ITEM "Quantitą@15"
+  ITEM "Qta evasa@15"
+  ITEM "Residuo@15"
+  ITEM "Da\nEvadere"
+  ITEM "Qta da evadere@15"
+  ITEM "Data di\nconsegna@10"
+  ITEM "Fornitore"
+  ITEM "Ragione sociale@50"
+  ITEM "Commessa@20"
+  ITEM "Fase@10"
+  ITEM "Descrizione aggiuntiva@50"
+  ITEM "Pezzi\nper conf."
+  ITEM "Taglie@10"
+FLAGS "D"
+END
 
 ENDPAGE
 
 PAGE "Note" 0 0 0 -3
 
-ME 168 70 -1
-BE
-PR 1 1 "Note "
-FLAGS ""
-EN
+MEMO 168 70 -1
+BEGIN
+  PROMPT 1 1 "Note "
+  FLAGS ""
+END
 
 ENDPAGE
 
 PAGE "Filtri" 0 0 0 -3
 
-GR -1 78 5
-BE
-PR 1 1 "@bGruppo merceologico"
-EN
-ST 149 2
-BE
-PR 2 2 "Gruppo merceologico      "
-FLAG "U"
-US GMC KE 1 SE CODTAB[3,5]==""
-IN CODTAB 149
-DI "Codice" CODTAB[1,2]
-DI "Descrizione@50" S0
-OU 151 CODTAB[1,3]
-OU 149 CODTAB[1,2]
-OU 152 S0
-ME 0 CO,151
-CH NO
-EN
-ST 150 3
-BE
-PR 2 3 "Sottogruppo merceologico "
-FLAG "U"
-US GMC
-IN CODTAB[1,2] 149
-IN CODTAB[3,5] 150
-DI "Codice" CODTAB
-DI "Descrizione@50" S0
-OU 151 CODTAB[1,3]
-OU 153 CODTAB[4,5]
-OU 150 CODTAB[3,5]
-OU 154 S0
-CH NO
-ME 0 CO,153
-EN
-ST 151 3
-BE
-PR 2 2 "Gruppo merceologico      "
-FLAG "UH"
-CH SE
-FI OR14_GRM
-EN
-ST 152 50 35
-BE
-PR 35 2 ""
-US GMC KE 2 SE CODTAB[4,5]==""
-IN S0 152
-DI "Codice" CODTAB
-DI "Descrizione@50" S0
-OU 151 CODTAB[1,3]
-OU 149 CODTAB[1,2]
-OU 152 S0
-CH SE
-EN
-ST 153 2
-BE
-PR 2 3 "Sottogruppo merceologico "
-FLAG "UH"
-US GMC
-CH SE
-FI OR14_SGR
-EN
-ST 154 50 35
-BE
-PR 35 3 ""
-US GMC KE 2 SE CODTAB[4,5] != ""
-IN S0 154
-DI "Descrizione@50" S0
-DI "Codice" CODTAB
-CO OU 153
-CH NORMAL
-EN
-BO 155
-BE
-PR 2 4 "Sottoscorta"
-FI OR14_SSC
-EN
-GR -1 78 5
-BE
-PR 1 9 "@bArticolo"
-EN
-ST 169 20
-BE
-PR 2 10 "Codice                   "
-EN
-ST 170 50
-BE
-PR 2 11 "Descrizione              "
-EN
-ST 171 50
-BE
-PR 2 12 "Descrizione aggiuntiva   "
-EN
-GR -1 78 4
-BE
-PR 1 14 "@bFornitore"
-EN
-ST 172 7
-BE
-PR 2 15 "Codice                   "
-US 20
-IN TIPOCF "F"
-IN CODCF 172
-DI "Codice " CODCF
-DI "Ragione sociale@50" RAGSOC
-OU 172 CODCF
-EN
-ST 173 50
-BE
-PR 2 16 "Ragione sociale          "
-FL "D"
-EN
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 1 1 "@bGruppo merceologico"
+END
+
+STRING F_GRMERC 3
+BEGIN
+  PROMPT 2 2 "Gruppo merc.   "
+  USE GMC KEY 1 SELECT CODTAB[4,5]==""
+  INPUT CODTAB F_GRMERC
+  DISPLAY "Codice" CODTAB[1,3]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_GRMERC CODTAB[1,3]
+  OUTPUT F_DGRMERC S0
+  FLAGS "U"
+  CHECKTYPE NORMAL
+  FIELD OR14_GRM
+END
+
+STRING F_DGRMERC 50
+BEGIN
+  PROMPT 25 2 ""
+  USE GMC KEY 2 SELECT CODTAB[4,5]==""
+  INPUT S0 F_DGRMERC
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  COPY OUTPUT F_GRMERC
+  CHECKTYPE SEARCH
+END
+
+STRING F_SGRMERC 3
+BEGIN
+  PROMPT 2 3 "Sottogr. merc. "
+  USE GMC
+  INPUT CODTAB[1,3] F_GRMERC
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_GRMERC CODTAB[1,3]
+  OUTPUT F_SGRMERC CODTAB[4,5]
+  OUTPUT F_DSGRMERC S0
+  FLAGS "U"
+  CHECKTYPE NORMAL
+  FIELD OR14_SGR
+END
+
+STRING F_DSGRMERC 50
+BEGIN
+  PROMPT 25 3 ""
+  USE GMC KEY 2 SELECT CODTAB[4,5] != ""
+  INPUT S0 F_DSGRMERC
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_SGRMERC
+  CHECKTYPE NORMAL
+END
+
+BOOLEAN F_SOTTOSCORTA
+BEGIN
+  PROMPT 2 4 "Sottoscorta"
+  FIELD OR14_SSC
+END
+
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 1 6 "@bArticolo"
+END
+
+STRING F_SCODART 20
+BEGIN
+  PROMPT 2 7 "Codice      "
+  USE LF_ANAMAG
+  INPUT CODART F_SCODART
+  DISPLAY "Codice@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_SCODART CODART
+  OUTPUT F_SDESART DESCR
+  OUTPUT F_SDESAGG DESCRAGG
+  CHECKTYPE NORMAL
+  FLAGS "U"
+END
+
+STRING F_SDESART 50
+BEGIN
+  PROMPT 2 8 "Descrizione "
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR F_SDESART
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Codice@20" CODART
+  COPY OUTPUT F_SCODART
+END
+
+STRING F_SDESAGG 50
+BEGIN
+  PROMPT 2 9 "Descr. agg. "
+  FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 11 "@bFornitore"
+END
+
+STRING F_SCODFOR 7
+BEGIN
+  PROMPT 2 12 "Codice    "
+  USE LF_CLIFO
+  INPUT TIPOCF "F"
+  INPUT CODCF F_SCODFOR
+  DISPLAY "Codice " CODCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_SCODFOR CODCF
+  OUTPUT F_SRAGSOC RAGSOC
+  CHECKTYPE NORMAL
+END
+
+STRING F_SRAGSOC 50
+BEGIN
+  PROMPT 2 13 "Rag. soc. "
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "F"
+  INPUT RAGSOC F_SRAGSOC
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice " CODCF
+  COPY OUTPUT F_SCODFOR
+  FLAGS ""
+  CHECKTYPE NORMAL
+END
 
 ENDPAGE
 
 PAGE "Parametri" 0 0 0 -3
 
-GR -1 78 4
-BE
-PR 1 1 "@bTipologia documento ordine"
-EN
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 1 "@bTipologia documento ordine"
+END
 
 STRING F_CODNUM 4
 BEGIN
-PR 2 2 "Numerazione  "
-US %NUM SE (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
-IN CODTAB 157
-DI "Codice" CODTAB
-DI "Descrizione@60" S0
-OU 157 CODTAB
-OU 158 S0
-OU 159 S2[1,4]
-OU 100 S2[1,4]
-OU 101 S2[5,8]
-OU 102 S2[9,12]
-OU 103 S2[13,16]
-OU 104 S2[17,20]
-OU 105 S2[21,24]
-FLAG "UG"
-CH REQUIRED
-FI OR14_NUM
-ME RESET,174|RESET,175
+  PROMPT 2 2 "Numerazione "
+  USE %NUM SELECT (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
+  INPUT CODTAB F_CODNUM
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODNUM CODTAB
+  OUTPUT F_DESNUM S0
+  OUTPUT F_TIPODOC S2[1,4]
+  OUTPUT 100 S2[1,4]
+  OUTPUT 101 S2[5,8]
+  OUTPUT 102 S2[9,12]
+  OUTPUT 103 S2[13,16]
+  OUTPUT 104 S2[17,20]
+  OUTPUT 105 S2[21,24]
+  FLAGS "UG"
+  CHECKTYPE REQUIRED
+  FIELD OR14_NUM
+  MESSAGE RESET,F_MAGC|RESET,F_DESMAGC
 END
 
-ST 158 50 30
-BE
-PR 24 2 ""
-US %NUM KE 2 SE (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
-IN S0 158
-DI "Descrizione@60" S0
-DI "Codice" CODTAB
-CO OU 157
-CH REQUIRED
-EN
+STRING F_DESNUM 50
+BEGIN
+  PROMPT 21 2 ""
+  USE %NUM KEY 2 SELECT (CODTAB=="BACQ")||(CODTAB=="MAG")||(CODTAB=="ORF")||(CODTAB=="ORFT")||(CODTAB=="MAGT")
+  INPUT S0 F_DESNUM
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODNUM
+  CHECKTYPE REQUIRED
+END
 
-ST 100 4
-BE
-PR 2 12 "1 "
-FL "H"
-EN
+STRING 100 4
+BEGIN
+PROMPT 2 12 "1 "
+FLAGS "H"
+END
 
-ST 101 4
-BE
-PR 9 12 "2 "
-FL "H"
-EN
+STRING 101 4
+BEGIN
+PROMPT 9 12 "2 "
+FLAGS "H"
+END
 
-ST 102 4
-BE
-PR 16 12 "3 "
-FL "H"
-EN
+STRING 102 4
+BEGIN
+PROMPT 16 12 "3 "
+FLAGS "H"
+END
 
-ST 103 4
-BE
-PR 23 12 "4 "
-FL "H"
-EN
+STRING 103 4
+BEGIN
+PROMPT 23 12 "4 "
+FLAGS "H"
+END
 
-ST 104 4
-BE
-PR 30 12 "5 "
-FL "H"
-EN
+STRING 104 4
+BEGIN
+PROMPT 30 12 "5 "
+FLAGS "H"
+END
 
-ST 105 4
-BE
-PR 37 12 "6 "
-FL "H"
-EN
+STRING 105 4
+BEGIN
+PROMPT 37 12 "6 "
+FLAGS "H"
+END
 
-ST 159 4
-BE
-PR 2 3 "Tipo         "
-// US %TIP SE (CODTAB=="BACQ")||(CODTAB=="ORF")||(CODTAB=="MMAG")||(CODTAB=="TRAS")||(CODTAB=="ORFT")||(CODTAB=="MMGT")||(CODTAB=="TRAT")||(CODTAB=="TRCA")
-US %TIP SE (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
-IN CODTAB 159
-DI "Codice" CODTAB
-DI "Descrizione@60" S0
-OU 159 CODTAB
-OU 160 S0
-CH REQUIRED
-FLAG "UG"
-FI OR14_TIP
-EN
+STRING F_TIPODOC 4
+BEGIN
+  PROMPT 2 3 "Tipo        "
+  USE %TIP SELECT (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
+  INPUT CODTAB F_TIPODOC
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_TIPODOC CODTAB
+  OUTPUT F_DESTIPODOC S0
+  CHECKTYPE REQUIRED
+  FLAGS "UG"
+  FIELD OR14_TIP
+END
 
-ST 160 50 30
-BE
-PR 24 3 ""
-// US %TIP KE 2 SE (CODTAB=="BACQ")||(CODTAB=="ORF")||(CODTAB=="MMAG")||(CODTAB=="TRAS")||(CODTAB=="ORFT")||(CODTAB=="MMGT")||(CODTAB=="TRAT")||(CODTAB=="TRCA")
-US %TIP SE (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
-IN S0 160
-DI "Descrizione@60" S0
-DI "Codice" CODTAB
-CO OU 159
-CH REQUIRED
-EN
+STRING 160 50
+BEGIN
+  PROMPT 21 3 ""
+  USE %TIP KEY 2 SELECT (CODTAB==#100)||(CODTAB==#101)||(CODTAB==#102)||(CODTAB==#103)||(CODTAB==#104)||(CODTAB==#105)
+  INPUT S0 F_DESTIPODOC
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_TIPODOC
+  CHECKTYPE REQUIRED
+END
 
-GR -1 78 3
-BE
-PR 1 5 "@bCentro di costo  / Commessa"
-EN
-ST 166 20
-BE
-PR 2 6 "CDC/Commessa   "
-FL "UZ"
-US CMS
-IN CODTAB 166
-DI "Codice@20" CODTAB
-DI "Descrizione@70" S0
-OU 166 CODTAB
-FI OR14_CDCT
-CH NORMAL
-EN
-ST 167 10
-BE
-PR 50 6 "Fase   "
-FL "DUZ"
-US FSC
-IN CODTAB 167
-DI "Codice@20" CODTAB
-DI "Descrizione@70" S0
-OU 167 CODTAB
-FI OR14_FSCT
-CH NORMAL
-EN
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 5 "@bCentro di costo  / Commessa"
+END
 
-GR -1 78 6
-BE
-PR 1 8 "@bMagazzino / Deposito"
-EN
-ST 161 3
-BE
-PR 2 9 "Magazzino    "
-FL "UG"
-US MAG SE CODTAB[4,5]==""
-IN CODTAB 161
-DI "Codice " CODTAB[1,3]
-DI "Denominazione mag.@50 " S0
-OU 161 CODTAB[1,3]
-OU 162 S0
-CH NORMAL
-FI OR14_MAG
-EN
-ST 162 50
-BE
-PR 24 9 ""
-FL "DUG"
-US MAG KE 2 SE CODTAB[4,5]==""
-IN S0 162
-DI "Denominazione magazzino@50" S0
-DI "Cod. magazzino" CODTAB[1,3]
-DI "Cod. deposito" CODTAB[4,5]
-OU 161 CODTAB[1,3]
-OU 162 S0
-CH SE
-EN
-ST 163 2
-BE
-PR 2 10 "Deposito     "
-FL "HU"
-US MAG SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
-IN CODTAB[1,3] 161
-IN CODTAB[4,5] 163
-DI "Codice " CODTAB
-DI "Denominazione dep.@50 " S0
-OU 161 CODTAB[1,3]
-OU 163 CODTAB[4,5]
-CH SE
-FI OR14_DEP
-EN
-ST 164 50
-BE
-PR 24 10 ""
-FL "H"
-US MAG KE 2 SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
-IN S0 164
-CO DI 162
-OU 163 CODTAB[4,5]
-CH SE
-EN
+STRING F_CDCT 20
+BEGIN
+  PROMPT 2 6 "CDC/Commessa "
+  USE CMS
+  INPUT CODTAB F_CDCT
+  DISPLAY "Codice@20" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CDCT CODTAB
+  FIELD OR14_CDCT
+  FLAGS "UZ"
+  CHECKTYPE NORMAL
+END
 
-ST 174 3
-BE
-PR 2 11 "Mag.coll.   "
-FL "UG"
-US MAG SE CODTAB[4,5]==""
-IN CODTAB 174
-DI "Codice " CODTAB[1,3]
-DI "Denominazione mag.@50 " S0
-OU 174 CODTAB[1,3]
-OU 175 S0
-CH NORMAL
-FI OR14_MAGC
-EN
-ST 175 50
-BE
-PR 24 11 ""
-US MAG KE 2 SE CODTAB[4,5]==""
-IN S0 175
-DI "Denominazione magazzino@50" S0
-DI "Cod. magazzino" CODTAB[1,3]
-DI "Cod. deposito" CODTAB[4,5]
-OU 174 CODTAB[1,3]
-OU 175 S0
-CH SE
-EN
-ST 176 2
-BE
-PR 2 12 "Deposito     "
-FL "HU"
-US MAG SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
-IN CODTAB[1,3] 174
-IN CODTAB[4,5] 176
-DI "Codice " CODTAB
-DI "Denominazione dep.@50 " S0
-OU 174 CODTAB[1,3]
-OU 176 CODTAB[4,5]
-CH SE
-FI OR14_DEPC
-EN
-ST 177 50
-BE
-PR 24 12 ""
-US MAG KE 2 SE (CODTAB[1,3]==#161)&&(CODTAB[4,5]!="")
-FL "HU"
-IN S0 177
-CO DI 162
-OU 176 CODTAB[4,5]
-CH SE
-EN
+STRING F_FSCT 10
+BEGIN
+  PROMPT 50 6 "Fase   "
+  FLAGS "DUZ"
+  USE FSC
+  INPUT CODTAB F_FSCT
+  DISPLAY "Codice@20" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_FSCT CODTAB
+  FIELD OR14_FSCT
+  CHECKTYPE NORMAL
+END
+
+GROUPBOX DLG_NULL 78 6
+BEGIN
+  PROMPT 1 8 "@bMagazzino / Deposito"
+END
+
+STRING F_MAG 3
+BEGIN
+  PROMPT 2 9 "Magazzino   "  
+  USE MAG SELECT CODTAB[4,5]==""
+  INPUT CODTAB F_MAG
+  DISPLAY "Codice " CODTAB[1,3]
+  DISPLAY "Denominazione mag.@50 " S0
+  OUTPUT F_MAG CODTAB[1,3]
+  OUTPUT F_DESMAG S0
+  CHECKTYPE NORMAL
+  FIELD OR14_MAG
+  FLAGS "UG"
+END
+
+STRING F_DESMAG 50
+BEGIN
+  PROMPT 21 9 ""
+  USE MAG KEY 2 SELECT CODTAB[4,5]==""
+  INPUT S0 F_DESMAG
+  DISPLAY "Denominazione magazzino@50" S0
+  DISPLAY "Cod. magazzino" CODTAB[1,3]
+  DISPLAY "Cod. deposito" CODTAB[4,5]
+  COPY OUTPUT F_MAG
+  CHECKTYPE SEARCH
+  FLAGS "UG"
+END
+
+STRING F_DEP 2
+BEGIN
+  PROMPT 2 10 "Deposito    "
+  USE MAG SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
+  INPUT CODTAB[1,3] F_MAG
+  INPUT CODTAB[4,5] F_DEP
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Denominazione dep.@50 " S0
+  OUTPUT F_MAG CODTAB[1,3]
+  OUTPUT F_DEP CODTAB[4,5]
+  FLAGS "HU"
+  CHECKTYPE SEARCH
+  FIELD OR14_DEP
+END
+
+STRING F_DESDEP 50
+BEGIN
+  PROMPT 21 10 ""
+  USE MAG KEY 2 SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
+  INPUT S0 F_DESDEP
+  DISPLAY "Denominazione deposito@50" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_DEP
+  FLAGS "H"
+  CHECKTYPE SEARCH
+END
+
+STRING F_MAGC 3
+BEGIN
+  PROMPT 2 11 "Mag.coll.   "
+  USE MAG SELECT CODTAB[4,5]==""
+  INPUT CODTAB F_MAGC
+  DISPLAY "Codice" CODTAB[1,3]
+  DISPLAY "Denominazione mag.@50 " S0
+  OUTPUT F_MAGC CODTAB[1,3]
+  OUTPUT F_DESMAGC S0
+  FLAGS "UG"
+  CHECKTYPE NORMAL
+  FIELD OR14_MAGC
+END
+
+STRING F_DESMAGC 50
+BEGIN
+  PROMPT 21 11 ""
+  USE MAG KEY 2 SELECT CODTAB[4,5]==""
+  INPUT S0 F_DESMAGC
+  DISPLAY "Denominazione magazzino@50" S0
+  DISPLAY "Cod. magazzino" CODTAB[1,3]
+  DISPLAY "Cod. deposito" CODTAB[4,5]
+  OUTPUT F_MAGC CODTAB[1,3]
+  OUTPUT F_DESMAGC S0
+  CHECKTYPE SEARCH
+END
+
+STRING F_DEPC 2
+BEGIN
+  PROMPT 2 12 "Deposito    "
+  USE MAG SELECT (CODTAB[1,3]==#F_MAGC)&&(CODTAB[4,5]!="")
+  INPUT CODTAB[1,3] F_MAGC
+  INPUT CODTAB[4,5] F_DEPC
+  DISPLAY "Codice " CODTAB
+  DISPLAY "Denominazione deposito@50 " S0
+  OUTPUT F_MAGC CODTAB[1,3]
+  OUTPUT F_DEPC CODTAB[4,5]
+  FLAGS "HU"
+  CHECKTYPE SEARCH
+  FIELD OR14_DEPC
+END
+
+STRING F_DESDEPC 50
+BEGIN
+  PROMPT 21 12 ""
+  USE MAG KEY 2 SELECT (CODTAB[1,3]==#F_MAGC)&&(CODTAB[4,5]!="")
+  INPUT S0 F_DESDEPC
+  DISPLAY "Denominazione deposito@50" S0
+  DISPLAY "Codice" CODTAB
+  OUTPUT F_DEPC CODTAB[4,5]
+  FLAGS "HU"
+  CHECKTYPE SEARCH
+END
+
+GROUPBOX -1 78 3
+BEGIN
+  PROMPT 1 14 "@bValorizzazione"
+END
+
+LIST F_PREZZO 15
+BEGIN
+  PROMPT 2 15 "Prezzo      "
+  ITEM "U|Ultimo Costo"
+  ITEM "S|Costo Standard"
+  FIELD OR14_TPR
+END
+
+ENDPAGE
 
-GR -1 78 3
-BE
-PR 1 14 "@bValorizzazione"
-EN
-LI 165 15
-BE
-PR 2 15 "Prezzo       "
-IT "U|Ultimo Costo"
-IT "S|Costo Standard"
-FI OR14_TPR
-EN
-EN
 ENDMASK
-TOOLBAR "" 0 -3 0 3
-BU 1 10 2
-BE
-PR -12 -11 ""
-EN
-BU 2 10 2
-BE
-PR -22 -11 ""
-EN
+
+//---Maschere di riga degli sheet---//
+
+//---Riga sheet degli ordini SO---//
+TOOLBAR "" 0 -2 0 3
+
+BUTTON 1 10 2
+BEGIN
+  PROMPT -12 -11 ""
+END
+
+BUTTON 2 10 2
+BEGIN
+  PROMPT -22 -11 ""
+END
 
 ENDPAGE
 
@@ -709,207 +754,246 @@ ENDPAGE
 
 PAGE "Campi Utente" -1 -1 80 20
 
-ST SO_USER1 20
-BE
-PR 2 2 "Campo utente  1 "
-FL "D"
-EN
-ST SO_USER2 20
-BE
-PR 2 4 "Campo utente  2 "
-FL "D"
-EN
-ST SO_USER3 20
-BE
-PR 2 6 "Campo utente  3 "
-FL "D"
-EN
-ST SO_USER4 20
-BE
-PR 2 8 "Campo utente  4 "
-FL "D"
-EN
-ST SO_USER5 20
-BE
-PR 2 10 "Campo utente  5 "
-FL "D"
-EN
-ST SO_USER6 20
-BE
-PR 2 12 "Campo utente  6 "
-FL "D"
-EN
-ST SO_USER7 20
-BE
-PR 2 14 "Campo utente  7 "
-FL "D"
-EN
-ST SO_USER8 20
-BE
-PR 2 16 "Campo utente  8 "
-FL "D"
-EN
-ST SO_USER9 20
-BE
-PR 2 18 "Campo utente  9 "
-FL "D"
-EN
-ST SO_USER10 20
-BE
-PR 2 20 "Campo utente 10 "
-FL "D"
-EN
+STRING SO_USER1 20
+BEGIN
+PROMPT 2 2 "Campo utente  1 "
+FLAGS "D"
+END
+
+STRING SO_USER2 20
+BEGIN
+PROMPT 2 4 "Campo utente  2 "
+FLAGS "D"
+END
+
+STRING SO_USER3 20
+BEGIN
+PROMPT 2 6 "Campo utente  3 "
+FLAGS "D"
+END
+
+STRING SO_USER4 20
+BEGIN
+PROMPT 2 8 "Campo utente  4 "
+FLAGS "D"
+END
+
+STRING SO_USER5 20
+BEGIN
+PROMPT 2 10 "Campo utente  5 "
+FLAGS "D"
+END
+
+STRING SO_USER6 20
+BEGIN
+PROMPT 2 12 "Campo utente  6 "
+FLAGS "D"
+END
+
+STRING SO_USER7 20
+BEGIN
+PROMPT 2 14 "Campo utente  7 "
+FLAGS "D"
+END
+
+STRING SO_USER8 20
+BEGIN
+PROMPT 2 16 "Campo utente  8 "
+FLAGS "D"
+END
+
+STRING SO_USER9 20
+BEGIN
+PROMPT 2 18 "Campo utente  9 "
+FLAGS "D"
+END
+
+STRING SO_USER10 20
+BEGIN
+PROMPT 2 20 "Campo utente 10 "
+FLAGS "D"
+END
 
 ENDPAGE
 ENDMASK
 
-PAGE "Ordini" -1 -1 80 20
-GR -1 80 3
-BE
-PR 1 0 "@bEstremi del documento"
-EN
-DA 101
-BE
-PR 2 1 "Data    "
-FI 33.DATADOC
-FL "D"
-EN
-NU 102 6
-BE
-PR 25 1 "Numero "
-FI NDOC
-FL "D"
-EN
-NU 103 4
-BE
-PR 43 1 "Riga "
-FI NRIGA
-FL "D"
-EN
-ST 104 1
-BE
-PR 57 1 "Stato "
-FI 33.STATO
-FL "D"
-EN
+//---Riga sheet degi documenti SD---//
+
+TOOLBAR "" 0 -2 0 3
+
+BUTTON 2 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON 1 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+PAGE "Documenti" -1 -1 80 20
+
+GROUPBOX DLG_NULL 80 3
+BEGIN
+  PROMPT 1 0 "@bEstremi del documento"
+END
+
+DATE 101
+BEGIN
+  PROMPT 2 1 "Data    "
+  FIELD 33.DATADOC
+  FLAGS "D"
+END
+
+NUMBER 102 6
+BEGIN
+  PROMPT 25 1 "Numero "
+  FIELD NDOC
+  FLAGS "D"
+END
+
+NUMBER 103 4
+BEGIN
+PROMPT 43 1 "Riga "
+FIELD NRIGA
+FLAGS "D"
+END
+
+STRING 104 1
+BEGIN
+PROMPT 57 1 "Stato "
+FIELD 33.STATO
+FLAGS "D"
+END
+
 GR -1 80 6
-BE
-PR 1 3 "@bArticolo"
-EN
-ST 105 20
-BE
-PR 2 4 "Codice      "
-FI CODART
-FL "D"
-EN
-ST 106 50
-BE
-PR 2 5 "Descrizione "
-FI 47.DESCR
-FL "D"
-EN
-ST 107 2
-BE
-PR 2 6 "Quantitą    "
-FL "UD"
-FI UMQTA
-EN
-NU 108 13 5
-BE
-PR 18 6 ""
-FI QTA
-FL "D"
-EN
-NU 109 13 5
-BE
-PR 34 6 "Evasa "
-FI QTAEVASA
-CH NORMAL
-FL "D"
-EN
-NU 110 13 5
-BE
-PR 56 6 "Residuo "
+BEGIN
+PROMPT 1 3 "@bArticolo"
+END
+
+STRING 105 20
+BEGIN
+PROMPT 2 4 "Codice      "
+FIELD CODART
+FLAGS "D"
+END
+
+STRING 106 50
+BEGIN
+PROMPT 2 5 "Descrizione "
+FIELD 47.DESCR
+FLAGS "D"
+END
+
+STRING 107 2
+BEGIN
+PROMPT 2 6 "Quantitą    "
+FLAGS "UD"
+FIELD UMQTA
+END
+
+NUMBER 108 13 5
+BEGIN
+PROMPT 18 6 ""
+FIELD QTA
+FLAGS "D"
+END
+
+NUMBER 109 13 5
+BEGIN
+PROMPT 34 6 "Evasa "
+FIELD QTAEVASA
+  CHECKTYPE NORMAL
+FLAGS "D"
+END
+
+NUMBER 110 13 5
+BEGIN
+PROMPT 56 6 "Residuo "
 VA 14 1 #108-#109
 DR 108 109
-CH NORMAL
-FL "DG"
-EN
-BO 111
-BE
-PR 2 7 "Da evadere"
-ME 0 CLEAR, 112
-ME 1 ENABLE,112
-EN
-NU 112 13 5
-BE
-PR 16 7 "Qta da evadere"
-EN
-DATA 113
-BE
-PR 47 7 "Data di consegna "
-FI DATACONS
-EN
-GR -1 80 3
-BE
-PR 1 8 "@bFornitore"
-EN
+  CHECKTYPE NORMAL
+FLAGS "DG"
+END
 
-NUMBER S_FORNITORE 6
+BO 111
+BEGIN
+PROMPT 2 7 "Da evadere"
+MESSAGE 0 CLEAR, 112
+MESSAGE 1 ENABLE,112
+END
+
+NUMBER 112 13 5
+BEGIN
+PROMPT 16 7 "Qta da evadere"
+END
+
+DATA 113
+BEGIN
+PROMPT 47 7 "Data di consegna "
+FIELD DATACONS
+END
+
+GROUPBOX DLG_NULL 80 3
+BEGIN
+PROMPT 1 8 "@bFornitore"
+END
+
+NUMBER SD_FORNITORE 6
 BEGIN
   PROMPT 2 10 ""
   FIELD 33.CODCF
   FLAGS "D"
 END
 
-ST 115 50
-BE
-PR 14 10 ""
-FI 20.RAGSOC
-FL "D"
-EN
+STRING 115 50
+BEGIN
+PROMPT 14 10 ""
+FIELD 20.RAGSOC
+FLAGS "D"
+END
+
 GR -1 80 4
-BE
-PR 1 11 "@bCentro di costo/Commessa"
-EN
-ST 116 20
-BE
-PR 2 13 "Codice      "
-FL "UZD"
-FI CODCMS
-EN
-ST 117 10
-BE
-PR 2 14 "Fase        "
-FL "UZD"
-FI FASCMS
-EN
-ST 118 50
-BE
-PR 2 16 "Descr. agg. "
-FI 47.DESCRAGG[1,50]
-FL "D"
-EN
-NU 119 15
-BE
-PR 2 17 "P.per conf. "
-FI 47.PPCONF
-FL "D"
-EN
-ST 120 20
-BE
-PR 42 17 "Taglie "
-FI 47.USER2
-FL "D"
-EN
-BU 2 10 2
-BE
-PR -12 -1 ""
-EN
-BU 1 10 2
-BE
-PR -22 -1 ""
-EN
+BEGIN
+PROMPT 1 11 "@bCentro di costo/Commessa"
+END
+
+STRING 116 20
+BEGIN
+PROMPT 2 13 "Codice      "
+FLAGS "UZD"
+FIELD CODCMS
+END
+
+STRING 117 10
+BEGIN
+PROMPT 2 14 "Fase        "
+FLAGS "UZD"
+FIELD FASCMS
+END
+
+STRING 118 50
+BEGIN
+PROMPT 2 16 "Descr. agg. "
+FIELD 47.DESCRAGG[1,50]
+FLAGS "D"
+END
+
+NUMBER 119 15
+BEGIN
+PROMPT 2 17 "P.per conf. "
+FIELD 47.PPCONF
+FLAGS "D"
+END
+
+STRING 120 20
+BEGIN
+PROMPT 42 17 "Taglie "
+FIELD 47.USER2
+FLAGS "D"
+END
 
 ENDPAGE
 ENDMASK