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

Patch level :

Browse Source 
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 2008-08-01 09:18:35 +00:00
parent cd809510d5
commit c24aa1fea0
4 changed files with 376 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lv/lv0.cpp
View File

@ -9,9 +9,9 @@ int main(int argc, char** argv)
{ {
case 3: break; //gestione contratti lv0400 case 3: break; //gestione contratti lv0400
case 4: lv0500(argc, argv); break; // passaggi planning per contratto lv0500 case 4: lv0500(argc, argv); break; // passaggi planning per contratto lv0500
case 5: lv0600(argc, argv); break; //periodi di sospensione lv0600 //case 5: lv0600(argc, argv); break; // periodi di sospensione lv0600
case 6: break; //planning consegne lv0700 case 6: lv0700(argc, argv); break; // planning consegne lv0700
default: lv0100(argc, argv); break; // gestione tabelle default: lv0100(argc, argv); break; // gestione tabelle lv0100
} }
return 0; return 0;
} }

88
lv/lv0700.cpp Executable file
View 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
View 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
View 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