Patch level : 10.0

Files correlati     : cg2.exe cg2100b.msk cg2100c.msk f22.* f23.*
Ricompilazione Demo : [ ]
Commento            :


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

cg/cg2100.cpp

@@ -552,19 +552,22 @@ void TPrimanota_application::init_mask(TMask& m)
   {                        
     const bool corrisp = causale().corrispettivi();
 
-    bool clig, forg;
+    bool clig = false, forg = false;
     if (_iva == iva_acquisti)
-    {
       forg = true;
-      clig = false;
+    else
-    } 
+      clig = corrisp ? false : true;
+    // Mostra i gruppo clienti ed eventualmente quello fornitori
+    if (clig)
+    {
+      m.show(-2, forg);
+      m.show(-1, clig);
+    }
     else
     {
-      forg = false;
+      m.show(-1, clig);
-      clig = corrisp ? false : true;
+      m.show(-2, forg);
-    }                              
+    }
-    m.show(-1, clig);
-    m.show(-2, forg);
     if (corrisp) m.hide(F_STATOPAIV);
     
     // Show/Hide campi valuta: F_VALUTAINTRA, F_CAMBIOINTRA, F_CORRISPETTIVO, F_CORRVAL (GROUP 4)
@@ -937,7 +940,7 @@ int TPrimanota_application::read(TMask& m)
     ivas().reset();   // Azzera tutte le righe iva
     
     occas_mask().reset();
-    const TString16 occode(_rel->curr().get("OCFPI"));
+    const TString16 occode(_rel->curr().get(MOV_OCFPI));
     occas_mask().set(O_CODICE, occode, true);
   }
 

cg/cg2100.h

@@ -1,32 +1,33 @@
 #ifndef __CG2100_H    
 #define __CG2100_H
 
-#define F_CODDITTA 101
+#define F_CODDITTA  101
-#define F_RAGSOC 102
+#define F_RAGSOC    102
-#define F_DATAREG 103
+#define F_DATAREG   103
-#define F_NUMREG 104
+#define F_NUMREG    104
-#define F_CODCAUS 105
+#define F_CODCAUS   105
 #define F_DESCRCAUS 106
 #define F_DOCUMENTO 107
-#define F_TIPODOC 108
+#define F_TIPODOC   108
-#define F_CODREG 109
+#define F_CODREG    109
-#define F_PROTIVA 110
+#define F_PROTIVA   110
 #define F_RIEPILOGO 111
-#define F_DESCR 112
+#define F_DESCR     112
-#define F_DATADOC 113
+#define F_DATADOC   113
-#define F_NUMDOC 114
+#define F_NUMDOC    114
-#define F_ANNOES 115
+#define F_ANNOES    115
-#define F_DATACOMP 116
+#define F_DATACOMP  116
-#define F_ANNOIVA 117
+#define F_ANNOIVA   117
 
-#define F_CLIFO 150
+#define F_CLIFO           150
-#define F_CLIENTE 151
+#define F_CLIENTE         151
-#define F_RAGSOCCLIENTE 152
+#define F_RAGSOCCLIENTE   152
-#define F_STATOPAIV     153
+#define F_STATOPAIV       153
-#define F_PIVACLIENTE   154
+#define F_PIVACLIENTE     154
-#define F_COFICLIENTE   155
+#define F_COFICLIENTE     155
-#define F_RICALTCLIENTE 156
+#define F_RICALTCLIENTE   156
-#define F_CONTRATTOC    157
+#define F_CONTRATTOC      157
+#define F_MODPAG          158
 
 #define F_FORNITORE       161
 #define F_RAGSOCFORNITORE 162
@@ -39,18 +40,19 @@
 #define F_DESCONTSEP      169
 
 #define F_GRUPPOCLIFO 170
