Patch level :10.0 lavanderina

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiornamenti al 10 settembre...non si sa mai, domani e' l'11/09


git-svn-id: svn://10.65.10.50/trunk@17213 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-09-10 15:36:47 +00:00
parent 7cf9f22fbd
commit ee6d056e18
4 changed files with 15 additions and 346 deletions

View File

@ -1,104 +0,0 @@
#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_LVPERISOSP);
_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;
}

View File

@ -1,23 +0,0 @@
//campi maschera lv0600a.uml (Archivio Periodi di Sospensione)
# define F_COD_DITTA 101
# define F_RAGSOC_DITTA 102
# define F_COD_PER 103
# define F_COD_CF 104
# define F_RAGSOC_CLI 105
# define F_COD_CONT 106
# define F_DES_CONT 107
# define F_DATA_INI 108
# define F_DATA_FIN 109
# define F_TP_SOSP 110
# define F_DES_TP_SOSP 111
# define F_FL_FATT 112
# define F_IMP_FATT 113
# define F_PERC_FATT 114
# define F_UT_CREAZ 115
# define F_DT_CREAZ 116
# define F_OR_CREAZ 117
# define F_UT_UL_AGG 118
# define F_DT_UL_AGG 119
# define F_OR_UL_AGG 120
# define F_NOTE 121

View File

@ -1,204 +0,0 @@
# 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_COD_CF 6
BEGIN
PROMPT 2 4 "Codice Cliente "
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 4 ""
FLAGS "D"
END
NUMBER F_COD_CONT 8 0
BEGIN
PROMPT 2 5 "Codice Contratto"
FLAGS "BU"
FIELD CODCONT
KEY 1
CHECKTYPE REQUIRED
END
STRING F_DES_CONT 50
BEGIN
PROMPT 30 5 ""
FLAGS "D"
END
NUMBER F_COD_PER 6 0
BEGIN
PROMPT 2 6 "Codice Periodo "
FIELD CODPER
FLAGS "D"
KEY 1
USE LVPERISOSP KEY 1
JOIN LF_CLIFO TO LVPERISOSP INTO TIPOCF="C" CODCF=CODCF
INPUT CODPER F_COD_PER
DISPLAY "ID @17" CODPER
DISPLAY "CONTRATTO" CODCONT
DISPLAY "CLIENTE" CODCF
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_COD_PER CODPER
OUTPUT F_COD_CF CODCF
OUTPUT F_COD_CONT CODCONT
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 85 10
BEGIN
PROMPT 1 8 "@b Dati di Sospensione"
END
DATE F_DATA_INI
BEGIN
PROMPT 2 9 "Data Inizio "
FIELD DATAINI
END
DATE F_DATA_FIN
BEGIN
PROMPT 55 9 "Data Fine "
FIELD DATAFIN
END
STRING F_TP_SOSP 2
BEGIN
PROMPT 2 10 "Tipo Sospensione"
FIELD TPSOSP
USE &TSP
INPUT CODTAB F_COD_TP_SOSP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@35" S0
OUTPUT F_TP_SOSP CODTAB
OUTPUT F_DES_TP_SOSP S0
END
STRING F_DES_TP_SOSP 35
BEGIN
PROMPT 30 10 ""
FLAGS "D"
END
BOOLEAN F_FL_FATT
BEGIN
PROMPT 2 11 "Fatturare"
FIELD FLFATT
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 -7
BEGIN
PROMPT 2 12 "Note"
FIELD NOTE
END
GROUPBOX DLG_NULL 85 4
BEGIN
PROMPT 1 18 "@b Gestione Dati Ins.\Agg."
END
STRING F_UT_CREAZ 16
BEGIN
PROMPT 2 19 "Utente Ins."
FLAGS "D"
FIELD UTCREAZ
END
DATE F_DT_CREAZ
BEGIN
PROMPT 40 19 "Data Ins."
FLAGS "D"
FIELD DTCREAZ
END
NUMBER F_OR_CREAZ 4
BEGIN
PROMPT 70 19 "Ora Ins."
FLAGS "D"
FIELD ORCREAZ
END
STRING F_UT_UL_AGG 16
BEGIN
PROMPT 2 20 "Utente Agg."
FLAGS "D"
FIELD UTULAGG
END
DATE F_DT_UL_AGG
BEGIN
PROMPT 40 20 "Data Agg."
FLAGS "D"
FIELD DTULAGG
END
NUMBER F_OR_UL_AGG 4
BEGIN
PROMPT 70 20 "Ora Agg."
FLAGS "D"
FIELD ORULAGG
END
ENDPAGE
ENDMASK

