Patch level : 10.0 no ptach
Files correlati : pd6342.exe Ricompilazione Demo : [ ] Commento : Sheet Habilita 1 versione git-svn-id: svn://10.65.10.50/branches/R_10_00@21095 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
cc6ecac0aa
commit
483ab33c65
115
ps/pd6342300.cpp
115
ps/pd6342300.cpp
@ -121,121 +121,6 @@ TCSV_recset::TCSV_recset(TAssoc_array & calc) : TCSV_recordset("CSV(;)\n")
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
|
||||||
|
|
||||||
bool TCSV_recset::save_as_html(const char* path)
|
|
||||||
{
|
|
||||||
TProgind pi(items(), TR("Esportazione in corso..."), true, true);
|
|
||||||
ofstream out(path);
|
|
||||||
out << "<html>" << endl;
|
|
||||||
save_html_head(out, main_app().title());
|
|
||||||
out << "<body>" << endl;
|
|
||||||
|
|
||||||
TString qry; parsed_text(qry);
|
|
||||||
if (qry.full())
|
|
||||||
{
|
|
||||||
for (int i = qry.find('\n'); i > 0; i = qry.find('\n', i+1))
|
|
||||||
qry.insert("<br/>", i+1);
|
|
||||||
out << "<p><b>" << qry << "</b></p>" << endl;
|
|
||||||
}
|
|
||||||
|
|
||||||
out << "<table border=\"1\">";
|
|
||||||
out << " <caption>" << main_app().title() << "</caption>" << endl;
|
|
||||||
|
|
||||||
const unsigned int cols = columns();
|
|
||||||
if (cols > 0)
|
|
||||||
{
|
|
||||||
out << " <thead>" << endl;
|
|
||||||
for (unsigned int c = 0; c < cols; c++)
|
|
||||||
{
|
|
||||||
const TRecordset_column_info& ci = column_info(c);
|
|
||||||
out << " <col ";
|
|
||||||
switch (ci._type)
|
|
||||||
{
|
|
||||||
case _intfld :
|
|
||||||
case _longfld:
|
|
||||||
case _realfld: out << "align=\"right\""; break;
|
|
||||||
case _boolfld: out << "align=\"center\""; break;
|
|
||||||
default : out << "style=\"mso-number-format:\\@\""; break;
|
|
||||||
}
|
|
||||||
out << " />" << endl;
|
|
||||||
}
|
|
||||||
|
|
||||||
TXmlItem tr; tr.SetTag("tr");
|
|
||||||
tr.SetColorAttr("bgcolor", BTN_BACK_COLOR);
|
|
||||||
tr.Write(out, 2);
|
|
||||||
out << endl;
|
|
||||||
|
|
||||||
for (unsigned int c = 0; c < cols; c++)
|
|
||||||
{
|
|
||||||
const TRecordset_column_info& ci = column_info(c);
|
|
||||||
TToken_string header(ci._name, '\n');
|
|
||||||
TString str;
|
|
||||||
FOR_EACH_TOKEN(header, tok)
|
|
||||||
{
|
|
||||||
if (str.not_empty())
|
|
||||||
str << "<br/>";
|
|
||||||
str << tok;
|
|
||||||
}
|
|
||||||
out << " <th>" << str << "</th>" << endl;
|
|
||||||
}
|
|
||||||
out << " </tr>" << endl;
|
|
||||||
out << " </thead>" << endl;
|
|
||||||
}
|
|
||||||
|
|
||||||
out << " <tbody>" << endl;
|
|
||||||
TString val;
|
|
||||||
for (bool ok = move_first(); ok; ok = move_next())
|
|
||||||
{
|
|
||||||
if (!pi.addstatus(1))
|
|
||||||
break;
|
|
||||||
|
|
||||||
out << " <tr>" << endl;
|
|
||||||
for (unsigned int c = 0; c < cols; c++)
|
|
||||||
{
|
|
||||||
const TRecordset_column_info& ci = column_info(c);
|
|
||||||
out << " <td>";
|
|
||||||
switch (ci._type)
|
|
||||||
{
|
|
||||||
case _intfld:
|
|
||||||
case _longfld:
|
|
||||||
{
|
|
||||||
const long r = get(c).as_int();
|
|
||||||
val.cut(0);
|
|
||||||
if (r != 0)
|
|
||||||
val << r;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case _realfld:
|
|
||||||
{
|
|
||||||
const real r = get(c).as_real();
|
|
||||||
if (r.is_zero())
|
|
||||||
val.cut(0);
|
|
||||||
else
|
|
||||||
val = r.stringe();
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
default:
|
|
||||||
get(c).as_string(val);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
if (val.full())
|
|
||||||
{
|
|
||||||
val.rtrim();
|
|
||||||
out << val;
|
|
||||||
}
|
|
||||||
out << "</td>" << endl;
|
|
||||||
}
|
|
||||||
out << " </tr>" << endl;
|
|
||||||
}
|
|
||||||
out << " </tbody>" << endl;
|
|
||||||
out << "</table>" << endl;
|
|
||||||
out << "</body>" << endl;
|
|
||||||
out << "</html>" << endl;
|
|
||||||
|
|
||||||
return !pi.iscancelled();
|
|
||||||
}
|
|
||||||
*/
|
|
||||||
//--------------------------------------------------------------------
|
//--------------------------------------------------------------------
|
||||||
// APPLICAZIONE
|
// APPLICAZIONE
|
||||||
//--------------------------------------------------------------------
|
//--------------------------------------------------------------------
|
||||||
|
|||||||
973
ps/pd6342500.cpp
973
ps/pd6342500.cpp
File diff suppressed because it is too large
Load Diff
@ -1,43 +1,6 @@
|
|||||||
//Definizione campi per maschera pd6342500 - programma saldi di analitica
|
//Definizione campi per maschera pd6342500 - programma saldi di analitica
|
||||||
#define F_DADATA 201
|
#define F_ADATA 101
|
||||||
#define F_ADATA 202
|
#define F_ANNO 102
|
||||||
#define F_CDC1 203
|
#define F_PATH 103
|
||||||
#define F_CDC2 204
|
#define F_NAME 104
|
||||||
#define F_CDC3 205
|
#define F_TIPO 105
|
||||||
#define F_CDC4 206
|
|
||||||
#define F_CDC5 207
|
|
||||||
#define F_CDC6 208
|
|
||||||
#define F_CDC7 209
|
|
||||||
#define F_CDC8 210
|
|
||||||
#define F_CDC9 211
|
|
||||||
#define F_CDC10 212
|
|
||||||
#define F_CDC11 213
|
|
||||||
#define F_CDC12 214
|
|
||||||
#define F_CDC13 215
|
|
||||||
#define F_CDC14 216
|
|
||||||
#define F_CDC15 217
|
|
||||||
#define F_CDC16 218
|
|
||||||
|
|
||||||
#define F_SHEET 301
|
|
||||||
|
|
||||||
#define S_DARE 101
|
|
||||||
#define S_AVERE 102
|
|
||||||
#define S_DESCR 103
|
|
||||||
#define S_CDC1 104
|
|
||||||
#define S_CDC2 105
|
|
||||||
#define S_CDC3 106
|
|
||||||
#define S_CDC4 107
|
|
||||||
#define S_CDC5 108
|
|
||||||
#define S_CDC6 109
|
|
||||||
#define S_CDC7 110
|
|
||||||
#define S_CDC8 111
|
|
||||||
#define S_CDC9 112
|
|
||||||
#define S_CDC10 113
|
|
||||||
#define S_CDC11 114
|
|
||||||
#define S_CDC12 115
|
|
||||||
#define S_CDC13 116
|
|
||||||
#define S_CDC14 117
|
|
||||||
#define S_CDC15 118
|
|
||||||
#define S_CDC16 119
|
|
||||||
#define S_NUMREG 120
|
|
||||||
#define S_NUMRIGA 121
|
|
||||||
|
|||||||
@ -1,289 +1,76 @@
|
|||||||
#include "pd6342500a.h"
|
#include "pd6342500a.h"
|
||||||
|
|
||||||
TOOLBAR "" 0 0 0 2
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
|
|
||||||
BUTTON DLG_FINDREC
|
#include <elabar.h>
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
TOOLBAR "" 0 -2 0 2
|
||||||
|
|
||||||
|
STRING DLG_PROFILE 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 1 "Cerca"
|
PROMPT 9 -11 "Profilo "
|
||||||
PICTURE TOOL_FINDREC
|
PSELECT
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON DLG_SAVEREC
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 1 "Salva"
|
|
||||||
PICTURE TOOL_SAVEREC
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_CANCEL
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 1 "Annulla"
|
|
||||||
PICTURE TOOL_CANCEL
|
|
||||||
END
|
|
||||||
|
|
||||||
#include <stdbar.h>
|
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|
||||||
PAGE "Quadra movimenti" -1 -1 80 0
|
PAGE "Quadra movimenti" -1 -1 80 0
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 3
|
GROUPBOX DLG_NULL 78 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 0 "@bFiltro righe analitiche"
|
PROMPT 1 0 "@bBilancio per "
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DADATA
|
|
||||||
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Considera i movimenti dal "
|
PROMPT 2 1 "Codice esercizio "
|
||||||
|
HELP "Esercizio di cui si vuole ottenere il bilancio"
|
||||||
|
USE ESC
|
||||||
|
INPUT CODTAB F_ANNO
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Data inizio esercizio" D0
|
||||||
|
DISPLAY "Data fine esercizio" D1
|
||||||
|
OUTPUT F_ANNO CODTAB
|
||||||
|
FLAGS "Z"
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
|
WARNING "L'esercizio non esiste"
|
||||||
|
ADD RUN cg0 -5 esc
|
||||||
|
MESSAGE EMPTY CLEAR,4@
|
||||||
|
MESSAGE ENABLE,4@
|
||||||
|
END
|
||||||
|
|
||||||
|
RADIOBUTTON F_TIPO 28
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "@bTipo stampa"
|
||||||
|
HELP "Indicare il tipo di stampa"
|
||||||
|
ITEM "1|Per date limite" MESSAGE SHOW,F_ADATA|ENABLE,F_ADATA
|
||||||
|
ITEM "2|All'ultima immissione" MESSAGE HIDE,F_ADATA|RESET,F_ADATA
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_ADATA
|
DATE F_ADATA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 1 "al "
|
PROMPT 41 4 "Al "
|
||||||
FLAGS "A"
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
END
|
||||||
|
|
||||||
GROUPBOX DLG_NULL 78 5
|
GROUPBOX DLG_NULL 78 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 3 "@bParametri per la quadratura"
|
PROMPT 1 7 "@bFoglio Excel del calcolo"
|
||||||
END
|
END
|
||||||
|
|
||||||
SPREADSHEET F_SHEET 39 0
|
STRING F_PATH 255 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 41 8 ""
|
PROMPT 2 8 "Cartella "
|
||||||
ITEM "Dare@9"
|
DSELECT
|
||||||
ITEM "Avere@9"
|
END
|
||||||
ITEM "Descrizione@15"
|
|
||||||
ITEM "CDC1"
|
STRING F_NAME 255 50
|
||||||
ITEM "CDC2"
|
BEGIN
|
||||||
ITEM "CDC3"
|
PROMPT 2 9 "File "
|
||||||
ITEM "CDC4"
|
FSELECT "*.xls"
|
||||||
ITEM "CDC5"
|
|
||||||
ITEM "CDC6"
|
|
||||||
ITEM "CDC7"
|
|
||||||
ITEM "CDC8"
|
|
||||||
ITEM "CDC9"
|
|
||||||
ITEM "CDC10"
|
|
||||||
ITEM "CDC11"
|
|
||||||
ITEM "CDC12"
|
|
||||||
ITEM "CDC13"
|
|
||||||
ITEM "CDC14"
|
|
||||||
ITEM "CDC15"
|
|
||||||
ITEM "CDC16"
|
|
||||||
ITEM "Reg@5"
|
|
||||||
ITEM "Riga@5"
|
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
ENDMASK
|
ENDMASK
|
||||||
|
|
||||||
TOOLBAR "" 0 0 0 2
|
|
||||||
|
|
||||||
BUTTON DLG_OK 2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 1 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_DELREC 2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 1 "Sposta"
|
|
||||||
PICTURE BMP_LINK
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_CANCEL 2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 3 1 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
ENDMASK
|
|
||||||
|
|
||||||
PAGE "Riga analitica" -1 -1 78 13
|
|
||||||
|
|
||||||
CURRENCY S_DARE 15
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 1 "Dare "
|
|
||||||
END
|
|
||||||
|
|
||||||
CURRENCY S_AVERE 15
|
|
||||||
BEGIN
|
|
||||||
PROMPT 43 1 "Avere "
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_DESCR 50
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 2 "Descrizione "
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC1 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 3 "Cdc 1"
|
|
||||||
USE LF_CDC
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC2 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 3 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC3 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 3 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC4 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 3 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC5 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 3 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC6 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 3 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC7 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC8 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC9 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC10 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC11 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC12 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Cdc 2"
|
|
||||||
COPY USE S_CDC1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC13 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 5 "Con 1"
|
|
||||||
USE LF_PCON
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
GROUP 1
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC14 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 21 5 "Con 2"
|
|
||||||
COPY USE S_CONT1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
GROUP 1
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC15 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 41 5 "Con 3"
|
|
||||||
COPY USE S_CONT1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
GROUP 1
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING S_CDC16 20
|
|
||||||
BEGIN
|
|
||||||
PROMPT 61 5 "Con 4"
|
|
||||||
COPY USE S_CONT1
|
|
||||||
CHECKTYPE NORMAL
|
|
||||||
GROUP 1
|
|
||||||
FLAGS "H"
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER S_NUMREG 10
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 7 "Num. registrazione"
|
|
||||||
FLAGS "D"
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMBER S_NUMRIGA 10
|
|
||||||
BEGIN
|
|
||||||
PROMPT 33 7 "Num. riga"
|
|
||||||
FLAGS "D"
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_USER 2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 200 200 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
|
|
||||||
TOOLBAR "" 0 0 0 2
|
|
||||||
|
|
||||||
BUTTON DLG_OK 2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 1 1 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_DELREC 2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 1 "Sposta"
|
|
||||||
PICTURE BMP_LINK
|
|
||||||
END
|
|
||||||
|
|
||||||
BUTTON DLG_CANCEL 2 2
|
|
||||||
BEGIN
|
|
||||||
PROMPT 3 1 ""
|
|
||||||
END
|
|
||||||
|
|
||||||
ENDPAGE
|
|
||||||
ENDMASK
|
|
||||||
Loading…
x
Reference in New Issue
Block a user