Patch level :

Files correlati     : cg2.exe cg2100c.msk cg2100b.msk
Ricompilazione Demo : [ ]
Commento            :
Aggiunti nuovi campi FE a prima nota


git-svn-id: svn://10.65.10.50/branches/R_10_00@22463 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg2100.cpp

@@ -569,7 +569,16 @@ void TPrimanota_application::init_mask(TMask& m)
       m.show(-1, clig);
       m.show(-2, forg);
     }
-    if (corrisp) m.hide(F_STATOPAIV);
+
+    m.hide(-7); // Nascondi tutti i campi del modulo FE (compreso FE_MODPAG)
+
+    if (corrisp) 
+      m.hide(F_STATOPAIV);
+    else
+    {
+      if (has_module(FEAUT))
+        m.show(FE_MODPAG); // Mostro FE_MODPAG solo se strettamente necessario
+    }
     
     // Show/Hide campi valuta: F_VALUTAINTRA, F_CAMBIOINTRA, F_CORRISPETTIVO, F_CORRVAL (GROUP 4)
     m.show(-4, causale().valintra());
@@ -615,6 +624,7 @@ void TPrimanota_application::init_mask(TMask& m)
 
 void TPrimanota_application::init_query_mode(TMask& m)
 {
+  disable_menu_item(M_FILE_PREVIEW);
   enable_menu_item(M_FILE_PRINT);
   enable_menu_item(M_FONT);
     
@@ -776,7 +786,7 @@ void TPrimanota_application::init_insert_mode(TMask& m)
 			m.field(F_RITFIS).set_prompt(PR("IVA intracomun.  "));
 		else
 			m.field(F_RITFIS).set_prompt(PR("Ritenute fiscali "));
-}
+  }
 	else
 	{
 		if (*causale().codice())   
@@ -790,7 +800,7 @@ void TPrimanota_application::init_insert_mode(TMask& m)
   if (is_fattura())
   { 
     activate_numrif(m, false);
-    const TString16 dt(m.get(F_DATADOC));
+    const TString& dt = m.get(F_DATADOC);
     set_pagamento(NULL,dt);  
     set_scadenze(m);
   }  
@@ -1023,7 +1033,7 @@ int TPrimanota_application::read(TMask& m)
     pags().reset();                      // Azzera sheet rate
     if (!read_scadenze(m))               // Se non esiste fattura
     {
-      const TString16 dd = m.get(F_DATADOC);
+      const TString& dd = m.get(F_DATADOC);
       set_pagamento(NULL, dd);           // Ignora codice pagamento in testata
     }  
   }

cg/cg2100.h

@@ -19,25 +19,27 @@
 #define F_DATACOMP  116
 #define F_ANNOIVA   117
 
-#define F_CLIFO           150
+#define F_CLIFO           128
 #define F_CLIENTE         151
 #define F_RAGSOCCLIENTE   152
 #define F_STATOPAIV       153
 #define F_PIVACLIENTE     154
 #define F_COFICLIENTE     155
 #define F_RICALTCLIENTE   156
-#define F_CONTRATTOC      157
+
-#define F_MODPAG          158
+#define FE_CONTRATTO      157
+#define FE_MODPAG         158
+#define FE_DATARETT       159
+#define FE_NUMRETT        160
 
 #define F_FORNITORE       161
 #define F_RAGSOCFORNITORE 162
 #define F_PIVAFORNITORE   164
 #define F_COFIFORNITORE   165
 #define F_RICALTFORNITORE 166
-#define F_CONTRATTOF      167
 
-#define F_CONTSEP         168
+#define NP_CONTSEP    168
-#define F_DESCONTSEP      169
+#define NP_DESCONTSEP 169
 
 #define F_GRUPPOCLIFO 170
 #define F_CONTOCLIFO  171

cg/cg2100b.uml

@@ -255,27 +255,27 @@ BEGIN
   GROUP 5 6
 END
 
