root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Prima Versione Tabella Periodi di Sospensione


git-svn-id: svn://10.65.10.50/trunk@17013 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
sperego 2008-08-05 16:34:23 +00:00
parent 57271f7828
commit b2808db6b5
3 changed files with 316 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
lv/lv0600.cpp Executable file
View File

@ -0,0 +1,104 @@
#include <automask.h>
#include <defmask.h>
#include <relapp.h>
#include <tabutil.h>
#include "lv0.h"
#include "lv0600a.h"
/* Applicazione Gestione Periodi di Sospensione
*/
//-------------------------------------------------------------------
// MASCHERA
//-------------------------------------------------------------------
class TPeriodi_sosp_mask : public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TPeriodi_sosp_mask();
};
bool TPeriodi_sosp_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
return true;
}
TPeriodi_sosp_mask::TPeriodi_sosp_mask() : TAutomask("lv0600a")
{
}
//--------------------------------------------------------------
// APPLICAZIONE
//--------------------------------------------------------------
class TPeriodi_sosp : public TRelation_application
{
TPeriodi_sosp_mask* _mask;
TRelation* _rel;
private:
int controlli(const TMask& mask);
protected:
bool user_create();
bool user_destroy();
virtual TMask* get_mask(int mode) { return _mask; }
virtual bool changing_mask(int mode) { return false; }
//virtual int write(const TMask& mask);
//virtual int rewrite(const TMask& mask);
public:
virtual TRelation* get_relation() const {return (TRelation*)_rel;}
};
/*
int TPeriodi_sosp::write(const TMask& mask)
{
// controlli prima della fase di scrittura
return controlli(mask);
}
int TPeriodi_sosp::rewrite(const TMask& mask)
{
// controlli prima della fase di aggiornamento
return controlli(mask);
}
int TPeriodi_sosp::controlli(const TMask& mask)
{
/*
if (mask.get(F_ID_PERI_SOSP).empty())
{
TDate oggi = botime;
}
if (mask.get(F_TIPO_CF).empty())
{
((TMask&)mask).set(F_TIPO_CF, "F");
}
return NOERR;
}*/
bool TPeriodi_sosp::user_create()
{
_rel = new TRelation(LF_LVTIPISOSP);
_mask = new TPeriodi_sosp_mask;
return true;
}
bool TPeriodi_sosp::user_destroy()
{
delete _mask;
return true;
}
int lv0600(int argc, char* argv[])
{
TPeriodi_sosp a;
a.run(argc, argv, TR("Periodi di Sospensione"));
return 0;
}

23
lv/lv0600a.h Executable file
View File

@ -0,0 +1,23 @@
//campi maschera lv0600a.uml (Archivio Periodi di Sospensione)
# define F_COD_DITTA 101
# define F_RAGSOC_DITTA 102
# define F_ID_PERI_SOSP 103
# define F_TIPO_CF 104
# define F_COD_CF 105
# define F_RAGSOC_CLI 106
# define F_ID_CONTR 107
# define F_DES_ID_CONTR 108
# define F_DATAINI 109
# define F_DATAFIN 110
# define F_COD_TIPO_SOSP 111
# define F_DES_TIPO_SOSP 112
# define F_FLAG_FATT 113
# define F_IMP_FATT 114
# define F_PERC_FATT 115
# define F_NOTE 116
# define F_DATAINS 117
# define F_ORAINS 118
# define F_USERINS 119
# define F_DATAAGG 120
# define F_ORAAGG 121
# define F_USERAGG 122

189
lv/lv0600a.uml Executable file
View File

