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 cg7.exe f19.* f22.* f23.*
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@22303 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-06-21 15:01:30 +00:00
parent 6c4e5a6086
commit 91dee228ce
17 changed files with 390 additions and 131 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cg/cg2100.cpp
View File

@ -318,13 +318,13 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
numrif.set_justify(iva == iva_acquisti ? _num_for : _num_cli);
numrif.set_trim(!numrif.right_justified());
activate_numrif(*m, false);
const TCausale & c = causale();
const TCausale& c = causale();
const bool av = c.reg().agenzia_viaggi();
m->show(F_DATA74TER, av);
if (!av) m->reset(F_DATA74TER);
const TRegistro & r = c.reg();
const TRegistro& r = c.reg();
const bool reg_vendite = r.iva() == iva_vendite && !r.corrispettivi();

21
cg/cg2100.h
View File

@ -18,18 +18,26 @@
#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_STATOPAIV 153
#define F_PIVACLIENTE 154
#define F_COFICLIENTE 155
#define F_RICALTCLIENTE 156
#define F_FORNITORE 161
#define F_CONTRATTOC 157
#define F_FORNITORE 161
#define F_RAGSOCFORNITORE 162
#define F_PIVAFORNITORE 164
#define F_COFIFORNITORE 165
#define F_PIVAFORNITORE 164
#define F_COFIFORNITORE 165
#define F_RICALTFORNITORE 166
#define F_CONTRATTOF 167
#define F_NOPROFIT 168
#define F_DESNOPROFIT 169
#define F_GRUPPOCLIFO 170
#define F_CONTOCLIFO 171
#define F_DARDOC 172
@ -43,6 +51,7 @@
#define F_NUMRIF 125
#define F_LINKDOC 126
#define F_MASTRINO 127
#define F_PROVVISORIO 129
#define F_OCCASEDIT 131
#define F_SOLAIVA 132

54
cg/cg2100b.uml
View File

@ -7,32 +7,14 @@ ENDPAGE
PAGE "Testata" -1 -1 77 20
GROUPBOX DLG_NULL 78 3
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 0 "@BMovimento di sola contabilita'"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "DFR"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
OUTPUT K_CODDITTA CODDITTA
OUTPUT K_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50 52
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER F_NUMREG 7
BEGIN
PROMPT 56 3 "Operazione n. "
PROMPT 56 1 "Operazione n. "
FIELD NUMREG
FLAGS "DGR"
MESSAGE COPY,K_NUMREG
@ -40,7 +22,7 @@ END
DATE F_DATAREG
BEGIN
PROMPT 1 3 "Data operazione "
PROMPT 1 1 "Data operazione "
FIELD DATAREG
CHECKTYPE REQUIRED
MESSAGE COPY,K_DATAREG
@ -49,7 +31,7 @@ END
DATE F_DATACOMP
BEGIN
PROMPT 1 4 "Data di competenza "
PROMPT 1 2 "Data di competenza "
FIELD DATACOMP
MESSAGE COPY,K_DATACOMP
FLAGS "G"
@ -57,7 +39,7 @@ END
NUMBER F_ANNOES 4
BEGIN
PROMPT 56 4 "Codice esercizio "
PROMPT 56 2 "Codice esercizio "
FIELD ANNOES
MESSAGE COPY,K_ANNOES
FLAGS "DGZ"
@ -273,6 +255,32 @@ BEGIN
GROUP 5 6
END
STRING F_NOPROFIT 6
BEGIN
PROMPT 1 19 "Gest. No-profit "
USE &NPENT
INPUT CODTAB F_NOPROFIT
DISPLAY "Codice@6" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NOPROFIT CODTAB
OUTPUT F_DESNOPROFIT S0
CHECKTYPE NORMAL
FIELD NOPROFIT
END
STRING F_DESNOPROFIT 50 48
BEGIN
PROMPT 27 19 ""
USE &NPENT KEY 2
INPUT S0 F_DESNOPROFIT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@6" CODTAB
COPY OUTPUT F_NOPROFIT
CHECKTYPE NORMAL
END
ENDPAGE
PAGE "Righe" -1 -1 77 20

159
cg/cg2100c.uml
View File