-STRING F_CONTSEP 6
+STRING NP_CONTSEP 6
 BEGIN
   PROMPT 1 19 "Contab. separata "
   USE &NPENT
-  INPUT CODTAB F_CONTSEP
+  INPUT CODTAB NP_CONTSEP
   DISPLAY "Codice@6" CODTAB
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_CONTSEP CODTAB
+  OUTPUT NP_CONTSEP CODTAB
-  OUTPUT F_DESCONTSEP S0
+  OUTPUT NP_DESCONTSEP S0
   CHECKTYPE NORMAL
   FIELD CONTSEP
 END
 
-STRING F_DESCONTSEP 50 48
+STRING NP_DESCONTSEP 50 48
 BEGIN
   PROMPT 27 19 ""
   USE &NPENT KEY 2
-  INPUT S0 F_DESCONTSEP
+  INPUT S0 NP_DESCONTSEP
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice@6" CODTAB
-  COPY OUTPUT F_CONTSEP
+  COPY OUTPUT NP_CONTSEP
   CHECKTYPE NORMAL
 END
 

cg/cg2100c.uml

@@ -215,6 +215,7 @@ BEGIN
   OUTPUT F_PIVACLIENTE PAIV
   OUTPUT F_COFICLIENTE COFI
   OUTPUT F_RICALTCLIENTE RICALT
+  OUTPUT F_CLIFO TIPOCF
   MESSAGE COPY,F_FORNITORE
   CHECKTYPE REQUIRED
   WARNING "Cliente assente"
@@ -240,6 +241,7 @@ BEGIN
   OUTPUT F_PIVAFORNITORE PAIV
   OUTPUT F_COFIFORNITORE COFI
   OUTPUT F_RICALTFORNITORE RICALT
+  OUTPUT F_CLIFO TIPOCF
   MESSAGE COPY,F_CLIENTE
   CHECKTYPE REQUIRED
   WARNING "Fornitore assente"
@@ -419,54 +421,80 @@ BEGIN
   ADD RUN ba3 -6
 END
 
-STRING F_CONTRATTOC 18
+// Campi per Invio dati rilevanti (FE)
+
+LIST F_CLIFO 1 10
 BEGIN
-  PROMPT 1 12 "Contratto        "
+  PROMPT 1 12 "Tipo "
+  ITEM "|Conto"
+  ITEM "C|Cliente"
+  ITEM "F|Fornitore"
+  FIELD TIPO
+  FLAGS "H"
+END
+
+LIST FE_MODPAG 1 16
+BEGIN
+  PROMPT 1 12 "Tipo "
+  ITEM "1|Non frazionato"
+    MESSAGE HIDE,FE_CONTRATTO|SHOW,FE_DATARETT|SHOW,FE_NUMRETT
+  ITEM "2|Frazionato"
+    MESSAGE SHOW,FE_CONTRATTO|HIDE,FE_DATARETT|HIDE,FE_NUMRETT
+  ITEM "3|Periodico"
+    MESSAGE SHOW,FE_CONTRATTO|HIDE,FE_DATARETT|HIDE,FE_NUMRETT
+  GROUP 7
+  FIELD MODPAG
+  MODULE fe
+END
+
+STRING FE_CONTRATTO 18
+BEGIN
+  PROMPT 32 12 "Contratto di riferimento "
   FLAGS "U"
   FIELD CONTRATTO
   USE &FECON
-  INPUT CODTAB[1,1] "C"
+  INPUT CODTAB[1,1] F_CLIFO SELECT
   INPUT CODTAB[2,7] F_CLIENTE SELECT