-#define F_CONTOCLIFO 171
+#define F_CONTOCLIFO  171
-#define F_DARDOC 172
+#define F_DARDOC      172
-#define F_TOTALE 118
+
-#define F_CODIVA 119
+#define F_TOTALE      118
-#define F_RITFIS 120
+#define F_CODIVA      119
-#define F_RITSOC 121
+#define F_RITFIS      120
-#define F_CODPAG 122
+#define F_RITSOC      121
-#define F_DESPAG 123
+#define F_CODPAG      122
-#define F_ANNORIF 124
+#define F_DESPAG      123
-#define F_NUMRIF  125
+#define F_ANNORIF     124
-#define F_LINKDOC 126
+#define F_NUMRIF      125
-#define F_MASTRINO 127
+#define F_LINKDOC     126
+#define F_MASTRINO    127
 
 #define F_PROVVISORIO    129
 #define F_OCCASEDIT      131

cg/cg2100b.uml

@@ -257,7 +257,7 @@ END
 
 STRING F_CONTSEP 6
 BEGIN
-  PROMPT 1 19 "Contab.separata  "
+  PROMPT 1 19 "Contab. separata "
   USE &NPENT
   INPUT CODTAB F_CONTSEP
   DISPLAY "Codice@6" CODTAB
@@ -268,7 +268,11 @@ BEGIN
   FIELD CONTSEP
 END
 
+<<<<<<< cg2100b.uml
+STRING F_DESCONTSEP 50 48
+=======
 STRING F_DESCONTSEP 50
+>>>>>>> 1.78.2.6
 BEGIN
   PROMPT 27 19 ""
   USE &NPENT KEY 2

cg/cg2100c.uml

@@ -151,9 +151,9 @@ BEGIN
   FLAGS "DG"
 END
 
-STRING F_DESCAGG 5
+STRING F_DESCAGG 5 6
 BEGIN
-  PROMPT 1 7 "Descrizione     "
+  PROMPT 1 7 "Descrizione    "
   FLAGS "UZ"
   USE %DPN
   INPUT CODTAB F_DESCAGG
@@ -177,7 +177,7 @@ END
 
 NUMBER F_PROTIVA 6
 BEGIN
-  PROMPT 1 8 "Protocollo IVA  "
+  PROMPT 1 8 "Protocollo IVA "
   FIELD PROTIVA
 END
 
@@ -198,7 +198,7 @@ END
 
 NUMBER F_CLIENTE 6
 BEGIN
-  PROMPT 1 9 "Cliente      "
+  PROMPT 1 9 "Cliente        "
   FIELD CODCF
   GROUP 1
   USE LF_CLIFO KEY 1
@@ -223,7 +223,7 @@ END
 
 NUMBER F_FORNITORE 6
 BEGIN
-  PROMPT 1 9 "Fornitore    "
+  PROMPT 1 9 "Fornitore      "
   FIELD CODCF
   GROUP 2
   USE LF_CLIFO KEY 1
@@ -421,10 +421,11 @@ END
 
 STRING F_CONTRATTOC 18
 BEGIN
-  PROMPT 1 12 "Contratto          "
+  PROMPT 1 12 "Contratto        "
   FLAGS "U"
   FIELD CONTRATTO
-  USE &CON
+  MODULE cg,fe
+  USE &FECON
   INPUT CODTAB[1,1] "C"
   INPUT CODTAB[2,7] F_CLIENTE SELECT
   INPUT CODTAB[8,25] F_CONTRATTOC
@@ -437,18 +438,13 @@ BEGIN
   GROUP 1
 END
 
-TEXT DLG_NULL
-BEGIN
-  PROMPT 40 12 "rilevante per Legge 122 del 30-07-2010"
-  GROUP 1
-END
-
 STRING F_CONTRATTOF 18
 BEGIN
-  PROMPT 1 12 "Contratto          "
+  PROMPT 1 12 "Contratto        "
   FLAGS "U"
   FIELD CONTRATTO
-  USE &CON
+  MODULE cg,fe
+  USE &FECON
   INPUT CODTAB[1,1] "F"
   INPUT CODTAB[2,7] F_FORNITORE SELECT
   INPUT CODTAB[8,25] F_CONTRATTOF
@@ -461,10 +457,15 @@ BEGIN
   GROUP 2
 END
 
-TEXT DLG_NULL
+LIST F_MODPAG 1 14
 BEGIN
