Patch level : 10.0 004

Files correlati     : Postman
Ricompilazione Demo : [ ]
Commento           :

Terminata la geenerzione dei percipienti da cliente


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

cg/cg0200.cpp

@@ -325,7 +325,11 @@ bool TClifo_application::crea_percipienti(TMask_field& f, KEY key)
 		anag.put(ANA_CODANAGR, percip);
 		anag.put(ANA_COFI, m.get(F_COFI));
 		anag.put(ANA_PAIV, m.get(F_PAIV));
-		anag.put(ANA_RAGSOC, m.get(F_RAGSOC));
+		TString80 ragsoc(m.get(F_RAGSOC));
+		
+		ragsoc.rpad(30);
+		ragsoc << m.get(F_RAGSOCA);
+		anag.put(ANA_RAGSOC, ragsoc);
 		anag.put(ANA_STATORES, m.get(F_STATOCF));
 		anag.put(ANA_COMRES, m.get(F_COMCF));
 		anag.put(ANA_INDRES, m.get(F_INDCF));
@@ -414,10 +418,7 @@ bool TClifo_application::percip_handler(TMask_field& f, KEY key)
       {
         if (m.get(F_DATANASC).empty()) m.set(F_DATANASC, fis.get(ANF_DATANASC));
         if (m.get(F_COMNASC).empty())
-        {
-          m.set(F_STATONASC, fis.get(ANF_STATONASC), true);
           m.set(F_COMNASC, fis.get(ANF_COMNASC), true);
-        }     
       }
     }
   }

cg/cg0200.h

@@ -34,7 +34,6 @@
 #define F_PTELEX											125
 #define F_TELEX												126
 #define F_DATANASC										127
-#define F_STATONASC										128
 #define F_COMNASC											129
 #define F_DENCOMNASC									135
 #define F_CODSTAT											130
@@ -157,6 +156,7 @@
 #define F_CODCAUSNC                   249
 #define F_DATAECONAI									250
 #define F_DESCRASS										251
+#define F_SESSO												252
 
 #define DLG_RIC                       300
 #define DLG_CST                       301

cg/cg0200a.uml

@@ -1,22 +1,26 @@
 #include "cg0200.h"
 
-TOOLBAR "" 0 18 0 4
+TOOLBAR "topbar" 0 0 0 2
+
+#include <relapbar.h>
+
+ENDPAGE
+
+TOOLBAR "" 0 20 0 2
 
 BUTTON DLG_EMAIL 10 2
 BEGIN
-  PROMPT -56 -3 "~Posta"
+  PROMPT -12 -2 "~Posta"
   PICTURE BMP_EMAIL
 END
 
 GOLEM DLG_OGGETTI 10 2
 BEGIN
-  PROMPT -66 -3 ""
+  PROMPT -22 -2 ""
   FIELD OGGETTI  
   FLAGS "M"
 END
 
-#include <toolbar.h>
-
 ENDPAGE
 
 PAGE "Pag.1" -1 -1 78 19
@@ -140,7 +144,8 @@ BEGIN
   DISPLAY "Partita IVA@11" PAIV
   COPY OUTPUT F_CODCF
   HELP "Codice fiscale del cliente/fornitore"
-  VALIDATE CF_FUNC F_STATOPAIV
+//  VALIDATE CF_FUNC F_STATOPAIV
+	VALIDATE XTCF_FUNC F_STATOPAIV F_SESSO F_DATANASC F_COMNASC
 END
 
 STRING F_PAIV 12
@@ -568,19 +573,13 @@ BEGIN
   HELP "Data di nascita del cliente/fornitore"
 END
 
-NUMBER F_STATONASC 3
+LIST F_SESSO 1 12
 BEGIN
-  PROMPT 38 17 "Stato "
+PROMPT 38 17 "Sesso"
-  FIELD STATONASC
+HELP "Sesso della persona fisica"
-  FLAGS "Z"
+ITEM "M|Maschio"
+ITEM "F|Femmina"
   GROUP 5
-  COPY USE F_STATOCF
-  INPUT CODTAB F_STATONASC
-  COPY DISPLAY F_STATOCF
-  OUTPUT F_STATONASC CODTAB
-  HELP "Stato di nascita del cliente/fornitore"
-  CHECKTYPE NORMAL
-  WARNING "Nazione assente"
 END
 
 STRING F_COMNASC 4
@@ -590,10 +589,9 @@ BEGIN
   FLAGS "U"
   GROUP 5
   COPY USE F_COMCF
-  INPUT STATO F_STATONASC
+  INPUT STATO ""
   INPUT COM F_COMNASC
   COPY DISPLAY F_COMCF
-  OUTPUT F_STATONASC STATO
   OUTPUT F_COMNASC COM
   OUTPUT F_DENCOMNASC DENCOM
   HELP "Codice del comune di nascita del cliente/fornitore"

cg/f20.dir

@@ -1,3 +1,3 @@
 20
 0
-$clifo|0|0|730|0|Clienti/Fornitori|||
+$clifo|0|0|731|0|Clienti/Fornitori|||

cg/f20.trr

@@ -1,5 +1,5 @@
 20
-56
+57
 TIPOCF|1|1|0|Tipo ( <C>liente <F>ornitore
 CODCF|3|6|0|Codice
 RAGSOC|1|50|0|Ragione sociale
@@ -37,6 +37,7 @@ BYMAIL|8|1|0|Consenso all' invio dei documenti per posta elettronica
 DOCMAIL|1|50|0|Indirizzo di posta elettronica per i documenti
 DATANASC|5|8|0|Data di nascita
 STATONASC|2|3|0|Codice stato di nascita
+SESSO|1|1|0|Sesso
 COMNASC|1|4|0|Codice comune di nascita
 CODSTAT|1|7|0|Codice statistico
 CODABI|10|5|0|Codice ABI banca