-  INPUT CODTAB[8,25] F_CONTRATTOC
+  INPUT CODTAB[8,25] FE_CONTRATTO
   DISPLAY "Contratto" CODTAB[8,]
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_CONTRATTOC CODTAB[8,]
+  DISPLAY "Pagamento" S6
-  CHECKTYPE NORMAL
+  OUTPUT FE_CONTRATTO CODTAB[8,]
+  OUTPUT FE_MODPAG S6
+  CHECKTYPE REQUIRED
   HELP "Inserire un codice contratto di importo non inferiore a 3000 Euro"
   ADD RUN fe0 -1 &CON
-  GROUP 1
+  GROUP 7
-  MESSAGE COPY,F_CONTRATTOF
 END
 
-STRING F_CONTRATTOF 18
+DATE FE_DATARETT
 BEGIN
-  PROMPT 1 12 "Contratto        "
+  PROMPT 26 12 "Variazione al documento "
+  USE MOV KEY 3
+  INPUT TIPO F_CLIFO SELECT
+  INPUT CODCF F_CLIENTE SELECT
+  INPUT DATAREG FE_DATARETT
+  DISPLAY "Data reg.@10" DATAREG
+  DISPLAY "Numero@7" NUMDOC
+  DISPLAY "Num.Reg.@7" NUMREG
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT FE_DATARETT DATAREG
+  OUTPUT FE_NUMRETT  NUMDOC
+  FIELD DATARETT
+  GROUP 7
+END
+
+STRING FE_NUMRETT 7
+BEGIN
+  PROMPT 66 12 "N."
+  COPY ALL FE_DATARETT
+  CHECKTYPE SEARCH
+  FIELD NUMRETT
+  GROUP 7
   FLAGS "U"
-  FIELD CONTRATTO
-  USE &FECON
-  INPUT CODTAB[1,1] "F"
-  INPUT CODTAB[2,7] F_FORNITORE SELECT
-  INPUT CODTAB[8,25] F_CONTRATTOF
-  DISPLAY "Contratto" CODTAB[8,]
-  COPY DISPLAY F_CONTRATTOC
-  OUTPUT F_CONTRATTOF CODTAB[8,]
-  CHECKTYPE NORMAL
-  HELP "Inserire un codice contratto di importo non inferiore a 3000 Euro"
-  ADD RUN fe0 -1 &CON
-  GROUP 2
-  MESSAGE COPY,F_CONTRATTOC
 END
 
-LIST F_MODPAG 1 14
+// Campi per saldaconto in valuta
-BEGIN
-  PROMPT 42 12 "Modalità pagamento "
-  ITEM "1|Non frazionato"
-  ITEM "2|Frazionato"
-  ITEM "3|Periodico"
-  MODULE fe
-  GROUP 1 2
-  FIELD MODPAG
-END
 
 STRING SK_VALUTA 3
 BEGIN
@@ -645,27 +673,27 @@ BEGIN
   DRIVENBY F_VALUTAINTRA
 END
 
-STRING F_CONTSEP 6
+STRING NP_CONTSEP 6
 BEGIN
-  PROMPT 1 19 "Contab. separata "
+  PROMPT 1 19 "Cont. separata "
   USE &NPENT
-  INPUT CODTAB F_CONTSEP
+  INPUT CODTAB NP_CONTSEP
   DISPLAY "Codice@6" CODTAB
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_CONTSEP CODTAB
+  OUTPUT NP_CONTSEP CODTAB
-  OUTPUT F_DESCONTSEP S0
+  OUTPUT NP_DESCONTSEP S0
   CHECKTYPE NORMAL
   FIELD CONTSEP
 END
 
-STRING F_DESCONTSEP 50 48
+STRING NP_DESCONTSEP 50
 BEGIN
-  PROMPT 27 19 ""
+  PROMPT 25 19 ""
   USE &NPENT KEY 2
-  INPUT S0 F_DESCONTSEP
+  INPUT S0 NP_DESCONTSEP
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice@6" CODTAB
-  COPY OUTPUT F_CONTSEP
+  COPY OUTPUT NP_CONTSEP
   CHECKTYPE NORMAL
 END
 

cg/f22.dir

