Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Prima Versione Tabella Periodi di Sospensione - Gestione Lavanderie


git-svn-id: svn://10.65.10.50/trunk@17014 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
sperego 2008-08-06 10:29:10 +00:00
parent b2808db6b5
commit 2398a832f0
2 changed files with 96 additions and 82 deletions

View File

@ -1,23 +1,22 @@
//campi maschera lv0600a.uml (Archivio Periodi di Sospensione)
# define F_COD_DITTA 101
# define F_RAGSOC_DITTA 102
# define F_ID_PERI_SOSP 103
# define F_TIPO_CF 104
# define F_COD_CF 105
# define F_RAGSOC_CLI 106
# define F_ID_CONTR 107
# define F_DES_ID_CONTR 108
# define F_DATAINI 109
# define F_DATAFIN 110
# define F_COD_TIPO_SOSP 111
# define F_DES_TIPO_SOSP 112
# define F_FLAG_FATT 113
# define F_IMP_FATT 114
# define F_PERC_FATT 115
# define F_NOTE 116
# define F_DATAINS 117
# define F_ORAINS 118
# define F_USERINS 119
# define F_DATAAGG 120
# define F_ORAAGG 121
# define F_USERAGG 122
# define F_COD_CF 103
# define F_RAGSOC_CLI 104
# define F_COD_CONT 105
# define F_DES_CONT 106
# define F_COD_PER 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

@ -32,35 +32,9 @@ BEGIN
PROMPT 1 3 "@b Periodi di Sospensione"
END
NUMBER F_ID_PERI_SOSP 17
BEGIN
PROMPT 2 4 "ID Periodo "
FIELD IDPERISOSP
KEY 1
USE LVPERISOSP KEY 1
JOIN LF_CLIFO TO LVPERISOSP INTO TIPOCF=TIPOCF CODCF=CODCF
INPUT IDPERISOSP F_ID_PERI_SOSP
DISPLAY "ID @17" IDPERISOSP
DISPLAY "CONTRATTO" ID CONTR
DISPLAY "CLIENTE" CODCF
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_ID_PERI_SOSP IDPERISOSP
OUTPUT F_COD_CF CODCF
OUTPUT F_ID_CONTR IDCONTR
CHECKTYPE REQUIRED
END
LIST F_TIPO_CF 1
BEGIN
ITEM "C|C"
FLAGS "H"
END
NUMBER F_COD_CF 6
BEGIN
PROMPT 2 5 "Codice "
PROMPT 2 4 "Codice Cliente "
FIELD CODCF
FLAGS "BU"
KEY 1
@ -75,69 +49,89 @@ END
STRING F_RAGSOC_CLI 50
BEGIN
PROMPT 30 5 ""
PROMPT 30 4 ""
FLAGS "D"
END
STRING F_ID_CONTR 3
NUMBER F_COD_CONT 8 0
BEGIN
PROMPT 2 6 "Contratto N. "
PROMPT 2 5 "Codice Contratto"
FLAGS "BU"
FIELD IDCONTR
FIELD CODCONT
KEY 1
CHECKTYPE REQUIRED
END
STRING F_DES_ID_CONTR 50
NUMBER F_COD_PER 6 0
BEGIN
PROMPT 2 6 "Codice Periodo "
FIELD CODPER
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
STRING F_DES_CONT 50
BEGIN
PROMPT 30 6 ""
FLAGS "D"
END
GROUPBOX DLG_NULL 85 14
GROUPBOX DLG_NULL 85 10
BEGIN
PROMPT 1 8 "@b Dati di Sospensione"
END
DATE F_DATAINI
DATE F_DATA_INI
BEGIN
PROMPT 2 9 "Data Inizio "
FIELD DATAINI
END
DATE F_DATAFIN
DATE F_DATA_FIN
BEGIN
PROMPT 55 9 "Data Fine "
FIELD DATAFIN
END
STRING F_COD_TIPO_SOSP 2
STRING F_TP_SOSP 2
BEGIN
PROMPT 2 10 "Tipo Sospensione"
FIELD CODTIPSOSP
FIELD TPSOSP
USE &TSP SELECT COD = "TSP"
INPUT CODTAB F_COD_TIPO_SOSP
USE &TSP
INPUT CODTAB F_COD_TP_SOSP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@35" S0
OUTPUT F_COD_TIPO_SOSP CODTAB
OUTPUT F_DES_TIPO_SOSP S0
OUTPUT F_TP_SOSP CODTAB
OUTPUT F_DES_TP_SOSP S0
END
STRING F_DES_TIPO_SOSP 35
STRING F_DES_TP_SOSP 35
BEGIN
PROMPT 30 10 ""
FLAGS "D"
END
BOOLEAN F_FLAG_FATT
BOOLEAN F_FL_FATT
BEGIN
PROMPT 2 11 "Fatturare"
FIELD FLAGFATT
FIELD FLFATT
END
NUMBER F_IMP_FATT 18
@ -152,36 +146,57 @@ BEGIN
FIELD PERCFATT
END
MEMO F_NOTE 83 -2
MEMO F_NOTE 83 -7
BEGIN
PROMPT 2 11 ""
PROMPT 2 12 "Note"
FIELD NOTE
END
GROUPBOX DLG_NULL 85 3
GROUPBOX DLG_NULL 85 4
BEGIN
PROMPT 1 21 ""
PROMPT 1 18 "@b Gestione Dati Ins.\Agg."
END
DATE F_DATAAGG
STRING F_UT_CREAZ 16
BEGIN
PROMPT 2 22 "Data Agg."
FLAGS "ADP"
FIELD DATAAGG
END
NUMBER F_ORAAGG 4
BEGIN
PROMPT 25 22 "Ora Agg."
FIELD ORAAGG
PROMPT 2 19 "Utente Ins."
FLAGS "D"
FIELD UTCREAZ
END
STRING F_USERAGG 16
DATE F_DT_CREAZ
BEGIN
PROMPT 40 22 "Utente Agg."
FLAGS "D"
FIELD USERAGG
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