root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0

Browse Source 
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
This commit is contained in:
guy 2011-06-28 14:41:22 +00:00
parent 7ac4bf3398
commit eab48acaec
11 changed files with 91 additions and 200 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
cg/cg2100.cpp
View File

@ -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);
}

70
cg/cg2100.h
View File

@ -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

6
cg/cg2100b.uml
View File

@ -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

43
cg/cg2100c.uml
View File

@ -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

2
cg/cg7300.cpp
View File

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

2
cg/cgtbcon.h
View File

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

125
cg/cgtbcon.uml
View File

@ -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

2
cg/f22.dir
View File

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

11
cg/f22.trr
View File

@ -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
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|

2
cg/f23.dir
View File

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

5
cg/f23.trr
View File

@ -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