@ -0,0 +1,189 @@
# include <lv0600a.h>
TOOLBAR "" 0 0 0 2
# include <Relapbar.h>
ENDPAGE
PAGE "Periodi di Sospensione" 0 2 0 0
GROUPBOX DLG_NULL 85 3
BEGIN
PROMPT 1 0 "@bDitta"
END
NUMBER F_COD_DITTA 5
BEGIN
PROMPT 2 1 "Codice "
FLAGS "FD"
USE LF_NDITTE
CHECKTYPE NORMAL
INPUT CODDITTA F_COD_DITTA
OUTPUT F_RAGSOC_DITTA RAGSOC
END
STRING F_RAGSOC_DITTA 50
BEGIN
PROMPT 30 1 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 85 5
BEGIN
PROMPT 1 3 "@b Periodi di Sospensione"
END
NUMBER F_ID_PERI_SOSP 17
BEGIN
PROMPT 2 4 "ID Periodo "
FIELD IDPERISOSP
KEY 1
USE LVPERISOSP KEY 1
JOIN LF_CLIFO TO LVPERISOSP INTO TIPOCF=TIPOCF CODCF=CODCF
INPUT IDPERISOSP F_ID_PERI_SOSP
DISPLAY "ID @17" IDPERISOSP
DISPLAY "CONTRATTO" ID CONTR
DISPLAY "CLIENTE" CODCF
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_ID_PERI_SOSP IDPERISOSP
OUTPUT F_COD_CF CODCF
OUTPUT F_ID_CONTR IDCONTR
CHECKTYPE REQUIRED
END
LIST F_TIPO_CF 1
BEGIN
ITEM "C|C"
FLAGS "H"
END
NUMBER F_COD_CF 6
BEGIN
PROMPT 2 5 "Codice "
FIELD CODCF
FLAGS "BU"
KEY 1
USE LF_CLIFO SELECT TIPOCF = "C"
INPUT CODCF F_COD_CF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_COD_CF CODCF
OUTPUT F_RAGSOC_CLI RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC_CLI 50
BEGIN
PROMPT 30 5 ""
FLAGS "D"
END
STRING F_ID_CONTR 3
BEGIN
PROMPT 2 6 "Contratto N. "
FLAGS "BU"
FIELD IDCONTR
KEY 1
CHECKTYPE REQUIRED
END
STRING F_DES_ID_CONTR 50
BEGIN
PROMPT 30 6 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 85 14
BEGIN
PROMPT 1 8 "@b Dati di Sospensione"
END
DATE F_DATAINI
BEGIN
PROMPT 2 9 "Data Inizio "
FIELD DATAINI
END
DATE F_DATAFIN
BEGIN
PROMPT 55 9 "Data Fine "
FIELD DATAFIN
END
STRING F_COD_TIPO_SOSP 2
BEGIN
PROMPT 2 10 "Tipo Sospensione"
FIELD CODTIPSOSP
USE &TSP SELECT COD = "TSP"
INPUT CODTAB F_COD_TIPO_SOSP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@35" S0
OUTPUT F_COD_TIPO_SOSP CODTAB
OUTPUT F_DES_TIPO_SOSP S0
END
STRING F_DES_TIPO_SOSP 35
BEGIN
PROMPT 30 10 ""
FLAGS "D"
END
BOOLEAN F_FLAG_FATT
BEGIN
PROMPT 2 11 "Fatturare"
FIELD FLAGFATT
END
NUMBER F_IMP_FATT 18
BEGIN
PROMPT 20 11 "Importo "
FIELD IMPFATT
END
NUMBER F_PERC_FATT 18
BEGIN
PROMPT 55 11 "Percentuale"
FIELD PERCFATT
END
MEMO F_NOTE 83 -2
BEGIN
PROMPT 2 11 ""
FIELD NOTE
END
GROUPBOX DLG_NULL 85 3
BEGIN
PROMPT 1 21 ""
END
DATE F_DATAAGG
BEGIN
PROMPT 2 22 "Data Agg."
FLAGS "ADP"
FIELD DATAAGG
END
NUMBER F_ORAAGG 4
BEGIN
PROMPT 25 22 "Ora Agg."
FIELD ORAAGG
FLAGS "D"
END
STRING F_USERAGG 16
BEGIN
PROMPT 40 22 "Utente Agg."
FLAGS "D"
FIELD USERAGG
END
ENDPAGE
ENDMASK