Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@16984 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
cd809510d5
commit
c24aa1fea0
@ -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;
|
||||
}
|
||||
|
||||
88
lv/lv0700.cpp
Executable file
88
lv/lv0700.cpp
Executable file
@ -0,0 +1,88 @@
|
||||
#include <automask.h>
|
||||
#include <defmask.h>
|
||||
#include <relapp.h>
|
||||
#include <tabutil.h>
|
||||
|
||||
#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;
|
||||
}
|
||||
28
lv/lv0700a.h
Executable file
28
lv/lv0700a.h
Executable file
@ -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
|
||||
256
lv/lv0700a.uml
Executable file
256
lv/lv0700a.uml
Executable file
@ -0,0 +1,256 @@
|
||||
#include "lv0700a.h"
|
||||
|
||||
TOOLBAR "Relapbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
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
|
||||
Loading…
x
Reference in New Issue
Block a user