View File

@ -28,25 +28,25 @@ Item_03 = "Itinerari", "lv0 -0 ITI", "F"
Item_04 = "Tipi di Sospensione", "lv0 -0 TSP", "F"
Item_05 = "Frequenza Consegne", "lv0 -0 FRQ", "F"
Item_06 = "Lavaggio", "lv0 -0 LAV", "F"
Item_07 = "Linea di Destinazione", "lv0 -0 LND", "F"
Item_08 = "Lavatrice", "lv0 -0 LVT", "F"
Item_09 = "Mangano", "lv0 -0 MAN", "F"
Item_07 = "Linee di Destinazione", "lv0 -0 LND", "F"
Item_08 = "Lavatrici", "lv0 -0 LVT", "F"
Item_09 = "Mangani", "lv0 -0 MAN", "F"
[LVMENU_010]
Caption = "Stampa Tabelle"
Picture = <ba00>
Module = 41
Flags = ""
Item_01 = "Stampa Autisti", "ba8 -4 lvstaut", "F"
Item_02 = "Stampa Mezzi", "ba8 -4 lvstmez", "F"
Item_03 = "Stampa Itinerari", "ba8 -4 lvstiti", "F"
Item_04 = "Stampa Tipi di Sospensione", "ba8 -4 lvsttsp", "F"
Item_05 = "Stampa Frequenza Consegne", "ba8 -4 lvstfrq", "F"
Item_06 = "Stampa Modalità di Passaggio", "ba8 -4 lvstmps", "F"
Item_07 = "Stampa Lavaggio", "ba8 -4 lvstlav", "F"
Item_08 = "Stampa Linea di Destinazione", "ba8 -4 lvstlnd", "F"
Item_09 = "Stampa Lavatrice", "ba8 -4 lvstlvt", "F"
Item_10 = "Stampa Mangano", "ba8 -4 lvstman", "F"
Item_01 = "Autisti", "ba8 -4 lvstaut", "F"
Item_02 = "Mezzi", "ba8 -4 lvstmez", "F"
Item_03 = "Itinerari", "ba8 -4 lvstiti", "F"
Item_04 = "Tipi di Sospensione", "ba8 -4 lvsttsp", "F"
Item_05 = "Frequenza Consegne", "ba8 -4 lvstfrq", "F"
Item_06 = "Lavaggio", "ba8 -4 lvstlav", "F"
Item_07 = "Linea di Destinazione", "ba8 -4 lvstlnd", "F"
Item_08 = "Lavatrici", "ba8 -4 lvstlvt", "F"
Item_19 = "Mangani", "ba8 -4 lvstman", "F"
Item_10 = "Modalità di Passaggio", "ba8 -4 lvstmps", "F"
[LVMENU_020]
@ -62,8 +62,8 @@ Caption = "Gestione Planning"
Picture = <ba00>
Module = 41
Flags = ""
Item_01 = "Generazione Automatica Planning", "lv2 -0", "F"
Item_02 = "Gestione Manuale Planning", "lv2 -1", "F"
Item_01 = "Generazione Automatica", "lv2 -0", "F"
Item_02 = "Gestione Manuale", "lv2 -1", "F"
[LVMENU_090]
Caption = "Configurazione"