Rinominata la maschera ve6000.uml in ve6200a.uml. Rimossi alcuni cadaveri

di ve6: ve6000a


git-svn-id: svn://10.65.10.50/trunk@3450 c028cbd2-c16b-5b4b-a496-9718f37d4682

ve/ve6100a.h

@@ -1,4 +1,4 @@
-// Include file per ve6000.uml
+// Include file per ve6100a.uml
 
 #define F_CODICE_ELAB           101
 #define F_DESC_ELAB             102

ve/ve6200.cpp

@@ -5,7 +5,7 @@
 
 #include "velib01.h" 
 
-#include "ve6000.h"
+#include "ve6200a.h"
 
 class TFatturazione_bolle_app : public TApplication
 { 
@@ -43,7 +43,7 @@ bool TFatturazione_bolle_app::create()
 
 bool TFatturazione_bolle_app::menu(MENU_TAG)
 {
-  TMask m("ve6000");
+  TMask m("ve6200a");
   while (m.run() == K_ENTER)
   {                              
     TIndwin iw(48, "Inizializzazione ...", TRUE, FALSE, 48);

ve/ve6200a.h

@@ -0,0 +1,17 @@
+// Include file per ve6200a.uml
+
+#define F_DATA_ELAB             101
+#define F_CODICE_CLIFO_DA       102
+#define F_CODICE_CLIFO_A        103
+#define F_DATA_DOCUMENTO_DA     104
+#define F_DATA_DOCUMENTO_A      105
+#define F_CODICE_AGENTE_DA      106
+#define F_CODICE_AGENTE_A       107
+#define F_CODICE_ZONA_DA        108
+#define F_CODICE_ZONA_A         109
+#define F_NUMERO_DOCUMENTO_DA   110
+#define F_NUMERO_DOCUMENTO_A    111
+#define F_ORDINAMENTO           112
+#define F_CODICE_ELAB           113
+#define F_ANNO_ELAB             114
+#define F_CODICE_NUMERAZIONE    115

ve/ve6200a.uml

@@ -0,0 +1,195 @@
+#include "ve6200a.h"
+
+PAGE "Fatturazione" -1 -1 70 15
+
+STRING F_CODICE_ELAB 8
+BEGIN
+  PROMPT 1 1 "Codice elaborazione differita "
+  FLAG "U"
+  USE %ELD
+  INPUT CODTAB F_CODICE_ELAB
+  DISPLAY "Codice@8" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODICE_ELAB CODTAB
+  CHECKTYPE REQUIRED
+END
+
+DATE F_DATA_ELAB
+BEGIN
+  PROMPT 13 2 "Data elaborazione "
+  FLAG "A"
+  VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_A
+  WARNING "Specificare una data maggiore o uguale a 'a data documento'"
+  CHECKTYPE REQUIRED
+  MESSAGE COPY,F_ANNO_ELAB,7,10
+END
+
+NUMBER F_ANNO_ELAB 4
+BEGIN
+  PROMPT 43 2 "Anno "
+  FLAG "D"
+END
+
+GROUPBOX DLG_NULL 68 10
+BEGIN
+   PROMPT 1 4 "Estremi dei documenti da elaborare:"
+END
+
+RADIOBUTTON F_ORDINAMENTO 16
+BEGIN
+  PROMPT 3 5 "Ordinamento per"
+  ITEM "C|Clienti"
+    MESSAGE ENABLE,1@|CLEAR,2@|CLEAR,3@
+  ITEM "A|Agenti"
+    MESSAGE CLEAR,1@|ENABLE,2@|CLEAR,3@
+  ITEM "Z|Zone"
+    MESSAGE CLEAR,1@|CLEAR,2@|ENABLE,3@
+END
+
+NUMBER F_CODICE_CLIFO_DA 6
+BEGIN
+  PROMPT 20 6 "da codice cliente   "
+  FLAG "UR"
+  USE LF_CLIFO
+  INPUT TIPOCF "C"
+  INPUT CODCF F_CODICE_CLIFO_DA
+  DISPLAY "Codice cliente," CODCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_CODICE_CLIFO_DA CODCF
+  GROUP 1
+END
+
+NUMBER F_CODICE_CLIFO_A 6
+BEGIN
+  PROMPT 55 6 "a "
+  FLAG "UR"
+  USE LF_CLIFO
+  INPUT TIPOCF "C"
+  INPUT CODCF F_CODICE_CLIFO_A
+  COPY DISPLAY F_CODICE_CLIFO_DA
+  OUTPUT F_CODICE_CLIFO_A CODCF
+  NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA
+  WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'"
+  GROUP 1
+END
+
+STRING F_CODICE_AGENTE_DA 5
+BEGIN
+  PROMPT 20 7 "da codice agente    "
+  FLAG "UR"
+  USE AGE
+  INPUT CODTAB F_CODICE_AGENTE_DA
+  DISPLAY "Codice agente" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODICE_AGENTE_DA CODTAB
+  GROUP 2
+END
+
+STRING F_CODICE_AGENTE_A 5
+BEGIN
+  PROMPT 55 7 "a "
+  FLAG "UR"
+  USE AGE
+  INPUT CODTAB F_CODICE_AGENTE_A
+  COPY DISPLAY F_CODICE_AGENTE_DA
+  OUTPUT F_CODICE_AGENTE_A CODTAB
+  NUM_EXPR #F_CODICE_AGENTE_A>=#F_CODICE_AGENTE_DA
+  WARNING "Digitare un codice maggiore o uguale al campo 'da codice agente'"
+  GROUP 2
+END
+
+STRING F_CODICE_ZONA_DA 2
+BEGIN
+  PROMPT 20 8 "da codice zona      "
+  FLAG "UR"
+  USE ZON
+  INPUT CODTAB F_CODICE_ZONA_DA
+  DISPLAY "Codice Zona" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODICE_ZONA_DA CODTAB
+  GROUP 3
+END
+
+STRING F_CODICE_ZONA_A 2
+BEGIN
+  PROMPT 55 8 "a "
+  FLAG "UR"
+  USE ZON
+  INPUT CODTAB F_CODICE_ZONA_A
+  COPY DISPLAY F_CODICE_ZONA_DA
+  OUTPUT F_CODICE_ZONA_A CODTAB
+  STR_EXPR #F_CODICE_ZONA_A>=#F_CODICE_ZONA_DA
+  WARNING "Digitare un codice maggiore o uguale al campo 'da codice zona'"
+  GROUP 3
+END
+
+DATE F_DATA_DOCUMENTO_DA
+BEGIN
+  PROMPT 20 10 "da data documento   "
+  WARNING "E' necessario specificare una data"
+END
+
+DATE F_DATA_DOCUMENTO_A
+BEGIN
+  PROMPT 55 10 "a "
+  VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_DA
+  WARNING "Specificare una data maggiore o uguale a 'da data documento'"
+END
+
+STRING F_CODICE_NUMERAZIONE 4
+BEGIN
+  PROMPT 20 11 "Codice numerazione  "
+  FLAG "UZ"
+  USE %NUM
+  INPUT CODTAB F_CODICE_NUMERAZIONE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODICE_NUMERAZIONE CODTAB
+  CHECKTYPE NORMAL
+  MESSAGE EMPTY CLEAR,F_NUMERO_DOCUMENTO_DA|CLEAR,F_NUMERO_DOCUMENTO_A
+  MESSAGE ENABLE,F_NUMERO_DOCUMENTO_DA|ENABLE,F_NUMERO_DOCUMENTO_A
+END
+
+NUMBER F_NUMERO_DOCUMENTO_DA 7
+BEGIN
+  PROMPT 20 12 "da numero documento "
+  USE LF_DOC   
+    JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC
+    JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
+  INPUT PROVV "D"
+  INPUT ANNO F_ANNO_ELAB SELECT
+  INPUT CODNUM F_CODICE_NUMERAZIONE SELECT
+  INPUT NDOC F_NUMERO_DOCUMENTO_DA
+  DISPLAY "Numero" NDOC
+  DISPLAY "Tipo@50" 104@->S0
+  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
+  OUTPUT F_NUMERO_DOCUMENTO_DA NDOC
+END
+
+NUMBER F_NUMERO_DOCUMENTO_A 7
+BEGIN
+  PROMPT 55 12 "a "
+  COPY USE F_NUMERO_DOCUMENTO_DA
+  INPUT PROVV "D"
+  INPUT ANNO F_ANNO_ELAB SELECT
+  INPUT CODNUM F_CODICE_NUMERAZIONE SELECT
+  INPUT NDOC F_NUMERO_DOCUMENTO_A
+  COPY DISPLAY F_NUMERO_DOCUMENTO_DA
+  OUTPUT F_NUMERO_DOCUMENTO_A NDOC
+  NUM_EXPR (#THIS_FIELD==0)||(#THIS_FIELD>=#F_NUMERO_DOCUMENTO_DA)
+  WARNING "Specificare un numero documento superiore a quello di partenza"
+END
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -12 -1 ""
+END
+
+BUTTON DLG_QUIT 10 2
+BEGIN
+  PROMPT -22 -1 ""
+END
+
+ENDPAGE
+
+ENDMASK

ve/ve6gen.cpp

@@ -11,7 +11,7 @@
 #include <execp.h>
 #include "ve6retv.h"            // definizione dei valori di ritorno
 #include "ve6.h"
-#include "ve6000.h"                     // identificativi dei campi della maschera
+#include "ve6200a.h"                     // identificativi dei campi della maschera
 #include "ve6gen.h"                     // dichiarazione della classe
 
 bool TElaborazioni::errore_fatale (int err)