Patch level : 12.0 438

Files correlati     : tf
Commento            : 
- Aggiunto programma cambio stato spesometro
- Abilitato a menù
- Tolto attrbuto REQUIRED alla colonna imponibile per movimenti di sola IVA

git-svn-id: svn://10.65.10.50/branches/R_10_00@24056 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-08-30 12:32:30 +00:00
parent f202b1fdbe
commit ce338f0c1c
7 changed files with 232 additions and 4 deletions

View File

@ -9,7 +9,7 @@ int main(int argc, char** argv)
switch (r)
{
case 1 : rt = tf0200(argc, argv); break; // Comunicazione Liquidazioni Periodiche IVA
//case 2 : rt = tf0300(argc, argv); break; // Cambio stato invio
case 2 : rt = tf0300(argc, argv); break; // Cambio stato invio
case 3 : rt = tf0400(argc, argv); break; // Controllo Spesometro
case 4 : rt = tf0500(argc, argv); break; // Invio IVA
default: rt = tf0100(argc, argv); break; // Spesometro

View File

@ -374,7 +374,6 @@ END
NUMBER A_IMPONIBILE 12 2
BEGIN
PROMPT 42 8 "Imponibile"
CHEKTYPE REQUIRED
END
NUMBER A_IMPOSTA 12 2

132
src/tf/tf0300.cpp Normal file
View File

@ -0,0 +1,132 @@
#include "tf0300a.h"
#include <applicat.h>
#include <automask.h>
#include <recset.h>
#include <recarray.h> // cache()
#include <progind.h>
class TChangeStato_msk : public TAutomask
{
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly) { return true; }
public:
TChangeStato_msk() : TAutomask("tf0300a"){}
};
// Definizione per chiamare metodo send dalla maschera
class TChangeStato_app : public TSkeleton_application
{
bool change(TChangeStato_msk& ms);
public:
virtual void main_loop();
};
bool TChangeStato_app::change(TChangeStato_msk& msk)
{
TString statoini = msk.get(A_STATOINI), statofin = msk.get(A_STATOFIN);
if(statoini == statofin)
{
return error_box("Errore! Stati Iniziale e Finale identici!");
}
bool ok;
// Cambio tutti i movimenti di quella data partendo prima da quelli in prima nota
TString query = "USE MOV\n";
query << "SELECT (REG!=\"\")&&BETWEEN(DATAREG,#DADATAREG,#ADATAREG)&&(TIPO=\"" << msk.get(F_TIPOCF) << "\")";
if(msk.get(F_CODCF) != "")
query << "&&STR((CODCF=#CODCF))";
if(statoini == "X")
{
query << "&&((TFINVIO=\"\")||(TFINVIO=\"X\"))";
}
else
query << "&&(TFINVIO=\"" << statoini << "\")";
TISAM_recordset rset(query);
TDate dadatareg = msk.get_date(F_DATAINI);
if(!dadatareg.ok())
{
dadatareg = TDate(01, 01, 2017);
msk.set(F_DATAINI, dadatareg);
}
TDate adatareg = msk.get_date(F_DATAFIN);
if(!adatareg.ok())
{
adatareg = TDate(TODAY);
msk.set(F_DATAFIN, adatareg);
}
// Setto le variabili
rset.set_var("#DADATAREG", dadatareg);
rset.set_var("#ADATAREG", adatareg);
if(msk.get(F_CODCF) != "")
rset.set_var("#CODCF", msk.get(F_CODCF));
int nrec = rset.items();
TLocalisamfile mov(LF_MOV), trasfatt(LF_TRASFATT);
TProgress_monitor p1(nrec, "Cambio stato prima nota");
for(bool ok = rset.move_first(); rset.items() > 0 && ok; ok = rset.move_next())
{
if(!p1.add_status())
return false;
TRectype& rmov = rset.cursor()->curr();
rmov.put("TFINVIO", statofin);
ok = rmov.rewrite(mov) == NOERR;
}
query.cut(0) << "USE TRASFATT\n";
query << "SELECT BETWEEN(DATAREG,#DADATAREG,#ADATAREG)&&(TIPO=\"" << msk.get(F_TIPOCF) << "\")";
if(msk.get(F_CODCF) != "")
query << "&&STR((CODCF=#CODCF))";
if(statoini == "X")
{
query << "&&((TFINVIO=\"\")||(TFINVIO=\"X\"))";
}
else
query << "&&((TFINVIO=\"" << statoini << "\")";
// Riciclo vah
rset = TISAM_recordset(query);
// Setto le variabili
rset.set_var("#DADATAREG", dadatareg);
rset.set_var("#ADATAREG", adatareg);
if(msk.get(F_CODCF) != "")
rset.set_var("#CODCF", msk.get(F_CODCF));
nrec = rset.items();
TProgress_monitor p2(nrec, "Cambio stato record custom");
for(bool ok = rset.move_first(); rset.items() > 0 && ok; ok = rset.move_next())
{
if(!p2.add_status())
return false;
TRectype& rtrasfatt = rset.cursor()->curr();
rtrasfatt.put("TFINVIO", statofin);
ok = rtrasfatt.rewrite(trasfatt) == NOERR;
}
return ok;
}
void TChangeStato_app::main_loop()
{
TChangeStato_msk msk;
while(msk.run() == K_ENTER)
{
change(msk);
}
}
int tf0300(int argc, char* argv[])
{
TChangeStato_app app;
app.run(argc, argv, TR("Invio dati liquidazione IVA"));
return 0;
}

