diff --git a/cg/cg2100.cpp b/cg/cg2100.cpp index c68669ed6..27140714a 100755 --- a/cg/cg2100.cpp +++ b/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; - clig = corrisp ? false : true; - } - m.show(-1, clig); - 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); } diff --git a/cg/cg2100.h b/cg/cg2100.h index ca59f2002..74c76f609 100755 --- a/cg/cg2100.h +++ b/cg/cg2100.h @@ -1,32 +1,33 @@ #ifndef __CG2100_H #define __CG2100_H -#define F_CODDITTA 101 -#define F_RAGSOC 102 -#define F_DATAREG 103 -#define F_NUMREG 104 -#define F_CODCAUS 105 +#define F_CODDITTA 101 +#define F_RAGSOC 102 +#define F_DATAREG 103 +#define F_NUMREG 104 +#define F_CODCAUS 105 #define F_DESCRCAUS 106 #define F_DOCUMENTO 107 -#define F_TIPODOC 108 -#define F_CODREG 109 -#define F_PROTIVA 110 +#define F_TIPODOC 108 +#define F_CODREG 109 +#define F_PROTIVA 110 #define F_RIEPILOGO 111 -#define F_DESCR 112 -#define F_DATADOC 113 -#define F_NUMDOC 114 -#define F_ANNOES 115 -#define F_DATACOMP 116 -#define F_ANNOIVA 117 +#define F_DESCR 112 +#define F_DATADOC 113 +#define F_NUMDOC 114 +#define F_ANNOES 115 +#define F_DATACOMP 116 +#define F_ANNOIVA 117 -#define F_CLIFO 150 -#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_CLIFO 150 +#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 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_DARDOC 172 -#define F_TOTALE 118 -#define F_CODIVA 119 -#define F_RITFIS 120 -#define F_RITSOC 121 -#define F_CODPAG 122 -#define F_DESPAG 123 -#define F_ANNORIF 124 -#define F_NUMRIF 125 -#define F_LINKDOC 126 -#define F_MASTRINO 127 +#define F_CONTOCLIFO 171 +#define F_DARDOC 172 + +#define F_TOTALE 118 +#define F_CODIVA 119 +#define F_RITFIS 120 +#define F_RITSOC 121 +#define F_CODPAG 122 +#define F_DESPAG 123 +#define F_ANNORIF 124 +#define F_NUMRIF 125 +#define F_LINKDOC 126 +#define F_MASTRINO 127 #define F_PROVVISORIO 129 #define F_OCCASEDIT 131 diff --git a/cg/cg2100b.uml b/cg/cg2100b.uml index e123c224e..4727957a9 100755 --- a/cg/cg2100b.uml +++ b/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 diff --git a/cg/cg2100c.uml b/cg/cg2100c.uml index 9fa8454a7..d84b3764a 100755 --- a/cg/cg2100c.uml +++ b/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" - GROUP 2 + PROMPT 42 12 "Modalità pagamento " + 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 diff --git a/cg/cg7300.cpp b/cg/cg7300.cpp index cfc6de80f..1c2c761e1 100755 --- a/cg/cg7300.cpp +++ b/cg/cg7300.cpp @@ -1,4 +1,4 @@ -// gestione tabelle di modulo e-commerce +// gestione tabelle di modulo contabilità #include #include diff --git a/cg/cgtbcon.h b/cg/cgtbcon.h deleted file mode 100755 index 587b9d797..000000000 --- a/cg/cgtbcon.h +++ /dev/null @@ -1,2 +0,0 @@ -#define F_CODICE 101 -#define F_DESCRIZIONE 102 diff --git a/cg/cgtbcon.uml b/cg/cgtbcon.uml deleted file mode 100755 index 825d8696c..000000000 --- a/cg/cgtbcon.uml +++ /dev/null @@ -1,125 +0,0 @@ -#include "cgtbcon.h" - -TOOLBAR "topbar" 0 0 0 2 -#include -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 diff --git a/cg/f22.dir b/cg/f22.dir index 5eb29e4b2..723ffabb3 100755 --- a/cg/f22.dir +++ b/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|| diff --git a/cg/f22.trr b/cg/f22.trr index 383bcc764..6e9cd77f6 100755 --- a/cg/f22.trr +++ b/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 liente 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 -IMPOSTA|4|18|3|Imposta -TIPIMP|2|1|0|Tipo imponibile +MODPAG|2|1|0|Modalità di pagamento +IMPORTO|4|12|2|Importo dovuto +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| diff --git a/cg/f23.dir b/cg/f23.dir index 856223cdc..6bc9ced43 100755 --- a/cg/f23.dir +++ b/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||| diff --git a/cg/f23.trr b/cg/f23.trr index d706b3c73..01d45f485 100755 --- a/cg/f23.trr +++ b/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