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

Dio can, doppio FIELD

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2776 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-04-30 08:20:42 +00:00
parent 45cc74409a
commit 46d805186a
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ba/bastcpg.uml
View File

@ -7,14 +7,13 @@ BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "UZ" FLAGS "UZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
USE %CPG USE %CPG
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
FIELD CODTAB
END END
STRING F_FINE1 4 STRING F_FINE1 4
@ -22,13 +21,12 @@ BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "UZ" FLAGS "UZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
FIELD LF_TABCOM->CODTAB FIELD CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
FIELD CODTAB
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2