-  PROMPT 40 12 "rilevante per Legge 122 del 30-07-2010"
+  PROMPT 42 12 "Modalità pagamento "
-  GROUP 2
+  ITEM "3|Non frazionato"
+  ITEM "1|Acconto"
+  ITEM "2|Saldo"
+  MODULE fe
+  GROUP 1 2
+  FIELD MODPAG
 END
 
 STRING SK_VALUTA 3
@@ -646,7 +647,7 @@ END
 
 STRING F_CONTSEP 6
 BEGIN
-  PROMPT 1 19 "Contab.separata  "
+  PROMPT 1 19 "Contab. separata "
   USE &NPENT
   INPUT CODTAB F_CONTSEP
   DISPLAY "Codice@6" CODTAB
@@ -657,7 +658,11 @@ BEGIN
   FIELD CONTSEP
 END
 
+<<<<<<< cg2100c.uml
+STRING F_DESCONTSEP 50 48
+=======
 STRING F_DESCONTSEP 50
+>>>>>>> 1.127.2.6
 BEGIN
   PROMPT 27 19 ""
   USE &NPENT KEY 2

cg/cg7300.cpp

@@ -1,4 +1,4 @@
-// gestione tabelle di modulo e-commerce
+// gestione tabelle di modulo contabilità
 
 #include <automask.h>
 #include <modtbapp.h>

cg/cgtbcon.h

@@ -1,2 +0,0 @@
-#define F_CODICE       101
-#define F_DESCRIZIONE  102

cg/cgtbcon.uml

