Patch level : 2.0 314
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione AGA 1.7 patch 314 sul main trunk git-svn-id: svn://10.65.10.50/trunk@10440 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
a9e1dd72d9
commit
fadd8a73e2
@ -648,24 +648,33 @@ bool TMailer_mask::file2app(const TString& file, TString& app) const
|
|||||||
bool ok = FALSE;
|
bool ok = FALSE;
|
||||||
if (file != _last_file)
|
if (file != _last_file)
|
||||||
{
|
{
|
||||||
if (isdigit(file[0]))
|
TConfig d(CONFIG_DITTA, "ba7");
|
||||||
|
TString16 appname; appname << "Edit_" << file;
|
||||||
|
app = d.get(appname);
|
||||||
|
if (app.empty())
|
||||||
{
|
{
|
||||||
const int filenum = atoi(file);
|
|
||||||
if (filenum >= LF_USER && filenum < prefix().items())
|
if (isdigit(file[0]))
|
||||||
{
|
{
|
||||||
TLocalisamfile isf(filenum);
|
const int filenum = atoi(file);
|
||||||
ok = isf.get_relapp(app);
|
if (filenum >= LF_USER && filenum < prefix().items())
|
||||||
|
{
|
||||||
|
TLocalisamfile isf(filenum);
|
||||||
|
ok = isf.get_relapp(app);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
const int len = file.len();
|
||||||
|
if (len == 3 || (len == 4 && file[0] == '%'))
|
||||||
|
{
|
||||||
|
TTable table(file);
|
||||||
|
ok = table.get_relapp(app);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
ok = TRUE;
|
||||||
const int len = file.len();
|
|
||||||
if (len == 3 || (len == 4 && file[0] == '%'))
|
|
||||||
{
|
|
||||||
TTable table(file);
|
|
||||||
ok = table.get_relapp(app);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
// Fool const directive
|
// Fool const directive
|
||||||
(TString&)_last_file = file;
|
(TString&)_last_file = file;
|
||||||
(TString&)_last_app = app;
|
(TString&)_last_app = app;
|
||||||
|
|||||||
42
ba/bastcms.uml
Executable file
42
ba/bastcms.uml
Executable file
@ -0,0 +1,42 @@
|
|||||||
|
#include "ba3200.h"
|
||||||
|
|
||||||
|
PAGE "Stampa Tabella Commesse" -1 -1 50 8
|
||||||
|
STRING F_INIZIO1 20
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 1 "Da codice "
|
||||||
|
FLAGS "U"
|
||||||
|
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||||
|
FIELD CODTAB
|
||||||
|
USE CMS
|
||||||
|
INPUT CODTAB F_INIZIO1
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
|
GROUP 1
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_FINE1 20
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "A codice "
|
||||||
|
FLAGS "U"
|
||||||
|
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||||
|
FIELD CODTAB
|
||||||
|
COPY USE F_INIZIO1
|
||||||
|
INPUT CODTAB F_FINE1
|
||||||
|
COPY DISPLAY F_INIZIO1
|
||||||
|
OUTPUT F_FINE1 CODTAB
|
||||||
|
GROUP 2
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
ENDMASK
|
||||||
42
ba/bastfsc.uml
Executable file
42
ba/bastfsc.uml
Executable file
@ -0,0 +1,42 @@
|
|||||||
|
#include "ba3200.h"
|
||||||
|
|
||||||
|
PAGE "Stampa Tabella Fasi" -1 -1 50 8
|
||||||
|
STRING F_INIZIO1 10
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 1 "Da codice "
|
||||||
|
FLAGS "U"
|
||||||
|
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
|
||||||
|
FIELD CODTAB
|
||||||
|
USE FSC
|
||||||
|
INPUT CODTAB F_INIZIO1
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_INIZIO1 CODTAB
|
||||||
|
GROUP 1
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_FINE1 10
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "A codice "
|
||||||
|
FLAGS "U"
|
||||||
|
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
|
||||||
|
FIELD CODTAB
|
||||||
|
COPY USE F_INIZIO1
|
||||||
|
INPUT CODTAB F_FINE1
|
||||||
|
COPY DISPLAY F_INIZIO1
|
||||||
|
OUTPUT F_FINE1 CODTAB
|
||||||
|
GROUP 2
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
ENDMASK
|
||||||
39
ba/batbcms.rpt
Executable file
39
ba/batbcms.rpt
Executable file
@ -0,0 +1,39 @@
|
|||||||
|
[Relations]
|
||||||
|
LF_CLIFO;TIPOCF="C"|CODCF=I0
|
||||||
|
|
||||||
|
[Headers]
|
||||||
|
80
|
||||||
|
Tabella Commesse
|
||||||
|
1|@3g%s|Codice
|
||||||
|
1|@24g%s|Descrizione
|
||||||
|
1|@72g%s|Da rend.
|
||||||
|
2|@3g%s|Cliente
|
||||||
|
2|@62g%s|Regime iva
|
||||||
|
3|@3g%s|Data ini.
|
||||||
|
3|@14g%s|Data fine
|
||||||
|
3|@26g%s|Pubblico
|
||||||
|
3|@35g%s|Prorogata
|
||||||
|
3|@45g%s|Chiusa
|
||||||
|
3|@52g%s|Responsabile
|
||||||
|
|
||||||
|
[Rows]
|
||||||
|
1|CODTAB|@3g@20,ls
|
||||||
|
1|S0|@24g@50,ls
|
||||||
|
1|B1|@78g@f
|
||||||
|
2|I0|@3g@6n
|
||||||
|
2|20->RAGSOC|@10g@50,ls
|
||||||
|
2|S7|@62g@17t
|
||||||
|
3|D0|@3g@ld
|
||||||
|
3|D1|@14g@ld
|
||||||
|
3|B0|@26g@8f
|
||||||
|
3|B2|@35g@9f
|
||||||
|
3|B3|@45g@6f
|
||||||
|
3|S4|@10g@8,ls
|
||||||
|
|
||||||
|
[Translations]
|
||||||
|
5|S7| |IVA normale
|
||||||
|
5|S7|NR|Non rilevante
|
||||||
|
5|S7|ES|Operazioni esenti
|
||||||
|
5|S7|NI|Non imponibili
|
||||||
|
5|S7|NS|Non soggetti
|
||||||
|
5|S7|FC|Fuori campo
|
||||||
9
ba/batbfsc.rpt
Executable file
9
ba/batbfsc.rpt
Executable file
@ -0,0 +1,9 @@
|
|||||||
|
[Headers]
|
||||||
|
80
|
||||||
|
Tabella Fasi commesse
|
||||||
|
1|@3g%s|Codice
|
||||||
|
1|@14g%s|Descrizione
|
||||||
|
|
||||||
|
[Rows]
|
||||||
|
1|CODTAB|@3g@10,ls
|
||||||
|
1|S0|@14g@50,ls
|
||||||
@ -1507,9 +1507,9 @@ bool TPrimanota_application::iva_notify(TSheet_field& iva, int r, KEY k)
|
|||||||
}
|
}
|
||||||
if (conto.ok() && !newimp.is_zero()) // Se c'e' imponibile ...
|
if (conto.ok() && !newimp.is_zero()) // Se c'e' imponibile ...
|
||||||
{ // crea una nuova riga contabile
|
{ // crea una nuova riga contabile
|
||||||
if (descr.blank())
|
if (saved_descr.blank())
|
||||||
descr = cau.desc_agg(2);
|
saved_descr = cau.desc_agg(2);
|
||||||
newpos = a.set_cgs_row(-1, newimp, conto, descr, 'I', conto.commessa(), conto.fase());
|
newpos = a.set_cgs_row(-1, newimp, conto, saved_descr, 'I', conto.commessa(), conto.fase());
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@ -134,7 +134,7 @@ class TMastrini_application : public TPrintapp
|
|||||||
bool _noseparator, _print_cdc;
|
bool _noseparator, _print_cdc;
|
||||||
TString _real_picture;
|
TString _real_picture;
|
||||||
|
|
||||||
TString _cdc;
|
TString _cdc, _fsc, _riga_commessa;
|
||||||
|
|
||||||
real _totale_commessa_dare, _totale_commessa_avere, _saldo_commessa;
|
real _totale_commessa_dare, _totale_commessa_avere, _saldo_commessa;
|
||||||
|
|
||||||
@ -686,11 +686,11 @@ bool TMastrini_application::almeno_un_record()
|
|||||||
|
|
||||||
TString filter;
|
TString filter;
|
||||||
if (_cdc.not_empty())
|
if (_cdc.not_empty())
|
||||||
{
|
{
|
||||||
filter << '(' << RMV_CODCMS << "=='" << _cdc << "')";
|
filter << '(' << RMV_CODCMS << "=='" << _cdc << "')";
|
||||||
if (_fsc.not_empty())
|
if (_fsc.not_empty())
|
||||||
filter << "&&(" << RMV_FASCMS << "=='" << _fsc << "')";
|
filter << "&&(" << RMV_FASCMS << "=='" << _fsc << "')";
|
||||||
}
|
}
|
||||||
rmov.zero();
|
rmov.zero();
|
||||||
rmov.put(RMV_GRUPPO, _gruppo);
|
rmov.put(RMV_GRUPPO, _gruppo);
|
||||||
rmov.put(RMV_CONTO, _conto);
|
rmov.put(RMV_CONTO, _conto);
|
||||||
@ -1618,7 +1618,7 @@ bool TMastrini_application::preprocess_page(int file, int counter)
|
|||||||
if (_cdc.not_empty() && rmov.get(RMV_CODCMS) != _cdc)
|
if (_cdc.not_empty() && rmov.get(RMV_CODCMS) != _cdc)
|
||||||
return FALSE;
|
return FALSE;
|
||||||
if (_fsc.not_empty() && rmov.get(RMV_FASCMS) != _fsc)
|
if (_fsc.not_empty() && rmov.get(RMV_FASCMS) != _fsc)
|
||||||
return FALSE;
|
return FALSE;
|
||||||
|
|
||||||
//Il flag _gia_stampata_intestazione serve nella stampa in continuo, xche'
|
//Il flag _gia_stampata_intestazione serve nella stampa in continuo, xche'
|
||||||
//sono costretto a richiamare l'intestazione sia nella preprocess_page (per
|
//sono costretto a richiamare l'intestazione sia nella preprocess_page (per
|
||||||
@ -2642,24 +2642,24 @@ bool TMastrini_application::set_print(int m)
|
|||||||
for (fsccur = 0L; fsccur.pos() < fsc_items; ++fsccur)
|
for (fsccur = 0L; fsccur.pos() < fsc_items; ++fsccur)
|
||||||
{
|
{
|
||||||
_fsc = fsccur.curr().get("CODTAB");
|
_fsc = fsccur.curr().get("CODTAB");
|
||||||
do
|
do
|
||||||
{
|
{
|
||||||
_totale_commessa_dare = _totale_commessa_avere = ZERO;
|
_totale_commessa_dare = _totale_commessa_avere = ZERO;
|
||||||
print();
|
print();
|
||||||
}
|
}
|
||||||
while (need_to_repeat_print());
|
while (need_to_repeat_print());
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
_fsc.cut(0);
|
_fsc.cut(0);
|
||||||
do
|
do
|
||||||
{
|
{
|
||||||
_totale_commessa_dare = _totale_commessa_avere = ZERO;
|
_totale_commessa_dare = _totale_commessa_avere = ZERO;
|
||||||
print();
|
print();
|
||||||
}
|
}
|
||||||
while (need_to_repeat_print());
|
while (need_to_repeat_print());
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@ -3309,9 +3309,9 @@ void TMastrini_application::calcola_progressivi_al(const TDate& data_fin)
|
|||||||
if (_cdc.not_empty())
|
if (_cdc.not_empty())
|
||||||
{
|
{
|
||||||
filter << RMV_CODCMS << "==\"" << _cdc << "\"";
|
filter << RMV_CODCMS << "==\"" << _cdc << "\"";
|
||||||
if (_fsc.not_empty())
|
if (_fsc.not_empty())
|
||||||
filter << "&&(" << RMV_FASCMS << "==\"" << _fsc << "\")";
|
filter << "&&(" << RMV_FASCMS << "==\"" << _fsc << "\")";
|
||||||
}
|
}
|
||||||
rmov.zero();
|
rmov.zero();
|
||||||
rmov.put(RMV_GRUPPO, _gruppo);
|
rmov.put(RMV_GRUPPO, _gruppo);
|
||||||
rmov.put(RMV_CONTO, _conto);
|
rmov.put(RMV_CONTO, _conto);
|
||||||
@ -3986,19 +3986,19 @@ int TMastrini_application::ricerca_gruppo(int start)
|
|||||||
set_row (r, "@r%s@23g@b%s", trans("Periodo di competenza"), (const char*) dataini);
|
set_row (r, "@r%s@23g@b%s", trans("Periodo di competenza"), (const char*) dataini);
|
||||||
set_row (r, "@35g%s@r", (const char*) datafine);
|
set_row (r, "@35g%s@r", (const char*) datafine);
|
||||||
|
|
||||||
if (_cdc.not_empty())
|
if (_cdc.not_empty())
|
||||||
{
|
{
|
||||||
const TString& desc_cdc = cache().get("CMS", _cdc, "S0");
|
const TString& desc_cdc = cache().get("CMS", _cdc, "S0");
|
||||||
if (_fsc.not_empty())
|
if (_fsc.not_empty())
|
||||||
{
|
{
|
||||||
const TString& desc_fsc = cache().get("FSC", _fsc, "S0");
|
const TString& desc_fsc = cache().get("FSC", _fsc, "S0");
|
||||||
set_row(++r, "@bCommessa %s %s - Fase %s %s",
|
set_row(++r, "@bCommessa %s %s - Fase %s %s",
|
||||||
(const char*)_cdc, (const char*)desc_cdc,
|
(const char*)_cdc, (const char*)desc_cdc,
|
||||||
(const char*)_fsc, (const char*)desc_fsc);
|
(const char*)_fsc, (const char*)desc_fsc);
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
set_row(++r, "@bCommessa %s %s", (const char*)_cdc, (const char*)desc_cdc);
|
set_row(++r, "@bCommessa %s %s", (const char*)_cdc, (const char*)desc_cdc);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|||||||
281
m770/771230la.uml
Executable file
281
m770/771230la.uml
Executable file
@ -0,0 +1,281 @@
|
|||||||
|
#include "771230.h"
|
||||||
|
TOOLBAR "" 0 -3 0 3
|
||||||
|
#include <toolbar.h>
|
||||||
|
|
||||||
|
BUTTON F_GENERA 24 1
|
||||||
|
BEGIN
|
||||||
|
PROMPT -11 0 "~Generazione da schede"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Riepilogo LA" -1 -1 78 18
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Percipiente"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODDITTA 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 4 2 "Ditta "
|
||||||
|
USE LF_NDITTE
|
||||||
|
INPUT CODDITTA F_CODDITTA
|
||||||
|
OUTPUT F_RAGDITTA RAGSOC
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
FLAGS "DG"
|
||||||
|
FIELD CODDITTA
|
||||||
|
KEY 1
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGDITTA 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 24 2 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
LIST F_NUMPROG 1 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 0 80 "Numero "
|
||||||
|
FIELD NPROG
|
||||||
|
ITEM "1|Riga 1"
|
||||||
|
FLAGS "D"
|
||||||
|
KEY 1
|
||||||
|
END
|
||||||
|
|
||||||
|
LIST F_TIPOA 1 17
|
||||||
|
BEGIN
|
||||||
|
PROMPT 4 3 "Tipo percipiente "
|
||||||
|
FIELD TIPOA
|
||||||
|
ITEM "F|Persona Fisica"
|
||||||
|
ITEM "G|Persona Giuridica"
|
||||||
|
KEY 1
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODANAGR 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 4 4 "Codice "
|
||||||
|
FIELD CODANAGR
|
||||||
|
KEY 1
|
||||||
|
USE LF_QUAD SELECT NPROG=1
|
||||||
|
JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
|
INPUT CODDITTA F_CODDITTA SELECT
|
||||||
|
INPUT TIPOA F_TIPOA SELECT
|
||||||
|
INPUT CODANAGR F_CODANAGR
|
||||||
|
INPUT NPROG F_NUMPROG
|
||||||
|
DISPLAY "Codice" CODANAGR
|
||||||
|
DISPLAY "Denominazione@50" LF_ANAG->RAGSOC
|
||||||
|
OUTPUT F_CODANAGR CODANAGR
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 24 4 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER H_CODANAGR 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 4 4 "Codice "
|
||||||
|
FIELD CODANAGR
|
||||||
|
KEY 1
|
||||||
|
USE LF_ANAG
|
||||||
|
INPUT TIPOA F_TIPOA SELECT
|
||||||
|
INPUT CODANAGR H_CODANAGR
|
||||||
|
DISPLAY "Codice" CODANAGR
|
||||||
|
DISPLAY "Denominazione@50" RAGSOC
|
||||||
|
OUTPUT H_CODANAGR CODANAGR
|
||||||
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
|
CHECKTYPE FORCED
|
||||||
|
ADD RUN ba4 -1 F
|
||||||
|
MESSAGE COPY,F_CODANAGR
|
||||||
|
WARNING "Anagrafica assente"
|
||||||
|
END
|
||||||
|
|
||||||
|
SPREADSHEET F_RIGHE
|
||||||
|
BEGIN
|
||||||
|
PROMPT 0 6 ""
|
||||||
|
ITEM "Cod.\ncau.@4"
|
||||||
|
ITEM "Aliq."
|
||||||
|
ITEM "Cau."
|
||||||
|
ITEM "Anno"
|
||||||
|
ITEM "Ammontare lordo\ncorrisposto@15"
|
||||||
|
ITEM "Somme non sogg.\nritenute@15"
|
||||||
|
ITEM "Somme non sogg.\nrit. reg. conv.@15"
|
||||||
|
ITEM "Imponibile@15"
|
||||||
|
ITEM "Ritenute\nOperate@15"
|
||||||
|
ITEM "Ritenute\nSospese@15"
|
||||||
|
ITEM "Addizionale\nregionale@15"
|
||||||
|
ITEM "Addizionale\nregionale sosp.@15"
|
||||||
|
ITEM "Imponibile anni\nprecedenti@15"
|
||||||
|
ITEM "Ritenute operate\nanni precedenti@15"
|
||||||
|
ITEM "Generata\nda schede@9"
|
||||||
|
// FLAGS "A"
|
||||||
|
// USE LF_QUAD KEY NPROG
|
||||||
|
// INPUT CODDITTA F_CODDITTA
|
||||||
|
// INPUT TIPOA F_TIPOA
|
||||||
|
// INPUT CODANAGR F_CODANAGR
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|
||||||
|
PAGE "RIGA 1" -1 -1 58 15
|
||||||
|
|
||||||
|
NUMBER 101 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "Codice causale "
|
||||||
|
USE %CA7 SELECT ((I0!="1015")&&(S1="LA"))
|
||||||
|
INPUT CODTAB 101
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@35" S0
|
||||||
|
OUTPUT 101 CODTAB
|
||||||
|
OUTPUT 102 R0
|
||||||
|
OUTPUT 103 S2
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
FLAGS "Z"
|
||||||
|
WARNING "Manca la causale"
|
||||||
|
FIELD CODCAUS
|
||||||
|
ADD RUN 773mod -3 %CA7
|
||||||
|
FIELD CODCAUS
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER 102 6 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 1 "Aliquota applicata "
|
||||||
|
NUM_EXPR {(#THIS_FIELD>=0)&&(#THIS_FIELD<=100)}
|
||||||
|
WARNING "L'aliquota deve essere compresa tra 0 e 100"
|
||||||
|
FIELD PERC
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING 103 1
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 2 "Causale "
|
||||||
|
FLAGS "U"
|
||||||
|
SHEET "Cod.|Descrizione@256"
|
||||||
|
INPUT 103
|
||||||
|
ITEM "A|Prestazioni di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
|
||||||
|
ITEM "B|Utilizzazione economica, da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienzeacquisite in campo industriale, commerciale o scientifico"
|
||||||
|
ITEM "C|Utili derivanti da contratti di associazione in partecipazione e da contratti di cointeressenza quando l' apporto e' costituito esclusivamente dalla prestazione di lavoro"
|
||||||
|
ITEM "D|utili spettanti ai soci promotori ed ai soci fondatori delle societa' di capitali"
|
||||||
|
ITEM "E|Levata di protesti cambiari da parte dei segretari comunali"
|
||||||
|
ITEM "F|Prestazioni rese dagli sportivi con contratto di lavoro autonomo"
|
||||||
|
ITEM "G|Idennita' corrisposte per la cessazione di attivita' sportiva professionale"
|
||||||
|
ITEM "H|Idennita' corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche"
|
||||||
|
ITEM "I|Idennita' corrisposte per la cessazione da funzionari notarili"
|
||||||
|
ITEM "L|Utilizzaz. economica, da parte di sogg. diverso dall'autore o dall'inventore, di opere dell'ingegno, di brevetti industiali e di processi, formule e informaz. relativi ad esperienze acquisite in campo industriale, commerciale, scientifico"
|
||||||
|
ITEM "M|Prestazioni di lavoro autonomo non esercitate abitualmente"
|
||||||
|
ITEM "N|Idennita' di trasferta, rinborso forfetario di spese, premi e compensi erogati nell' esercizio diretto di attivita' sportiva dilettantistiche"
|
||||||
|
ITEM "P|Prestazioni in forma di capitale e riscatti erogati dalle forme di previdenza complementare di cui al D.Lgs 21 aprile 1993,n. 124 e sucessive modificazioni a lavoratori autonomi e imprenditori individuali"
|
||||||
|
ITEM "Q|Provvigioni corrisposte ad agente o rappresentante di commercio monomandatario"
|
||||||
|
ITEM "R|Provvigioni corrisposte ad agente o rappresentante plurimandatario"
|
||||||
|
ITEM "S|Provvigioni corrisposte a commissionario"
|
||||||
|
ITEM "T|Provvigioni corrisposte a mediatore"
|
||||||
|
ITEM "U|Provvigioni corrisposte a procacciatore di affari"
|
||||||
|
ITEM "V|Provvigioni corrisposte a incaricato per le vendite a domicilio"
|
||||||
|
ITEM "W|Provvigioni corrisposte a incaricato per la vendita porta a porta e per la vendita ambulante di giornali quotidiani e periodici (L. 25 febbraio 1987, n. 67)"
|
||||||
|
ITEM "Z|Titolo diverso dai precedenti"
|
||||||
|
OUTPUT 103
|
||||||
|
WANING "La causale deve essere compresa tra A ed Z"
|
||||||
|
FIELD CAUSALE
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER 104 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 40 2 "Anno "
|
||||||
|
FIELD ANNO
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 105 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 3 "Ammontare lordo "
|
||||||
|
FIELD TOTALE
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 106 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 4 "Somme non soggette a ritenuta "
|
||||||
|
FIELD SOMME
|
||||||
|
NUM_EXPR {(#106+#107)<=#105}
|
||||||
|
WARNING "Le somme non soggette a ritenuta superano il lordo"
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 107 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 5 "Somme non sogg. a rit. per reg. conv. "
|
||||||
|
FIELD SOMREGCONV
|
||||||
|
NUM_EXPR {(#106+#107)<=#105}
|
||||||
|
WARNING "Le somme non soggette a ritenuta superano il lordo"
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 108 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 6 "Imponibile "
|
||||||
|
FIELD IMPONIBILE
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 109 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 7 "Ritenute operate "
|
||||||
|
FIELD IMPORTO
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 110 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 8 "Ritenute sospese "
|
||||||
|
FIELD RITSOSPESE
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 111 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 9 "Addizionale regionale "
|
||||||
|
FIELD ADDREG
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 112 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 10 "Addizionale regionale sospesa "
|
||||||
|
FIELD ADDREGSOSP
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 113 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 11 "Imponibile anni precedenti "
|
||||||
|
FIELD IMPANNIPREC
|
||||||
|
END
|
||||||
|
|
||||||
|
CURRENCY 114 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 12 "Ritenute anni precedenti "
|
||||||
|
FIELD RITANNIPREC
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN 115
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 13 "Riga generata dalle schede"
|
||||||
|
FLAGS "D"
|
||||||
|
FIELD GENERATA
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -13 -1 "~Conferma"
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_DELREC 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -23 -1 "~Elimina"
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_CANCEL 10 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -33 -1 "Annulla"
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|
||||||
|
|
||||||
123
m770/77srla.frm
Executable file
123
m770/77srla.frm
Executable file
@ -0,0 +1,123 @@
|
|||||||
|
USE 144
|
||||||
|
JOIN 9 INTO CODDITTA=CODDITTA
|
||||||
|
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
|
JOIN 6 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
|
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
|
||||||
|
JOIN 13 TO 218@ ALIAS 313 INTO STATO=="" COM==COMNASC
|
||||||
|
JOIN 13 TO 216@ ALIAS 413 INTO STATO==STATORES COM==COMRES
|
||||||
|
JOIN 13 TO 216@ ALIAS 513 INTO STATO=="" COM==COMRF
|
||||||
|
JOIN %STA TO 216@ ALIAS 104 INTO CODTAB=STATORES
|
||||||
|
END
|
||||||
|
DESCRIPTION
|
||||||
|
BEGIN
|
||||||
|
144->* "Quadro LA 770"
|
||||||
|
9->* "Ditte"
|
||||||
|
6->* "Anagrafica persone fisiche e giuridiche"
|
||||||
|
8->* "Anagrafica persone fisiche"
|
||||||
|
206@->* "Anagrafica persone fisiche e giuridiche"
|
||||||
|
216@->* "Anagrafica persone fisiche e giuridiche"
|
||||||
|
218@->* "Anagrafica persone fisiche"
|
||||||
|
313@->* "Comune nascita"
|
||||||
|
413@->* "Comune residenza"
|
||||||
|
513@->* "Comune residenza fiscale"
|
||||||
|
END
|
||||||
|
GENERAL
|
||||||
|
BEGIN
|
||||||
|
OFFSET 0 0
|
||||||
|
END
|
||||||
|
SECTION HEADER ODD 6
|
||||||
|
STRINGA 1 40 1
|
||||||
|
BEGIN
|
||||||
|
KEY "nome ditta"
|
||||||
|
PROMPT 1 1 "Ditta: "
|
||||||
|
FIELD 9->RAGSOC
|
||||||
|
END
|
||||||
|
STRINGA 2 10
|
||||||
|
BEGIN
|
||||||
|
KEY "Data"
|
||||||
|
PROMPT 106 1 "Data "
|
||||||
|
MESSAGE _TODAY
|
||||||
|
END
|
||||||
|
NUMERO 3 7
|
||||||
|
BEGIN
|
||||||
|
KEY "Nr. pagina"
|
||||||
|
PROMPT 122 1 "Pagina "
|
||||||
|
MESSAGE _PAGENO
|
||||||
|
END
|
||||||
|
NUMERO 4 40
|
||||||
|
BEGIN
|
||||||
|
KEY "Intestazione stampa"
|
||||||
|
PROMPT 55 2 "Stampa riepilogo LA"
|
||||||
|
END
|
||||||
|
END
|
||||||
|
SECTION BODY ODD 2 COLUMWISE
|
||||||
|
STRINGA 1 50
|
||||||
|
BEGIN
|
||||||
|
SPECIAL STRINGA INTESTAZIONE "Ragione Sociale" "Ragione Sociale"
|
||||||
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||||
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||||
|
KEY "RAGSOC GIURIDICHE"
|
||||||
|
PROMPT 1 1 ""
|
||||||
|
FIELD 216@->RAGSOC
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 2 15
|
||||||
|
BEGIN
|
||||||
|
SPECIAL STRINGA INTESTAZIONE "@cCausale" "Causale"
|
||||||
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||||
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||||
|
KEY "CAUSALE"
|
||||||
|
PROMPT 2 1 ""
|
||||||
|
FIELD CAUSALE
|
||||||
|
END
|
||||||
|
VALUTA 3 14
|
||||||
|
BEGIN
|
||||||
|
SPECIAL STRINGA INTESTAZIONE "@cTotale" "Tot."
|
||||||
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||||
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||||
|
KEY "TOTALE"
|
||||||
|
PROMPT 3 1 ""
|
||||||
|
FIELD TOTALE
|
||||||
|
PICTURE "###.###.###^^^"
|
||||||
|
END
|
||||||
|
VALUTA 4 15
|
||||||
|
BEGIN
|
||||||
|
SPECIAL STRINGA INTESTAZIONE "Somme non sogg." "Somme non sogg."
|
||||||
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||||
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||||
|
KEY "SOMME NON SOGGETTE A RITENUTA"
|
||||||
|
PROMPT 4 1 ""
|
||||||
|
FIELD SOMME
|
||||||
|
PICTURE "###.###.###^^^"
|
||||||
|
END
|
||||||
|
VALUTA 5 15
|
||||||
|
BEGIN
|
||||||
|
SPECIAL STRINGA INTESTAZIONE "Som. Reg. Conv." "Som. Reg. Conv"
|
||||||
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||||
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||||
|
KEY "SOMREGCONV"
|
||||||
|
PROMPT 5 1 ""
|
||||||
|
FIELD SOMREGCONV
|
||||||
|
PICTURE "###.###.###^^^"
|
||||||
|
END
|
||||||
|
VALUTA 6 14
|
||||||
|
BEGIN
|
||||||
|
SPECIAL STRINGA INTESTAZIONE "@cImponibile" "Imponibile"
|
||||||
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||||
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||||
|
KEY "IMPONIBILE"
|
||||||
|
PROMPT 6 1 ""
|
||||||
|
FIELD IMPONIBILE
|
||||||
|
PICTURE "###.###.###^^^"
|
||||||
|
END
|
||||||
|
VALUTA 7 14
|
||||||
|
BEGIN
|
||||||
|
SPECIAL STRINGA INTESTAZIONE "@cImporto" "Importo"
|
||||||
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
||||||
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
||||||
|
KEY "IMPORTO"
|
||||||
|
PROMPT 7 1 ""
|
||||||
|
FIELD IMPORTO
|
||||||
|
PICTURE "###.###.###^^^"
|
||||||
|
END
|
||||||
|
END
|
||||||
3
m770/f144.dir
Executable file
3
m770/f144.dir
Executable file
@ -0,0 +1,3 @@
|
|||||||
|
144
|
||||||
|
1
|
||||||
|
m770/quadrola|0|0|211|0|Quadro LA 770|||
|
||||||
24
m770/f144.trr
Executable file
24
m770/f144.trr
Executable file
@ -0,0 +1,24 @@
|
|||||||
|
144
|
||||||
|
20
|
||||||
|
CODDITTA|3|5|0|Codice ditta
|
||||||
|
TIPOA|1|1|0|Tipo anagrafica (Sempre 'F')
|
||||||
|
CODANAGR|3|5|0|Codice anagrafica
|
||||||
|
NPROG|2|4|0|Numero progressivo di riga
|
||||||
|
CODCAUS|9|2|0|Codice causale
|
||||||
|
CAUSALE|1|1|0|Causale
|
||||||
|
ANNO|3|4|0|Anno
|
||||||
|
ANTICIPAZ|8|1|0|Anticipazione
|
||||||
|
TOTALE|4|18|3|Ammontare lordo corrisposto
|
||||||
|
SOMME|4|18|3|Somme non soggette a ritenuta
|
||||||
|
IMPONIBILE|4|18|3|Imponibile
|
||||||
|
PERC|4|6|2|Aliquota
|
||||||
|
IMPORTO|4|18|3|Ritenute operate
|
||||||
|
RITSOSPESE|4|18|3|Ritenute sospese
|
||||||
|
ADDREG|4|18|3|Addizionale regionale
|
||||||
|
ADDREGSOSP|4|18|3|Addizionale regionale sospesa
|
||||||
|
IMPANNIPRE|4|18|3|Imponibile anni precedenti
|
||||||
|
RITANNIPRE|4|18|3|Ritenute anni precedenti
|
||||||
|
SOMREGCONV|4|18|3|Somme non soggette a ritenuta per reg. conv.
|
||||||
|
GENERATA|8|1|0|Riga generata dalle schede
|
||||||
|
1
|
||||||
|
CODDITTA+TIPOA+CODANAGR+NPROG|
|
||||||
@ -281,16 +281,12 @@ bool TArticolo::lock_and_prompt(const char * cod)
|
|||||||
real TArticolo::convert_to_um(const real& v, const char * to_um, const char * from_um)
|
real TArticolo::convert_to_um(const real& v, const char * to_um, const char * from_um)
|
||||||
{
|
{
|
||||||
// Se from_um non specificato significa che la qta che si desidera convertire e' in UM base
|
// Se from_um non specificato significa che la qta che si desidera convertire e' in UM base
|
||||||
int i1, i2 = 0;
|
const int i1 = find_um(to_um);
|
||||||
i1 = find_um(to_um);
|
const int i2 = (from_um != NULL) ? find_um(from_um) : 0;
|
||||||
|
|
||||||
if (from_um != NULL)
|
|
||||||
i2 = find_um(from_um);
|
|
||||||
|
|
||||||
TRecord_array& u = um();
|
TRecord_array& u = um();
|
||||||
real fc1 = i1 ? ((TRectype&)u[i1]).get_real("FC") : 1.00; // Fattore di conversione
|
const real fc1 = i1 > 0 ? ((TRectype&)u[i1]).get_real("FC") : 1.00; // Fattore di conversione
|
||||||
real fc2 = i2 ? ((TRectype&)u[i2]).get_real("FC") : 1.00;
|
const real fc2 = i2 > 0 ? ((TRectype&)u[i2]).get_real("FC") : 1.00;
|
||||||
real r = (v * fc2) / fc1;
|
const real r = (v * fc2) / fc1;
|
||||||
// TBI: ricerca sulla tabella UMS nel caso di um non presenti in LF_UMART
|
// TBI: ricerca sulla tabella UMS nel caso di um non presenti in LF_UMART
|
||||||
|
|
||||||
return r;
|
return r;
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user