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

Patch level : 10.0 patch ???

Browse Source 
Files correlati     : lv0400f.msk
Ricompilazione Demo : [ ]
Commento            :
Maschera per stampa contratti da cli a cli


git-svn-id: svn://10.65.10.50/branches/R_10_00@21473 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2011-01-19 10:46:48 +00:00
parent e8205abb6e
commit 38874c34c4
2 changed files with 130 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lv/lv0400f.h Executable file
View File

@ -0,0 +1,9 @@
//Definizione campi per maschera lv0400f
//Stampa Contratti da Cliente a Cliente
#define F_DACODCF 201
#define F_DARAGSOC 202
#define F_ACODCF 203
#define F_ARAGSOC 204
#define F_CODCONT_DA 205
#define F_CODCONT_A 206
#define F_ANNOES 207

121
lv/lv0400f.uml Executable file
View File

@ -0,0 +1,121 @@
#include "lv0400f.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE
PAGE "Stampa Contratti per Cliente" -1 -1 40 5
GROUPBOX DLG_NULL 85 5
BEGIN
PROMPT 1 1 "@b Parametri Estrazione"
END
NUMBER F_DACODCF 6
BEGIN
PROMPT 2 2 "Da Cliente "
FLAGS "U"
KEY 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_DACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_DACODCF CODCF
OUTPUT F_DARAGSOC RAGSOC
CHECKTYPE REQUIRED
FIELD #F_CODCF_FROM
END
STRING F_DARAGSOC 50
BEGIN
PROMPT 30 2 ""
KEY 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_DARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_DACODCF
CHECKTYPE REQUIRED
END
NUMBER F_ACODCF 6
BEGIN
PROMPT 2 3 "A Cliente "
FLAGS "U"
KEY 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_ACODCF
DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_ACODCF CODCF
OUTPUT F_ARAGSOC RAGSOC
CHECKTYPE REQUIRED
FIELD #F_CODCF_TO
END
STRING F_ARAGSOC 50
BEGIN
PROMPT 30 3 ""
KEY 2
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
INPUT RAGSOC F_ARAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF
COPY OUTPUT F_ACODCF
CHECKTYPE REQUIRED
END
NUMBER F_CODCONT_DA 6
BEGIN
PROMPT 2 4 "Da Contratto N."
USE LF_LVCONDV
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=F_DACODCF
INPUT CODCF F_DACODCF SELECT
INPUT CODCONT F_CODCONT_DA
DISPLAY "Cliente" CODCF
DISPLAY "Contratto" CODCONT
DISPLAY "Dalla data" DATAIN
DISPLAY "alla data" DATASC
DISPLAY "Stato" STATUS
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_CODCONT_DA CODCONT
FLAGS "U"
FIELD #F_CODCONT_FROM
CHECKTYPE SEARCH
END
NUMBER F_CODCONT_A 6
BEGIN
PROMPT 30 4 "A Contratto N. "
USE LF_LVCONDV
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=F_DACODCF
INPUT CODCF F_DACODCF SELECT
INPUT CODCONT F_CODCONT_A
DISPLAY "Cliente" CODCF
DISPLAY "Contratto" CODCONT
DISPLAY "Dalla data" DATAIN
DISPLAY "alla data" DATASC
DISPLAY "Stato" STATUS
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
OUTPUT F_CODCONT_A CODCONT
FLAGS "U"
FIELD #F_CODCONT_TO
CHECKTYPE SEARCH
END
NUMBER F_ANNOES 4
BEGIN
PROMPT 2 6 "Anno Es"
FLAGS "A"
FIELD #F_ANNO
FLAGS "H"
END
ENDPAGE
ENDMASK