From 1190f1b1324636728b978ccb0d11715952ff7dff Mon Sep 17 00:00:00 2001
From: nik <nik@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 25 Oct 1994 17:44:56 +0000
Subject: [PATCH] Aggiunto il codice causale e la descrizione sulla 2a pagina

git-svn-id: svn://10.65.10.50/trunk@459 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cg0500.h    |  2 ++
 cg/cg0500a.uml | 61 +++++++++++++++++++++++++++++++++-----------------
 2 files changed, 42 insertions(+), 21 deletions(-)

diff --git a/cg/cg0500.h b/cg/cg0500.h
index 4a673b203..6d89f5fec 100755
--- a/cg/cg0500.h
+++ b/cg/cg0500.h
@@ -26,3 +26,5 @@
 #define F_OP_FINE_ANNO 123
 #define F_VALINTRA 124
 #define F_CORRISP 125
+#define F_COD_CAUS2 126
+#define F_DESCR2    127
diff --git a/cg/cg0500a.uml b/cg/cg0500a.uml
index fadab63dd..977f162e1 100755
--- a/cg/cg0500a.uml
+++ b/cg/cg0500a.uml
@@ -25,35 +25,36 @@ BEGIN
   DISPLAY "Descrizione @50" DESCR
   DISPLAY "Documento" TIPODOC
   DISPLAY "Registro" REG
-  DISPLAY "Movimento" TIPOMOV
+  DISPLAY "Tipo movimento" TIPOMOV
   OUTPUT F_COD_CAUS CODCAUS
   OUTPUT F_DESCR DESCR
   HELP "Codice causale"
   CHECKTYPE REQUIRED
+  MESSAGE COPY, F_COD_CAUS2
 END
 
 STRING F_DESCR 40
 BEGIN
   PROMPT 17 1 "Descrizione "
   FIELD LF_CAUSALI->DESCR
-  USE LF_CAUSALI KEY 2
+  COPY USE F_COD_CAUS
   INPUT CODCAUS F_COD_CAUS
   INPUT DESCR F_DESCR
-  DISPLAY "Descrizione @50" DESCR
   DISPLAY "Codice" CODCAUS
+  DISPLAY "Descrizione @50" DESCR
   DISPLAY "Documento" TIPODOC
   DISPLAY "Registro" REG
   DISPLAY "Movimento" TIPOMOV
   OUTPUT F_COD_CAUS CODCAUS
   OUTPUT F_DESCR DESCR
   HELP "Descrizione della causale"
+  MESSAGE COPY, F_DESCR2
 END
 
 STRING F_TIPO_DOC 2
 BEGIN
   PROMPT 2 4 "Tipo doc. "
   FIELD LF_CAUSALI->TIPODOC
-  FLAGS "U"
   USE %TPD
   INPUT CODTAB F_TIPO_DOC
   DISPLAY "Tipo " CODTAB
@@ -63,6 +64,7 @@ BEGIN
   CHECKTYPE NORMAL
 //  MESSAGE SHOW, 2@
 //  MESSAGE EMPTY HIDE, 2@
+  FLAGS "U"
 END
 
 STRING F_COD_REG 3
@@ -157,12 +159,12 @@ BEGIN
   PROMPT 0 7 ""
   ITEM "Tipo conto@21F"
   ITEM "C/F"
-  ITEM "Gr.@3"
-  ITEM "Co.@3"
+  ITEM "Gr."
+  ITEM "Co."
   ITEM "Sottoc.@6"
-  ITEM "D/A@1"
+  ITEM "D/A"
   ITEM "Descrizione conto@50"
-  ITEM "Descr. agg.@5"
+  ITEM "Descr. agg."
   ITEM "Iva"
   ITEM "Cod.Iva@4"
 END
@@ -176,9 +178,26 @@ BEGIN
   PROMPT 1 0 "@BCampi obbligatori in immissione documenti"
 END
 
+STRING F_COD_CAUS2 3
+BEGIN
+  PROMPT 3 1 "Codice "
+  FLAGS "D"
+END
+
+STRING F_DESCR2 40
+BEGIN
+  PROMPT 17 1 "Descrizione "
+  FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 3 "@BCampi obbligatori in caricamento documenti"
+END
+
 BOOLEAN F_DATA_DOC
 BEGIN
