Patch level : 12.0 no-patch
Files correlati : Commento : Aggiornamento personalizzazione ATS con aggiunta filtri come da richiesta, adesso le date della registrazione e della fattura sono separate inoltre è possibile filtrare solo le righe con ritenute fiscali git-svn-id: svn://10.65.10.50/branches/R_10_00@23725 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari
parent
511f18ed24
commit
37bef158ec
@ -23,8 +23,10 @@ class TEsportaIva_msk : public TAutomask
|
||||
bool test_partita(const long numreg, TDate& last_data_pag, const TDate& data) const;
|
||||
void fill();
|
||||
public:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
bool testFields() const;
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
bool testFields() const;
|
||||
TISAM_recordset createRecset() const;
|
||||
TDate getDataTest() const;
|
||||
TEsportaIva_msk();
|
||||
};
|
||||
|
||||
@ -32,12 +34,18 @@ public:
|
||||
bool TEsportaIva_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
switch (o.dlg())
|
||||
{
|
||||
{
|
||||
case F_PATH:
|
||||
if (e == fe_init)
|
||||
o.set(ini_get_string(CONFIG_DITTA, "Esporta_Dati_IVA", "Path"));
|
||||
break;
|
||||
/*
|
||||
case F_DADATA:
|
||||
if (e == fe_init)
|
||||
o.set(ini_get_string(CONFIG_DITTA, "Esporta_Dati_IVA", "LastSend", "01-01-2017"));
|
||||
break;
|
||||
case F_ADATA:
|
||||
*/
|
||||
//case F_ADATA:
|
||||
case F_CODCF:
|
||||
if (e == fe_modify || e == fe_close)
|
||||
createName();
|
||||
@ -77,16 +85,16 @@ bool TEsportaIva_msk::on_field_event(TOperable_field& o, TField_event e, long jo
|
||||
void TEsportaIva_msk::createName()
|
||||
{
|
||||
//setto il campo F_NAME a un valore fisso, e cioè: "CODF_data.txt"
|
||||
TDate adata = get_date(F_ADATA);
|
||||
TDate today(TODAY);
|
||||
TString name;
|
||||
if(get(F_CODCF).full())
|
||||
name << get(F_CODCF);
|
||||
|
||||
if(get(F_CODCF).full() && adata.ok()) // Solo se ci sono entrambi, sennò farebbe schifo
|
||||
if(get(F_CODCF).full() && today.ok()) // Solo se ci sono entrambi, sennò farebbe schifo
|
||||
name << "_";
|
||||
|
||||
if(adata.ok())
|
||||
name << adata.date2ansi();
|
||||
if(today.ok())
|
||||
name << today.date2ansi();
|
||||
if(name.full()) // Capita che venga chiamato per eliminare
|
||||
name << ".txt";
|
||||
set(F_NAME, name);
|
||||
@ -95,11 +103,6 @@ void TEsportaIva_msk::createName()
|
||||
bool TEsportaIva_msk::testFields() const
|
||||
{
|
||||
// Controllo presenza campi
|
||||
if(!get_date(F_ADATA).ok() || !get_date(F_DADATA).ok())
|
||||
{
|
||||
warning_box("Controllare le date");
|
||||
return false;
|
||||
}
|
||||
if(!get_bool(B_PRTAPE) && !get_bool(B_PRTCHIU))
|
||||
{
|
||||
warning_box("Selezionare almeno un tipo di partita!");
|
||||
@ -113,6 +116,85 @@ bool TEsportaIva_msk::testFields() const
|
||||
return true;
|
||||
}
|
||||
|
||||
TISAM_recordset TEsportaIva_msk::createRecset() const
|
||||
{
|
||||
// Eseguo un controllo sulle date
|
||||
TDate daDReg = get_date(F_DADATAREG), aDReg = get_date(F_ADATAREG);
|
||||
if(!aDReg.ok())
|
||||
{
|
||||
aDReg = TDate(TODAY);
|
||||
}
|
||||
if(!daDReg.ok())
|
||||
{
|
||||
daDReg = TDate(01,01,1990);
|
||||
}
|
||||
TDate daDFatt = get_date(F_DADATAFATT), aDFatt = get_date(F_ADATAFATT);
|
||||
if(!aDFatt.ok())
|
||||
{
|
||||
aDFatt = TDate(TODAY);
|
||||
}
|
||||
if(!daDFatt.ok())
|
||||
{
|
||||
daDFatt = TDate(01,01,1990);
|
||||
}
|
||||
|
||||
// Preparo query su righe iva joinati ai mov
|
||||
TString query("USE RMOVIVA SELECT ");
|
||||
if(daDReg.ok() && aDReg.ok()) // Se almeno una delle due è stata impostata con i controlli di sopra dovrebbero essere tutte e due OK
|
||||
{
|
||||
query << "BETWEEN(23.DATAREG,#DADATAREG,#ADATAREG)&&";
|
||||
}
|
||||
if(daDFatt.ok() && aDFatt.ok())
|
||||
{
|
||||
query << "BETWEEN(23.DATADOC,#DADATAFATT,#ADATAFATT)&&";
|
||||
}
|
||||
|
||||
query << "(23.INVIVA!=\"X\")&&(23.TIPO=\"F\")";
|
||||
|
||||
if(get_bool(B_FORNITORE))
|
||||
{
|
||||
query << "&&(23.CODCF=#CODCF)";
|
||||
}
|
||||
|
||||
query << "\n";
|
||||
|
||||
query << "JOIN MOV INTO NUMREG==NUMREG\n"
|
||||
<< "JOIN %IVA ALIAS 101 INTO CODTAB==CODIVA\n"
|
||||
<< "JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF";
|
||||
|
||||
// Instanzio il recordset
|
||||
TISAM_recordset recset(query);
|
||||
if(daDReg.ok() && aDReg.ok())
|
||||
{
|
||||
recset.set_var("#DADATAREG", daDReg);
|
||||
recset.set_var("#ADATAREG", aDReg);
|
||||
}
|
||||
if(daDFatt.ok() && aDFatt.ok())
|
||||
{
|
||||
recset.set_var("#DADATAFATT", daDFatt);
|
||||
recset.set_var("#ADATAFATT", aDFatt);
|
||||
}
|
||||
if(get_bool(B_FORNITORE))
|
||||
{
|
||||
recset.set_var("#CODCF", get(F_CODCF));
|
||||
}
|
||||
|
||||
return recset;
|
||||
}
|
||||
|
||||
TDate TEsportaIva_msk::getDataTest() const
|
||||
{
|
||||
if(get_date(F_ADATAREG).ok())
|
||||
{
|
||||
return get_date(F_ADATAREG);
|
||||
}
|
||||
else if(get_date(F_ADATAFATT).ok())
|
||||
{
|
||||
return get_date(F_ADATAFATT);
|
||||
}
|
||||
return TDate(TODAY);
|
||||
}
|
||||
|
||||
//TEST_PARTITA: metodo che cerca l'ultima data pagamento delle partite relative ad un numreg (la maggiore)
|
||||
//il metodo restiruisce true se esiste almeno una partita per il numreg indicato
|
||||
bool TEsportaIva_msk::test_partita(const long numreg, TDate& last_data_pag, const TDate& data) const
|
||||
@ -151,34 +233,11 @@ void TEsportaIva_msk::fill()
|
||||
if(!testFields())
|
||||
return;
|
||||
|
||||
// Preparo le date di interesse
|
||||
bool datadoc = get_int(F_DATASEL) == 1;
|
||||
|
||||
// Preparo query su righe iva joinati ai mov
|
||||
TString query("USE RMOVIVA SELECT ");
|
||||
if(datadoc)
|
||||
{
|
||||
query << "BETWEEN(23.DATAREG,#DADATA,#ADATA)&&";
|
||||
}
|
||||
|
||||
query << "(23.INVIVA!=\"X\")&&(23.TIPO=\"F\")";
|
||||
query << "\n";
|
||||
|
||||
bool with_cms = get_int(F_JOB) == 1;
|
||||
// Controllo che data mettere per partita chiusa
|
||||
TDate dataTest = getDataTest();
|
||||
|
||||
query << "JOIN MOV INTO NUMREG==NUMREG\n"
|
||||
<< "JOIN %IVA ALIAS 101 INTO CODTAB==CODIVA\n"
|
||||
<< "JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF";
|
||||
|
||||
//instanzio il recordset
|
||||
TISAM_recordset rmoviva(query);
|
||||
if(datadoc)
|
||||
{
|
||||
rmoviva.set_var("#DADATA", get_date(F_DADATA));
|
||||
rmoviva.set_var("#ADATA", get_date(F_ADATA));
|
||||
}
|
||||
if(get_bool(B_FORNITORE))
|
||||
rmoviva.set_var("#CODCF", get(F_CODCF));
|
||||
TISAM_recordset rmoviva = createRecset();
|
||||
|
||||
TSheet_field& sheet = sfield(S_RESULT);
|
||||
TString_array& strarr = sheet.rows_array();
|
||||
@ -194,6 +253,8 @@ void TEsportaIva_msk::fill()
|
||||
if (!pi.add_status())
|
||||
break;
|
||||
|
||||
if(get_bool(B_SOLRITFIS) && rmoviva.get("23.RITFIS").as_real() <= ZERO) continue;
|
||||
|
||||
TCursor* i = rmoviva.cursor();
|
||||
int k = i->pos();
|
||||
|
||||
@ -201,9 +262,9 @@ void TEsportaIva_msk::fill()
|
||||
const long numreg = rmoviva.get(RMI_NUMREG).as_int();
|
||||
|
||||
// Da fare sempre o last_data_pag non viene valorizzato
|
||||
bool partita_chiusa = test_partita(numreg, last_data_pag, datadoc ? get_date(F_ADATA) : TDate(TODAY));
|
||||
bool partita_chiusa = test_partita(numreg, last_data_pag, dataTest);
|
||||
|
||||
if(!datadoc && (last_data_pag < get_date(F_DADATA) || get_date(F_ADATA) < last_data_pag || !last_data_pag.ok())) continue;
|
||||
//if(!datadoc && (last_data_pag < get_date(F_DADATA) || get_date(F_ADATA) < last_data_pag || !last_data_pag.ok())) continue;
|
||||
|
||||
if (all || (get_bool(B_PRTAPE) && !partita_chiusa) || (get_bool(B_PRTCHIU) && partita_chiusa))
|
||||
{
|
||||
@ -229,6 +290,7 @@ void TEsportaIva_msk::fill()
|
||||
TImporto importo(sez, rmovana.get_real("IMPORTO"));
|
||||
importo.normalize('D');
|
||||
row.add(importo.valore());
|
||||
row.add(rmoviva.get("23.RITFIS").as_real());
|
||||
row.add(rmoviva.get("23.DATADOC").as_string());
|
||||
row.add(rmoviva.get("23.NUMDOC").as_string());
|
||||
row.add(last_data_pag);
|
||||
@ -258,7 +320,8 @@ void TEsportaIva_msk::fill()
|
||||
row.add(codcms, 0);
|
||||
row.add(rmoviva.get("23.CODCF").as_string());
|
||||
row.add(rmoviva.get("20.RAGSOC").as_string());
|
||||
row.add(rmoviva.get(RMI_IMPONIBILE).as_real());
|
||||
row.add(rmoviva.get(RMI_IMPONIBILE).as_real());
|
||||
row.add(rmoviva.get("23.RITFIS").as_real());
|
||||
row.add(rmoviva.get("23.DATADOC").as_string());
|
||||
row.add(rmoviva.get("23.NUMDOC").as_string());
|
||||
row.add(last_data_pag);
|
||||
@ -276,7 +339,8 @@ void TEsportaIva_msk::fill()
|
||||
row.add("", 0);
|
||||
row.add(rmoviva.get("23.CODCF").as_string());
|
||||
row.add(rmoviva.get("20.RAGSOC").as_string());
|
||||
row.add(rmoviva.get(RMI_IMPONIBILE).as_real());
|
||||
row.add(rmoviva.get(RMI_IMPONIBILE).as_real());
|
||||
row.add(rmoviva.get("23.RITFIS").as_real());
|
||||
row.add(rmoviva.get("23.DATADOC").as_string());
|
||||
row.add(rmoviva.get("23.NUMDOC").as_string());
|
||||
row.add(last_data_pag);
|
||||
@ -370,66 +434,41 @@ void TEsportaIva_app::esporta_righe_iva(const TEsportaIva_msk& m) const
|
||||
if(!m.testFields())
|
||||
return;
|
||||
|
||||
//instanzio il TFilename e controllo la sua esistenza
|
||||
TFilename path = m.get(F_PATH);
|
||||
path.add(m.get(F_NAME));
|
||||
if (path.exist())
|
||||
{
|
||||
TString str;
|
||||
str << "ATTENZIONE! " << "Il file " << m.get(F_NAME) << "è già esistente.\n"
|
||||
<< "Se si procede sara' azzerato il file esistente!\nContinuare?";
|
||||
if (!yesno_box(str))
|
||||
return;
|
||||
// Instanzio il TFilename e controllo la sua esistenza
|
||||
TFilename path = m.get(F_PATH);
|
||||
path.add(m.get(F_NAME));
|
||||
if (path.exist())
|
||||
{
|
||||
TString str;
|
||||
str << "ATTENZIONE! " << "Il file " << m.get(F_NAME) << "è già esistente.\n"
|
||||
<< "Se si procede sara' azzerato il file esistente!\nContinuare?";
|
||||
if (!yesno_box(str))
|
||||
return;
|
||||
}
|
||||
|
||||
//preparo le date di interesse
|
||||
bool datadoc = m.get_int(F_DATASEL) == 1;
|
||||
|
||||
// Preparo query su righe iva joinati ai mov
|
||||
TString query("USE RMOVIVA SELECT ");
|
||||
if(datadoc)
|
||||
{
|
||||
query << "BETWEEN(23.DATAREG,#DADATA,#ADATA)&&";
|
||||
}
|
||||
|
||||
query << "(23.INVIVA!=\"X\")&&(23.TIPO=\"F\")";
|
||||
|
||||
if(m.get_bool(B_FORNITORE))
|
||||
{
|
||||
query << "&&(23.CODCF=#CODCF)";
|
||||
}
|
||||
query << "\n";
|
||||
|
||||
bool with_cms = m.get_int(F_JOB) == 1;
|
||||
|
||||
query << "JOIN MOV INTO NUMREG==NUMREG\n"
|
||||
<< "JOIN %IVA ALIAS 101 INTO CODTAB==CODIVA\n"
|
||||
<< "JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF";
|
||||
|
||||
//instanzio il recordset
|
||||
TISAM_recordset rmoviva(query);
|
||||
if(datadoc)
|
||||
{
|
||||
rmoviva.set_var("#DADATA", m.get_date(F_DADATA));
|
||||
rmoviva.set_var("#ADATA", m.get_date(F_ADATA));
|
||||
}
|
||||
// Controllo che data mettere per partita chiusa
|
||||
TDate dataTest = m.getDataTest();
|
||||
TISAM_recordset rmoviva = m.createRecset();
|
||||
|
||||
//instanzio il csv recordset
|
||||
TEsportaIva_rec csv;
|
||||
TEsportaIva_rec csv;
|
||||
bool all = m.get_bool(B_PRTAPE) && m.get_bool(B_PRTCHIU);
|
||||
TProgress_monitor pi(rmoviva.items(), TR("Estrazione dati..."));
|
||||
for (bool ok = rmoviva.move_first(); ok && !pi.is_cancelled(); ok = rmoviva.move_next())
|
||||
{
|
||||
if (!pi.add_status())
|
||||
break;
|
||||
if (!pi.add_status())
|
||||
break;
|
||||
|
||||
if(m.get_bool(B_SOLRITFIS) && rmoviva.get("23.RITFIS").as_real() <= ZERO) continue;
|
||||
|
||||
TDate last_data_pag;
|
||||
const long numreg = rmoviva.get(RMI_NUMREG).as_int();
|
||||
const long numreg = rmoviva.get(RMI_NUMREG).as_int();
|
||||
|
||||
// Da fare sempre o last_data_pag non viene valorizzato
|
||||
bool partita_chiusa = test_partita(numreg, last_data_pag, datadoc ? m.get_date(F_ADATA) : TDate(TODAY));
|
||||
bool partita_chiusa = test_partita(numreg, last_data_pag, dataTest);
|
||||
|
||||
if(!datadoc && last_data_pag < m.get_date(F_DADATA) && m.get_date(F_ADATA) < last_data_pag) continue;
|
||||
//if(!datadoc && last_data_pag < m.get_date(F_DADATA) && m.get_date(F_ADATA) < last_data_pag) continue;
|
||||
|
||||
if (all || (m.get_bool(B_PRTAPE) && !partita_chiusa) || (m.get_bool(B_PRTCHIU) && partita_chiusa))
|
||||
{
|
||||
@ -454,7 +493,8 @@ void TEsportaIva_app::esporta_righe_iva(const TEsportaIva_msk& m) const
|
||||
char sez = rmovana.get_char("SEZIONE");
|
||||
TImporto importo(sez, rmovana.get_real("IMPORTO"));
|
||||
importo.normalize('D');
|
||||
csv.set(3, importo.valore());
|
||||
csv.set(3, importo.valore());
|
||||
csv.set(4, rmoviva.get("23.RITFIS").as_real());
|
||||
csv.set(6, rmoviva.get("23.DATADOC"));
|
||||
csv.set(7, rmoviva.get("23.NUMDOC"));
|
||||
csv.set(8, last_data_pag);
|
||||
@ -484,6 +524,7 @@ void TEsportaIva_app::esporta_righe_iva(const TEsportaIva_msk& m) const
|
||||
csv.set(1, rmoviva.get("23.CODCF"));
|
||||
csv.set(2, rmoviva.get("20.RAGSOC"));
|
||||
csv.set(3, rmoviva.get(RMI_IMPONIBILE).as_real());
|
||||
csv.set(4, rmoviva.get("23.RITFIS").as_real());
|
||||
csv.set(6, rmoviva.get("23.DATADOC"));
|
||||
csv.set(7, rmoviva.get("23.NUMDOC"));
|
||||
csv.set(8, last_data_pag);
|
||||
@ -500,7 +541,8 @@ void TEsportaIva_app::esporta_righe_iva(const TEsportaIva_msk& m) const
|
||||
csv.set(0, "");
|
||||
csv.set(1, rmoviva.get("23.CODCF"));
|
||||
csv.set(2, rmoviva.get("20.RAGSOC"));
|
||||
csv.set(3, rmoviva.get(RMI_IMPONIBILE).as_real());
|
||||
csv.set(3, rmoviva.get(RMI_IMPONIBILE).as_real());
|
||||
csv.set(4, rmoviva.get("23.RITFIS").as_real());
|
||||
csv.set(6, rmoviva.get("23.DATADOC"));
|
||||
csv.set(7, rmoviva.get("23.NUMDOC"));
|
||||
csv.set(8, last_data_pag);
|
||||
@ -517,12 +559,13 @@ void TEsportaIva_app::esporta_righe_iva(const TEsportaIva_msk& m) const
|
||||
#endif
|
||||
|
||||
TString msg;
|
||||
msg << TR("Si conferma l'esportazione definitiva dei movimenti IVA fino al ") << m.get(F_ADATA);
|
||||
msg << TR("Si conferma l'esportazione definitiva dei movimenti IVA fino al ") << dataTest;
|
||||
if (m.get_bool(B_PRTCHIU) && yesno_box(msg))
|
||||
set_inviva(rmoviva, datadoc ? m.get_date(F_ADATA) : TDate(TODAY)); //mette il flag di "INVIVA" alla testata movimento
|
||||
set_inviva(rmoviva, dataTest); //mette il flag di "INVIVA" alla testata movimento
|
||||
|
||||
// Salvo su file le impostazioni
|
||||
ini_set_string(CONFIG_DITTA, "Esporta_Dati_IVA", "LastSend", m.get_date(F_DADATA));
|
||||
//ini_set_string(CONFIG_DITTA, "Esporta_Dati_IVA", "LastSend", m.get_date(F_DADATA));
|
||||
ini_set_string(CONFIG_DITTA, "Esporta_Dati_IVA", "Path", m.get(F_PATH));
|
||||
}
|
||||
|
||||
//SET_INVIA: metodo che mette il flag di "INVIVA" alla testata movimento
|
||||
|
||||
@ -1,25 +1,28 @@
|
||||
//campi maschera ps0713800a
|
||||
#define A_IDLAVORO 101
|
||||
#define A_CODF 102
|
||||
#define A_RAGSOC 103
|
||||
#define A_IMPORTO 104
|
||||
#define A_DATADOC 105
|
||||
#define A_NUMDOC 106
|
||||
#define A_DATAPAG 107
|
||||
#define A_GRUPPO 108
|
||||
#define A_CONTO 109
|
||||
#define A_SOTTOCONTO 110
|
||||
#define A_IDLAVORO 101
|
||||
#define A_CODF 102
|
||||
#define A_RAGSOC 103
|
||||
#define A_IMPORTO 104
|
||||
#define A_RITFIS 105
|
||||
#define A_DATADOC 106
|
||||
#define A_NUMDOC 107
|
||||
#define A_DATAPAG 108
|
||||
#define A_GRUPPO 109
|
||||
#define A_CONTO 110
|
||||
#define A_SOTTOCONTO 111
|
||||
|
||||
#define F_PATH 201
|
||||
#define F_NAME 202
|
||||
#define F_DADATA 203
|
||||
#define F_ADATA 204
|
||||
#define F_JOB 205
|
||||
#define F_DATASEL 206
|
||||
#define B_FORNITORE 207
|
||||
#define F_CODCF 208
|
||||
#define F_RAGSOC 209
|
||||
#define B_PRTAPE 210
|
||||
#define B_PRTCHIU 211
|
||||
#define F_PATH 201
|
||||
#define F_NAME 202
|
||||
#define F_DADATAREG 203
|
||||
#define F_ADATAREG 204
|
||||
#define F_DADATAFATT 205
|
||||
#define F_ADATAFATT 206
|
||||
#define F_JOB 207
|
||||
#define B_FORNITORE 208
|
||||
#define F_CODCF 209
|
||||
#define F_RAGSOC 210
|
||||
#define B_PRTAPE 211
|
||||
#define B_PRTCHIU 212
|
||||
#define B_SOLRITFIS 213
|
||||
|
||||
#define S_RESULT 301
|
||||
#define S_RESULT 301
|
||||
@ -44,28 +44,38 @@ BEGIN
|
||||
FIELD NAME
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
DATE F_DADATAREG
|
||||
BEGIN
|
||||
PROMPT 0 2 "Da data "
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 0 2 "Da data Reg. "
|
||||
FIELD ADATA
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
DATE F_ADATAREG
|
||||
BEGIN
|
||||
PROMPT 20 2 "A data "
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 25 2 "A data Reg. "
|
||||
FIELD ADATA
|
||||
END
|
||||
|
||||
DATE F_DADATAFATT
|
||||
BEGIN
|
||||
PROMPT 0 3 "Da data Fatt."
|
||||
FIELD ADATA
|
||||
END
|
||||
|
||||
DATE F_ADATAFATT
|
||||
BEGIN
|
||||
PROMPT 25 3 "A data Fatt."
|
||||
FIELD ADATA
|
||||
END
|
||||
|
||||
BOOLEAN B_FORNITORE
|
||||
BEGIN
|
||||
PROMPT 0 3 "Fornitore"
|
||||
PROMPT 0 4 "Fornitore"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 14 3 "Codice:"
|
||||
PROMPT 14 4 "Codice:"
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F" SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
@ -83,7 +93,7 @@ END
|
||||
|
||||
STRING F_RAGSOC 50 30
|
||||
BEGIN
|
||||
PROMPT 30 3 "R.Soc: "
|
||||
PROMPT 30 4 "R.Soc: "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F" SELECT
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
@ -99,25 +109,22 @@ END
|
||||
|
||||
BOOLEAN B_PRTAPE
|
||||
BEGIN
|
||||
PROMPT 0 4 "Partita aperta"
|
||||
PROMPT 0 5 "Partita aperta"
|
||||
END
|
||||
|
||||
BOOLEAN B_PRTCHIU
|
||||
BEGIN
|
||||
PROMPT 20 4 "Partita chiusa"
|
||||
PROMPT 20 5 "Partita chiusa"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_DATASEL 15
|
||||
BOOLEAN B_SOLRITFIS
|
||||
BEGIN
|
||||
PROMPT 70 2 "Data doc/pag"
|
||||
ITEM "1|Doc."
|
||||
ITEM "2|Pag"
|
||||
FLAGS "Z"
|
||||
PROMPT 40 5 "Solo Ritenute Fiscali"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_JOB 12
|
||||
RADIOBUTTON F_JOB 15
|
||||
BEGIN
|
||||
PROMPT 90 2 "ID lavoro"
|
||||
PROMPT 70 2 "ID lavoro"
|
||||
ITEM "1|SI"
|
||||
ITEM "2|NO"
|
||||
FLAGS "Z"
|
||||
@ -125,11 +132,12 @@ END
|
||||
|
||||
SPREADSHEET S_RESULT
|
||||
BEGIN
|
||||
PROMPT 0 5 ""
|
||||
PROMPT 0 6 ""
|
||||
ITEM "ID Lavoro@10"
|
||||
ITEM "Cod.\nFornitore@8"
|
||||
ITEM "Rag. Soc.@30"
|
||||
ITEM "Importo@10"
|
||||
ITEM "Rit.Fis@10"
|
||||
ITEM "Data\ndocumento@10"
|
||||
ITEM "Numero\ndocumento@10"
|
||||
ITEM "Data pagamento@10"
|
||||
@ -172,6 +180,13 @@ BEGIN
|
||||
FIELD PROGR
|
||||
END
|
||||
|
||||
NUMBER A_RITFIS 18 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "Ritenute Fiscali"
|
||||
FLAGS "D"
|
||||
FIELD PROGR
|
||||
END
|
||||
|
||||
DATE A_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 0 "Data Documento"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user