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@16994 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2008-08-04 11:09:19 +00:00
parent ed141f6973
commit 2986659318
3 changed files with 52 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lv/f164.trr
View File

@ -1,7 +1,7 @@
164 164
16 16
IDCONTR|1|3|0|Codice identificativo di un contratto IDCONTR|1|3|0|Codice identificativo di un contratto
CODCF|3|6|0|Codice identificativo di un cliente o fornitore CODCF|3|6|0|Codice identificativo di un cliente
GGCONS|2|1|0|Giorno di consegna GGCONS|2|1|0|Giorno di consegna
CODITI|1|3|0|Codice dell'itinerario CODITI|1|3|0|Codice dell'itinerario
USERINS|1|16|0|Utente d'inserimento USERINS|1|16|0|Utente d'inserimento

39
lv/lv0500a.h
View File

@ -1,24 +1,21 @@
#define F_CODDITTA 101 #define F_CODDITTA 101
#define F_RAGSOCDITTA 102 #define F_RAGSOCDITTA 102
#define F_PROVV 103 #define F_CODCF 103
#define F_CODNUM 104 #define F_RAGSOC_CLI 104
#define F_DESNUM 105 #define F_IDCONTR 105
#define F_ANNO 108 #define F_DES_IDCONTR 106
#define F_NDOC 109 #define F_GGCONS 107
#define F_GGCONS 110 #define F_CODITI 108
#define F_CODITI 111 #define F_DES_ITI 109
#define F_DES_ITI 112 #define F_USERINS 110
#define F_USERINS 113 #define F_DATAINS 111
#define F_DATAINS 114 #define F_USERAGG 112
#define F_USERAGG 115 #define F_DATAAGG 113
#define F_DATAAGG 116 #define F_ORDFERM 114
#define F_TIPOCF 117 #define F_CODFRQCONS 115
#define F_CODCF 118 #define F_DES_FRQCONS 116
#define F_ORDFERM 119 #define F_MODPASS 117
#define F_CODFRQCONS 120 #define F_FLAGSTAG 118
#define F_DES_FRQCONS 121 #define F_ORAARR 119
#define F_MODPASS 122 #define F_NOTE 120
#define F_FLAGSTAG 123
#define F_ORAARR 124
#define F_NOTE 125

143
lv/lv0500a.uml
View File

@ -32,90 +32,45 @@ BEGIN
PROMPT 1 4 "" PROMPT 1 4 ""
END 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 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 2 6 "Numerazione " PROMPT 2 5 "Codice "
FIELD CODNUM FIELD CODCF
FLAGS "U" FLAGS "B"
KEY 1 KEY 1
HELP "Codice numerazione" USE LF_CLIFO SELECT TIPOCF = "C"
USE %NUM INPUT CODCF F_CODCF
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 "Codice" CODCF
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODNUM CODNUM
OUTPUT F_NDOC NDOC
OUTPUT F_PROVV PROVV
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_TIPOCF TIPOCF OUTPUT F_RAGSOC_CLI RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC_CLI 50
BEGIN
PROMPT 20 5 ""
FLAGS "D"
END
STRING F_IDCONTR 3
BEGIN
PROMPT 2 7 "Contratto N."
FLAGS "B"
FIELD IDCONTR
KEY 1
END
STRING F_DES_IDCONTR 50
BEGIN
PROMPT 20 7 ""
FLAGS "D"
END
NUMBER F_GGCONS 1 NUMBER F_GGCONS 1
BEGIN BEGIN
PROMPT 2 8 "Giorno di consegna" PROMPT 2 9 "Giorno di consegna"
FIELD GGCONS FIELD GGCONS
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -124,7 +79,7 @@ END
STRING F_CODITI 3 STRING F_CODITI 3
BEGIN BEGIN
PROMPT 22 8 "Cod.Itinerario" PROMPT 22 9 "Cod.Itinerario"
FIELD CODITI FIELD CODITI
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
@ -139,46 +94,10 @@ END
STRING F_DES_ITI 35 STRING F_DES_ITI 35
BEGIN BEGIN
PROMPT 42 8 "" PROMPT 42 9 ""
FLAGS "D" FLAGS "D"
END 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 GROUPBOX DLG_NULL 80 5
BEGIN BEGIN
PROMPT 1 12 "" PROMPT 1 12 ""