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