Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@21811 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
f50543a411
commit
01f69a6474
26
cg/cg7.cpp
Executable file
26
cg/cg7.cpp
Executable file
@ -0,0 +1,26 @@
|
|||||||
|
#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;
|
||||||
|
}
|
||||||
|
return rt;
|
||||||
|
}
|
||||||
2
cg/cg7.h
Executable file
2
cg/cg7.h
Executable file
@ -0,0 +1,2 @@
|
|||||||
|
int cg7100(int argc, char* argv[]);
|
||||||
|
int cg7200(int argc, char* argv[]);
|
||||||
30
cg/cg7100.cpp
Executable file
30
cg/cg7100.cpp
Executable file
@ -0,0 +1,30 @@
|
|||||||
|
#include <applicat.h>
|
||||||
|
#include <report.h>
|
||||||
|
#include <strings.h>
|
||||||
|
|
||||||
|
#include "../ba/ba8500.h"
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
// TBruceWayne_app
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
class TBruceWayne_app : public TKlarkKent_app
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual TReport* create_report(const char* name) const;
|
||||||
|
};
|
||||||
|
|
||||||
|
TReport* TBruceWayne_app::create_report(const char* name) const
|
||||||
|
{
|
||||||
|
TReport* rep = new TReport;
|
||||||
|
rep->load(name);
|
||||||
|
const TFilename rep_name = name;
|
||||||
|
return rep;
|
||||||
|
}
|
||||||
|
|
||||||
|
int cg7100(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TBruceWayne_app app;
|
||||||
|
app.run(argc, argv, TR("Stampa Report Contabilita'"));
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
111
cg/cg7200.cpp
Executable file
111
cg/cg7200.cpp
Executable file
@ -0,0 +1,111 @@
|
|||||||
|
#include <applicat.h>
|
||||||
|
#include <automask.h>
|
||||||
|
#include <report.h>
|
||||||
|
#include <strings.h>
|
||||||
|
|
||||||
|
#include "../ba/ba8500.h"
|
||||||
|
|
||||||
|
#include "../cg/cg7200a.h"
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
// Report
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
class TPrint_x_imponibile_report : public TReport
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual bool use_mask() { return false; }
|
||||||
|
|
||||||
|
public:
|
||||||
|
TPrint_x_imponibile_report();
|
||||||
|
};
|
||||||
|
|
||||||
|
TPrint_x_imponibile_report::TPrint_x_imponibile_report()
|
||||||
|
{
|
||||||
|
load("cg7200a");
|
||||||
|
}
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
// Maschera
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
class TPrint_x_imponibile_mask : public TAutomask
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||||
|
|
||||||
|
public:
|
||||||
|
void elabora();
|
||||||
|
TPrint_x_imponibile_mask();
|
||||||
|
virtual ~TPrint_x_imponibile_mask() {}
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
void TPrint_x_imponibile_mask::elabora()
|
||||||
|
{
|
||||||
|
const char tipodate = get(F_TIPODATE)[0];
|
||||||
|
const char tipoelenco = get(F_TIPOELENCO)[0];
|
||||||
|
const long codcf = get_long(F_CODCF);
|
||||||
|
const int anno = get_int(F_ANNO);
|
||||||
|
|
||||||
|
TString query;
|
||||||
|
|
||||||
|
if (tipodate == 'R') //per data di 'R'egistrazione
|
||||||
|
{
|
||||||
|
query << "USE MOV KEY 3";
|
||||||
|
query << "\nSELECT (ANNOIVA=" << anno << ")";
|
||||||
|
query << "\nFROM TIPO=" << tipoelenco;
|
||||||
|
if (codcf > 0L)
|
||||||
|
query << " CODCF=" << codcf;
|
||||||
|
query << "\nTO TIPO=" << tipoelenco;
|
||||||
|
if (codcf > 0L)
|
||||||
|
query << " CODCF=" << codcf;
|
||||||
|
}
|
||||||
|
else //per data 'D'ocumento
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
TPrint_x_imponibile_report rep;
|
||||||
|
rep.set_recordset(query);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TPrint_x_imponibile_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
TPrint_x_imponibile_mask::TPrint_x_imponibile_mask() : TAutomask("cg7200a")
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
// Applicazione
|
||||||
|
///////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
class TPrint_x_imponibile : public TKlarkKent_app
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
|
||||||
|
public:
|
||||||
|
virtual void main_loop();
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
void TPrint_x_imponibile::main_loop()
|
||||||
|
{
|
||||||
|
TPrint_x_imponibile_mask mask;
|
||||||
|
|
||||||
|
while (mask.run() == K_ENTER)
|
||||||
|
{
|
||||||
|
mask.elabora();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
int cg7200(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TPrint_x_imponibile app;
|
||||||
|
app.run(argc, argv, TR("Lista fatture per imponibile"));
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
10
cg/cg7200a.h
Executable file
10
cg/cg7200a.h
Executable file
@ -0,0 +1,10 @@
|
|||||||
|
#define F_CODDITTA 201
|
||||||
|
#define F_RAGSOC 202
|
||||||
|
#define F_DATASTAMPA 203
|
||||||
|
#define F_ANNO 204
|
||||||
|
#define F_TIPODATE 205
|
||||||
|
#define F_DATAINI 206
|
||||||
|
#define F_DATAFIN 207
|
||||||
|
#define F_TIPOELENCO 208
|
||||||
|
#define F_CODCF 209
|
||||||
|
#define F_DESCF 210
|
||||||
103
cg/cg7200a.rep
Executable file
103
cg/cg7200a.rep
Executable file
@ -0,0 +1,103 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8" ?>
|
||||||
|
<report name="cg7200a" lpi="6">
|
||||||
|
<description>Lista fatture per imponibile</description>
|
||||||
|
<font face="Arial" size="8" />
|
||||||
|
<section type="Head" pattern="1" />
|
||||||
|
<section type="Head" level="1" pattern="1">
|
||||||
|
<field type="Stringa" width="1" id="101" pattern="1">
|
||||||
|
<source>#TIPOELENCO</source>
|
||||||
|
</field>
|
||||||
|
</section>
|
||||||
|
<section type="Head" level="2" pattern="1">
|
||||||
|
<groupby>CODCF</groupby>
|
||||||
|
<font face="Arial" bold="1" size="8" />
|
||||||
|
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
|
||||||
|
<field x="8" type="Stringa" width="50" pattern="1">
|
||||||
|
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#102,RAGSOC</prescript>
|
||||||
|
</field>
|
||||||
|
<field x="1" type="Numero" align="right" width="6" id="102" pattern="1">
|
||||||
|
<source>CODCF</source>
|
||||||
|
</field>
|
||||||
|
</section>
|
||||||
|
<section type="Body" pattern="1" />
|
||||||
|
<section type="Body" level="1" pattern="1" />
|
||||||
|
<section type="Head" level="11" pattern="1">
|
||||||
|
<prescript description="H11 PRESCRIPT">MESSAGE RESET,F11</prescript>
|
||||||
|
</section>
|
||||||
|
<section type="Body" level="11" pattern="1">
|
||||||
|
<sql>USE RMOVIVA
|
||||||
|
FROM NUMREG=#PARENT.NUMREG
|
||||||
|
TO NUMREG=#PARENT.NUMREG</sql>
|
||||||
|
<field x="3" type="Numero" align="right" width="3" pattern="1">
|
||||||
|
<source>NUMRIG</source>
|
||||||
|
</field>
|
||||||
|
<field x="7" type="Valuta" align="right" width="10" pattern="1" text="#########,@@">
|
||||||
|
<source>IMPONIBILE</source>
|
||||||
|
</field>
|
||||||
|
<field x="18" type="Valuta" align="right" width="10" pattern="1" text="#########,@@">
|
||||||
|
<source>IMPOSTA</source>
|
||||||
|
</field>
|
||||||
|
<field x="29" type="Stringa" width="4" pattern="1">
|
||||||
|
<source>CODIVA</source>
|
||||||
|
</field>
|
||||||
|
<field x="34" type="Array" width="15" pattern="1">
|
||||||
|
<prescript description="B11.0 PRESCRIPT">MESSAGE TABLEREAD,%IVA,CODIVA,S1</prescript>
|
||||||
|
<list>
|
||||||
|
<li Value="Normale"> "IMPONIBILE" @ "F11.201" +! "IMPOSTA" @ "F11.202" +!</li>
|
||||||
|
<li Value="Non soggetto" Code="NS"> "IMPONIBILE" @ "F11.211" +! "IMPOSTA" @ "F11.212" +!</li>
|
||||||
|
<li Value="Esente" Code="ES"> "IMPONIBILE" @ "F11.221" +! "IMPOSTA" @ "F11.222" +!</li>
|
||||||
|
<li Value="Non imponibile" Code="NI"> "IMPONIBILE" @ "F11.231" +! "IMPOSTA" @ "F11.232" +!</li>
|
||||||
|
</list>
|
||||||
|
</field>
|
||||||
|
</section>
|
||||||
|
<section type="Foot" level="11" hidden="1" pattern="1">
|
||||||
|
<prescript description="F11 PRESCRIPT">#241 @
|
||||||
|
3000 C; IF
|
||||||
|
"F11" HIDE
|
||||||
|
ELSE
|
||||||
|
"F11" SHOW
|
||||||
|
THEN</prescript>
|
||||||
|
<field x="2" type="Numero" align="right" width="7" pattern="1">
|
||||||
|
<source>NUMREG</source>
|
||||||
|
</field>
|
||||||
|
<field x="10" type="Data" width="10" pattern="1">
|
||||||
|
<source>DATAREG</source>
|
||||||
|
</field>
|
||||||
|
<field x="21" type="Stringa" width="3" pattern="1">
|
||||||
|
<source>REG</source>
|
||||||
|
</field>
|
||||||
|
<field x="25" type="Numero" align="right" width="6" pattern="1">
|
||||||
|
<source>PROTIVA</source>
|
||||||
|
</field>
|
||||||
|
<field x="32" type="Stringa" align="right" width="7" pattern="1">
|
||||||
|
<source>NUMDOC</source>
|
||||||
|
</field>
|
||||||
|
<field x="40" type="Data" width="10" pattern="1">
|
||||||
|
<source>DATADOC</source>
|
||||||
|
</field>
|
||||||
|
<field x="51" type="Stringa" width="3" pattern="1">
|
||||||
|
<source>CODCAUS</source>
|
||||||
|
</field>
|
||||||
|
<field x="84" type="Valuta" hidden="1" align="right" width="10" id="201" pattern="1" text="#########,@@" />
|
||||||
|
<field x="94" type="Valuta" hidden="1" align="right" width="10" id="202" pattern="1" text="#########,@@" />
|
||||||
|
<field x="106" type="Valuta" hidden="1" align="right" width="10" id="211" pattern="1" text="#########,@@" />
|
||||||
|
<field x="116" type="Valuta" hidden="1" align="right" width="10" id="212" pattern="1" text="#########,@@" />
|
||||||
|
<field x="128" type="Valuta" hidden="1" align="right" width="10" id="221" pattern="1" text="#########,@@" />
|
||||||
|
<field x="138" type="Valuta" hidden="1" align="right" width="10" id="222" pattern="1" text="#########,@@" />
|
||||||
|
<field x="150" type="Valuta" hidden="1" align="right" width="10" id="231" pattern="1" text="#########,@@" />
|
||||||
|
<field x="160" type="Valuta" hidden="1" align="right" width="10" id="232" pattern="1" text="#########,@@" />
|
||||||
|
<field x="60" type="Valuta" align="right" width="10" id="241" pattern="1" text="#########,@@">
|
||||||
|
<source>#201+#211+#221+#231</source>
|
||||||
|
</field>
|
||||||
|
<field x="71" type="Valuta" align="right" width="10" id="242" pattern="1" text="#########,@@">
|
||||||
|
<source>#202+#212+#222+#232</source>
|
||||||
|
</field>
|
||||||
|
</section>
|
||||||
|
<section type="Foot" pattern="1" />
|
||||||
|
<section type="Foot" level="1" pattern="1" />
|
||||||
|
<section type="Foot" level="2" pattern="1" />
|
||||||
|
<sql>USE MOV KEY 3
|
||||||
|
SELECT (ANNOIVA=2010)
|
||||||
|
FROM TIPO=C
|
||||||
|
TO TIPO=C</sql>
|
||||||
|
</report>
|
||||||
116
cg/cg7200a.uml
Executable file
116
cg/cg7200a.uml
Executable file
@ -0,0 +1,116 @@
|
|||||||
|
#include "cg7200a.h"
|
||||||
|
|
||||||
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
|
|
||||||
|
#include <printbar.h>
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Lista fatture per imponibile" 0 2 0 0
|
||||||
|
|
||||||
|
NUMBER F_CODDITTA 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Ditta "
|
||||||
|
FLAGS "FRD"
|
||||||
|
USE LF_NDITTE KEY 1
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
INPUT CODDITTA F_CODDITTA
|
||||||
|
DISPLAY "Codice" CODDITTA
|
||||||
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 15 1 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATASTAMPA
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 2 "Data stampa "
|
||||||
|
HELP "Data in cui viene effettuata la stampa"
|
||||||
|
FLAGS "A"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_ANNO 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 3 "Anno "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
FIELD #ANNO
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 76 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 4 "@bParametri movimenti"
|
||||||
|
END
|
||||||
|
|
||||||
|
LIST F_TIPODATE 13
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 5 "Seleziona per data di: "
|
||||||
|
HELP "Movimenti per data registrazione o data documento"
|
||||||
|
ITEM "R|Registrazione"
|
||||||
|
ITEM "D|Documento"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATAINI
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 6 "Stampa movimenti dalla data "
|
||||||
|
HELP "Data da cui iniziare la stampa"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATAFIN
|
||||||
|
BEGIN
|
||||||
|
PROMPT 50 6 "alla data "
|
||||||
|
HELP "Data fino a cui eseguire la stampa"
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 76 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 8 "@bParametri clienti/fornitori"
|
||||||
|
END
|
||||||
|
|
||||||
|
LIST F_TIPOELENCO 9
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 9 "Tipo elenco "
|
||||||
|
HELP "Indicare cosa includere nella stampa"
|
||||||
|
ITEM "C|Clienti"
|
||||||
|
ITEM "F|Fornitori"
|
||||||
|
FIELD #TIPOELENCO
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODCF 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 10 "Cliente/Fornitore "
|
||||||
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
|
GROUP 1
|
||||||
|
USE LF_CLIFO
|
||||||
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
|
INPUT CODCF F_CODCF
|
||||||
|
DISPLAY "Tipo" TIPOCF
|
||||||
|
DISPLAY "Codice" CODCF
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODCF CODCF
|
||||||
|
OUTPUT F_DESCF RAGSOC
|
||||||
|
FLAGS "R"
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESCF 50 45
|
||||||
|
BEGIN
|
||||||
|
PROMPT 29 10 ""
|
||||||
|
GROUP 1
|
||||||
|
USE LF_CLIFO KEY 2
|
||||||
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
|
INPUT RAGSOC F_DESCF
|
||||||
|
DISPLAY "Tipo" TIPOCF
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
DISPLAY "Codice" CODCF
|
||||||
|
COPY OUTPUT F_CODCF
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
Loading…
x
Reference in New Issue
Block a user