diff --git a/lv/lv0.cpp b/lv/lv0.cpp index 70a5f4359..c96d5c519 100755 --- a/lv/lv0.cpp +++ b/lv/lv0.cpp @@ -8,10 +8,10 @@ int main(int argc, char** argv) switch (r) { case 3: break; //gestione contratti lv0400 - case 4: lv0500(argc, argv); break; //passaggi planning per contratto lv0500 - case 5: lv0600(argc, argv); break; //periodi di sospensione lv0600 - case 6: break; //planning consegne lv0700 - default: lv0100(argc, argv); break; // gestione tabelle + case 4: lv0500(argc, argv); break; // passaggi planning per contratto lv0500 + //case 5: lv0600(argc, argv); break; // periodi di sospensione lv0600 + case 6: lv0700(argc, argv); break; // planning consegne lv0700 + default: lv0100(argc, argv); break; // gestione tabelle lv0100 } return 0; } diff --git a/lv/lv0700.cpp b/lv/lv0700.cpp new file mode 100755 index 000000000..e46414fcf --- /dev/null +++ b/lv/lv0700.cpp @@ -0,0 +1,88 @@ +#include +#include +#include +#include + +#include "lv0.h" +#include "lv0700a.h" + +//------------------------------------------------------------------- +// MASCHERA (lv0700a) +//------------------------------------------------------------------- +class TPlan_cons_mask : public TAutomask +{ +protected: + virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); + +public: + TPlan_cons_mask(); +}; + + + +bool TPlan_cons_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) +{ +/* switch (o.dlg()) + { + case F_ANNO: + break; + default: + break; + } */ + return true; +} + +TPlan_cons_mask::TPlan_cons_mask() : TAutomask("lv0700a") +{ +} + + +//-------------------------------------------------------------- +// APPLICAZIONE +//-------------------------------------------------------------- +class TPlan_cons : public TRelation_application +{ + TPlan_cons_mask* _mask; + TRelation* _rel; + +protected: + bool user_create(); + bool user_destroy(); + virtual TMask* get_mask(int mode) { return _mask; } + virtual bool changing_mask(int mode) { return false; } + virtual void init_modify_mode(TMask& m); + +public: + // @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata + virtual bool check_autorization() const {return true;} + + virtual TRelation* get_relation() const {return (TRelation*)_rel;} +}; + + + +void TPlan_cons::init_modify_mode(TMask& m) //evita la registrazione di un record modificato se STAMPATO +{ + +} + + +bool TPlan_cons::user_create() +{ + _rel = new TRelation(LF_LVCONSPLAN); + _mask = new TPlan_cons_mask; + return true; +} + +bool TPlan_cons::user_destroy() +{ + delete _mask; + return true; +} + +int lv0700(int argc, char* argv[]) +{ + TPlan_cons a; + a.run(argc, argv, TR("Generazione planning")); + return 0; +} diff --git a/lv/lv0700a.h b/lv/lv0700a.h new file mode 100755 index 000000000..b098540ba --- /dev/null +++ b/lv/lv0700a.h @@ -0,0 +1,28 @@ +// lettere d'intento +// definizione campi per maschera lv0700a + +#define F_ANNO 101 +#define F_NUMPROT 102 +#define F_DATAREG 103 +#define F_VSPROT 104 +#define F_VSDATA 105 +#define F_CODCLI 106 +#define F_RAGSOC 107 +#define F_TIPOOP 108 +#define F_IMPORTO 109 +#define F_DAL 110 +#define F_AL 111 +#define F_STAMPATO 112 +#define F_INDCF 113 +#define F_CIVCF 114 +#define F_STATOCF 115 +#define F_DESTACF 116 +#define F_COMCF 117 +#define F_DENCOMCF 118 +#define F_LOCALITACF 119 +#define F_CAPCF 120 +#define F_PROVCF 121 +#define F_PAIV 122 +#define F_UFFIVA 123 +#define F_DENUFFIVA 124 +#define F_NOTE 125 diff --git a/lv/lv0700a.uml b/lv/lv0700a.uml new file mode 100755 index 000000000..21a97e338 --- /dev/null +++ b/lv/lv0700a.uml @@ -0,0 +1,256 @@ +#include "lv0700a.h" + +TOOLBAR "Relapbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Dichiarazioni d'intento" -1 -1 78 20 + +GROUPBOX DLG_NULL 75 3 +BEGIN + PROMPT 0 1 "@bNostri riferimenti" +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 1 2 "Anno " + FLAGS "AU" + USE LF_LETINT + JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCLI + INPUT ANNO F_ANNO + INPUT NUMPROT F_NUMPROT + DISPLAY "Anno" ANNO + DISPLAY "N.Protocollo" NUMPROT + DISPLAY "Data Reg.@10" DATAREG + DISPLAY "Cliente" CODCLI + DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC + OUTPUT F_ANNO ANNO + OUTPUT F_NUMPROT NUMPROT + CHECKTYPE REQUIRED + FIELD ANNO + KEY 1 +END + +NUMBER F_NUMPROT 6 +BEGIN + PROMPT 15 2 "Numero protocollo " + FLAGS "U" + COPY ALL F_ANNO + CHECKTYPE REQUIRED + FIELD NUMPROT + KEY 1 +END + +DATE F_DATAREG +BEGIN + PROMPT 43 2 "Data registrazione " + FIELD DATAREG + CHECKTYPE REQUIRED +END + +GROUPBOX DLG_NULL 75 11 +BEGIN + PROMPT 0 4 "@bRiferimenti cliente" +END + +NUMBER F_CODCLI 6 +BEGIN + PROMPT 1 5 "Cod. " + FLAGS "U" + USE LF_CLIFO KEY 1 + INPUT TIPOCF "C" + INPUT CODCF F_CODCLI + DISPLAY "Codice " CODCF + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Partita IVA@11" PAIV + OUTPUT F_CODCLI CODCF + OUTPUT F_RAGSOC RAGSOC + OUTPUT F_INDCF INDCF + OUTPUT F_CIVCF CIVCF + OUTPUT F_STATOCF STATOCF + OUTPUT F_COMCF COMCF + OUTPUT F_CAPCF CAPCF + OUTPUT F_LOCALITACF LOCALITACF + OUTPUT F_PAIV PAIV + OUTPUT F_UFFIVA PAIV[8,10] + CHECKTYPE REQUIRED + FIELD CODCLI + ADD RUN cg0 -1 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 19 5 "" + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC F_RAGSOC + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice " CODCF + COPY OUTPUT F_CODCLI + CHECKTYPE NORMAL + ADD RUN cg0 -1 +END + +STRING F_INDCF 35 +BEGIN + PROMPT 1 6 "Indirizzo " + FLAGS "D" +END + +STRING F_CIVCF 10 +BEGIN + PROMPT 59 6 "N. " + FLAGS "D" +END + +NUMBER F_STATOCF 3 +BEGIN + PROMPT 9 7 "Stato " + USE %STA + INPUT CODTAB F_STATOCF + OUTPUT F_DESTACF S0 + FLAGS "ZD" + CHECKTYPE NORMAL +END + +STRING F_DESTACF 50 +BEGIN + PROMPT 22 7 "" + FLAGS "D" +END + +STRING F_COMCF 4 +BEGIN + PROMPT 8 8 "Comune " + USE LF_COMUNI + INPUT STATO F_STATOCF + INPUT COM F_COMCF + OUTPUT F_DENCOMCF DENCOM + OUTPUT F_PROVCF PROVCOM + FLAGS "D" + CHECKTYPE NORMAL +END + +STRING F_DENCOMCF 50 +BEGIN + PROMPT 22 8 "" + FLAGS "D" +END + +STRING F_LOCALITACF 35 +BEGIN + PROMPT 1 9 "Localita' " + FLAGS "D" +END + +STRING F_CAPCF 5 +BEGIN + PROMPT 52 9 "CAP " + FLAGS "D" +END + +STRING F_PROVCF 5 +BEGIN + PROMPT 63 9 "Prov" + FLAGS "D" +END + +STRING F_PAIV 12 +BEGIN + PROMPT 1 10 "Partita IVA " + FLAGS "D" +END + +NUMBER F_UFFIVA 3 +BEGIN + PROMPT 1 11 "Ufficio IVA " + USE %UIV + INPUT CODTAB F_UFFIVA + DISPLAY "Ufficio" CODTAB + DISPLAY "Denominazione@50" S0 + OUTPUT F_UFFIVA CODTAB + OUTPUT F_DENUFFIVA S0 + CHECKTYPE NORMAL + WARNING "Ufficio IVA assente" + FLAGS "Z" + FIELD UFFIVA +END + +STRING F_DENUFFIVA 50 +BEGIN + PROMPT 22 11 "" + FLAGS "D" +END + +STRING F_VSPROT 7 +BEGIN + PROMPT 1 12 "Numero di protocollo " + FIELD VSPROT +END + +DATE F_VSDATA +BEGIN + PROMPT 1 13 "Data di emissione " + FIELD VSDATA +END + +GROUPBOX DLG_NULL 75 6 +BEGIN + PROMPT 0 15 "@bOperazione" +END + +LIST F_TIPOOP 1 15 +BEGIN + PROMPT 1 16 "Tipo operazione " + ITEM "1|Singola" + MESSAGE ENABLE,F_IMPORTO|CLEAR,1@ + ITEM "2|A concorrenza" + MESSAGE ENABLE,F_IMPORTO|CLEAR,1@ + ITEM "3|Nel periodo" + MESSAGE ENABLE,1@|CLEAR,F_IMPORTO + FIELD TIPOOP +END + +CURRENCY F_IMPORTO 18 +BEGIN + PROMPT 1 17 "Importo " + FIELD IMPORTO + CHECKTYPE REQUIRED +END + +DATE F_DAL +BEGIN + PROMPT 1 18 "Data inizio periodo " + GROUP 1 + FIELD DAL + CHECKTYPE REQUIRED +END + +DATE F_AL +BEGIN + PROMPT 1 19 "Data fine periodo " + GROUP 1 + FIELD AL + CHECKTYPE REQUIRED + VALIDATE DATE_CMP_FUNC >= F_DAL + WARNING "Specificare una 'Data fine periodo' non inferiore alla 'Data inizio perodo'" +END + +BOOLEAN F_STAMPATO +BEGIN + PROMPT 2 20 "" + FIELD STAMPATO + FLAGS "HD" +END + +ENDPAGE +PAGE "Note" -1 -1 78 20 + +MEMO F_NOTE 78 19 +BEGIN + PROMPT 1 1 "" + FIELD NOTE +END + +ENDPAGE +ENDMASK