Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@16982 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri
parent
352fb7c0db
commit
509af52b0f
@ -10,60 +10,68 @@
|
||||
//-------------------------------------------------------------------
|
||||
// MASCHERA
|
||||
//-------------------------------------------------------------------
|
||||
class TLavanderie_mask : public TAutomask
|
||||
class TPass_plan_contr_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
public:
|
||||
TLavanderie_mask();
|
||||
TPass_plan_contr_mask();
|
||||
};
|
||||
|
||||
bool TLavanderie_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
bool TPass_plan_contr_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
TLavanderie_mask::TLavanderie_mask() : TAutomask("")
|
||||
{
|
||||
|
||||
}
|
||||
|
||||
TPass_plan_contr_mask::TPass_plan_contr_mask() : TAutomask("lv0500a") {}
|
||||
|
||||
|
||||
//--------------------------------------------------------------
|
||||
// APPLICAZIONE
|
||||
//--------------------------------------------------------------
|
||||
class TLavanderie : public TRelation_application
|
||||
class TPass_plan_contr : public TRelation_application
|
||||
{
|
||||
TLavanderie_mask* _mask;
|
||||
TPass_plan_contr_mask* _mask;
|
||||
TRelation* _rel;
|
||||
|
||||
protected:
|
||||
bool user_create();
|
||||
bool user_destroy();
|
||||
virtual bool user_create();
|
||||
virtual 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;}
|
||||
};
|
||||
|
||||
|
||||
bool TLavanderie::user_create()
|
||||
bool TPass_plan_contr::user_create()
|
||||
{
|
||||
const TString8 name = get_relation()->file(0).name();
|
||||
_rel = new TRelation(LF_LETINT);
|
||||
_mask = new TLavanderie_mask;
|
||||
_rel = new TRelation(LF_LVPASPLAN);
|
||||
_mask = new TPass_plan_contr_mask;
|
||||
return true;
|
||||
}
|
||||
|
||||
bool TLavanderie::user_destroy()
|
||||
bool TPass_plan_contr::user_destroy()
|
||||
{
|
||||
delete _mask;
|
||||
return true;
|
||||
}
|
||||
|
||||
/*int TPass_plan_contr::rewrite(const TMask& mask)
|
||||
{
|
||||
TLocalisamfile lvpasplan_DB(LF_LVPASPLAN);
|
||||
|
||||
lvpasplan_DB
|
||||
return NOERR;
|
||||
}*/
|
||||
|
||||
int lv0500(int argc, char* argv[])
|
||||
{
|
||||
TLavanderie a;
|
||||
TPass_plan_contr a;
|
||||
a.run(argc, argv, TR("Archivi Lavanderie"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
42
lv/lv0500a.h
42
lv/lv0500a.h
@ -1,18 +1,24 @@
|
||||
#define PROVV
|
||||
/*ANNO
|
||||
CODNUM
|
||||
NDOC
|
||||
GGCONS
|
||||
CODITI
|
||||
USERINS|1|16|0|Utente d'inserimento
|
||||
DATAINS|5|8|0|Data d'inserimento
|
||||
USERAGG|1|16|0|Utente ultimo aggiornamento
|
||||
DATAAGG|5|8|0|Data ultimo aggiornamento
|
||||
TIPOCF|1|1|0|Tipo <C>liente <F>ornitore (C)
|
||||
CODCF|3|6|0|Codice Cliente/Fornitore
|
||||
ORDFERM|2|3|0|Indica l'ordine di fermata dell'autista
|
||||
CODFRQCONS|1|2|0|Codice per il calcolo delle consegne
|
||||
MODPASS|1|1|0|Indica la modalità di passaggio
|
||||
FLAGSTAG|8|1|0|Flag di stagionalità
|
||||
ORAARR|1|4|0|Ora di arrivo
|
||||
NOTE|11|10|0|Note */
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOCDITTA 102
|
||||
#define F_PROVV 103
|
||||
#define F_CODNUM 104
|
||||
#define F_DESNUM 105
|
||||
#define F_ANNO 108
|
||||
#define F_NDOC 109
|
||||
#define F_GGCONS 110
|
||||
#define F_CODITI 111
|
||||
#define F_DES_ITI 112
|
||||
#define F_USERINS 113
|
||||
#define F_DATAINS 114
|
||||
#define F_USERAGG 115
|
||||
#define F_DATAAGG 116
|
||||
#define F_TIPOCF 117
|
||||
#define F_CODCF 118
|
||||
#define F_ORDFERM 119
|
||||
#define F_CODFRQCONS 120
|
||||
#define F_DES_FRQCONS 121
|
||||
#define F_MODPASS 122
|
||||
#define F_FLAGSTAG 123
|
||||
#define F_ORAARR 124
|
||||
#define F_NOTE 125
|
||||
|
||||
|
||||
255
lv/lv0500a.uml
Executable file
255
lv/lv0500a.uml
Executable file
@ -0,0 +1,255 @@
|
||||
#include "lv0500a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
#include "Relapbar.h"
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Passaggi Planning per Contratto" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 80 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bDitta"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 2 "Codice "
|
||||
FLAGS "FD"
|
||||
USE LF_NDITTE
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOCDITTA RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOCDITTA 50
|
||||
BEGIN
|
||||
PROMPT 17 2 "Ragione "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 80 7
|
||||
BEGIN
|
||||
PROMPT 1 4 ""
|
||||
END
|
||||
|
||||
LISTBOX F_PROVV 14
|
||||
BEGIN
|
||||
FIELD PROVV
|
||||
PROMPT 46 7 "Tipo "
|
||||
ITEM "D|Definitiva "
|
||||
ITEM "P|Provvisoria"
|
||||
KEY 1
|
||||
FLAGS "DPG"
|
||||
FIELD PROVV
|
||||
END
|
||||
|
||||
STRING F_CODNUM 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "Numerazione "
|
||||
FIELD CODNUM
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
HELP "Codice numerazione"
|
||||
USE %NUM
|
||||
INPUT CODTAB F_CODNUM
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODNUM CODTAB
|
||||
OUTPUT F_DESNUM S0
|
||||
CHECKTYPE FORCED
|
||||
WARNING "Numerazione assente"
|
||||
END
|
||||
|
||||
STRING F_DESNUM 50
|
||||
BEGIN
|
||||
PROMPT 24 6 ""
|
||||
HELP "Descrizione numerazione"
|
||||
USE %NUM KEY 2
|
||||
INPUT S0 F_DESNUM
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CODNUM
|
||||
FLAGS ""
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 7 "Esercizio "
|
||||
FIELD ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
NUM_EXPR #F_ANNO>0
|
||||
FLAGS "AP"
|
||||
KEY 1
|
||||
WARNING "Inserire un anno valido"
|
||||
END
|
||||
|
||||
NUMBER F_NDOC 6
|
||||
BEGIN
|
||||
PROMPT 24 7 "Numero "
|
||||
FIELD NDOC
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
USE LF_DOC
|
||||
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
INPUT PROVV F_PROVV SELECT
|
||||
INPUT ANNO F_ANNO SELECT
|
||||
INPUT CODNUM F_CODNUM SELECT
|
||||
INPUT NDOC F_NDOC
|
||||
DISPLAY "Num." CODNUM
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Provv" PROVV
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "N.Doc. " NDOC
|
||||
DISPLAY "Stato@R" STATO
|
||||
DISPLAY "Data\ndocumento" DATADOC
|
||||
DISPLAY "C/F" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT F_CODNUM CODNUM
|
||||
OUTPUT F_NDOC NDOC
|
||||
OUTPUT F_PROVV PROVV
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_TIPOCF TIPOCF
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_GGCONS 1
|
||||
BEGIN
|
||||
PROMPT 2 8 "Giorno di consegna"
|
||||
FIELD GGCONS
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
|
||||
STRING F_CODITI 3
|
||||
BEGIN
|
||||
PROMPT 22 8 "Cod.Itinerario"
|
||||
FIELD CODITI
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
USE ITI
|
||||
INPUT CODTAB F_CODITI
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@35" S0
|
||||
OUTPUT F_CODITI CODTAB
|
||||
OUTPUT F_DES_ITI S0
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DES_ITI 35
|
||||
BEGIN
|
||||
PROMPT 42 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_TIPOCF 1 12
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo "
|
||||
ITEM "C|Cliente"
|
||||
ITEM "F|Fornitore"
|
||||
FIELD TIPOCF
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 24 11 "Codice "
|
||||
FIELD CODCF
|
||||
FLAGS "D"
|
||||
USE LF_DOC SELECT (CODNUM==#F_CODNUM) && (PROVV==#F_PROVV) && (ANNO==#F_ANNO)
|
||||
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
INPUT TIPOCF F_TIPOCF SELECT
|
||||
INPUT CODCF F_CODCF
|
||||
INPUT PROVV F_PROVV
|
||||
INPUT ANNO F_ANNO
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
||||
DISPLAY "Partita IVA@12" LF_CLIFO->PAIV
|
||||
DISPLAY "Num." CODNUM
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Provv" PROVV
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "N.Doc. " NDOC
|
||||
DISPLAY "Data\ndocumento" DATADOC
|
||||
DISPLAY "Valuta" CODVAL
|
||||
DISPLAY "Totale\ndocumento@18V" G1:TOTDOC
|
||||
COPY OUTPUT F_NDOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 80 5
|
||||
BEGIN
|
||||
PROMPT 1 12 ""
|
||||
END
|
||||
|
||||
NUMBER F_ORDFERM 3
|
||||
BEGIN
|
||||
PROMPT 2 14 "Ordine Fermata"
|
||||
FIELD ORDFERM
|
||||
END
|
||||
|
||||
STRING F_CODFRQCONS 2
|
||||
BEGIN
|
||||
PROMPT 21 14 "Frequenza Consegne"
|
||||
FIELD CODFRQCONS
|
||||
FLAGS "U"
|
||||
USE FRQ
|
||||
INPUT CODTAB F_CODFRQCONS
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@35" S0
|
||||
OUTPUT F_CODFRQCONS CODTAB
|
||||
OUTPUT F_DES_FRQCONS S0
|
||||
END
|
||||
|
||||
STRING F_DES_FRQCONS 35
|
||||
BEGIN
|
||||
PROMPT 44 14 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_MODPASS 1 20
|
||||
BEGIN
|
||||
PROMPT 2 15 "Modalità Passaggio"
|
||||
ITEM "C|Consegna"
|
||||
ITEM "R|Ritiro"
|
||||
ITEM "T|Consegna + Ritiro"
|
||||
FIELD MODPASS
|
||||
END
|
||||
|
||||
BOOLEAN F_FLAGSTAG
|
||||
BEGIN
|
||||
PROMPT 45 15 "Stagionalità"
|
||||
FIELD FLAGSTAG
|
||||
END
|
||||
|
||||
|
||||
NUMBER F_ORAARR 4
|
||||
BEGIN
|
||||
PROMPT 56 15 "Ora di arrivo"
|
||||
FIELD ORAARR
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 80 3
|
||||
BEGIN
|
||||
PROMPT 1 19 ""
|
||||
END
|
||||
|
||||
DATE F_DATAAGG
|
||||
BEGIN
|
||||
PROMPT 2 20 "Data Agg."
|
||||
FLAGS "ADP"
|
||||
FIELD DATAAGG
|
||||
END
|
||||
|
||||
STRING F_USERAGG 16
|
||||
BEGIN
|
||||
PROMPT 40 20 "Utente Agg."
|
||||
FLAGS "D"
|
||||
FIELD USERAGG
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user