Arrivata la maschera giusta

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

ba/batbtra.uml

@@ -1,14 +1,124 @@
-// Campi maschera tabella di trasferimento per ditta
+#include "batbtra.h"
 
-#define F_NOMEID        101
-#define F_CODDITTAINV   102
-#define F_CODDITTARIC   103
-#define F_AGGCAUSALI    104
-#define F_AGGCLIFO      105
-#define F_AGGPCON       106
-#define F_AGGIVD        107
-#define F_FATTEM        108
-#define F_FATTRIC       109
-#define F_NUMULTRAS     110
-#define F_DATAULTRAS    111 
-#define F_RAGSOC        112
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Tabella ditte per trasferimento" -1 -1 78 18
+
+STRING F_NOMEID 10
+BEGIN
+  PROMPT 1 1 "Nome simbolico sistema inviante "
+  FIELD %TRA->CODTAB[1,10]
+  FLAGS "ZU"
+  KEY 1
+  USE %TRA 
+  INPUT CODTAB[1,10] F_NOMEID
+  DISPLAY "Nome identificazione" CODTAB[1,10]
+  DISPLAY "Cod.Ditta inviante" CODTAB[11,15]
+  DISPLAY "Cod.Ditta ricevente" I0
+  OUTPUT F_NOMEID CODTAB[1,10]
+  OUTPUT F_CODDITTAINV CODTAB[11,15]
+  CHECKTYPE REQUIRED
+  END
+  
+NUMBER F_CODDITTAINV 5
+BEGIN
+  PROMPT 1 2 "Codice ditta inviante           "
+  FIELD %TRA->CODTAB[11,15]
+  FLAGS "Z"
+  KEY 1 
+  COPY USE F_NOMEID
+  INPUT CODTAB[1,10] F_NOMEID
+  INPUT CODTAB[11,15] F_CODDITTAINV
+  COPY DISPLAY F_NOMEID
+  COPY OUTPUT F_NOMEID
+  CHECKTYPE REQUIRED
+  END
+  
+NUMBER F_CODDITTARIC 5
+BEGIN
+  PROMPT 1 4 "Ditta ricevente "
+  FIELD %TRA->I0 
+  USE LF_NDITTE KEY 1
+  INPUT CODDITTA F_CODDITTARIC
+  DISPLAY "Ditta" CODDITTA
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  OUTPUT F_CODDITTARIC CODDITTA
+  OUTPUT F_RAGSOC RAGSOC
+  FLAGS "RZ"
+  CHECKTYPE REQUIRED
+  END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 26 4 ""
+  FLAGS "D"
+  END
+  
+LIST F_AGGCAUSALI 6
+BEGIN 
+  PROMPT 1 6 "Aggiornamento causali gia' presenti                "
+  FIELD %TRA->S0
+  ITEMS "N|No"
+  ITEMS "D|Descr."
+  ITEMS "T|Tutto"
+END
+
+LIST F_AGGCLIFO 6
+BEGIN 
+  PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti      "
+  FIELD %TRA->S1
+  ITEMS "N|No"
+  ITEMS "D|Descr."
+  ITEMS "T|Tutto"
+END
+
+LIST F_AGGPCON 6
+BEGIN 
+  PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti   "
+  FIELD %TRA->S2
+  ITEMS "N|No"
+  ITEMS "D|Descr."
+  ITEMS "T|Tutto"
+END
+
+LIST F_AGGIVD 6
+BEGIN 
+  PROMPT 1 9 "Aggiornamento classi Piano dei Conti               "
+  FIELD %TRA->S3
+  ITEMS "N|No"
+  ITEMS "T|Tutto"
+END
+
+BOOLEAN F_FATTEM 
+BEGIN 
+  PROMPT 1 10 "Riattribuzione num. protocollo su fatture emesse   "
+  FIELD %TRA->B0
+  FLAGS "D"
+END
+
+BOOLEAN F_FATTRIC 
+BEGIN 
+  PROMPT 1 11 "Riattribuzione num. protocollo su fatture ricevute "
+  FIELD %TRA->B1
+  FLAGS "D"
+END
+
+NUMBER F_NUMULTRAS 3
+BEGIN
+  PROMPT 1 13 "Numero ultimo invio ricevuto "
+  FIELD %TRA->I1
+END
+
+DATE F_DATAULTRAS 
+BEGIN
+  PROMPT 39 13 "Data ultimo invio ricevuto "
+  FIELD %TRA->D0
+END
+
+ENPAGE
+
+ENDMASK