-  PROMPT 2 1 "Data documento"
+  PROMPT 2 4 "Data documento"
   FIELD LF_CAUSALI->DATADOC
   HELP ""
   CHECKTYPE NORMAL
@@ -186,14 +205,14 @@ END
 
 BOOLEAN F_NUM_DOC
 BEGIN
-  PROMPT 34 1 "Numero documento"
+  PROMPT 34 4 "Numero documento"
   FIELD LF_CAUSALI->NUMDOC
   CHECKTYPE NORMAL
 END
 
 BOOLEAN F_AUTO_FAT
 BEGIN
-  PROMPT 2 4 "Autofattura art.34"
+  PROMPT 2 6 "Autofattura art.34"
   FIELD LF_CAUSALI->AUTOFATT 
   CHECKTYPE NORMAL
   GROUP 2
@@ -201,21 +220,21 @@ END
 
 BOOLEAN F_ALLEGAT
 BEGIN
-  PROMPT 34 4 "Doc. non va in allegati fine anno"
+  PROMPT 34 6 "Doc. non va in allegati fine anno"
   FIELD LF_CAUSALI->ALLEG
   GROUP 2
 END
 
 BOOLEAN F_FAT_RITARDO
 BEGIN
-  PROMPT 2 6 "Fattura in ritardo"
+  PROMPT 2 8 "Fattura in ritardo"
   FIELD LF_CAUSALI->RITFATT
   GROUP 2
 END
 
 STRING F_COD_CAUS_IM 3
 BEGIN
-  PROMPT 34 6 "Codice causale per l'incasso immediato "
+  PROMPT 34 8 "Codice causale per l'incasso immediato "
   FLAGS "U"
   FIELD LF_CAUSALI->CODCAUSIM
   COPY USE F_COD_CAUS
@@ -229,7 +248,7 @@ END
 
 BOOLEAN F_OP_INTRACOM
 BEGIN
-  PROMPT 2 8 "Operazione intracomunitaria"
+  PROMPT 2 10 "Operazione intracomunitaria"
   FIELD LF_CAUSALI->INTRACOM
 //  MESSAGE TRUE "X", F_MOV_VALU | DISABLE, F_MOV_VALU
 //  MESSAGE FALSE "", F_MOV_VALU | ENABLE, F_MOV_VALU
@@ -238,28 +257,28 @@ END
 
 BOOLEAN F_VALINTRA
 BEGIN
-  PROMPT 34 8 "Gestione valuta per operazioni intrac."
+  PROMPT 34 10 "Gestione valuta per operazioni intrac."
   FIELD LF_CAUSALI->VALINTRA
   GROUP 2
 END
 
 BOOLEAN F_MOV_VALU
 BEGIN
-  PROMPT 2 10 "Movimento in valuta"
+  PROMPT 2 12 "Movimento in valuta"
   FIELD LF_CAUSALI->MOVVAL
   GROUP 2
 END
 
 BOOLEAN F_MOV_SEZ
 BEGIN
-  PROMPT 34 10 "Movimento solo sezionale"
+  PROMPT 34 12 "Movimento solo sezionale"
   FIELD LF_CAUSALI->MOVSEZ
   FLAGS "H"
 END
 
-LISTBOX F_OP_FINE_ANNO 1 10
+LISTBOX F_OP_FINE_ANNO 1 11
 BEGIN
-  PROMPT 2 12 "Operazioni di fine anno "
+  PROMPT 2 14 "Operazioni di fine anno "
   ITEM " | "
   ITEM "C|Chiusura"
   ITEM "A|Apertura"
@@ -270,7 +289,7 @@ END
 
 LISTBOX F_COLL_CESP 1 40
 BEGIN
-  PROMPT 2 14 "Collegamento cespiti "
+  PROMPT 2 16 "Collegamento cespiti "
   FIELD LF_CAUSALI->COLLCESP
   HELP "Inserire il tipo di collegamento cespiti"
   ITEM " |Nessuno"