7
src/tf/tf0300a.h Normal file
View File

@ -0,0 +1,7 @@
#define F_DATAINI 101
#define F_DATAFIN 102
#define F_TIPOCF 103
#define F_CODCF 104
#define F_RAGSOC 105
#define A_STATOINI 106
#define A_STATOFIN 107

90
src/tf/tf0300a.uml Normal file
View File

@ -0,0 +1,90 @@
#include "tf0300a.h"
TOOLBAR "topbar" 0 0 0 2
#include <elabar.h>
ENDPAGE
PAGE "Cambio stato" 0 2 0 0
DATE F_DATAINI
BEGIN
PROMPT 1 0 "Data iniziale:"
VALIDATE DATE_CMP_FUNC <= F_DATAFIN
WARNING "La data iniziale non può essere maggiore della data finale"
CHECKTYPE REQUIRED
END
DATE F_DATAFIN
BEGIN
PROMPT 40 0 "Data Finale: "
VALIDATE DATE_CMP_FUNC >= F_DATAINI
WARNING "La data finale non può essere minore della data iniziale"
CHECKTYPE REQUIRED
FLAGS "A"
END
LIST A_STATOINI 1 15
BEGIN
PROMPT 1 1 "Da stato "
ITEM "X|Inviare"
ITEM "E|Errore"
ITEM "N|Non Inviare"
ITEM "F|Forzato"
ITEM "I|Inviato"
END
LIST A_STATOFIN 1 15
BEGIN
PROMPT 40 1 "A stato "
ITEM "X|Inviare"
ITEM "E|Errore"
ITEM "N|Non Inviare"
ITEM "F|Forzato"
ITEM "I|Inviato"
END
RADIOBUTTON F_TIPOCF 15
BEGIN
PROMPT 1 2 "Tipo C/F"
ITEM "C|Cliente"
ITEM "F|Fornitore"
END
NUMBER F_CODCF 6
BEGIN
PROMPT 20 3 "Codice:"
USE LF_CLIFO
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Occasionale@C" OCCAS
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOC RAGSOC
CHEKTYPE NORMAL
GROUP 1
FLAGS ""
END
STRING F_RAGSOC 50 49
BEGIN
PROMPT 20 4 "R.Soc: "
USE LF_CLIFO KEY 2
INPUT TIPOCF F_TIPOCF SELECT
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
DISPLAY "Codice Fiscale@16" COFI
DISPLAY "Partita IVA@15" PAIV
COPY OUTPUT F_CODCF
ADD RUN CG0 -1
GROUP 1
FLAGS ""
END
ENDPAGE
ENDMASK

View File

@ -34,7 +34,7 @@ PAGE "Controlli Spesometro" 0 2 0 0
LIST F_TIPOCONTROLLO 35 35
BEGIN
PROMPT 1 0 "Controllo da effettuare"
ITEM "0|Movimenti esclusi"
ITEM "0|Movimenti ignorati"
ITEM "1|Differenze Prima Nota/Spesometro"
ITEM "2|Mostra tutti i movimenti modificati"
FLAGS ""

View File

@ -4,7 +4,7 @@ Picture = <cg01>
Module = tf
Flags = ""
Item_01 = "Trasferimento Fatture", "tf0 -0", ""+
//Item_02 = "Cambio stato Spesometro", "tf0 -2", ""
Item_02 = "Cambio stato Spesometro", "tf0 -2", ""
//Item_03 = "Controllo Spesometro", "tf0 -3", ""
Item_04 = "Report Spesometro", "ba8 -4 totiva_aliq.rep", ""
Item_05 = "Liquidazione IVA Periodica", "tf0 -1", ""