@@ -1,3 +1,3 @@
 22
 0
-$alleg|0|0|103|0|Comunicazione dati rilevanti|NCF||
+$alleg|0|0|112|0|Comunicazione dati rilevanti|||

cg/f22.trr

@@ -1,20 +1,24 @@
 22
-14
+16
 ANNO|2|4|0|Anno IVA
 PROGR|3|7|0|Progressivo
 TIPOCF|1|1|0|Tipo <C>liente <F>ornitore
 CODCF|3|6|0|Codice Cliente/Fornitore
 OCFPI|1|16|0|Codice occasionale
-NUMREG|3|7|0|Numero di registrazione originale
+FORZATURA|8|1|0|Forzatura a mano
 IGNORA|2|2|0|Eventuale motivo per ignorare la riga (0 = da inviare)
-DATAREG|5|8|0|Data registrazione
+DATAREG|5|8|0|Data registrazione (art. 6 d.P.R.n.633/1972)
+NUMDOC|1|7|0|Numero Fattura (Obbligatorio se TIPOPE=1)
 MODPAG|2|1|0|Modalità di pagamento (1=Non frazionato;2=Frazionato;3=Periodico)
 IMPORTO|4|12|2|Importo dovuto
 IMPOSTA|4|12|2|Imposta
 TIPOPE|2|1|0|Tipo operazione (1=Cessione;2=Acquisto)
 CONTRATTO|1|18|0|Contratto
-NUMRETT|3|7|0|Numero di registrazione rettificata
+DATARETT|5|8|0|Data documento rettificato
+NUMRETT|1|7|0|Numero documento rettificato
 3
 ANNO+PROGR| 
 ANNO+TIPOCF+CODCF+OCFPI+PROGR| 
-NUMREG+PROGR|
+ANNO+TIPOCF+CODCF+NUMRETT|X
+
+

cg/f23.dir

@@ -1,3 +1,3 @@
 23
 0
-$mov|0|0|401|0|Movimenti di prima nota|||
+$mov|0|0|420|0|Movimenti di prima nota|||

cg/f23.trr

@@ -1,5 +1,5 @@
 23
-50
+53
 ANNOES|9|4|0|Codice esercizio
 NUMREG|3|7|0|Numero di operazione
 DATAREG|5|8|0|Data operazione
@@ -36,7 +36,7 @@ CORRVALUTA|4|18|3|Corrispettivo in valuta intra-comunitario
 DATACOMPI|5|8|0|Data di competenza intra-comunitaria
 OCFPI|1|16|0|Codice cliente / fornitore occasionale
 CODPAG|1|4|0|Codice pagamento
-INVIATO|8|1|0|Inviato ad altra contabilita'
+INVIATO|8|1|0|Inviato ad altra contabilità
 INVIVA|8|1|0|Inviata la parte IVA ad altra contabilita'
 SCARCON|8|1|0|Scaricata la contabilitá
 TNUMREG|3|7|0|Numero di registrazione temporaneo per ricezioni
@@ -47,9 +47,12 @@ DCODNUM|1|4|0|Documento originale CODNUM
 DNDOC|3|7|0|Documento originale NDOC
 DATAINC|5|8|0|Data di incasso per liquidazione differita
 LIQDIFF|8|1|0|Flag di movimento a liquidazione differita
+MODPAG|2|1|0|Modalità di pagamento 1=Non frazionato; 2=Frazionato; 3=Periodico
 CONTRATTO|1|18|0|Contratto con importo > 3000 Euro
+DATARETT|5|8|0|Data documento rettificato
+NUMRETT|1|7|0|Numero documento rettificato
+ANNOFE|2|4|0|Anno invio definitivo dati rilevanti
 CONTSEP|1|6|0|Contabilità separata
-MODPAG|2|1|0|Modalità di pagamento per contratto > 3000 Euro
 4
 NUMREG| 
 DATAREG+NUMREG|X