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

src/tf/tf0.cpp

@@ -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

src/tf/tf0100a.uml

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

src/tf/tf0300.cpp

@@ -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;
+}

src/tf/tf0300a.h

@@ -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

src/tf/tf0300a.uml

@@ -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

src/tf/tf0400a.uml

@@ -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 ""

src/tf/tfmenu.men

@@ -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", ""