diff --git a/ve/ve1.cpp b/ve/ve1.cpp index 2f9024e30..cccaa6ef0 100755 --- a/ve/ve1.cpp +++ b/ve/ve1.cpp @@ -7,10 +7,10 @@ int main(int argc, char **argv) const int r = (argc>1) ? argv[1][1]-'0' : -1; switch (r) { - case 1 : ve1200(argc, argv); break; - case 2 : ve1300(argc, argv); break; - case 3 : ve1400(argc, argv); break; - default: ve1100(argc, argv); break; + case 1 : ve1200(argc, argv); break; //stampa scoperto, lista bolle + case 2 : ve1300(argc, argv); break; //stampa report documenti + case 3 : ve1400(argc, argv); break; //stampa tabelle vendita ed utilita' varie + default: ve1100(argc, argv); break; //stampa documenti di vendita } return 0; } diff --git a/ve/ve1400.cpp b/ve/ve1400.cpp index 11d2ab57b..942b1c1b2 100755 --- a/ve/ve1400.cpp +++ b/ve/ve1400.cpp @@ -296,7 +296,21 @@ void TKlarkKent_app::main_loop() { TString_array arr; for (int i = 2; i < argc(); i++) - arr.add(argv(i)); + { + TString name = argv(i); + if (name[0] == '%') + name.ltrim(1); + if (name.len() == 3) //il file in questione e' la stampa di una tabella? + { + TFilename filename(name); + filename.insert("vest"); + filename.ext("rep"); + if (filename.custom_path()) + name = filename.name(); + } + name.lower(); + arr.add(name); + } if (arr.items() == 0) arr.add(EMPTY_STRING); diff --git a/ve/vemenu.men b/ve/vemenu.men index d5bc76d97..9501ece12 100755 --- a/ve/vemenu.men +++ b/ve/vemenu.men @@ -52,26 +52,26 @@ Caption = "Tabelle personalizzazione documenti" Picture = Module = 0 Flags = "" -Item_01 = "Tipo documento", "ba3 -0 %TIP", "F" -Item_02 = "Numerazione documenti", "ba3 -0 %NUM", "F" -Item_03 = "Tipo riga documento", "ba3 -0 %TRI", "F" -Item_04 = "Formule documento", "ba3 -0 %FRD", "F" -Item_05 = "Formule righe documento", "ba3 -0 %FRR", "F" -Item_06 = "Formule ricalcolo magazzino", "ba3 -0 %FRM", "F" -Item_07 = "Elaborazioni differite", "ba3 -0 %ELD", "F" -Item_08 = "Stati documento", "ba3 -0 %STD", "F" +Item_01 = "Tipo documento", "ve0 -4 %TIP", "F" +Item_02 = "Numerazione documenti", "ve0 -4 %NUM", "F" +Item_03 = "Tipo riga documento", "ve0 -4 %TRI", "F" +Item_04 = "Formule documento", "ve0 -4 %FRD", "F" +Item_05 = "Formule righe documento", "ve0 -4 %FRR", "F" +Item_06 = "Formule ricalcolo magazzino", "ve0 -4 %FRM", "F" +Item_07 = "Elaborazioni differite", "ve0 -4 %ELD", "F" +Item_08 = "Stati documento", "ve0 -4 %STD", "F" [VEMENU_008] Caption = "Stampa tabelle personalizzazione documenti" Picture = Module = 0 Flags = "" -Item_01 = "Tipo documento", "ba3 -1 %TIP", "F" -Item_02 = "Numerazione documenti", "ba3 -1 %NUM", "F" -Item_03 = "Tipo riga documento", "ba3 -1 %TRI", "F" -Item_04 = "Formule documento", "ba3 -1 %FRD", "F" -Item_05 = "Formule righe documento", "ba3 -1 %FRR", "F" -Item_06 = "Formule ricalcolo magazzino", "ba3 -1 %FRM", "F" -Item_07 = "Elaborazioni differite", "ba3 -1 %ELD", "F" -Item_08 = "Stati documento", "ba3 -1 %STD", "F" +Item_01 = "Tipo documento", "ve1 -3 %TIP", "F" +Item_02 = "Numerazione documenti", "ve1 -3 %NUM", "F" +Item_03 = "Tipo riga documento", "ve1 -3 %TRI", "F" +Item_04 = "Formule documento", "ve1 -3 %FRD", "F" +Item_05 = "Formule righe documento", "ve1 -3 %FRR", "F" +Item_06 = "Formule ricalcolo magazzino", "ve1 -3 %FRM", "F" +Item_07 = "Elaborazioni differite", "ve1 -3 %ELD", "F" +Item_08 = "Stati documento", "ve1 -3 %STD", "F" diff --git a/ve/vesteld.rep b/ve/vesteld.rep new file mode 100755 index 000000000..7cc35d915 --- /dev/null +++ b/ve/vesteld.rep @@ -0,0 +1,280 @@ + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + CODTAB[1,8] + + + S0 + + + S3 + +
  • +
  • +
  • +
  • +
  • + + + + S5 + + + S2[1,4] + + + S2[5,8] + + + S2[9,12] + + + S2[13,15] + + + S2[16,19] + + + S7[1,1] + + + S7[2,2] + + + S7[3,3] + + + S7[4,4] + + + S7[5,5] + + + S4[1,4] + + + S8[1,8] + + + S9[1,4] + + + S6[1,8] + + + B4 + +
  • +
  • + + + + S1[1,1] + + + S1[2,2] + + + S1[3,3] + + + S1[4,4] + + + S1[5,5] + + + S1[6,6] + + + S1[7,7] + + + S1[8,8] + + + S1[9,9] + + + S1[10,10] + + + S1[11,11] + + + S1[12,12] + + + B0 + + + S1[40,40] + + + S1[41,41] + + + S1[42,42] + + + B1 + + + B2 + + + B3 + + +
    • +
    + + + #SYSTEM.DATE + + + #PAGE + + +
    +
    + USE %ELD + + \ No newline at end of file diff --git a/ve/vesteld.uml b/ve/vesteld.uml new file mode 100755 index 000000000..7582ebea4 --- /dev/null +++ b/ve/vesteld.uml @@ -0,0 +1,42 @@ +#include "../ba/ba3200.h" + +PAGE "Stampa Tabella Elaborazioni differite" -1 -1 50 8 +STRING F_INIZIO1 8 +BEGIN + PROMPT 2 1 "Da cod. elaborazione " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" + FIELD LF_TABCOM->CODTAB + USE %ELD + INPUT CODTAB F_INIZIO1 + DISPLAY "Cod. elaborazione differita" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 8 +BEGIN + PROMPT 2 3 "A cod. elaborazione " + FLAGS "U" + HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ve/vestfrd.rep b/ve/vestfrd.rep new file mode 100755 index 000000000..909b2b632 --- /dev/null +++ b/ve/vestfrd.rep @@ -0,0 +1,62 @@ + + + +
    + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + CODTAB + + + S0 + + + S3[1,20] + + + B0 + +
  • +
  • + + + + S1 + + +
    • +
    + + + #SYSTEM.DATE + + + #PAGE + + +
    +
    + USE %FRD + \ No newline at end of file diff --git a/ve/vestfrd.uml b/ve/vestfrd.uml new file mode 100755 index 000000000..28becf849 --- /dev/null +++ b/ve/vestfrd.uml @@ -0,0 +1,42 @@ +#include "../ba/ba3200.h" + +PAGE "Stampa Tabella Formule documenti" -1 -1 50 8 +STRING F_INIZIO1 10 +BEGIN + PROMPT 2 1 "Da cod. formula " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" + FIELD LF_TABCOM->CODTAB + USE %FRD + INPUT CODTAB F_INIZIO1 + DISPLAY "Cod. formula documento" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 10 +BEGIN + PROMPT 2 3 "A cod. formula " + FLAGS "U" + HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ve/vestfrm.rep b/ve/vestfrm.rep new file mode 100755 index 000000000..f71460504 --- /dev/null +++ b/ve/vestfrm.rep @@ -0,0 +1,62 @@ + + + +
    + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + CODTAB + + + S0 + + + B0 + +
  • +
  • + + + + S1 + + + S2 + + +
    • +
    + + + #SYSTEM.DATE + + + #PAGE + + +
    +
    + USE %FRM + \ No newline at end of file diff --git a/ve/vestfrm.uml b/ve/vestfrm.uml new file mode 100755 index 000000000..adfcef8b5 --- /dev/null +++ b/ve/vestfrm.uml @@ -0,0 +1,42 @@ +#include "../ba/ba3200.h" + +PAGE "Stampa Tabella Formule per ricalcolo magazzino" -1 -1 50 8 +STRING F_INIZIO1 10 +BEGIN + PROMPT 2 1 "Da cod. formula " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" + FIELD LF_TABCOM->CODTAB + USE %FRM + INPUT CODTAB F_INIZIO1 + DISPLAY "Cod. formula magazzino" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 10 +BEGIN + PROMPT 2 3 "A cod. formula " + FLAGS "U" + HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ve/vestfrr.rep b/ve/vestfrr.rep new file mode 100755 index 000000000..3f0153712 --- /dev/null +++ b/ve/vestfrr.rep @@ -0,0 +1,62 @@ + + + +
    + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + CODTAB + + + S0 + + + S3[1,20] + + + B0 + +
  • +
  • + + + + S1 + + +
    • +
    + + + #SYSTEM.DATE + + + #PAGE + + +
    +
    + USE %FRR + \ No newline at end of file diff --git a/ve/vestfrr.uml b/ve/vestfrr.uml new file mode 100755 index 000000000..ba33290ce --- /dev/null +++ b/ve/vestfrr.uml @@ -0,0 +1,42 @@ +#include "../ba/ba3200.h" + +PAGE "Stampa Tabella Formule righe documenti" -1 -1 50 8 +STRING F_INIZIO1 10 +BEGIN + PROMPT 2 1 "Da cod. formula " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" + FIELD LF_TABCOM->CODTAB + USE %FRR + INPUT CODTAB F_INIZIO1 + DISPLAY "Cod. formula documento" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 10 +BEGIN + PROMPT 2 3 "A cod. formula " + FLAGS "U" + HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ve/bastnum.rep b/ve/vestnum.rep similarity index 100% rename from ve/bastnum.rep rename to ve/vestnum.rep diff --git a/ve/bastnum.uml b/ve/vestnum.uml similarity index 100% rename from ve/bastnum.uml rename to ve/vestnum.uml diff --git a/ve/bastprs.rep b/ve/vestprs.rep similarity index 100% rename from ve/bastprs.rep rename to ve/vestprs.rep diff --git a/ve/bastprs.uml b/ve/vestprs.uml similarity index 100% rename from ve/bastprs.uml rename to ve/vestprs.uml diff --git a/ve/veststd.rep b/ve/veststd.rep new file mode 100755 index 000000000..2baa82d24 --- /dev/null +++ b/ve/veststd.rep @@ -0,0 +1,39 @@ + + + +
    + + + + + + + + + + + +
    +
    +
    +
    + + CODTAB[1,3] + + + S0 + +
    +
    + + + #SYSTEM.DATE + + + #PAGE + + +
    +
    + USE %STD + \ No newline at end of file diff --git a/ve/veststd.uml b/ve/veststd.uml new file mode 100755 index 000000000..97159bb12 --- /dev/null +++ b/ve/veststd.uml @@ -0,0 +1,40 @@ +#include "../ba/ba3200.h" + +PAGE "Stampa Tabella Stati documento" -1 -1 50 8 +STRING F_INIZIO1 1 +BEGIN +PROMPT 2 1 "Da cod. stato " +HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" +FLAGS "U" +USE %STD +INPUT CODTAB F_INIZIO1 +DISPLAY "Cod. stato" CODTAB +DISPLAY "Descrizione@50" S0 +OUTPUT F_INIZIO1 CODTAB +GROUP 1 +END + +STRING F_FINE1 1 +BEGIN +PROMPT 2 3 "A cod. stato " +HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" +FLAGS "U" +COPY USE F_INIZIO1 +INPUT CODTAB F_FINE1 +COPY DISPLAY F_INIZIO1 +OUTPUT F_FINE1 CODTAB +GROUP 2 +END + +BUTTON DLG_OK 10 2 +BEGIN +PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ve/vesttip.rep b/ve/vesttip.rep new file mode 100755 index 000000000..97bab3795 --- /dev/null +++ b/ve/vesttip.rep @@ -0,0 +1,64 @@ + + + +
    + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + CODTAB[1,4] + + + S0 + + + S1 + + + S4[1,8] + + + S5[1,8] + + + S6[1,3] + + +
    +
    + + + #SYSTEM.DATE + + + #PAGE + + +
    +
    + USE %TIP + \ No newline at end of file diff --git a/ve/vesttip.uml b/ve/vesttip.uml new file mode 100755 index 000000000..36b014dc5 --- /dev/null +++ b/ve/vesttip.uml @@ -0,0 +1,42 @@ +#include "../ba/ba3200.h" + +PAGE "Stampa Tabella Tipi documento" -1 -1 50 8 +STRING F_INIZIO1 4 +BEGIN + PROMPT 2 1 "Da cod. tipo documento " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" + FIELD LF_TABCOM->CODTAB + USE %NUM + INPUT CODTAB F_INIZIO1 + DISPLAY "Cod. tipo documento" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 4 +BEGIN + PROMPT 2 3 "A cod. tipo documento " + FLAGS "U" + HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ve/vesttri.rep b/ve/vesttri.rep new file mode 100755 index 000000000..58265e585 --- /dev/null +++ b/ve/vesttri.rep @@ -0,0 +1,53 @@ + + + +
    + + + + + + + + + + + + + + +
    +
    +
    +
    + + CODTAB[1,8] + + + S0 + + + S7 + +
  • +
  • +
  • +
  • +
  • +
  • + + +
    • +
    + + + #SYSTEM.DATE + + + #PAGE + + +
    +
    + USE %TRI + \ No newline at end of file diff --git a/ve/vesttri.uml b/ve/vesttri.uml new file mode 100755 index 000000000..eff954cb1 --- /dev/null +++ b/ve/vesttri.uml @@ -0,0 +1,42 @@ +#include "../ba/ba3200.h" + +PAGE "Stampa Tabella Profilo righe documento" -1 -1 50 8 +STRING F_INIZIO1 4 +BEGIN + PROMPT 2 1 "Da cod. tipo riga doc. " + FLAGS "U" + HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" + FIELD LF_TABCOM->CODTAB + USE %TRI + INPUT CODTAB F_INIZIO1 + DISPLAY "Cod. profilo riga doc." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 4 +BEGIN + PROMPT 2 3 "A cod. tipo riga doc. " + FLAGS "U" + HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ve/vetbeld.h b/ve/vetbeld.h new file mode 100755 index 000000000..5c82f48c0 --- /dev/null +++ b/ve/vetbeld.h @@ -0,0 +1,87 @@ +// campi della tabella di gestione delle elaborazioni differite +#define F_CODICE 101 +#define F_DESCR 102 +#define F_TIPO 103 +#define F_CODNUM_I 104 +#define F_CODNUM_F 105 +#define F_TIPODOC_I_1 111 +#define F_STATO_I_DOC_I_1 121 +#define F_TIPODOC_I_2 112 +#define F_STATO_I_DOC_I_2 122 +#define F_TIPODOC_I_3 113 +#define F_STATO_I_DOC_I_3 123 +#define F_TIPODOC_I_4 114 +#define F_STATO_I_DOC_I_4 124 +#define F_TIPODOC_I_5 115 +#define F_STATO_I_DOC_I_5 125 +#define F_TIPODOC_I_6 116 +#define F_STATO_I_DOC_I_6 126 +#define F_TIPODOC_I_7 117 +#define F_STATO_I_DOC_I_7 127 +#define F_TIPODOC_I_8 118 +#define F_STATO_I_DOC_I_8 128 +#define F_TIPODOC_I_9 119 +#define F_STATO_I_DOC_I_9 129 +#define F_TIPODOC_I_10 120 +#define F_STATO_I_DOC_I_10 130 + +#define F_STATO_F_DOC_I 139 + +#define F_TIPODOC_F 140 +#define F_STATO_F_DOC_F 141 + + +#define F_DOC1 151 +#define F_DOC2 152 +#define F_DOC3 153 +#define F_DOC4 154 +#define F_DOC5 155 +#define F_DOC6 156 +#define F_DOC7 157 +#define F_DOC8 158 +#define F_DOC9 159 +#define F_DOC10 160 +#define F_ATTIVA_PROVVISORIO 161 +#define F_PROVVISORIO 162 +#define F_APPLICAZIONE 163 +#define F_INTERATTIVO 164 +#define F_INSERT_MODE 165 +#define F_AGGIORNA_TESTATA 167 +#define F_ORDINA 168 +#define F_PROTOCOLLO 169 +#define F_USA_DCONS 170 +#define F_KILLDESC 171 + +#define H_DOC1 180 +#define H_DOC2 181 + +#define F_CAMBIO 201 +#define F_SCONTO 202 +#define F_TIPODOC 203 +#define F_CODNUM 204 +#define F_CONDPAG 205 +#define F_BANCA 206 +#define F_LISTINO 207 +#define F_AGENTE 208 +#define F_SPEDIZIONE 209 +#define F_PORTO 210 +#define F_TRASPORTO 211 +#define F_VETTORI 212 +#define F_DESTINAZIONE 213 + +#define F_SOMMA_RIGHE 301 +#define F_MAGAZZINO 310 +#define F_IVA 311 +#define F_PREZZO 312 +#define F_RIFERIMENTI 320 +#define F_RIFERIMENTI_IN_TESTA 321 +#define F_IGNORA_DESCRIZIONI 330 +#define F_USA_DOCRIF 331 + +#define F_PREZZO_DA_ORDINE 340 + +#define F_QTACON 345 +#define F_QTAEV 346 + +#define F_COLONNE_CO 350 + diff --git a/ve/vetbeld.uml b/ve/vetbeld.uml new file mode 100755 index 000000000..69d70d0df --- /dev/null +++ b/ve/vetbeld.uml @@ -0,0 +1,720 @@ +#include "vetbeld.h" + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Elaborazioni differite" -1 -1 0 0 + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 0 "@bElaborazione" +END + +STRING F_CODICE 8 +BEGIN + PROMPT 2 1 "Codice " + FLAG "U" + FIELD CODTAB + CHECKTYPE REQUIRED + WARNING "E' necessario specificare un valore" + USE %ELD + INPUT CODTAB F_CODICE + DISPLAY "Codice@10" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + KEY 1 + HELP "Codice dell'elaborazione differita da eseguire" +END + +STRING F_DESCR 50 +BEGIN + PROMPT 2 2 "Descrizione " + FIELD S0 + CHECKTYPE REQUIRED + WARNING "E' necessario specificare un valore" + USE %ELD KEY 2 + INPUT S0 F_DESCR + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODICE + KEY 2 +END + +LIST F_TIPO 50 +BEGIN + PROMPT 2 3 "Tipo " + ITEM " |Esterna" + MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|SHOW,9@|SHOW,F_KILLDESC + ITEM "1|Consegna Ordini" + MESSAGE SHOW,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@|SHOW,F_KILLDESC + ITEM "2|Fatturazione bolle" + MESSAGE HIDE,1@|SHOW,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@|SHOW,F_KILLDESC + ITEM "3|Trasferimento a contabilita'" + MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|HIDE,4@|HIDE,5@|SHOW,9@|HIDE,F_KILLDESC + ITEM "4|Copia documento" + MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@|HIDE,5@|HIDE,9@|HIDE,F_KILLDESC + ITEM "5|Generazione effetti" + MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|HIDE,4@|SHOW,5@|HIDE,9@|HIDE,F_KILLDESC + ITEM "6|Consuntivazione produzione" + MESSAGE SHOW,1@|HIDE,2@|HIDE,3@|HIDE,4@|HIDE,5@|HIDE,9@|SHOW,F_KILLDESC + ITEM "7|Trasferimento a contabilita' analitica" + MESSAGE HIDE,1@|HIDE,2@|SHOW,3@|HIDE,4@|HIDE,5@|SHOW,9@|HIDE,F_KILLDESC + FIELD I0 +END + +GROUPBOX DLG_NULL 78 8 +BEGIN + PROMPT 1 5 "@bDocumento originale" +END + +STRING F_CODNUM_I 4 +BEGIN + PROMPT 2 6 "Codice numerazione " + FLAGS "U" + FIELD S5 + USE %NUM + INPUT CODTAB F_CODNUM_I + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM_I CODTAB + OUTPUT F_DOC1 S2[1,4] + OUTPUT F_DOC2 S2[5,8] + OUTPUT F_DOC3 S2[9,12] + OUTPUT F_DOC4 S2[13,16] + OUTPUT F_DOC5 S2[17,20] + OUTPUT F_DOC6 S2[21,24] + OUTPUT F_DOC7 S2[25,28] + OUTPUT F_DOC8 S2[29,32] + OUTPUT F_DOC9 S2[33,36] + OUTPUT F_DOC10 S2[37,40] + OUTPUT H_DOC1 S2 + OUTPUT H_DOC2 S3 + CHECKTYPE NORMAL + WARNING "Numerazione errata" +END + +STRING H_DOC1 70 +BEGIN + PROMPT 29 5 "" + FLAGS "H" +END + +STRING H_DOC2 70 +BEGIN + PROMPT 29 5 "" + FLAGS "H" +END + +STRING F_DOC1 4 +BEGIN + PROMPT 29 6 "" + FLAGS "D" +END + +STRING F_DOC2 4 +BEGIN + PROMPT 34 6 "" + FLAGS "D" +END + +STRING F_DOC3 4 +BEGIN + PROMPT 39 6 "" + FLAGS "D" +END + +STRING F_DOC4 4 +BEGIN + PROMPT 44 6 "" + FLAGS "D" +END + +STRING F_DOC5 4 +BEGIN + PROMPT 49 6 "" + FLAGS "D" +END + +STRING F_DOC6 4 +BEGIN + PROMPT 54 6 "" + FLAGS "D" +END + +STRING F_DOC7 4 +BEGIN + PROMPT 59 6 "" + FLAGS "D" +END + +STRING F_DOC8 4 +BEGIN + PROMPT 64 6 "" + FLAGS "D" +END + +STRING F_DOC9 4 +BEGIN + PROMPT 69 6 "" + FLAGS "D" +END + +STRING F_DOC10 4 +BEGIN + PROMPT 74 6 "" + FLAGS "D" +END + +STRING F_TIPODOC_I_1 4 +BEGIN + PROMPT 2 7 "Tipo documento " + FLAGS "U" + FIELD S2[1,4] + USE %TIP + INPUT CODTAB F_TIPODOC_I_1 + DISPLAY "Codice" CODTAB + DISPLAY "Tipo documento@50" S0 + OUTPUT F_TIPODOC_I_1 CODTAB + CHECKTYPE REQUIRED + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_2 4 +BEGIN + PROMPT 30 7 "" + FLAGS "U" + FIELD S2[5,8] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_2 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_2 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_3 4 +BEGIN + PROMPT 39 7 "" + FLAGS "U" + FIELD S2[9,12] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_3 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_3 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_4 4 +BEGIN + PROMPT 48 7 "" + FLAGS "U" + FIELD S2[13,16] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_4 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_4 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_5 4 +BEGIN + PROMPT 57 7 "" + FLAGS "U" + FIELD S2[17,20] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_4 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_4 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_STATO_I_DOC_I_1 1 +BEGIN + PROMPT 2 8 "Stato iniziale " + FLAGS "U" + FIELD S7[1,1] + USE %STD + INPUT CODTAB F_STATO_I_DOC_I_1 + DISPLAY "Stato" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_STATO_I_DOC_I_1 CODTAB + CHECKTYPE REQUIRED + WARNING "E' necessario specificare uno stato iniziale" +END + +STRING F_STATO_I_DOC_I_2 1 +BEGIN + PROMPT 30 8 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_2 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_2 CODTAB + CHECKTYPE NORMAL + FIELD S7[2,2] +END + +STRING F_STATO_I_DOC_I_3 1 +BEGIN + PROMPT 39 8 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_3 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_3 CODTAB + CHECKTYPE NORMAL + FIELD S7[3,3] +END + +STRING F_STATO_I_DOC_I_4 1 +BEGIN + PROMPT 48 8 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_4 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_4 CODTAB + CHECKTYPE NORMAL + FIELD S7[4,4] +END + +STRING F_STATO_I_DOC_I_5 1 +BEGIN + PROMPT 57 8 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_5 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_5 CODTAB + CHECKTYPE NORMAL + FIELD S7[5,5] +END + +STRING F_TIPODOC_I_6 4 +BEGIN + PROMPT 2 9 "Tipo documento " + FLAGS "U" + FIELD S2[21,24] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_6 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_6 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_7 4 +BEGIN + PROMPT 30 9 "" + FLAGS "U" + FIELD S2[25,28] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_7 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_7 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_8 4 +BEGIN + PROMPT 39 9 "" + FLAGS "U" + FIELD S2[29,32] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_8 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_8 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_9 4 +BEGIN + PROMPT 48 9 "" + FLAGS "U" + FIELD S2[33,36] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_9 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_9 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_TIPODOC_I_10 4 +BEGIN + PROMPT 57 9 "" + FLAGS "U" + FIELD S2[37,40] + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_I_10 + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_I_10 CODTAB + CHECKTYPE NORMAL + STR_EXPR {(#F_CODNUM_I=="")||(#H_DOC1?=("*"+#THIS_FIELD +"*"))||(#H_DOC2?=("*"+#THIS_FIELD +"*"))} + WARNING "E' necessario specificare un valore valido e previsto dalla numerazione" +END + +STRING F_STATO_I_DOC_I_6 1 +BEGIN + PROMPT 2 10 "Stato iniziale " + FLAGS "U" + FIELD S10[1,1] + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_6 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_6 CODTAB + CHECKTYPE NORMAL + WARNING "E' necessario specificare uno stato iniziale" +END + +STRING F_STATO_I_DOC_I_7 1 +BEGIN + PROMPT 30 10 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_7 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_7 CODTAB + CHECKTYPE NORMAL + FIELD S10[2,2] +END + +STRING F_STATO_I_DOC_I_8 1 +BEGIN + PROMPT 39 10 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_8 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_8 CODTAB + CHECKTYPE NORMAL + FIELD S10[3,3] +END + +STRING F_STATO_I_DOC_I_9 1 +BEGIN + PROMPT 48 10 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_9 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_9 CODTAB + CHECKTYPE NORMAL + FIELD S10[4,4] +END + +STRING F_STATO_I_DOC_I_10 1 +BEGIN + PROMPT 57 10 "" + FLAGS "U" + COPY USE F_STATO_I_DOC_I_1 + INPUT CODTAB F_STATO_I_DOC_I_10 + COPY DISPLAY F_STATO_I_DOC_I_1 + OUTPUT F_STATO_I_DOC_I_10 CODTAB + CHECKTYPE NORMAL + FIELD S10[5,5] +END + +STRING F_STATO_F_DOC_I 1 +BEGIN + PROMPT 2 11 "Stato finale " + FLAGS "U" + FIELD S4 + USE %STD + INPUT CODTAB F_STATO_F_DOC_I + DISPLAY "Stato" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_STATO_F_DOC_I CODTAB + CHECKTYPE REQUIRED + WARNING "E' necessario specificare uno stato finale" +END + +GROUPBOX DLG_NULL 42 5 +BEGIN + PROMPT 1 13 "@bDocumento finale" +END + +STRING F_TIPODOC_F 4 +BEGIN + PROMPT 2 14 "Tipo documento " + FLAGS "U" + FIELD S8 + CHECKTYPE REQUIRED + WARNING "E' necessario specificare un valore" + COPY USE F_TIPODOC_I_1 + INPUT CODTAB F_TIPODOC_F + COPY DISPLAY F_TIPODOC_I_1 + OUTPUT F_TIPODOC_F CODTAB +END + +STRING F_STATO_F_DOC_F 1 +BEGIN + PROMPT 2 15 "Stato finale " + FLAGS "U" + FIELD S9 + USE %STD + INPUT CODTAB F_STATO_F_DOC_F + DISPLAY "Stato" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_STATO_F_DOC_F CODTAB + CHECKTYPE REQUIRED + WARNING "E' necessario specificare uno stato finale" +END + +STRING F_CODNUM_F 4 +BEGIN + PROMPT 2 16 "Codice numerazione " + FLAGS "U" + FIELD S6 + USE %NUM + INPUT CODTAB F_CODNUM_F + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM_F CODTAB + OUTPUT F_ATTIVA_PROVVISORIO B0 + CHECKTYPE REQUIRED + WARNING "E' necessario specificare un codice di numerazione" +END + +BOOLEAN F_ATTIVA_PROVVISORIO +BEGIN + FLAGS "HG" + MESSAGE FALSE CLEAR,F_PROVVISORIO + MESSAGE TRUE ENABLE,F_PROVVISORIO +END + +BOOLEAN F_PROVVISORIO +BEGIN + PROMPT 45 13 "Genera documento provvisorio" +// FIELD B5 +END + +BOOLEAN F_USA_DCONS +BEGIN + PROMPT 45 14 "Usa data di consegna" + FIELD B9 + GROUP 2 +END + +RADIOBUTTON F_PROTOCOLLO 1 38 +BEGIN + PROMPT 44 14 "@bProtocollo IVA" + ITEM " |Da numero documento" + ITEM "X|Da registro IVA" + FIELD B4 + GROUP 3 +END + +BOOLEAN F_KILLDESC +BEGIN + PROMPT 45 15 "Non riportare descrizione estesa" + FIELD B10 +END + +BOOLEAN F_AGGIORNA_TESTATA +BEGIN + PROMPT 2 18 "Aggiorna testata dopo l'elaborazione, se il documento e' vuoto" + FIELD B6 +END + +STRING F_APPLICAZIONE 70 50 +BEGIN + PROMPT 2 19 "Applicazione " + FIELD S3 + GROUP 9 +END + +BOOLEAN F_ORDINA +BEGIN + PROMPT 50 19 "Ordina per codice" + FIELD B7 + GROUP 1 +END + +ENDPAGE + +PAGE "Parametri per raggruppamenti" -1 -1 78 20 + +GROUPBOX DLG_NULL 78 8 +BEGIN + PROMPT 1 1 "@bCondizioni per raggruppamento documenti" + FLAG "R" +END + +BOOLEAN F_CAMBIO +BEGIN + PROMPT 2 2 "Cambio" + FIELD S1[1,1] +END + +BOOLEAN F_SCONTO +BEGIN + PROMPT 2 3 "Sconto" + FIELD S1[2,2] +END + +BOOLEAN F_TIPODOC +BEGIN + PROMP 2 4 "Tipo documento" + FIELD S1[3,3] +END + +BOOLEAN F_CODNUM +BEGIN + PROMP 2 5 "Codice numerazione" + FIELD S1[4,4] +END + +BOOLEAN F_SPEDIZIONE +BEGIN + PROMPT 2 6 "Modalita'di spedizione" + FIELD S1[9,9] +END + +BOOLEAN F_PORTO +BEGIN + PROMPT 2 7 "Porto" + FIELD S1[10,10] +END + +BOOLEAN F_CONDPAG +BEGIN + PROMP 28 2 "Condizione di pagamento" + FIELD S1[5,5] +END + +BOOLEAN F_BANCA +BEGIN + PROMPT 28 3 "Banca di appoggio" + FIELD S1[6,6] +END + +BOOLEAN F_LISTINO +BEGIN + PROMPT 28 4 "Listino" + FIELD S1[7,7] +END + +BOOLEAN F_AGENTE +BEGIN + PROMP 28 5 "Agente" + FIELD S1[8,8] +END + +BOOLEAN F_TRASPORTO +BEGIN + PROMPT 28 6 "Causale di trasporto" + FIELD S1[11,11] +END + +BOOLEAN F_VETTORI +BEGIN + PROMPT 28 7 "Vettori" + FIELD S1[12,12] +END + +BOOLEAN F_DESTINAZIONE +BEGIN + PROMPT 56 2 "Destinazione" + FIELD S1[13,13] +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 9 "@bModalita' di raggruppamento delle righe" + FLAG "R" +END + +BOOLEAN F_SOMMA_RIGHE +BEGIN + PROMPT 2 10 "Somma righe simili" + MESSAGE FALSE ENABLE,F_RIFERIMENTI_IN_TESTA + MESSAGE TRUE DISABLE,F_RIFERIMENTI_IN_TESTA|"X",F_RIFERIMENTI_IN_TESTA + FIELD B0 +END + +BOOLEAN F_MAGAZZINO +BEGIN + PROMPT 2 11 "Magazzino" + FIELD S1[41,41] +END + +BOOLEAN F_IVA +BEGIN + PROMPT 28 11 "Codice IVA" + FIELD S1[42,42] +END + +BOOLEAN F_PREZZO +BEGIN + PROMPT 2 12 "Prezzo e Sconto" + FIELD S1[43,43] +END + +BOOLEAN F_PREZZO_DA_ORDINE +BEGIN + PROMPT 28 12 "Ricava prezzo e sconto da ordine" + FIELD B5 +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 14 "@bGestione descrizioni" +END + +BOOLEAN F_RIFERIMENTI +BEGIN + PROMPT 2 15 "Gestione riferimenti" + FIELD B1 +END + +BOOLEAN F_RIFERIMENTI_IN_TESTA +BEGIN + PROMPT 40 15 "Tutti i riferimenti in testa" + FIELD B2 +END + +BOOLEAN F_IGNORA_DESCRIZIONI +BEGIN + PROMPT 2 16 "Ignora righe con solo descrizione" + FIELD B3 +END + +BOOLEAN F_USA_DOCRIF +BEGIN + PROMPT 40 16 "Usa documento di rif. in descr.rif." + FIELD B8 +END + +NUMBER F_COLONNE_CO 1 +BEGIN + PROMPT 1 18 "Intestazioni consegna ordini " + SHEET "Tipo|Colonna 1@25|Colonna 2@25" + ITEM " |Quantita' residua|Quantita' da evadere" + ITEM "1|Quantita' consegnata|Quantita' da fatturare" + ITEM "2|Residuo|Da evadere" + INPUT F_COLONNE_CO + OUTPUT F_COLONNE_CO + GROUP 1 + FIELD I1 +END + +ENDPAGE + +ENDMASK diff --git a/ve/vetbfrd.h b/ve/vetbfrd.h new file mode 100755 index 000000000..273e229f2 --- /dev/null +++ b/ve/vetbfrd.h @@ -0,0 +1,6 @@ +#define F_CODTAB 101 +#define F_DES 102 +#define F_LENFLD 103 +#define F_TIPO 104 +#define F_IMPORTO 105 +#define F_FORMULA 106 diff --git a/ve/vetbfrd.uml b/ve/vetbfrd.uml new file mode 100755 index 000000000..e54046150 --- /dev/null +++ b/ve/vetbfrd.uml @@ -0,0 +1,76 @@ +#include "vetbfrd.h" + +TOOLBAR "" 0 20 60 2 + +#include "toolbar.h" + +ENDPAGE + +PAGE "Tabella formule documenti" -1 -1 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END + +STRING F_CODTAB 10 +BEGIN + PROMPT 2 2 "Identificatore " + FIELD CODTAB + USE %FRD + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice@10" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DES S0 + KEY 1 + FLAG "UZ" +END + +STRING F_DES 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + USE %FRD KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DES + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice@10" CODTAB + COPY OUTPUT F_CODTAB + KEY 2 +END + +NUMBER F_LENFLD 2 +BEGIN + PROMPT 2 7 "Lunghezza campo " + FIELD I0 +END + +BOOLEAN F_TIPO +BEGIN + PROMPT 2 9 "Formula numerica" + FIELD B0 + MESSAGE TRUE ENABLE,F_IMPORTO + MESSAGE FALSE CLEAR,F_IMPORTO +END + +BOOLEAN F_IMPORTO +BEGIN + PROMPT 2 10 "Importo" + FIELD B1 +END + +STRING F_FORMULA 70 50 +BEGIN + PROMPT 2 11 "Formula " + FIELD S1 +// CHECKTYPE REQUIRED + WARNING "La formula e' obbligatoria" + FLAG "U" +END + +ENDPAGE +ENDMASK + diff --git a/ve/vetbfrm.h b/ve/vetbfrm.h new file mode 100755 index 000000000..175bbf060 --- /dev/null +++ b/ve/vetbfrm.h @@ -0,0 +1,5 @@ +#define F_CODICE 101 +#define F_DESCRIZIONE 102 +#define F_TIPO 110 +#define F_FORMULA_1 111 +#define F_FORMULA_2 112 \ No newline at end of file diff --git a/ve/vetbfrm.uml b/ve/vetbfrm.uml new file mode 100755 index 000000000..20c6a8e07 --- /dev/null +++ b/ve/vetbfrm.uml @@ -0,0 +1,74 @@ +#include "vetbfrm.h" + +TOOLBAR "" 0 20 -1 -1 + +#include + +ENDPAGE + +PAGE "Formule per ricalcolo magazzino" -1 -1 78 10 + +GROUPBOX DLG_NULL 70 4 +BEGIN + PROMPT 1 1 "Codice" +END + +STRING F_CODICE 10 +BEGIN + PROMPT 2 2 "Codice " + FLAGS "U" + USE %FRM + INPUT CODTAB F_CODICE + DISPLAY "Codice@10" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCRIZIONE S0 + CHECKTYPE REQUIRED + FIELD CODTAB + KEY 1 +END + +STRING F_DESCRIZIONE 50 +BEGIN + PROMPT 2 3 "Descrizione " + USE %FRM KEY 2 + INPUT S0 F_DESCRIZIONE + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice@10" CODTAB + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED + FIELD S0 + KEY 2 +END + +GROUPBOX DLG_NULL 70 5 +BEGIN + PROMPT 1 6 "Formula" +END + +RADIOBUTTON F_TIPO 48 +BEGIN + PROMPT 12 6 "" + FLAGS "Z" + ITEM " |Numerica" + ITEM "X|Alfanumerica" + FIELD B0 +END + +STRING F_FORMULA_1 50 +BEGIN + PROMPT 2 8 "Riga 1 " + CHECKTYPE REQUIRED + FIELD S1 +END + +STRING F_FORMULA_2 50 +BEGIN + PROMPT 2 9 "Riga 2 " + FIELD S2 +END + +ENDPAGE + +ENDMASK + diff --git a/ve/vetbfrr.uml b/ve/vetbfrr.uml new file mode 100755 index 000000000..88eb0a140 --- /dev/null +++ b/ve/vetbfrr.uml @@ -0,0 +1,77 @@ +#include "vetbfrd.h" + +TOOLBAR "" 0 20 60 2 + +#include "toolbar.h" + +ENDPAGE + +PAGE "Tabella formule righe documenti" -1 -1 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END + +STRING F_CODTAB 10 +BEGIN + PROMPT 2 2 "Identificatore " + FIELD CODTAB + USE %FRR + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice@10" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DES S0 + KEY 1 + FLAG "UZ" +END + +STRING F_DES 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + USE %FRR KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DES + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice@10" CODTAB + COPY OUTPUT F_CODTAB + KEY 2 +END + +NUMBER F_LENFLD 2 +BEGIN + PROMPT 2 7 "Lunghezza campo " + FIELD I0 +END + +BOOLEAN F_TIPO +BEGIN + PROMPT 2 9 "Formula numerica" + FIELD B0 + MESSAGE TRUE ENABLE,F_IMPORTO + MESSAGE FALSE CLEAR,F_IMPORTO +END + +BOOLEAN F_IMPORTO +BEGIN + PROMPT 2 10 "Importo" + FIELD B1 +END + + +STRING F_FORMULA 70 50 +BEGIN + PROMPT 2 11 "Formula " + FIELD S1 + CHECKTYPE REQUIRED + WARNING "La formula e' obbligatoria" + FLAG "U" +END + +ENDPAGE +ENDMASK + diff --git a/ve/vetbstd.h b/ve/vetbstd.h new file mode 100755 index 000000000..a5a9d81f5 --- /dev/null +++ b/ve/vetbstd.h @@ -0,0 +1,3 @@ +#define F_CODTAB 101 +#define F_DESSTA 102 + diff --git a/ve/vetbstd.uml b/ve/vetbstd.uml new file mode 100755 index 000000000..5df5e50dc --- /dev/null +++ b/ve/vetbstd.uml @@ -0,0 +1,49 @@ +#include "vetbstd.h" + +TOOLBAR "" 0 20 60 2 + +#include "toolbar.h" + +ENDPAGE + +PAGE "Tabella stati documento" -1 -1 60 14 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END + +STRING F_CODTAB 1 +BEGIN + PROMPT 2 2 "Codice " + FIELD CODTAB + USE %STD + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESSTA S0 + KEY 1 + FLAG "U" +END + +STRING F_DESSTA 50 +BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + HELP "Descrizione tipo documento" + USE %STD KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DESSTA + DISPLAY "Descrizione@40" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODTAB + KEY 2 +END + +ENDPAGE + +ENDMASK + diff --git a/ve/vetbtip.h b/ve/vetbtip.h new file mode 100755 index 000000000..aed050f16 --- /dev/null +++ b/ve/vetbtip.h @@ -0,0 +1,102 @@ +#define F_CODTAB 101 +#define F_DESNUM 102 +#define F_PROFILO 103 +#define F_PSTAMPA 104 +#define F_CODCAUS 105 +#define F_DESCAUS 106 +#define F_NCOPIE 107 +#define F_RIFERIMENTO 108 +#define F_SPESEAUT 109 +#define F_TIPO 110 +#define F_MOVMAG 111 +#define F_STATO_MOV_I 112 +#define F_STATO_MOV_F 113 +#define F_CAUS_MAG 114 +#define F_DESCAUS_MAG 115 +#define F_STATV 116 +#define F_PROVV 117 +#define F_STATO_PROVV 118 +#define F_SCARES 119 +#define F_CODCAUSANT 120 +#define F_DESCAUSANT 121 +#define F_CLIFO_OPT 122 +#define F_CONAI 123 +#define F_NATURA 124 +#define F_NOTACREDDEB 125 +#define F_LORDO 126 +#define F_FATCOM 127 +#define F_PSTAMPA2 130 +#define F_NCOPIE2 131 + +#define F_STATOF_INS 150 +#define F_STATOF_ST 151 +#define F_STATOBLC 152 + +#define F_STATOI_MOD_1 201 +#define F_STATOI_MOD_2 202 +#define F_STATOI_MOD_3 203 +#define F_STATOI_MOD_4 204 +#define F_STATOI_MOD_5 205 +#define F_STATOI_MOD_6 206 +#define F_STATOI_MOD_7 207 +#define F_STATOI_MOD_8 208 +#define F_STATOI_MOD_9 209 +#define F_STATOI_MOD_10 210 +#define F_STATOI_MOD_11 211 +#define F_STATOI_MOD_12 212 +#define F_STATOI_MOD_13 213 +#define F_STATOI_MOD_14 214 +#define F_STATOI_MOD_15 215 +#define F_STATOI_MOD_16 216 +#define F_STATOI_MOD_17 217 +#define F_STATOI_MOD_18 218 +#define F_STATOI_MOD_19 219 +#define F_STATOI_MOD_20 220 + +#define F_STATOI_CANC_1 301 +#define F_STATOI_CANC_2 302 +#define F_STATOI_CANC_3 303 +#define F_STATOI_CANC_4 304 +#define F_STATOI_CANC_5 305 +#define F_STATOI_CANC_6 306 +#define F_STATOI_CANC_7 307 +#define F_STATOI_CANC_8 308 +#define F_STATOI_CANC_9 309 +#define F_STATOI_CANC_10 310 +#define F_STATOI_CANC_11 311 +#define F_STATOI_CANC_12 312 +#define F_STATOI_CANC_13 313 +#define F_STATOI_CANC_14 314 +#define F_STATOI_CANC_15 315 +#define F_STATOI_CANC_16 316 +#define F_STATOI_CANC_17 317 +#define F_STATOI_CANC_18 318 +#define F_STATOI_CANC_19 319 +#define F_STATOI_CANC_20 320 + +#define F_STATOI_ST_1 401 +#define F_STATOI_ST_2 402 +#define F_STATOI_ST_3 403 +#define F_STATOI_ST_4 404 +#define F_STATOI_ST_5 405 +#define F_STATOI_ST_6 406 +#define F_STATOI_ST_7 407 +#define F_STATOI_ST_8 408 +#define F_STATOI_ST_9 409 +#define F_STATOI_ST_10 410 +#define F_STATOI_ST_11 411 +#define F_STATOI_ST_12 412 +#define F_STATOI_ST_13 413 +#define F_STATOI_ST_14 414 +#define F_STATOI_ST_15 415 +#define F_STATOI_ST_16 416 +#define F_STATOI_ST_17 417 +#define F_STATOI_ST_18 418 +#define F_STATOI_ST_19 419 +#define F_STATOI_ST_20 420 + +#define F_IVA_NO 501 +#define F_IVA_RV 502 +#define F_IVA_ES 503 +#define F_IVA_NI 504 +#define F_IVA_NS 505 diff --git a/ve/vetbtip.uml b/ve/vetbtip.uml new file mode 100755 index 000000000..767bdcf38 --- /dev/null +++ b/ve/vetbtip.uml @@ -0,0 +1,1202 @@ +#include "vetbtip.h" + +TOOLBAR "" 0 20 60 2 + +#include "toolbar.h" + +ENDPAGE + +PAGE "Tipi documento" -1 -1 60 14 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "" + FLAG "R" +END + +STRING F_CODTAB 4 +BEGIN + PROMPT 2 1 "Codice " + FIELD CODTAB + USE %TIP + CHECKTYPE REQUIRED + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESNUM S0 + KEY 1 + FLAG "UZ" +END + +STRING F_DESNUM 50 +BEGIN + PROMPT 23 1 "" + FIELD S0 + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_DESNUM + DISPLAY "Descrizione@40" S0 + DISPLAY "Codice@10" CODTAB + COPY OUTPUT F_CODTAB + KEY 2 +END + +STRING F_RIFERIMENTO 50 +BEGIN + PROMPT 2 3 "Riferimento " + FIELD S1 + CHECKTYPE NORMAL +END + +LIST F_TIPO 24 +BEGIN + PROMPT 2 4 "Tipo documento " + FIELD I1 + ITEM "0|Altro" MESSAGE ENABLE,2@ + ITEM "1|Bolla" MESSAGE CLEAR,2@ + ITEM "2|Fattura" MESSAGE ENABLE,2@ + ITEM "3|Ordine" MESSAGE CLEAR,2@ +END + +STRING F_PROFILO 8 +BEGIN + PROMPT 2 5 "Profilo documento " + FIELD S4 + CHECKTYPE REQUIRED +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 6 "@bProfili di stampa" +END + +STRING F_PSTAMPA 8 +BEGIN + PROMPT 2 7 "Profilo stampa principale " + FIELD S5[1,8] +// CHECKTYPE REQUIRED + MESSAGE EMPTY CLEAR,4@ + MESSAGE ENABLE,4@ +END + +NUMBER F_NCOPIE 3 +BEGIN + PROMPT 42 7 "Numero di copie " + FIELD I0 + FLAGS "U" + WARNING "Il numero di copie deve essere positivo" +END + +STRING F_PSTAMPA2 8 +BEGIN + PROMPT 2 8 "Profilo stampa aggiuntivo " + FIELD S5[9,16] + GROUP 4 +END + +NUMBER F_NCOPIE2 3 +BEGIN + PROMPT 42 8 "Numero di copie " + FIELD I2 + FLAGS "U" + WARNING "Il numero di copie deve essere positivo" + GROUP 4 +END + +STRING F_CODCAUS 3 +BEGIN + PROMPT 2 10 "Causale contabile " + FIELD S6 + USE LF_CAUSALI + INPUT CODCAUS F_CODCAUS + DISPLAY "Codice" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCAUS CODCAUS + OUTPUT F_DESCAUS DESCR + CHECKTYPE NORMAL + FLAG "U" + GROUP 2 + ADD RUN CG0 -4 +END + +STRING F_DESCAUS 50 +BEGIN + PROMPT 26 10 "" + USE LF_CAUSALI KEY 2 + INPUT DESCR F_DESCAUS + DISPLAY "Descrizione@50" DESCR + DISPLAY "Codice" CODCAUS + OUTPUT F_DESCAUS DESCR + OUTPUT F_CODCAUS CODCAUS + CHECKTYPE NORMAL + GROUP 2 +END + +STRING F_CODCAUSANT 3 +BEGIN + PROMPT 2 11 "Causale anticipo " + FIELD S10 + USE LF_CAUSALI SELECT REG =="" + INPUT CODCAUS F_CODCAUSANT + DISPLAY "Codice" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODCAUSANT CODCAUS + OUTPUT F_DESCAUSANT DESCR + CHECKTYPE NORMAL + FLAG "U" + GROUP 2 +END + +STRING F_DESCAUSANT 50 +BEGIN + PROMPT 26 11 "" + USE LF_CAUSALI KEY 2 + INPUT DESCR F_DESCAUSANT + DISPLAY "Descrizione@50" DESCR + DISPLAY "Codice" CODCAUS + OUTPUT F_DESCAUSANT DESCR + OUTPUT F_CODCAUSANT CODCAUS + CHECKTYPE NORMAL + GROUP 2 +END + +BOOLEAN F_NOTACREDDEB +BEGIN + PROMPT 2 12 "Nota di credito/debito" + FIELD B7 +END + +BOOLEAN F_LORDO +BEGIN + PROMPT 40 12 "Calcolo importi al lordo" + FIELD B8 + MESSAGE TRUE CLEAR,F_FATCOM + MESSAGE FALSE ENABLE,F_FATCOM +END + +BOOLEAN F_SPESEAUT +BEGIN + PROMPT 2 13 "Addebito automatico spese cliente" + FIELD B0 +END + +BOOLEAN F_FATCOM +BEGIN + PROMPT 40 13 "Calcolo fattura commerciale" + FIELD B9 +END + +BOOLEAN F_MOVMAG +BEGIN + PROMPT 2 14 "Mov. mag. a partire dallo stato " + FIELD B1 + MESSAGE FALSE CLEAR,1@ + MESSAGE TRUE ENABLE,1@ + MESSAGE FALSE CLEAR,1@ + MESSAGE TRUE ENABLE,1@ +END + +STRING F_STATO_MOV_I 1 +BEGIN + PROMPT 38 14 "" + FIELD S7 + USE %STD + INPUT CODTAB F_STATO_MOV_I + DISPLAY "Stato" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_STATO_MOV_I CODTAB + CHECKYTPE NORMAL + FLAGS "U" + GROUP 1 + WARNING "Stato finale impossibile" +END + +STRING F_STATO_MOV_F 1 +BEGIN + PROMPT 42 14 "allo stato " + FIELD S8 + COPY USE F_STATO_MOV_I + INPUT CODTAB F_STATO_MOV_F + COPY DISPLAY F_STATO_MOV_I + OUTPUT F_STATO_MOV_F CODTAB + CHECKYTPE NORMAL + FLAGS "U" + GROUP 1 + STR_EXPR {(#THIS_FIELD=="") || (#THIS_FIELD >= #F_STATO_MOV_I)} + WARNING "Stato finale impossibile" +END + +BOOLEAN F_SCARES +BEGIN + PROMPT 58 14 "Scarica il residuo" + FIELD B4 + GROUP 1 +END + +STRING F_CAUS_MAG 5 +BEGIN + PROMPT 2 15 "Causale magazzino " + FIELD S9 + USE %CAU + INPUT CODTAB F_CAUS_MAG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CAUS_MAG CODTAB + OUTPUT F_DESCAUS_MAG S0 + CHECKYTPE REQUIRED + FLAGS "U" + ADD RUN mg0 -0 %CAU + GROUP 1 +END + +STRING F_DESCAUS_MAG 50 48 +BEGIN + PROMPT 28 15 "" + USE %CAU KEY 2 + INPUT S0 F_DESCAUS_MAG + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CAUS_MAG + ADD RUN mg0 -0 %CAU + CHECKTYPE NORMAL + GROUP 1 +END + +BOOLEAN F_STATV +BEGIN + PROMPT 2 16 "Attivo per le statistiche di vendita" + FIELD B2 +END + +BOOLEAN F_CLIFO_OPT +BEGIN + PROMPT 44 16 "Cliente/Fornitore non obbligatorio" + FIELD B5 +END + +BOOLEAN F_PROVV +BEGIN + PROMPT 2 17 "Attivo per le provvigioni" + FIELD B3 + MESSAGE FALSE CLEAR,3@ + MESSAGE TRUE ENABLE,3@ +END + +STRING F_STATO_PROVV 1 +BEGIN + PROMPT 44 17 "Stato " + FIELD S3 + USE %STD + INPUT CODTAB F_STATO_PROVV + DISPLAY "Stato" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_STATO_PROVV CODTAB + CHECKYTPE NORMAL + FLAGS "U" + GROUP 3 + WARNING "Stato impossibile" +END + +BOOLEAN F_CONAI +BEGIN + PROMPT 2 18 "Addebito CONAI" + FIELD B6 +END + +STRING F_NATURA 1 +BEGIN + PROMPT 44 18 "Natura transazione " + FLAGS "U" + USE %INT + INPUT CODTAB F_NATURA + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_NATURA CODTAB + FIELD S3[4,4] +END + +ENDPAGE + +PAGE "Stati validi" -1 -1 60 14 + +STRING F_STATOF_INS 1 +BEGIN + PROMPT 1 1 "Inserimento " + FIELD S2[1,1] + USE %STD + INPUT CODTAB F_STATOF_INS + DISPLAY "Stato" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_STATOF_INS CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato finale assente" +END + +STRING F_STATOF_ST 1 +BEGIN + PROMPT 29 1 "Stampa definitiva " + FIELD S2[2,2] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOF_ST + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOF_ST CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato finale assente" +END + +STRING F_STATOBLC 1 +BEGIN + PROMPT 62 1 "Bloccato " + FIELD S2[3,3] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOBLC + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOBLC CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + + +GROUPBOX DLG_NULL 75 6 +BEGIN + PROMPT 1 2 "Stati validi per la modifica" +END + +STRING F_STATOI_MOD_1 1 +BEGIN + PROMPT 2 3 "1 " + FIELD S2[10,10] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_1 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_1 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_2 1 +BEGIN + PROMPT 17 3 "2 " + FIELD S2[11,11] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_2 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_2 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_3 1 +BEGIN + PROMPT 32 3 "3 " + FIELD S2[12,12] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_3 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_3 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_4 1 +BEGIN + PROMPT 47 3 "4 " + FIELD S2[13,13] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_4 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_4 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_5 1 +BEGIN + PROMPT 62 3 "5 " + FIELD S2[14,14] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_5 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_5 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_6 1 +BEGIN + PROMPT 2 4 "6 " + FIELD S2[15,15] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_6 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_6 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_7 1 +BEGIN + PROMPT 17 4 "7 " + FIELD S2[16,16] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_7 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_7 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_8 1 +BEGIN + PROMPT 32 4 "8 " + FIELD S2[17,17] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_8 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_8 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_9 1 +BEGIN + PROMPT 47 4 "9 " + FIELD S2[18,18] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_9 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_9 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_10 1 +BEGIN + PROMPT 62 4 "10 " + FIELD S2[19,19] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_10 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_10 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_11 1 +BEGIN + PROMPT 2 5 "11 " + FIELD S2[20,20] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_11 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_11 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_12 1 +BEGIN + PROMPT 17 5 "12 " + FIELD S2[21,21] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_12 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_12 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_13 1 +BEGIN + PROMPT 32 5 "13 " + FIELD S2[22,22] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_13 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_13 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_14 1 +BEGIN + PROMPT 47 5 "14 " + FIELD S2[23,23] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_14 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_14 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_15 1 +BEGIN + PROMPT 62 5 "15 " + FIELD S2[24,24] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_15 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_15 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_16 1 +BEGIN + PROMPT 2 6 "16 " + FIELD S2[25,25] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_16 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_16 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_17 1 +BEGIN + PROMPT 17 6 "17 " + FIELD S2[26,26] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_17 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_17 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_18 1 +BEGIN + PROMPT 32 6 "18 " + FIELD S2[27,27] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_18 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_18 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_19 1 +BEGIN + PROMPT 47 6 "19 " + FIELD S2[28,28] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_19 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_19 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_MOD_20 1 +BEGIN + PROMPT 62 6 "20 " + FIELD S2[29,29] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_MOD_20 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_MOD_20 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +GROUPBOX DLG_NULL 75 6 +BEGIN + PROMPT 1 8 "Stati validi per la cancellazione" +END + +STRING F_STATOI_CANC_1 1 +BEGIN + PROMPT 2 9 "1 " + FIELD S2[30,30] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_1 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_1 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_2 1 +BEGIN + PROMPT 17 9 "2 " + FIELD S2[31,31] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_2 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_2 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_3 1 +BEGIN + PROMPT 32 9 "3 " + FIELD S2[32,32] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_3 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_3 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_4 1 +BEGIN + PROMPT 47 9 "4 " + FIELD S2[33,33] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_4 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_4 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_5 1 +BEGIN + PROMPT 62 9 "5 " + FIELD S2[34,34] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_5 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_5 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_6 1 +BEGIN + PROMPT 2 10 "6 " + FIELD S2[35,35] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_6 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_6 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_7 1 +BEGIN + PROMPT 17 10 "7 " + FIELD S2[36,36] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_7 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_7 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_8 1 +BEGIN + PROMPT 32 10 "8 " + FIELD S2[37,37] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_8 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_8 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_9 1 +BEGIN + PROMPT 47 10 "9 " + FIELD S2[38,38] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_9 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_9 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_10 1 +BEGIN + PROMPT 62 10 "10 " + FIELD S2[39,39] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_10 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_10 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_11 1 +BEGIN + PROMPT 2 11 "11 " + FIELD S2[40,40] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_11 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_11 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_12 1 +BEGIN + PROMPT 17 11 "12 " + FIELD S2[41,41] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_12 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_12 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_13 1 +BEGIN + PROMPT 32 11 "13 " + FIELD S2[42,42] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_13 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_13 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_14 1 +BEGIN + PROMPT 47 11 "14 " + FIELD S2[43,43] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_14 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_14 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_15 1 +BEGIN + PROMPT 62 11 "15 " + FIELD S2[44,44] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_15 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_15 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_16 1 +BEGIN + PROMPT 2 12 "16 " + FIELD S2[45,45] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_16 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_16 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_17 1 +BEGIN + PROMPT 17 12 "17 " + FIELD S2[46,46] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_17 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_17 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_18 1 +BEGIN + PROMPT 32 12 "18 " + FIELD S2[47,47] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_18 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_18 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_19 1 +BEGIN + PROMPT 47 12 "19 " + FIELD S2[48,48] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_19 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_19 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_CANC_20 1 +BEGIN + PROMPT 62 12 "20 " + FIELD S2[49,49] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_CANC_20 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_CANC_20 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +GROUPBOX DLG_NULL 75 6 +BEGIN + PROMPT 1 14 "Stati validi per la stampa" +END + +STRING F_STATOI_ST_1 1 +BEGIN + PROMPT 2 15 "1 " + FIELD S2[50,50] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_1 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_1 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_2 1 +BEGIN + PROMPT 17 15 "2 " + FIELD S2[51,51] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_2 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_2 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_3 1 +BEGIN + PROMPT 32 15 "3 " + FIELD S2[52,52] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_3 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_3 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_4 1 +BEGIN + PROMPT 47 15 "4 " + FIELD S2[53,53] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_4 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_4 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_5 1 +BEGIN + PROMPT 62 15 "5 " + FIELD S2[54,54] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_5 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_5 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_6 1 +BEGIN + PROMPT 2 16 "6 " + FIELD S2[55,55] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_6 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_6 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_7 1 +BEGIN + PROMPT 17 16 "7 " + FIELD S2[56,56] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_7 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_7 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_8 1 +BEGIN + PROMPT 32 16 "8 " + FIELD S2[57,57] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_8 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_8 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_9 1 +BEGIN + PROMPT 47 16 "9 " + FIELD S2[58,58] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_9 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_9 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_10 1 +BEGIN + PROMPT 62 16 "10 " + FIELD S2[59,59] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_10 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_10 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_11 1 +BEGIN + PROMPT 2 17 "11 " + FIELD S2[60,60] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_11 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_11 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_12 1 +BEGIN + PROMPT 17 17 "12 " + FIELD S2[61,61] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_12 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_12 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_13 1 +BEGIN + PROMPT 32 17 "13 " + FIELD S2[62,62] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_13 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_13 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_14 1 +BEGIN + PROMPT 47 17 "14 " + FIELD S2[63,63] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_14 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_14 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_15 1 +BEGIN + PROMPT 62 17 "15 " + FIELD S2[64,64] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_15 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_15 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_16 1 +BEGIN + PROMPT 2 18 "16 " + FIELD S2[65,65] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_16 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_16 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_17 1 +BEGIN + PROMPT 17 18 "17 " + FIELD S2[66,66] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_17 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_17 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_18 1 +BEGIN + PROMPT 32 18 "18 " + FIELD S2[67,67] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_18 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_18 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_19 1 +BEGIN + PROMPT 47 18 "19 " + FIELD S2[68,68] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_19 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_19 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +STRING F_STATOI_ST_20 1 +BEGIN + PROMPT 62 18 "20 " + FIELD S2[69,69] + COPY USE F_STATOF_INS + INPUT CODTAB F_STATOI_ST_20 + COPY DISPLAY F_STATOF_INS + OUTPUT F_STATOI_ST_20 CODTAB + CHECKYTPE NORMAL + FLAGS "U" + WARNING "Stato assente" +END + +ENDPAGE + + +PAGE "Codici IVA" -1 -1 60 14 + +GROUPBOX DLG_NULL 32 7 +BEGIN + PROMPT 1 1 "@bCodici iva ammessi" +EN + +BOOLEAN F_IVA_NO +BEGIN + PROMPT 2 2 "Regime Normale" + FIELD S11[1,1] +END + +BOOLEAN F_IVA_RV +BEGIN + PROMPT 2 3 "Ricavi da ventilare" + FIELD S11[2,2] +END + +BOOLEAN F_IVA_ES +BEGIN + PROMPT 2 4 "Operazioni esenti" + FIELD S11[3,3] +END + +BOOLEAN F_IVA_NI +BEGIN + PROMPT 2 5 "Non imponibili" + FIELD S11[4,4] +END + +BOOLEAN F_IVA_NS +BEGIN + PROMPT 2 6 "Non soggetti" + FIELD S11[5,5] +END + +ENDPAGE + +ENDMASK diff --git a/ve/vetbtri.h b/ve/vetbtri.h new file mode 100755 index 000000000..7226b09cc --- /dev/null +++ b/ve/vetbtri.h @@ -0,0 +1,7 @@ +#define F_CODICE 101 +#define F_DESCR 102 +#define F_TPR 103 +#define F_FORMFEED 104 +#define F_IND 105 +#define F_DESIND 106 +#define F_PERIND 107 diff --git a/ve/vetbtri.uml b/ve/vetbtri.uml new file mode 100755 index 000000000..610d14220 --- /dev/null +++ b/ve/vetbtri.uml @@ -0,0 +1,90 @@ +#include "vetbtri.h" +TOOLBAR "" 0 20 60 2 + +#include "toolbar.h" + +ENDPAGE +PAGE "Tipo di riga" -1 -1 60 14 + + GROUPBOX DLG_NULL 75 7 + BEGIN + PROMPT 1 0 "" + FLAGS "R" + END + + STRING F_CODICE 4 + BEGIN + PROMPT 2 2 "Codice " + FIELD CODTAB + FLAGS "U" + USE %TRI + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED + KEY 1 + END + + STRING F_DESCR 50 + BEGIN + PROMPT 2 4 "Descrizione " + FIELD S0 + USE %TRI KEY 2 + INPUT S0 F_DESCR + COPY DISPLAY F_CODICE + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED + KEY 2 + END + + LIST F_TPR 16 + BEGIN + PROMPT 2 8 "Tipo " + ITEMS "M|Merce" + ITEMS "S|Spese" + ITEMS "P|Prestazioni" + ITEMS "R|Risorse" + ITEMS "A|Attrezzature" + ITEMS "C|Sconti" + ITEMS "O|Omaggi" + ITEMS "D|Descrizioni" + FIELD S7 + END + +BOOLEAN F_FORMFEED +BEGIN + PROMPT 2 10 "Salto pagina dopo questo tipo" + FIELD B0 +END + +NUMBER F_IND 1 +BEGIN + PROMPT 2 12 "Detraibilita' " + SHEET "Codice|Tipo detraibilita'@75" + INPUT F_IND + ITEM " |Regime normale" + ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti" + ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione" + ITEM "9|IVA non detraibile per l'articolo 19" + OUTPUT F_IND + OUTPUT F_DESIND + FIELD I0 +END + +STRING F_DESIND 75 50 +BEGIN + PROMPT 20 12 "" + FLAGS "D" +END + +NUMBER F_PERIND 6 2 +BEGIN + PROMPT 2 14 "% Indetraib. " + FIELD R0 +END + +ENDPAGE + +ENDMASK