Correzione MI3465 MI3466: aggiunta selezione tabella di

corrispondenza per trasferimento saldaconto extracontabile.


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

ba/batbind.h

@@ -16,4 +16,11 @@
 #define F_NOMEID      114  
 #define F_GHOST_FIELD 115
 #define F_BOLLATO     116
-#define F_CODICE      117
+#define F_CODICE      117
+#define F_CAU_FATT    118
+#define F_CAU_NC      119
+#define F_CAU_INC     120
+#define F_CAU_ABB     121
+#define F_CAU_INS     122
+#define F_CAU_PAGINS  123
+

ba/batbind.uml

@@ -1,12 +1,12 @@
 #include "batbind.h"
 
-TOOLBAR "" 0 18 0 2
+TOOLBAR "" 0 20 0 2
 
 #include <toolbar.h>
 
 ENDPAGE
 
-PAGE "Tabella ditte per invio" -1 -1 78 18
+PAGE "Tabella ditte per invio" -1 -1 78 20
 
 NUMBER F_DITTAINV 5
 BEGIN
@@ -35,87 +35,178 @@ END
 
 GROUPBOX DLG_NULL 76 8
 BEGIN
-  PROMPT 1 4 "Archivi da inviare"
+  PROMPT 1 3 "Archivi da inviare"
 END
 
 BOOLEAN F_CAUSALI
 BEGIN
-  PROMPT 2 5 "Tabella causali"
+  PROMPT 2 4 "Tabella causali"
   FIELD %IND->B0
 END
 
 BOOLEAN F_CLIFO
 BEGIN
-  PROMPT 2 6 "Anagrafica Clienti/Fornitori"
+  PROMPT 2 5 "Anagrafica Clienti/Fornitori"
   FIELD %IND->B1
 END
 
 BOOLEAN F_PCON
 BEGIN
-  PROMPT 2 7 "Anagrafica Piano dei Conti"
+  PROMPT 2 6 "Anagrafica Piano dei Conti"
   FIELD %IND->B2
 END
 
 BOOLEAN F_MOV
 BEGIN
-  PROMPT 2 8 "Movimenti Prima Nota"
+  PROMPT 2 7 "Movimenti Prima Nota"
   FIELD %IND->B3
 END
 
 BOOLEAN F_IVA
 BEGIN
-  PROMPT 2 9 "Movimenti Iva"
+  PROMPT 2 8 "Movimenti Iva"
   FIELD %IND->B4
 END
 
 BOOLEAN F_FATT
 BEGIN
-  PROMPT 2 10 "Scadenze Fattura / Pagamento Rate"
+  PROMPT 2 9 "Scadenze Fattura / Pagamento Rate"
   FIELD %IND->B5
+  MESSAGE TRUE ENABLE,1@
+  MESSAGE FALSE CLEAR,1@
 //  FLAGS "D"
 END
 
+GROUPBOX DLG_NULL 76 5
+BEGIN
+  PROMPT 1 11 "Causali di corrispondenza movimenti extracontabili"
+END
+
+STRING F_CAU_FATT 3
+BEGIN
+  FLAGS "UZ"
+  PROMPT 2 12 "Fattura             "
+  FIELD S5[1,3]
+  USE LF_CAUSALI SELECT TIPOMOV==1
+  INPUT CODCAUS F_CAU_FATT
+  DISPLAY "Codice causale" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_CAU_FATT CODCAUS 
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
+STRING F_CAU_NC 3
+BEGIN
+  FLAGS "UZ"
+  PROMPT 2 13 "Nota di credito     "
+  FIELD S5[4,6]
+  USE LF_CAUSALI SELECT TIPOMOV==2
+  INPUT CODCAUS F_CAU_NC
+  DISPLAY "Codice causale" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_CAU_NC CODCAUS 
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
+STRING F_CAU_INC 3
+BEGIN
+  FLAGS "UZ"
+  PROMPT 2 14 "Incasso/Pagamento   "
+  FIELD S5[7,9]
+  USE LF_CAUSALI SELECT TIPOMOV==3
+  INPUT CODCAUS F_CAU_INC
+  DISPLAY "Codice causale" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_CAU_INC CODCAUS 
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
+STRING F_CAU_ABB 3
+BEGIN
+  FLAGS "UZ"
+  PROMPT 40 12 "Abbuono             "
+  FIELD S5[10,12]
+  USE LF_CAUSALI SELECT TIPOMOV==4
+  INPUT CODCAUS F_CAU_ABB
+  DISPLAY "Codice causale" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_CAU_ABB CODCAUS 
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
+STRING F_CAU_INS 3
+BEGIN
+  FLAGS "UZ"
+  PROMPT 40 13 "Insoluto            "
+  FIELD S5[13,15]
+  USE LF_CAUSALI SELECT TIPOMOV==5
+  INPUT CODCAUS F_CAU_INS
+  DISPLAY "Codice causale" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_CAU_INS CODCAUS 
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
+STRING F_CAU_PAGINS 3
+BEGIN
+  FLAGS "UZ"
+  PROMPT 40 14 "Pagamento insoluto  "
+  FIELD S5[16,18]
+  USE LF_CAUSALI SELECT TIPOMOV==6
+  INPUT CODCAUS F_CAU_PAGINS
+  DISPLAY "Codice causale" CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_CAU_PAGINS CODCAUS 
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
 BOOLEAN F_BOLLATO
 BEGIN
-  PROMPT 1 12 "Imposta il flag di bollato"
+  PROMPT 1 16 "Imposta il flag di bollato"
   FIELD %IND->B7
 END
 
 NUMBER F_NUMULINV 3
 BEGIN
-  PROMPT 1 13 "N.ro ult.invio "
+  PROMPT 1 17 "N.ro ult.invio "
   FIELD %IND->I0
   FLAGS "RG"
 END
 
 DATE F_DATAULIN 
 BEGIN
-  PROMPT 46 13 "Data ultimo invio   "
+  PROMPT 46 17 "Data ultimo invio   "
   FIELD %IND->D0
   FLAGS "G"
 END
             
 STRING F_STATO 1
 BEGIN
-  PROMPT 1 14 "Stato ultimo   "
+  PROMPT 1 18 "Stato ultimo   "
   FIELD %IND->S6
   FLAGS "GU"
 END             
 
 STRING F_USELAB 1
 BEGIN
-  PROMPT 20 14 ""
+  PROMPT 20 18 ""
   FLAGS "GU"
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 1 15 "invio          "
+  PROMPT 1 19 "invio          "
 END
 
 STRING F_CHIAVE 60
 BEGIN
-  PROMPT 16 15 ""
+  PROMPT 16 19 ""
   FLAGS "GU"
 END
 
@@ -124,7 +215,7 @@ BEGIN
   PROMPT -1 -30 "" 
   FLAGS "DG"
 END
-                  
+
 ENDPAGE
 
 ENDMASK