Patch level : 12.0 1140

Files correlati     : ba8.exe
Commento:
l'execuzione delle query non mostrava più la maschera di selezione
This commit is contained in:
Alessandro Bonazzi 2022-05-03 17:11:48 +02:00
parent dbbcfe8696
commit 1a68ebd3ab
9 changed files with 985 additions and 1 deletions

View File

@ -1486,7 +1486,7 @@ bool TSQL_recordset_app::create()
{
if (!has_module(RSAUT))
return error_box(TR("Modulo non autorizzato"));
xvt_vobj_show(TASK_WIN);
_msk = new TQuery_mask;
xvt_sys_sleep(500); // Lasciamo il tempo di leggere il titolo

15
src/ps/cast/aa.qry Normal file
View File

@ -0,0 +1,15 @@
<?xml version="1.0" encoding="UTF-8" ?>
<query Name="aa">
<description>
</description>
<tables>
<table Name="CLIFO" Num="20" />
</tables>
<fields>
<field Name="TIPOCF" ExprTo="F" Table="CLIFO" ExprFrom="F" />
<field Name="CODCF" Table="CLIFO" />
<field Name="RAGSOC" Table="CLIFO" />
</fields>
<sql>
</sql>
</query>

8
src/ps/cast/cgaddon.men Normal file
View File

@ -0,0 +1,8 @@
[CGADDON]
Caption = "Personalizzazioni"
Module = 0
Flags = ""
Item_01 = "Importazione Clienti", "cg0.exe -1 -iC:\TEMPprassi\CLIENTE*.ini /uADMIN"
Item_02 = "Importazione Fatture", "cg2.exe -0 -iC:\TEMPprassiFatt\FATTUR*.ini /uADMIN"
Item_03 = "Esp. Saldi per Contr. Cast", "ba8.exe -1 saldi_c X"
Item_03 = "Esp. Saldi per Contr. Magazzino", "ba8.exe -1 saldi_m X"

258
src/ps/cast/saldi_c.msk Normal file
View File

@ -0,0 +1,258 @@
TOOLBAR "topbar" 0 0 0 2
BU 24 2 2
BE
PR 1 1 "Elabora"
PI 120
EN
BU 25 2 2
BE
PR 2 1 "Imposta"
PI 165
EN
BU -1 2 2
BE
PR -1 1 ""
PI 0
EN
BU 33 2 2
BE
PR 1 1 "Info"
ME EXIT,332
PI 162
EN
BU 34 2 2
BE
PR 2 1 "Help"
ME EXIT,331
PI 163
EN
BU -1 2 2
BE
PR -1 0 ""
PI 0
EN
BU 9 2 2
BE
PR 3 1 "Fine"
ME EXIT,20334
PI 114
EN
EN
PA "Stampa Saldi con Contropartita" -1 -1 76 16
NU 101 5
BE
PR 2 1 "Ditta "
FL "FRD"
US 9 KE 1
CH REQUIRED
IN CODDITTA 101
DI "Codice" CODDITTA
DI "Ragione sociale @50" RAGSOC
OU 101 CODDITTA
OU 104 RAGSOC
EN
ST 104 50
BE
PR 2 2 "Ragione sociale "
FL "D"
EN
NU 106 4
BE
PR 2 3 "Codice esercizio "
HE "Esercizio di cui si vuole ottenere il bilancio"
US ESC
IN CODTAB 106
DI "Codice" CODTAB
DI "Data inizio esercizio" D0
DI "Data fine esercizio" D1
OU 106 CODTAB
FL "Z"
CH NORMAL
WA "L'esercizio non esiste"
FI ANNOSEL
ME 0 CLEAR,4@
ME ENABLE,4@
EN
DA 109
BE
PR 2 4 "Periodo da Data "
HE "Data dalla quale si vuole la stampa"
FI DADATA
EN
NU 112 2
BE
PR 2 5 ""
FL "DH"
VA 14 1 #109[7,8]
FI DAG
DR 109
EN
NU 113 2
BE
PR 6 5 ""
FL "DH"
VA 14 1 #109[5,6]
FI DAM
DR 109
EN
DA 110
BE
PR 35 4 "A Data "
HE "Data fino alla quale si vuole la stampa"
FI ADATA
EN
NU 114 2
BE
PR 42 5 ""
FL "DH"
VA 14 1 #110[7,8]
FI AGIO
DR 110
EN
NU 115 2
BE
PR 46 5 ""
FL "DH"
VA 14 1 #110[5,6]
FI AM
DR 110
EN
GR -1 55 6
BE
PR 2 6 "@bSelezione sui conti"
EN
NU 132 3
BE
PR 3 7 "Da: Gruppo "
US 19 KE 1 SE (CONTO="")
IN GRUPPO 132
DI "Gruppo" GRUPPO
DI "Descrizione@50" DESCR
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
FI DGR
EN
NU 133 3
BE
PR 23 7 "Conto "
US 19 KE 1 SE (SOTTOCONTO="")
IN GRUPPO 132
IN CONTO 133
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Descrizione@50" DESCR
OU 133 CONTO
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
FI DCNT
EN
NU 134 6
BE
PR 36 7 "Sottoconto "
US 19
IN GRUPPO 132
IN CONTO 133
IN SOTTOCONTO 134
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
DI "Descrizione@50" DESCR
OU 134 SOTTOCONTO
OU 132 GRUPPO
OU 133 CONTO
OU 135 DESCR
CH NORMAL
FI DSTCNT
FL "H"
EN
ST 135 50
BE
PR 3 8 ""
US 19 KE 2
IN DESCR 135
DI "Descrizione@50" DESCR
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
OU 134 SOTTOCONTO
OU 133 CONTO
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
EN
NU 136 3
BE
PR 3 9 "A: Gruppo "
US 19 KE 1 SE (CONTO="")
IN GRUPPO 136
DI "Gruppo" GRUPPO
DI "Descrizione@50" DESCR
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
FI AGR
EN
NU 137 3
BE
PR 23 9 "Conto "
US 19 KE 1 SE (SOTTOCONTO="")
IN GRUPPO 136
IN CONTO 137
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Descrizione@50" DESCR
OU 137 CONTO
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
FI ACNT
EN
NU 138 6
BE
PR 36 9 "Sottoconto "
US 19
IN GRUPPO 136
IN CONTO 137
IN SOTTOCONTO 138
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
DI "Descrizione@50" DESCR
OU 138 SOTTOCONTO
OU 136 GRUPPO
OU 137 CONTO
OU 139 DESCR
CH NORMAL
FI ASTCNT
FL "H"
EN
ST 139 50
BE
PR 3 10 ""
US 19 KE 2
IN DESCR 139
DI "Descrizione@50" DESCR
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
OU 138 SOTTOCONTO
OU 137 CONTO
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
EN
BO 401
BE
PR 3 12 "Stampa i Totali"
FI SHOW_TOT
FL "H"
EN
EN
ENDMASK

10
src/ps/cast/saldi_c.qry Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="UTF-8" ?>
<query Name="saldi_c">
<description>Saldi per contropartita cast</description>
<sql>ODBC(cast)
SELECT rmov.datareg,mov.codcaus,caus.descr,mov.descr, rmov.GRUPPO,rmov.CONTO,rmov.SOTTOCONTO,rmov.sezione,iif(rmov.sezione='A',-rmov.IMPORTO,rmov.IMPORTO),mov.numdoc,mov.datadoc,mov.protiva,rmov.TIPOCC,rmov.GRUPPOC,rmov.CONTOC,rmov.SOTTOCONTC,iif(rmov.tipocc='',pcon.descr,clifo.ragsoc),rmov.gruppo*100+rmov.conto as mastro
FROM RMOV join mov on (rmov.numreg=mov.numreg) left join clifo on (rmov.tipocc=clifo.tipocf and rmov.sottocontc=clifo.codcf) left join pcon on (rmov.gruppoc=pcon.gruppo and rmov.contoc=pcon.conto and rmov.sottocontc=pcon.sottoconto) left join caus on (caus.codcaus=mov.codcaus)
where rmov.annoes=#ANNOSEL and (rmov.datareg&#3E;=datetime(#ANNOSEL,#DAM,#DAG)) and (rmov.datareg&#3C;=datetime(#ANNOSEL,#AM,#AGIO))
ORDER BY rmov.GRUPPO,rmov.CONTO,rmov.SOTTOCONTO,rmov.TIPOCC,rmov.GRUPPOC,rmov.CONTOC,rmov.SOTTOCONTC
HAVING mastro&#3E;=(#DGR*100+#DCNT) and mastro&#3C;=(#AGR*100+#ACNT)</sql>
</query>

View File

@ -0,0 +1,219 @@
TOOLBAR "topbar" 0 0 0 2
BU 24 2 2
BE
PR 1 1 "Stampa"
PI 118
EN
BU 25 2 2
BE
PR 2 1 "Imposta"
PI 165
EN
BU -1 2 2
BE
PR -1 1 ""
PI 0
EN
BU 33 2 2
BE
PR 1 1 "Info"
ME EXIT,332
PI 162
EN
BU 34 2 2
BE
PR 2 1 "Help"
ME EXIT,331
PI 163
EN
BU -1 2 2
BE
PR -1 0 ""
PI 0
EN
BU 9 2 2
BE
PR 3 1 "Fine"
ME EXIT,20334
PI 114
EN
EN
PA "Stampa Saldi con Contropartita" -1 -1 76 16
NU 101 5
BE
PR 2 1 "Ditta "
FL "FRD"
US 9 KE 1
CH REQUIRED
IN CODDITTA 101
DI "Codice" CODDITTA
DI "Ragione sociale @50" RAGSOC
OU 101 CODDITTA
OU 104 RAGSOC
EN
ST 104 50
BE
PR 2 2 "Ragione sociale "
FL "D"
EN
NU 106 4
BE
PR 2 3 "Codice esercizio "
HE "Esercizio di cui si vuole ottenere il bilancio"
US ESC
IN CODTAB 106
DI "Codice" CODTAB
DI "Data inizio esercizio" D0
DI "Data fine esercizio" D1
OU 106 CODTAB
FL "Z"
CH NORMAL
WA "L'esercizio non esiste"
FI ANNOSEL
ME 0 CLEAR,4@
ME ENABLE,4@
EN
DA 109
BE
PR 2 4 "Periodo da Data "
HE "Data dalla quale si vuole la stampa"
FI DADATA
EN
DA 110
BE
PR 35 4 "A Data "
HE "Data fino alla quale si vuole la stampa"
FI ADATA
EN
GR -1 55 6
BE
PR 2 6 "@bSelezione sui conti"
EN
NU 132 3
BE
PR 3 7 "Da: Gruppo "
US 19 KE 1 SE (CONTO="")
IN GRUPPO 132
DI "Gruppo" GRUPPO
DI "Descrizione@50" DESCR
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
FI DGR
EN
NU 133 3
BE
PR 23 7 "Conto "
US 19 KE 1 SE (SOTTOCONTO="")
IN GRUPPO 132
IN CONTO 133
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Descrizione@50" DESCR
OU 133 CONTO
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
FI DCNT
EN
NU 134 6
BE
PR 36 7 "Sottoconto "
US 19
IN GRUPPO 132
IN CONTO 133
IN SOTTOCONTO 134
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
DI "Descrizione@50" DESCR
OU 134 SOTTOCONTO
OU 132 GRUPPO
OU 133 CONTO
OU 135 DESCR
CH NORMAL
FI DSTCNT
EN
ST 135 50
BE
PR 3 8 ""
US 19 KE 2
IN DESCR 135
DI "Descrizione@50" DESCR
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
OU 134 SOTTOCONTO
OU 133 CONTO
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
EN
NU 136 3
BE
PR 3 9 "A: Gruppo "
US 19 KE 1 SE (CONTO="")
IN GRUPPO 136
DI "Gruppo" GRUPPO
DI "Descrizione@50" DESCR
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
FI AGR
EN
NU 137 3
BE
PR 23 9 "Conto "
US 19 KE 1 SE (SOTTOCONTO="")
IN GRUPPO 136
IN CONTO 137
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Descrizione@50" DESCR
OU 137 CONTO
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
FI ACNT
EN
NU 138 6
BE
PR 36 9 "Sottoconto "
US 19
IN GRUPPO 136
IN CONTO 137
IN SOTTOCONTO 138
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
DI "Descrizione@50" DESCR
OU 138 SOTTOCONTO
OU 136 GRUPPO
OU 137 CONTO
OU 139 DESCR
CH NORMAL
FI ASTCNT
EN
ST 139 50
BE
PR 3 10 ""
US 19 KE 2
IN DESCR 139
DI "Descrizione@50" DESCR
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
OU 138 SOTTOCONTO
OU 137 CONTO
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
EN
BO 401
BE
PR 3 12 "Stampa i Totali"
FI SHOW_TOT
EN
EN
ENDMASK

View File

@ -0,0 +1,206 @@
<?xml version="1.0" encoding="UTF-8" ?>
<report name="saldi_controp" orientation="2" lpi="6">
<description>query saldi per contropartita</description>
<font face="Courier New" size="10" />
<section type="Head" pattern="1">
<font face="Arial" bold="1" size="8" />
<field x="9" type="Testo" align="right" width="6" pattern="1" text="STCN" />
<field x="69" type="Testo" width="1" id="5" pattern="1" text="T" />
<field x="1" type="Testo" align="right" width="3" id="10" pattern="1" text="GR" />
<field x="70.5" type="Testo" align="right" width="3" id="10" pattern="1" text="GRC" />
<field x="5" type="Testo" align="right" width="3" id="20" pattern="1" text="CN" />
<field x="74.5" type="Testo" align="right" width="3" id="20" pattern="1" text="CNC" />
<field x="78.5" type="Testo" align="right" width="6" id="30" pattern="1" text="STCNC" />
<field x="16" type="Testo" width="40" id="40" pattern="1" text="DESCRIZIONE" />
<field x="85" type="Testo" width="25" id="80" pattern="1" text="DESCRIZIONE CONTROPARTITA" />
<field x="35" y="2" type="Stringa" hidden="1" align="right" bg_color="#80FF80" width="11" id="100" pattern="2">
<source>"SALDO-" +(#ANNOSEL-1)</source>
</field>
<field x="57" type="Stringa" align="right" bg_color="#FF80C0" width="11" height="2" id="200" pattern="1">
<source>"SALDO al " +#ADATA</source>
</field>
<field x="46" y="2" type="Testo" hidden="1" align="right" bg_color="#E8E8E8" width="11" id="300" pattern="2" text="TOTALE" />
<field border="1" x="1" type="Rettangolo" width="132" height="2" id="1000" pattern="1" />
</section>
<section type="Head" level="1" pattern="1" />
<section type="Head" level="2" hidden="1" pattern="1">
<groupby>GRUPPO+CONTO+SOTTOCONTO</groupby>
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
<field type="Stringa" width="1" id="5" pattern="1">
<source>RMOV.TIPOC</source>
</field>
<field x="1" type="Numero" align="right" width="3" id="10" pattern="1">
<source>RMOV.GRUPPO</source>
</field>
<field x="5" type="Numero" align="right" width="3" id="20" pattern="1">
<source>RMOV.CONTO</source>
</field>
<field x="9" type="Numero" align="right" width="6" id="30" pattern="1">
<source>RMOV.SOTTOCONTO</source>
</field>
<field x="16" type="Stringa" width="50" id="40" pattern="1">
<source>PCON.DESCR</source>
</field>
<field x="67" type="Stringa" width="50" id="50" pattern="1">
<prescript description="H2.50 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#5!CODCF=#30,RAGSOC</prescript>
</field>
</section>
<section type="Head" level="3" hidden="1" pattern="1">
<groupby>GRUPPOC+CONTOC+SOTTOCONTC</groupby>
<prescript description="H3 PRESCRIPT">MESSAGE RESET,F3</prescript>
<field x="4" type="Stringa" width="1" id="5" pattern="1">
<source>RMOV.TIPOCC</source>
</field>
<field x="6" type="Numero" align="right" width="3" id="10" pattern="1">
<source>RMOV.GRUPPOC</source>
</field>
<field x="10" type="Numero" align="right" width="3" id="20" pattern="1">
<source>RMOV.CONTOC</source>
</field>
<field x="14" type="Numero" align="right" width="6" id="30" pattern="1">
<source>RMOV.SOTTOCONTC</source>
</field>
</section>
<section type="Body" pattern="1" />
<section type="Body" level="1" hidden="1" pattern="1">
<condition>ANNOES=(#ANNOSEL-1)</condition>
<font face="Arial" size="8" />
<field x="10" type="Data" width="10" pattern="1">
<source>RMOV.DATAREG</source>
</field>
<field x="21" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
<source>RMOV.NUMREG</source>
</field>
<field x="30" type="Stringa" width="3" pattern="1">
<source>MOV.CODCAUS</source>
</field>
<field x="93" type="Stringa" align="right" width="1" pattern="1">
<source>RMOV.TIPOCC</source>
</field>
<field x="94.5" type="Numero" align="right" width="3" pattern="1">
<source>RMOV.GRUPPOC</source>
</field>
<field x="98.5" type="Numero" align="right" width="3" pattern="1">
<source>RMOV.CONTOC</source>
</field>
<field x="102.5" type="Numero" align="right" width="6" pattern="1">
<source>RMOV.SOTTOCONTC</source>
</field>
<field x="55" type="Stringa" width="1" id="10" pattern="1">
<source>RMOV.SEZIONE</source>
</field>
<field x="57" type="Valuta" align="right" bg_color="#80FF80" width="11" id="100" pattern="2" text="###.###.###,@@">
<source>IF(NUM(RMOV.SEZIONE="A"),RMOV.IMPORTO,-RMOV.IMPORTO)</source>
<prescript description="B1.100 PRESCRIPT">MESSAGE ADD,F3.100</prescript>
</field>
</section>
<section type="Body" level="2" hidden="1" pattern="1">
<condition>ANNOES=#ANNOSEL</condition>
<font face="Arial" size="8" />
<field x="10" type="Data" width="10" pattern="1">
<source>RMOV.DATAREG</source>
</field>
<field x="21" type="Numero" align="right" link="23.NUMREG" width="7" pattern="1">
<source>RMOV.NUMREG</source>
</field>
<field x="30" type="Stringa" width="3" pattern="1">
<source>MOV.CODCAUS</source>
</field>
<field x="67" type="Stringa" width="1" pattern="1">
<source>RMOV.SEZIONE</source>
</field>
<field x="93" type="Stringa" align="right" width="1" pattern="1">
<source>RMOV.TIPOCC</source>
</field>
<field x="94.5" type="Numero" align="right" width="3" pattern="1">
<source>RMOV.GRUPPOC</source>
</field>
<field x="98.5" type="Numero" align="right" width="3" pattern="1">
<source>RMOV.CONTOC</source>
</field>
<field x="102.5" type="Numero" align="right" width="6" pattern="1">
<source>RMOV.SOTTOCONTC</source>
</field>
<field x="69" type="Valuta" align="right" bg_color="#FF80C0" width="11" id="200" pattern="1" text="###.###.###,@@">
<source>IF(NUM(RMOV.SEZIONE="A"),RMOV.IMPORTO,-RMOV.IMPORTO)</source>
<prescript description="B2.200 PRESCRIPT">MESSAGE ADD,F3.200</prescript>
</field>
</section>
<section type="Foot" pattern="1" />
<section type="Foot" level="1" pattern="1" />
<section type="Foot" level="2" hidden="1" bg_color="#C0C0C0" pattern="1">
<font face="Arial" bold="1" size="8" />
<field type="Stringa" hidden="1" width="1" pattern="1">
<source>#SHOW_TOT</source>
<prescript description="F2.0 PRESCRIPT">MESSAGE EMPTY HIDE,F2
MESSAGE SHOW,F2</prescript>
</field>
<field x="1" type="Numero" align="right" width="3" id="10" pattern="1">
<source>#H2.10</source>
</field>
<field x="5" type="Numero" align="right" width="3" id="20" pattern="1">
<source>#H2.20</source>
</field>
<field x="9" type="Numero" align="right" width="6" id="30" pattern="1">
<source>#H2.30</source>
</field>
<field x="16" type="Stringa" width="40" id="40" pattern="1">
<source>#H2.40</source>
</field>
<field x="45" y="1" type="Valuta" hidden="1" align="right" bg_color="#80FF80" width="11" id="100" pattern="2" hide_zero="1" text="###.###.###,@@" />
<field x="57" type="Valuta" align="right" bg_color="#FF80C0" width="11" id="200" pattern="1" hide_zero="1" text="###.###.###,@@" />
<field x="81" type="Valuta" hidden="1" align="right" bg_color="#E8E8E8" width="11" id="300" pattern="2" text="###.###.###,@@">
<source>#100+#200</source>
</field>
</section>
<section type="Foot" level="3" pattern="1">
<field x="69" type="Stringa" width="1" id="5" pattern="1">
<source>#H3.5</source>
</field>
<field x="1" type="Numero" align="right" width="3" id="10" pattern="1">
<source>#H2.10</source>
</field>
<field x="70.5" type="Numero" align="right" width="3" id="10" pattern="1">
<source>#H3.10</source>
</field>
<field x="5" type="Numero" align="right" width="3" id="20" pattern="1">
<source>#H2.20</source>
</field>
<field x="74.5" type="Numero" align="right" width="3" id="20" pattern="1">
<source>#H3.20</source>
</field>
<field x="9" type="Numero" align="right" width="6" id="30" pattern="1">
<source>#H2.30</source>
</field>
<field x="78.5" type="Numero" align="right" width="6" id="30" pattern="1">
<source>#H3.30</source>
</field>
<field x="16" type="Stringa" width="40" id="40" pattern="1">
<source>#H2.40</source>
<alt_source>#H2.50</alt_source>
</field>
<field x="85" type="Stringa" width="25" id="80" pattern="1">
<prescript description="F3.80 PRESCRIPT">MESSAGE ISAMREAD,19,GRUPPO=#10!CONTO=#20!SOTTOCONTO=#30,DESCR</prescript>
</field>
<field x="85" type="Stringa" width="25" id="90" pattern="1">
<prescript description="F3.90 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#5!CODCF=#30,RAGSOC</prescript>
</field>
<field x="45" y="1" type="Valuta" hidden="1" align="right" bg_color="#80FF80" width="11" id="100" pattern="2" hide_zero="1" text="###.###.###,@@">
<prescript description="F3.100 PRESCRIPT">MESSAGE ADD,F2.100</prescript>
</field>
<field x="57" type="Valuta" align="right" bg_color="#FF80C0" width="11" id="200" pattern="1" hide_zero="1" text="###.###.###,@@">
<prescript description="F3.200 PRESCRIPT">MESSAGE ADD,F2.200</prescript>
</field>
<field x="57" y="1" type="Valuta" hidden="1" align="right" bg_color="#E8E8E8" width="11" id="300" pattern="2" text="###.###.###,@@">
<source>#100+#200</source>
<prescript description="F3.300 PRESCRIPT">MESSAGE EMPTY HIDE,F3
MESSAGE SHOW,F3</prescript>
</field>
</section>
<sql>USE RMOV KEY 2 SELECT (MOV.ANNOES=#ANNOSEL)||(#SHOW_TOT="M")
BY GRUPPO CONTO SOTTOCONTO GRUPPOC CONTOC SOTTOCONTC
JOIN MOV INTO NUMREG==NUMREG
JOIN PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
FROM GRUPPO=#DGR CONTO=#DCNT SOTTOCONTO=#DSTCNT
TO GRUPPO=#AGR CONTO=#ACNT SOTTOCONTO=#ASTCNT</sql>
</report>

258
src/ps/cast/saldi_m.msk Normal file
View File

@ -0,0 +1,258 @@
TOOLBAR "topbar" 0 0 0 2
BU 24 2 2
BE
PR 1 1 "Elabora"
PI 120
EN
BU 25 2 2
BE
PR 2 1 "Imposta"
PI 165
EN
BU -1 2 2
BE
PR -1 1 ""
PI 0
EN
BU 33 2 2
BE
PR 1 1 "Info"
ME EXIT,332
PI 162
EN
BU 34 2 2
BE
PR 2 1 "Help"
ME EXIT,331
PI 163
EN
BU -1 2 2
BE
PR -1 0 ""
PI 0
EN
BU 9 2 2
BE
PR 3 1 "Fine"
ME EXIT,20334
PI 114
EN
EN
PA "Stampa Saldi con Contropartita" -1 -1 76 16
NU 101 5
BE
PR 2 1 "Ditta "
FL "FRD"
US 9 KE 1
CH REQUIRED
IN CODDITTA 101
DI "Codice" CODDITTA
DI "Ragione sociale @50" RAGSOC
OU 101 CODDITTA
OU 104 RAGSOC
EN
ST 104 50
BE
PR 2 2 "Ragione sociale "
FL "D"
EN
NU 106 4
BE
PR 2 3 "Codice esercizio "
HE "Esercizio di cui si vuole ottenere il bilancio"
US ESC
IN CODTAB 106
DI "Codice" CODTAB
DI "Data inizio esercizio" D0
DI "Data fine esercizio" D1
OU 106 CODTAB
FL "Z"
CH NORMAL
WA "L'esercizio non esiste"
FI ANNOSEL
ME 0 CLEAR,4@
ME ENABLE,4@
EN
DA 109
BE
PR 2 4 "Periodo da Data "
HE "Data dalla quale si vuole la stampa"
FI DADATA
EN
NU 112 2
BE
PR 2 5 ""
FL "DH"
VA 14 1 #109[7,8]
FI DAG
DR 109
EN
NU 113 2
BE
PR 6 5 ""
FL "DH"
VA 14 1 #109[5,6]
FI DAM
DR 109
EN
DA 110
BE
PR 35 4 "A Data "
HE "Data fino alla quale si vuole la stampa"
FI ADATA
EN
NU 114 2
BE
PR 42 5 ""
FL "DH"
VA 14 1 #110[7,8]
FI AGIO
DR 110
EN
NU 115 2
BE
PR 46 5 ""
FL "DH"
VA 14 1 #110[5,6]
FI AM
DR 110
EN
GR -1 55 6
BE
PR 2 6 "@bSelezione sui conti"
EN
NU 132 3
BE
PR 3 7 "Da: Gruppo "
US 19 KE 1 SE (CONTO="")
IN GRUPPO 132
DI "Gruppo" GRUPPO
DI "Descrizione@50" DESCR
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
FI DGR
EN
NU 133 3
BE
PR 23 7 "Conto "
US 19 KE 1 SE (SOTTOCONTO="")
IN GRUPPO 132
IN CONTO 133
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Descrizione@50" DESCR
OU 133 CONTO
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
FI DCNT
EN
NU 134 6
BE
PR 36 7 "Sottoconto "
US 19
IN GRUPPO 132
IN CONTO 133
IN SOTTOCONTO 134
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
DI "Descrizione@50" DESCR
OU 134 SOTTOCONTO
OU 132 GRUPPO
OU 133 CONTO
OU 135 DESCR
CH NORMAL
FI DSTCNT
FL "H"
EN
ST 135 50
BE
PR 3 8 ""
US 19 KE 2
IN DESCR 135
DI "Descrizione@50" DESCR
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
OU 134 SOTTOCONTO
OU 133 CONTO
OU 132 GRUPPO
OU 135 DESCR
CH NORMAL
EN
NU 136 3
BE
PR 3 9 "A: Gruppo "
US 19 KE 1 SE (CONTO="")
IN GRUPPO 136
DI "Gruppo" GRUPPO
DI "Descrizione@50" DESCR
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
FI AGR
EN
NU 137 3
BE
PR 23 9 "Conto "
US 19 KE 1 SE (SOTTOCONTO="")
IN GRUPPO 136
IN CONTO 137
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Descrizione@50" DESCR
OU 137 CONTO
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
FI ACNT
EN
NU 138 6
BE
PR 36 9 "Sottoconto "
US 19
IN GRUPPO 136
IN CONTO 137
IN SOTTOCONTO 138
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
DI "Descrizione@50" DESCR
OU 138 SOTTOCONTO
OU 136 GRUPPO
OU 137 CONTO
OU 139 DESCR
CH NORMAL
FI ASTCNT
FL "H"
EN
ST 139 50
BE
PR 3 10 ""
US 19 KE 2
IN DESCR 139
DI "Descrizione@50" DESCR
DI "Gruppo" GRUPPO
DI "Conto" CONTO
DI "Sottoconto" SOTTOCONTO
OU 138 SOTTOCONTO
OU 137 CONTO
OU 136 GRUPPO
OU 139 DESCR
CH NORMAL
EN
BO 401
BE
PR 3 12 "Stampa i Totali"
FI SHOW_TOT
FL "H"
EN
EN
ENDMASK

10
src/ps/cast/saldi_m.qry Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="UTF-8" ?>
<query Name="saldi_m">
<description>Saldi per contropartita magaz</description>
<sql>ODBC(magazzino)
SELECT rmov.datareg,mov.codcaus,caus.descr,mov.descr, rmov.GRUPPO,rmov.CONTO,rmov.SOTTOCONTO,rmov.sezione,iif(rmov.sezione='A',-rmov.IMPORTO,rmov.IMPORTO),mov.numdoc,mov.datadoc,mov.protiva,rmov.TIPOCC,rmov.GRUPPOC,rmov.CONTOC,rmov.SOTTOCONTC,iif(rmov.tipocc='',pcon.descr,clifo.ragsoc),rmov.gruppo*100+rmov.conto as mastro
FROM RMOV join mov on (rmov.numreg=mov.numreg) left join clifo on (rmov.tipocc=clifo.tipocf and rmov.sottocontc=clifo.codcf) left join pcon on (rmov.gruppoc=pcon.gruppo and rmov.contoc=pcon.conto and rmov.sottocontc=pcon.sottoconto) left join caus on (caus.codcaus=mov.codcaus)
where rmov.annoes=#ANNOSEL and (rmov.datareg&#3E;=datetime(#ANNOSEL,#DAM,#DAG)) and (rmov.datareg&#3C;=datetime(#ANNOSEL,#AM,#AGIO))
ORDER BY rmov.GRUPPO,rmov.CONTO,rmov.SOTTOCONTO,rmov.TIPOCC,rmov.GRUPPOC,rmov.CONTOC,rmov.SOTTOCONTC
HAVING mastro&#3E;=(#DGR*100+#DCNT) and mastro&#3C;=(#AGR*100+#ACNT)</sql>
</query>