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

Sistemata la maschera di selezione stampa documenti.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3108 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-06-27 09:51:10 +00:00
parent 9059f96bb6
commit 70151080d9
1 changed files with 19 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ve/ve1100a.uml
View File

@ -1,6 +1,6 @@
#include "ve1100.h"
PAGE "STAMPA DOCUMENTI VENDITA" -1 -1 40 19
PAGE "Stampa Documenti Vendita" -1 -1 40 19
STRING F_CODNUM 4 4
BEGIN
@ -20,18 +20,18 @@ BEGIN
CHECKTYPE REQUIRED
END
LIST F_PROVV 8
BEGIN
PROMPT 26 4 ""
ITEM "P|Provvis."
ITEM "D|Definit."
END
RADIOBUTTON F_DATA_O_NUM 20
BEGIN
PROMPT 1 3 "Selezione su "
ITEM "N|Numero" MESSAGE ENABLE,1@|DISABLE,2@
ITEM "D|Data" MESSAGE ENABLE,2@|DISABLE,1@
ITEM "N|Numero" MESSAGE ENABLE,1@|CLEAR,2@
ITEM "D|Data" MESSAGE ENABLE,2@|CLEAR,1@
END
LIST F_PROVV 12
BEGIN
PROMPT 24 4 ""
ITEM "P|Provvisoria"
ITEM "D|Definitiva"
END
GROUPBOX DLG_NULL 38 5
@ -47,7 +47,7 @@ END
NUMBER F_DA_NDOC 7 0
BEGIN
PROMPT 2 8 "Dal num. "
USE 33 KEY 1 SELECT CODNUM==#F_CODNUM|ANNO==#F_ANNO
USE 33 KEY 1 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV)
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM SELECT
@ -59,30 +59,30 @@ BEGIN
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
DISPLAY "Comune@20" 13->DENCOM
OUTPUT F_DA_NDOC NDOC
OUTPUT F_DA_DATADOC DATADOC
// OUTPUT F_DA_DATADOC DATADOC
GROUP 1
CHECKTYPE NORMAL
END
NUMBER F_A_NDOC 7 0
BEGIN
PROMPT 2 10 "Al num. "
COPY USE F_DA_NDOC
USE 33 KEY 1 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV)
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM SELECT
INPUT ANNO F_ANNO SELECT
INPUT NDOC F_A_NDOC
INPUT PROVV F_PROVV
COPY DISPLAY F_DA_NDOC
OUTPUT F_A_NDOC NDOC
OUTPUT F_A_DATADOC DATADOC
// OUTPUT F_A_DATADOC DATADOC
GROUP 1
CHECKTYPE NORMAL
END
DATE F_DA_DATADOC
BEGIN
PROMPT 2 13 "Dalla data "
USE 33 KEY 3 SELECT CODNUM==#F_CODNUM|ANNO==#F_ANNO
USE 33 KEY 3 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV)
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM
@ -93,7 +93,6 @@ BEGIN
OUTPUT F_DA_NDOC NDOC
OUTPUT F_DA_DATADOC DATADOC
GROUP 2
CHECKTYPE NORMAL
END
DATE F_A_DATADOC
@ -108,16 +107,15 @@ BEGIN
OUTPUT F_A_NDOC NDOC
OUTPUT F_A_DATADOC DATADOC
GROUP 2
CHECKTYPE NORMAL
END
BUTTON DLG_SELECT 9 2
BUTTON DLG_SELECT 10 2
BEGIN
PROMPT -12 -1 "Selezione"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 9 2
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END