From d6451aad162d727ed5adbeb5e9ee4457bedf7cb9 Mon Sep 17 00:00:00 2001
From: villa <villa@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 28 Jul 1995 10:39:13 +0000
Subject: [PATCH] Inizio ristrutturazione apertura partite

git-svn-id: svn://10.65.10.50/trunk@1655 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 sc/sc1200.cpp  | 21 ++++++++++++++------
 sc/sc1200.h    |  4 ++++
 sc/sc1200a.uml | 52 ++++++++++++++++++++++++++++++++++++++------------
 3 files changed, 59 insertions(+), 18 deletions(-)

diff --git a/sc/sc1200.cpp b/sc/sc1200.cpp
index 633968ef1..4070f9581 100755
--- a/sc/sc1200.cpp
+++ b/sc/sc1200.cpp
@@ -68,7 +68,7 @@ long  TCreatepart_app::get_last_partita(bool zap)
   
   _partite->zero();
   _partite->put(PART_ANNO,    _anno);
-  _partite->put(PART_NUMPART, "AP");
+  _partite->put(PART_NUMPART, "*");
   
   long last = 0l;  
   bool go   = _partite->read(_isgteq) == NOERR;
@@ -135,13 +135,22 @@ bool TCreatepart_app::menu(MENU_TAG)
   TRelation saldi(LF_SALDI);
   saldi.zero();
   
-
+  TDate     data(TODAY);
+  TString80 desccl = "Apertura clienti al ";   desccl << data.string();
+  TString80 descfo = "Apertura fornitori al "; descfo << data.string();
+  
+  m.set(F_DESCCL, desccl);                                                               
+  m.set(F_DESCFO, descfo);                                                               
+  
   while (m.run() != K_QUIT) 
   {                 
     int n_part = 0;
-    TDate      data(m.get(F_DATA));
     TString16  codpag(m.get(F_CODPAG));
-
+    
+    desccl = m.get(F_DESCCL);
+    descfo = m.get(F_DESCFO);
+    
+    
     TPagamento pag(codpag, data.string()); 
     
     m.set(F_NUMPART, format("%d",n_part));
@@ -188,7 +197,7 @@ bool TCreatepart_app::menu(MENU_TAG)
             long last_partita = get_last_partita(hw == 0);
             
             // apri partita dimmerda              
-            id << format("AP%05ld", last_partita);
+            id << format("*%05ld", last_partita);
             
             _partite->zero();
             _partite->put(PART_ANNO,      _anno);
@@ -205,7 +214,7 @@ bool TCreatepart_app::menu(MENU_TAG)
             _partite->put(PART_GRUPPO,    gruppo);
             _partite->put(PART_CONTO,     conto);
             _partite->put(PART_SOTTOCONTO,sottoc);
-            _partite->put(PART_DESCR,     "Apertura partite da saldi contabili");
+            _partite->put(PART_DESCR,     cf == 'C' ? desccl : descfo);
             _partite->write();
             
             // apri scadenze dimmerda
diff --git a/sc/sc1200.h b/sc/sc1200.h
index d3f8f99f9..37e8741a5 100755
--- a/sc/sc1200.h
+++ b/sc/sc1200.h
@@ -2,3 +2,7 @@
 #define F_NUMPART 102       
 #define F_DATA    103  
 #define F_CODPAG  104      
+#define F_CAUSCL  105      
+#define F_CAUSFO  106      
+#define F_DESCCL  107      
+#define F_DESCFO  108      
diff --git a/sc/sc1200a.uml b/sc/sc1200a.uml
index 061124286..9d7064d99 100755
--- a/sc/sc1200a.uml
+++ b/sc/sc1200a.uml
@@ -1,8 +1,8 @@
 #include "sc1200.h"
 
-PAGE "Apertura partite da saldi contabili" -1 -1 51 12
+PAGE "Apertura partite da saldi contabili" -1 -1 71 14
 
-GROUPBOX DLG_NULL 49 6
+GROUPBOX DLG_NULL 69 6
 BEGIN
   PROMPT 1 0  ""
 END
@@ -10,22 +10,22 @@ END
 
 TEXT DLG_NULL
 BEGIN
-	PROMPT 20 1 "ATTENZIONE"
+	PROMPT 32 1 "@bATTENZIONE"
 END
 
 TEXT DLG_NULL
 BEGIN
-	PROMPT 4 3 "La generazione della partite puo' richiedere"
+	PROMPT 14 3 "@bLa generazione della partite puo' richiedere"
 END
 
 TEXT DLG_NULL
 BEGIN
-	PROMPT 7 4 "tempo. Siate certi di voler proseguire."
+	PROMPT 18 4 "@btempo. Siate certi di voler proseguire."
 END
 
 NUMBER F_ANNO 4
 BEGIN
-  PROMPT 1 6 "Anno esercizio    "
+  PROMPT 1 6   "Anno esercizio        "
   USE ESC
   INPUT CODTAB F_ANNO
   DISPLAY "Anno Esercizio" CODTAB
@@ -39,7 +39,7 @@ END
 
 STRING F_CODPAG 4
 BEGIN
-  PROMPT 27 6 "Pagamento      "
+  PROMPT 32 6 "Pagamento "
   HELP "Codice del pagamento concordato per il movimento"
   FIELD CODPAG
   FLAGS "UZ"
@@ -53,20 +53,48 @@ BEGIN
   WARNING "Codice pagamento obbligatorio"
 END
 
-
-DATE F_DATA
+STRING F_DESCCL 40
 BEGIN      
-  PROMPT 1 8 "Data scadenza "                     
+  PROMPT 1 7   "Descrizione clienti   "                     
   FLAGS "A"
 END
 
+STRING F_DESCFO 40
+BEGIN      
+  PROMPT 1 8   "Descrizione fornitori "                     
+  FLAGS "A"
+END
+
+STRING F_CAUSCL 3
+BEGIN                             
+	PROMPT 1 9 "Causale riferimento clienti   "
+	USE LF_CAUSALI SELECT MOVSEZ=="X"
+	DISPLAY "Codice" CODCAUS
+	DISPLAY "Descrizione@50" DESCR 
+	INPUT CODCAUS F_CAUSCL  
+	OUTPUT F_CAUSCL CODCAUS	
+	CHECKTYPE REQUIRED
+	ADD RUN cg0 -4
+END
+
+STRING F_CAUSFO 3
+BEGIN                             
+	PROMPT 1 10 "Causale riferimento fornitori "
+	COPY USE F_CAUSCL
+	DISPLAY "Codice" CODCAUS
+	DISPLAY "Descrizione@50" DESCR   
+    INPUT CODCAUS F_CAUSFO
+	OUTPUT F_CAUSFO CODCAUS
+	CHECKTYPE REQUIRED
+	ADD RUN cg0 -4
+END
+
 NUMBER F_NUMPART 3
 BEGIN      
-  PROMPT 27 8 "N. partite aperte " 
+  PROMPT 1 11 "N. partite aperte " 
   FLAGS "D"
 END
 
-
 BUTTON DLG_OK 9 2
 BEGIN
         PROMPT -12 -1 "Conferma"