@@ -1,125 +0,0 @@
-#include "cgtbcon.h"
-
-TOOLBAR "topbar" 0 0 0 2
-#include <relapbar.h>
-ENDPAGE
-
-PAGE "Contratti per invio dati rilevanti" 0 2 0 0
-
-GROUPBOX DLG_NULL 78 5
-BEGIN
-  PROMPT 1 1 "@bEstremi"
-END
-
-LIST F_TIPOCF 1 9
-BEGIN
-  PROMPT 2 2 ""
-  ITEM "F|Fornitore"
-  ITEM "C|Cliente"
-  FIELD CODTAB[1,1]
-  KEY 1
-END
-
-NUMBER F_CODCF 6
-BEGIN
-  PROMPT 14 2 ""
-  USE LF_CLIFO
-  INPUT TIPOCF F_TIPOCF SELECT
-  INPUT CODCF F_CODCF
-  DISPLAY "Codice" CODCF
-  DISPLAY "Ragione Sociale@50" RAGSOC
-  OUTPUT F_CODCF CODCF
-  OUTPUT F_RAGSOC RAGSOC
-  CHECKTYPE REQUIRED
-  FIELD CODTAB[2,7]
-  KEY 1
-  MESSAGE EMPTY ENABLE,F_RAGSOC
-  MESSAGE DISABLE,F_RAGSOC
-END
-
-STRING F_RAGSOC 50
-BEGIN
-  PROMPT 24 2 ""
-  USE LF_CLIFO KEY 2
-  INPUT TIPOCF F_TIPOCF SELECT
-  INPUT RAGSOC F_RAGSOC
-  DISPLAY "Ragione Sociale@50" RAGSOC
-  DISPLAY "Codice" CODCF
-  COPY OUTPUT F_CODCF
-  CHECKTYPE NORMAL
-END
-
-STRING F_CONTRATTO 18
-BEGIN
-  PROMPT 2 3 "Codice contratto      "
-  FLAGS "U"
-  FIELD CODTAB[8,25]
-  USE &CON
-  JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
-  INPUT CODTAB[1,1]  F_TIPOCF SELECT
-  INPUT CODTAB[2,7]  F_CODCF
-  INPUT CODTAB[8,25] F_CONTRATTO
-  DISPLAY "Contratto" CODTAB[8,]
-  DISPLAY "Descrizione@50" S0
-  DISPLAY "Tipo" CODTAB[1,1]
-  DISPLAY "Cli/For" LF_CLIFO->CODCF
-  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
-  OUTPUT F_CODCF CODTAB[2,7]
-  OUTPUT F_CONTRATTO CODTAB[8,]
-  OUTPUT F_DESCRIZIONE S0
-  CHECKTYPE REQUIRED
-  KEY 1
-END
-
-STRING F_DESCRIZIONE 50
-BEGIN
-  PROMPT 2 4 "Descrizione           "
-  FIELD S0
-  USE &CON KEY 2 SELECT (CODTAB[1,1]==#F_TIPOCF)&&(STR(CODTAB[2,7]=#F_CODCF))
-  JOIN LF_CLIFO INTO TIPOCF=CODTAB[1,1] CODCF=CODTAB[2,7]
-  INPUT S0 F_DESCRIZIONE
-  DISPLAY "Descrizione@50" S0
-  DISPLAY "Contratto" CODTAB[8,]
-  DISPLAY "Tipo" CODTAB[1,1]
-  DISPLAY "Cli/For" LF_CLIFO->CODCF
-  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
-  CHECKTYPE REQUIRED
-  COPY OUTPUT F_CONTRATTO
-  KEY 2
-END
-
-GROUPBOX DLG_NULL 78 5
-BEGIN
-  PROMPT 1 6 "@bDurata ed importo"
-END
-
-DATA F_INIZIO
-BEGIN
-  PROMPT 2 7 "Inizio "
-  HELP "Data inizio contratto"
-  FIELD D0
-END
-
-DATA F_FINE
-BEGIN
-  PROMPT 24 7 "Fine  "
-  HELP "Data fine contratto"
-  FIELD D1
-  VALIDATE DATE_CMP_FUNC >= #F_INIZIO
-  WARNING "La data finale deve essere successiva a quella iniziale"
-END
-
-CURRENCY F_IMPORTO 15
-BEGIN
-  PROMPT 2 8 "Totale "
-  HELP "Inserire un importo non inferiore a 3000 Euro"
-  FIELD R0
-END
-
-TEXT DLG_NULL
-BEGIN
-  PROMPT 2 9 "Importo non inferiore a 3000 Euro (Legge n.122 del 30-07-2010)"
-END
-
-ENDPAGE
-ENDMASK

cg/f22.dir

@@ -1,3 +1,3 @@
 22
 0
-$alleg|0|0|94|0|Comunicazione dati rilevanti|NCF||
+$alleg|0|0|113|0|Comunicazione dati rilevanti|NCF||

cg/f22.trr

@@ -1,5 +1,5 @@
 22
-13
+16
 ANNO|2|4|0|Anno IVA
 CODATT|1|5|0|Codice attivita'
 PROGR|3|7|0|Progressivo
@@ -7,12 +7,15 @@ 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
+CONTRATTO|1|18|0|Contratto
 IGNORA|8|1|0|Riga da ignorare
 DATAREG|5|8|0|Data registrazione
-CORRISP|4|18|3|Corrispettivo
+MODPAG|2|1|0|Modalità di pagamento
-IMPOSTA|4|18|3|Imposta
+IMPORTO|4|12|2|Importo dovuto
-TIPIMP|2|1|0|Tipo imponibile
+IMPOSTA|4|12|2|Imposta
+NATOPE|2|1|0|Natura operazione
 TIPOPE|2|1|0|Tipo operazione
+TOTALE|4|12|2|Importo totale operazione
 3
 ANNO+CODATT+PROGR| 
 ANNO+CODATT+TIPOCF+CODCF+OCFPI+PROGR| 

cg/f23.dir

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

cg/f23.trr

@@ -1,5 +1,5 @@
 23
-49
+50
 ANNOES|9|4|0|Codice esercizio
 NUMREG|3|7|0|Numero di operazione
 DATAREG|5|8|0|Data operazione
@@ -48,7 +48,8 @@ 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
 CONTRATTO|1|18|0|Contratto con importo > 3000 Euro
-CONTSEP|1|6|0|Contabilita' separata
+CONTSEP|1|6|0|Contabilità separata
+MODPAG|2|1|0|Modalità di pagamento per contratto > 3000 Euro
 4
 NUMREG| 
 DATAREG+NUMREG|X