@ -19,30 +19,14 @@ BEGIN
FLAGS "H"
END
GROUPBOX DLG_NULL 78 3
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 1 0 "@BMovimento IVA"
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "DFGR"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOC 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "DG"
END
NUMBER F_NUMREG 7
BEGIN
PROMPT 56 3 "Operazione n. "
PROMPT 56 1 "Operazione n. "
FIELD NUMREG
FLAGS "DGR"
KEY 1
@ -51,7 +35,7 @@ END
DATE F_DATAREG
BEGIN
PROMPT 1 3 "Data operazione "
PROMPT 2 1 "Data operazione "
FIELD DATAREG
MESSAGE COPY,H_DATAREG|COPY,F_ANNOIVA,7,10
CHECKTYPE REQUIRED
@ -59,21 +43,21 @@ END
NUMBER F_ANNOIVA 4
BEGIN
PROMPT 31 3 "Anno IVA "
PROMPT 31 1 "Anno IVA "
FIELD ANNOIVA
FLAGS "D"
END
DATE F_DATACOMP
BEGIN
PROMPT 1 4 "Data competenza "
PROMPT 2 2 "Data competenza "
FIELD DATACOMP
FLAGS "G"
END
NUMBER F_ANNOES 4
BEGIN
PROMPT 31 4 "Codice esercizio "
PROMPT 31 2 "Codice esercizio "
FIELD ANNOES
FLAGS "DGZ"
MESSAGE COPY,H_ANNOES
@ -81,14 +65,14 @@ END
STRING F_CODREG 3
BEGIN
PROMPT 56 4 "Registro IVA "
PROMPT 56 2 "Registro IVA "
FLAGS "DUZ"
FIELD REG
END
STRING F_CODCAUS 3
BEGIN
PROMPT 1 5 "Causale "
PROMPT 2 3 "Causale "
FLAGS "UZ"
FIELD CODCAUS
USE LF_CAUSALI SELECT REG!=""
@ -108,7 +92,7 @@ END
STRING F_DESCRCAUS 50
BEGIN
PROMPT 25 5 ""
PROMPT 25 3 ""
USE LF_CAUSALI KEY 2 SELECT REG!=""
INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR
@ -123,7 +107,7 @@ END
DATE F_DATADOC
BEGIN
PROMPT 1 6 "Data documento "
PROMPT 2 4 "Data documento "
FIELD DATADOC
WARNING "Inserire una data documento non superiore alla data dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG
@ -131,14 +115,14 @@ END
STRING F_TIPODOC 2
BEGIN
PROMPT 31 6 "Tipo documento "
PROMPT 31 4 "Tipo documento "
FIELD TIPODOC
FLAGS "D"
END
STRING F_NUMDOC 7
BEGIN
PROMPT 50 6 "Documento n. "
PROMPT 50 4 "Documento n. "
FIELD NUMDOC
FLAGS "U"
WARNING "La causale o il saldaconto richiedono il numero documento"
@ -146,19 +130,19 @@ END
BUTTON F_LINKDOC 3 1
BEGIN
PROMPT 73 6 "Doc."
PROMPT 73 4 "Doc."
END
LIST F_SOLAIVA 1 3
BEGIN
PROMPT 1 7 "Movimento di sola IVA "
PROMPT 1 6 "Movimento di sola IVA "
ITEM " |No"
ITEM "X|Si"
END
LIST F_PROVVISORIO 1 22
BEGIN
PROMPT 31 7 "Movimento provvisorio "
PROMPT 31 6 "Movimento provvisorio "
FIELD PROVVIS
ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)"
@ -169,7 +153,7 @@ END
STRING F_DESCAGG 5
BEGIN
PROMPT 1 8 "Descrizione "
PROMPT 1 7 "Descrizione "
FLAGS "UZ"
USE %DPN
INPUT CODTAB F_DESCAGG
@ -182,7 +166,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 25 8 ""
PROMPT 25 7 ""
FIELD DESCR
USE %DPN KEY 2
INPUT S0 F_DESCR
@ -193,13 +177,13 @@ END
NUMBER F_PROTIVA 6
BEGIN
PROMPT 1 9 "Protocollo IVA "
PROMPT 1 8 "Protocollo IVA "
FIELD PROTIVA
END
NUMBER F_RIEPILOGO 6
BEGIN
PROMPT 25 9 "Riepilogo al n."
PROMPT 25 8 "Riepilogo al n."
FIELD UPROTIVA
NUM_EXPR {(#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)}
WARNING "Inserire un riepilogo non inferiore al protocollo IVA (Obbigatorio se il cliete/fornitore ha codice inserimento in allegati uguale a 3)"
@ -207,14 +191,14 @@ END
LIST F_DIFFERITA 1 19
BEGIN
PROMPT 48 9 "Liquid. "
PROMPT 48 8 "Liquid. "
ITEM " |periodo in corso"
ITEM "X|periodo precedente"
END
NUMBER F_CLIENTE 6
BEGIN
PROMPT 1 10 "Cliente "
PROMPT 1 9 "Cliente "
FIELD CODCF
GROUP 1
USE LF_CLIFO KEY 1
@ -239,7 +223,7 @@ END
NUMBER F_FORNITORE 6
BEGIN
PROMPT 1 10 "Fornitore "
PROMPT 1 9 "Fornitore "
FIELD CODCF
GROUP 2
USE LF_CLIFO KEY 1
@ -264,7 +248,7 @@ END
STRING F_RAGSOCFORNITORE 50
BEGIN
PROMPT 25 10 ""
PROMPT 25 9 ""
GROUP 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
@ -281,7 +265,7 @@ END
STRING F_RAGSOCCLIENTE 50
BEGIN
PROMPT 25 10 ""
PROMPT 25 9 ""
GROUP 1
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -294,7 +278,7 @@ END
STRING F_COFICLIENTE 16
BEGIN
PROMPT 1 11 "C.F. "
PROMPT 1 10 "C.F. "
GROUP 1
USE LF_CLIFO KEY 4
INPUT TIPOCF "C"
@ -311,7 +295,7 @@ END
STRING F_COFIFORNITORE 16
BEGIN
PROMPT 1 11 "C.F. "
PROMPT 1 10 "C.F. "
GROUP 2
USE LF_CLIFO KEY 4
INPUT TIPOCF "F"
@ -324,7 +308,7 @@ END
STRING F_PIVACLIENTE 12
BEGIN
PROMPT 26 11 "P.I. "
PROMPT 26 10 "P.I. "
GROUP 1
USE LF_CLIFO KEY 5
INPUT TIPOCF "C"
@ -342,7 +326,7 @@ END
STRING F_PIVAFORNITORE 12
BEGIN
PROMPT 26 11 "P.I. "
PROMPT 26 10 "P.I. "
GROUP 2
USE LF_CLIFO KEY 5
INPUT TIPOCF "F"
@ -356,7 +340,7 @@ END
STRING F_STATOPAIV 2
BEGIN
PROMPT 48 11 ""
PROMPT 46 10 ""
FLAGS "U"
USE %SCE
INPUT CODTAB F_STATOPAIV
@ -368,7 +352,7 @@ END
STRING F_RICALTCLIENTE 30 18
BEGIN
PROMPT 54 11 "Alt. "
PROMPT 52 10 "Alt. "
USE LF_CLIFO KEY 6
INPUT TIPOCF "C"
INPUT RICALT F_RICALTCLIENTE
@ -386,7 +370,7 @@ END
STRING F_RICALTFORNITORE 30 18
BEGIN
PROMPT 54 11 "Alt. "
PROMPT 52 10 "Alt. "
USE LF_CLIFO KEY 6
INPUT TIPOCF "F"
INPUT RICALT F_RICALTFORNITORE
@ -402,17 +386,15 @@ BEGIN
GROUP 2
END
BUTTON F_OCCASEDIT 56
BEGIN
PROMPT 1 11 "Dati anagrafici del cliente o fornitore occasionale"
PROMPT 1 10 "Dati anagrafici del cliente o fornitore occasionale"
FLAGS "H"
END
STRING F_CODPAG 4
BEGIN
PROMPT 1 12 "Codice Pagamento "
PROMPT 1 11 "Codice Pagamento "
FIELD CODPAG
FLAGS "U#"
USE %CPG
@ -428,7 +410,7 @@ END
STRING F_DESPAG 50
BEGIN
PROMPT 27 12 ""
PROMPT 25 11 ""
USE %CPG KEY 2
INPUT S0 F_DESPAG
DISPLAY "Descrizione@60" S0
@ -437,6 +419,54 @@ BEGIN
ADD RUN ba3 -6
END
STRING F_CONTRATTOC 18
BEGIN
PROMPT 1 12 "Contratto "
FLAGS "U"
FIELD CONTRATTO
USE &CON
INPUT CODTAB[1,1] "C"
INPUT CODTAB[2,7] F_CLIENTE SELECT
INPUT CODTAB[8,25] F_CONTRATTOC
DISPLAY "Contratto" CODTAB[8,]
DISPLAY "Descrizione@50" S0
OUTPUT F_CONTRATTOC CODTAB[8,]
CHECKTYPE NORMAL
HELP "Inserire un codice contratto di importo non inferiore a 3000 Euro"
ADD RUN cg7 -2 &CON
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 "
FLAGS "U"
FIELD CONTRATTO
USE &CON
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 cg7 -2 &CON
GROUP 2
END
TEXT DLG_NULL
BEGIN
PROMPT 40 12 "rilevante per Legge 122 del 30-07-2010"
GROUP 2
END
STRING SK_VALUTA 3
BEGIN
PROMPT 1 13 "Valuta "
@ -614,6 +644,31 @@ BEGIN
DRIVENBY F_VALUTAINTRA
END
STRING F_NOPROFIT 6
BEGIN
PROMPT 1 19 "Gest. No-profit "
USE &NPENT
INPUT CODTAB F_NOPROFIT
DISPLAY "Codice@6" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_NOPROFIT CODTAB
OUTPUT F_DESNOPROFIT S0
CHECKTYPE NORMAL
FIELD NOPROFIT
END
STRING F_DESNOPROFIT 50 48
BEGIN
PROMPT 27 19 ""
USE &NPENT KEY 2
INPUT S0 F_DESNOPROFIT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice@6" CODTAB
COPY OUTPUT F_NOPROFIT
CHECKTYPE NORMAL
END
BUTTON F_ADJUST_PRORATA 40
BEGIN
PROMPT 1 -1 "Corre~zione automatica righe contabili"

17
cg/cg7.cpp
View File

@ -1,26 +1,17 @@
#include <xvt.h>
#include <checks.h>
#include "cg7.h"
#define usage "Error - usage : %s -{0|1}"
int main(int argc,char** argv)
{
int rt = -1 ;
const int r = (argc > 1) ? atoi(&argv[1][1]) : -1;
switch (r)
{
case 0:
rt = cg7100(argc, argv) ; break; //gestore stampe generico modulo FE (stampe particolari CG)
break;
case 1:
rt = cg7200(argc, argv) ; break; //lista fatture per imponibile
break;
default:
error_box(usage, argv[0]) ; break;
case 0: cg7100(argc, argv); break; // gestore stampe generico modulo FE (stampe particolari CG)
case 1: cg7200(argc, argv); break; // lista fatture per imponibile
default: cg7300(argc, argv); break; // gestore tabelle di modulo CG
}
return rt;
return 0;
}

3
cg/cg7.h
View File

@ -1,2 +1,3 @@
int cg7100(int argc, char* argv[]);
int cg7200(int argc, char* argv[]);
int cg7200(int argc, char* argv[]);
int cg7300(int argc, char* argv[]);

11
cg/cg7200.cpp
View File

@ -10,10 +10,11 @@
#include <mov.h>
#include <occas.h>
#include <rmoviva.h>
#include "../ba/ba8500.h"
#include "cglib01.h"
#include "cg7200a.h"
#include "../ba/ba8500.h"
///////////////////////////////////////////////////////////
// Recordset
@ -87,7 +88,6 @@ protected:
public:
void elabora();
TPrint_x_imponibile_mask();
virtual ~TPrint_x_imponibile_mask() {}
};
bool TPrint_x_imponibile_mask::convalida_clifo(const char tipocf, const long codcf)
@ -103,9 +103,9 @@ bool TPrint_x_imponibile_mask::convalida_clifo(const char tipocf, const long cod
//solo per clifo esteri (alleg = 5)
if (alleg_clifo == 5)
{
if (tipocf == 'F') //tutti i fornitori esteri vanno esclusi (importazioni)
if (tipocf == 'F') // tutti i fornitori esteri vanno esclusi (importazioni)
return false;
else //vanno esclusi solo i clienti esteri di stati pirata
else // vanno esclusi solo i clienti esteri di stati pirata
{
const TString& stato_clifo = rec_clifo.get(CLI_STATOCF);
const TRectype& rec_sta = cache().get("%STA", stato_clifo);
@ -131,7 +131,6 @@ bool TPrint_x_imponibile_mask::aggiungi_movimento(const TRectype& rec, TPrint_x_
if (tipodoc == "SC" && rec.get_date(MOV_DATAREG) <= TDate(30, 4, 2011))
return false;
const TString& keytok = rec.get(MOV_NUMREG);
TRecord_array righe_iva(keytok, LF_RMOVIVA);
@ -202,7 +201,7 @@ bool TPrint_x_imponibile_mask::aggiungi_movimento(const TRectype& rec, TPrint_x_
output_recordset.set("Codcf", codcf);
TString80 ragsoc;
TString16 piva, cofi;
const TString16 ocfpi = rec.get(MOV_OCFPI); //è uno stupido cliente occasionale?
const TString16 ocfpi = rec.get(MOV_OCFPI); // è uno stupido cliente occasionale?
if (ocfpi.full())
{
const TRectype& rec_occas = cache().get(LF_OCCAS, ocfpi);

70
cg/cg7300.cpp Executable file
View File

@ -0,0 +1,70 @@
// gestione tabelle di modulo e-commerce
#include <automask.h>
#include <modtbapp.h>
///////////////////////////////////////////////////////////
// Maschera generica di gestione tabelle di modulo CG
///////////////////////////////////////////////////////////
class TCG_table_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field &o, TField_event e, long jolly);
public:
TCG_table_mask(const char* name) : TAutomask(name) {}
};
bool TCG_table_mask::on_field_event(TOperable_field &o, TField_event e, long jolly)
{
return true;
}
///////////////////////////////////////////////////////////
// Applicazione generica di gestione tabelle e-commerce
///////////////////////////////////////////////////////////
// applicazione per la gestione delle tabelle di lavanderia
class TCG_table_app : public TTable_module_application
{
protected: // TRelation_application
virtual TMask* user_create_mask();
virtual int write(const TMask& m);
virtual int rewrite(const TMask& m);
public:
};
// Ridefinire questo metodo per le eventuali maschere speciali
// che abbiano controlli speciali da effettuare nella on_field_event
TMask* TCG_table_app::user_create_mask()
{
const TString4 name = get_relation()->file(0).name();
if (name == "???")
return new TCG_table_mask("???");
// Le maschere normali sono gia' gestite dalla TTable_module_application
return TTable_module_application::user_create_mask();
}
// Ridefinizione del metodo write
int TCG_table_app::write(const TMask& m)
{
const TString4 name = get_relation()->file(0).name();
return TTable_module_application::write(m);
}
// Ridefinizione del metodo rewrite
int TCG_table_app::rewrite(const TMask& m)
{
const TString4 name = get_relation()->file(0).name();
return TTable_module_application::rewrite(m);
}
int cg7300(int argc, char* argv[])
{
TCG_table_app a;
a.run(argc, argv, TR("Tabella modulo Contabilità"));
return 0;
}

4
cg/cglib01.cpp
View File

@ -952,7 +952,7 @@ bool TBill::find()
bool TBill::read(TRectype &r)
{
bool ok = FALSE;
bool ok = false;
if (tipo() <= ' ' || sottoconto() <= 0)
{
@ -961,7 +961,7 @@ bool TBill::read(TRectype &r)
if (!pcon.empty())
{
r = pcon;
ok = TRUE;
ok = true;
}
}
if (ok)

2
cg/cgtbcon.h Executable file
View File

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

125
cg/cgtbcon.uml Executable file
View File

@ -0,0 +1,125 @@
#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/f19.dir
View File

@ -1,3 +1,3 @@
19
0
$pcon|||153|0|Piano dei conti|NCON||
$pcon|||154|0|Piano dei conti|NCON||

3
cg/f19.trr
View File

@ -1,5 +1,5 @@
19
27
28
GRUPPO|2|3|0|Codice del gruppo
CONTO|2|3|0|Codice del conto
SOTTOCONTO|3|6|0|Codice del sottoconto
@ -27,6 +27,7 @@ CMSNEEDED|8|1|0|Codice cdc/commessa obbligatorio in prima nota
CODCMS|1|20|0|Codice cdc/commessa predefinito
FASCMS|1|10|0|Codice fase predefinito
ANALITICA|8|1|0|Flag per trasferimento in analitica
SERVIZI|8|1|0|Flag Servizi/Merce per invio dati rilevanti
2
GRUPPO+CONTO+SOTTOCONTO|
UPPER(DESCR)|X

2
cg/f22.dir
View File

@ -1,3 +1,3 @@
22
0
$alleg|0|0|224|7|Progressivi allegati IVA|NCF||
$alleg|0|0|94|0|Comunicazione dati rilevanti|NCF||

36
cg/f22.trr
View File

@ -1,23 +1,19 @@
22
18
ANNO|9|4|0|Anno IVA
13
ANNO|2|4|0|Anno IVA
CODATT|1|5|0|Codice attivita'
PROGR|3|7|0|Progressivo
TIPOCF|1|1|0|Tipo <C>liente <F>ornitore
CODCF|3|6|0|Codice
IMMESSO|8|1|0|Immesso / calcolato
IMPESC|4|18|2|Imponibile esercizio in corso
IVAESC|4|18|2|IVA esercizio in corso
NIESC|4|18|2|Non imponibili esercizio in corso
E8ESC|4|18|2|Esenti art.8 esercizio in corso
NALLESC|4|18|2|Non in allegato esercizio in corso
NDOCESC|2|4|0|Numero documenti esercizio in corso
IMPESP|4|18|2|Imponibilie esercizio precedente
IVAESP|4|18|2|IVA esercizio precedente
NIESP|4|18|2|Non imponibili esercizio precedente
E8ESP|4|18|2|Esenti art.8 esercizio precedente
NALLESP|4|18|2|Non in allegato esercizio precedente
NDOCESP|2|4|0|Numero documenti esercizio precedente
PROG101102|4|18|2|Progressivo mod.101/102
2
ANNO+CODATT+TIPOCF+CODCF+IMMESSO|
ANNO+TIPOCF+CODCF|X
CODCF|3|6|0|Codice Cliente/Fornitore
OCFPI|1|16|0|Codice occasionale
NUMREG|3|7|0|Numero di registrazione originale
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
TIPOPE|2|1|0|Tipo operazione
3
ANNO+CODATT+PROGR|
ANNO+CODATT+TIPOCF+CODCF+OCFPI+PROGR|
NUMREG|X

2
cg/f23.dir
View File

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

6
cg/f23.trr
View File

@ -1,5 +1,5 @@
23
47
49
ANNOES|9|4|0|Codice esercizio
NUMREG|3|7|0|Numero di operazione
DATAREG|5|8|0|Data operazione
@ -28,7 +28,7 @@ TOTDOC|4|18|3|Totale documento
TOTDOCVAL|4|18|3|Totale documento in valuta
RITFIS|4|18|3|Ritenute fiscali
RITSOC|4|18|3|Ritenute sociali
PROVVIS|1|1|0|Tipo movimento (" " Normale, "P" Provvisorio cancellabile, "C" Provvisorio da cepiti)
PROVVIS|1|1|0|Tipo movimento (" " Normale, "P" Provvisorio cancellabile, "C" Provvisorio cespiti)
CODVALI|1|3|0|Codice valuta intra-comunitaria
CAMBIOI|4|15|6|Cambio della valuta intra-comunitaria
CORRLIRE|4|18|3|Corrispettivo in lire intra-comunitario
@ -47,6 +47,8 @@ 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
CONTRATTO|1|18|0|Contratto con importo > 3000 Euro
NOPROFIT|1|6|0|Tipo di ente NO-PROFIT
4
NUMREG|
DATAREG+NUMREG|X