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

Corretta maschera di stampa

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3814 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1996-10-21 17:53:35 +00:00
parent 7eb9858305
commit 40596d8ff5
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ve/ve1100a.uml
View File

@ -54,13 +54,13 @@ END
NUMBER F_DA_NDOC 7 0 NUMBER F_DA_NDOC 7 0
BEGIN BEGIN
PROMPT 2 10 "Dal num. " PROMPT 2 10 "Dal num. "
USE 33 KEY 1 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV) USE 33 KEY 1
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM INPUT PROVV F_PROVV SELECT
INPUT ANNO F_ANNO INPUT ANNO F_ANNO SELECT
INPUT CODNUM F_CODNUM SELECT
INPUT NDOC F_DA_NDOC INPUT NDOC F_DA_NDOC
INPUT PROVV F_PROVV
DISPLAY "Data@10" DATADOC DISPLAY "Data@10" DATADOC
DISPLAY "Numero@7" NDOC DISPLAY "Numero@7" NDOC
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
@ -73,13 +73,13 @@ END
NUMBER F_A_NDOC 7 0 NUMBER F_A_NDOC 7 0
BEGIN BEGIN
PROMPT 2 12 "Al num. " PROMPT 2 12 "Al num. "
USE 33 KEY 1 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV) USE 33 KEY 1
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM INPUT PROVV F_PROVV SELECT
INPUT ANNO F_ANNO INPUT ANNO F_ANNO SELECT
INPUT CODNUM F_CODNUM SELECT
INPUT NDOC F_A_NDOC INPUT NDOC F_A_NDOC
INPUT PROVV F_PROVV
COPY DISPLAY F_DA_NDOC COPY DISPLAY F_DA_NDOC
OUTPUT F_A_NDOC NDOC OUTPUT F_A_NDOC NDOC
WARNING "Il numero documento deve essere superiore al limite inferiore" WARNING "Il numero documento deve essere superiore al limite inferiore"
@ -90,14 +90,18 @@ END
DATE F_DA_DATADOC DATE F_DA_DATADOC
BEGIN BEGIN
PROMPT 2 15 "Dalla data " PROMPT 2 15 "Dalla data "
USE 33 KEY 3 SELECT (CODNUM==#F_CODNUM) && (ANNO==#F_ANNO) && (PROVV==#F_PROVV) USE 33 KEY 3 SELECT (PROVV==#F_PROVV) && (ANNO==#F_ANNO) && (CODNUM==#F_CODNUM)
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF JOIN 13 TO 20 INTO COM=COMCF
INPUT CODNUM F_CODNUM
INPUT ANNO F_ANNO
INPUT DATADOC F_DA_DATADOC INPUT DATADOC F_DA_DATADOC
INPUT PROVV F_PROVV INPUT PROVV F_PROVV
COPY DISPLAY F_DA_NDOC INPUT ANNO F_ANNO
INPUT CODNUM F_CODNUM
DISPLAY "Data@10" DATADOC
DISPLAY "Numero@7" NDOC
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
DISPLAY "Comune@20" 13->DENCOM
// COPY DISPLAY F_DA_NDOC
OUTPUT F_DA_NDOC NDOC OUTPUT F_DA_NDOC NDOC
OUTPUT F_DA_DATADOC DATADOC OUTPUT F_DA_DATADOC DATADOC
GROUP 2 GROUP 2
@ -107,11 +111,11 @@ DATE F_A_DATADOC
BEGIN BEGIN
PROMPT 2 17 "Alla data " PROMPT 2 17 "Alla data "
COPY USE F_DA_DATADOC COPY USE F_DA_DATADOC
INPUT CODNUM F_CODNUM
INPUT ANNO F_ANNO
INPUT DATADOC F_A_DATADOC INPUT DATADOC F_A_DATADOC
INPUT PROVV F_PROVV INPUT PROVV F_PROVV
COPY DISPLAY F_DA_NDOC INPUT ANNO F_ANNO
INPUT CODNUM F_CODNUM
COPY DISPLAY F_DA_DATADOC
OUTPUT F_A_NDOC NDOC OUTPUT F_A_NDOC NDOC
OUTPUT F_A_DATADOC DATADOC OUTPUT F_A_DATADOC DATADOC
GROUP 2 GROUP 2