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

Patch level : 12.0 702

Browse Source 
Files correlati     : cg
Commento            : Sistemato errore inserimento nuovo vettore
This commit is contained in:
Mattia Tollari 2019-02-20 12:01:07 +01:00
parent 349570d6be
commit c3ffdadf02
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/cg/cgtbvet.uml
View File

@ -17,7 +17,7 @@ BEGIN
PROMPT 2 2 "Codice vettore " PROMPT 2 2 "Codice vettore "
FIELD CODTAB FIELD CODTAB
HELP "Codice del vettore" HELP "Codice del vettore"
FLAGS "ZU" FLAGS "AZR"
USE %VET USE %VET
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB F_CODVETT INPUT CODTAB F_CODVETT
@ -41,8 +41,9 @@ BEGIN
PROMPT 2 3 "Cognome/Ragione sociale " PROMPT 2 3 "Cognome/Ragione sociale "
HELP "Ragione sociale del vettore" HELP "Ragione sociale del vettore"
FIELD S0[1,30] FIELD S0[1,30]
KEY 2
USE %VET KEY 2 USE %VET KEY 2
INPUT S0 F_RAGSO INPUT S0[1,30] F_RAGSO
DISPLAY "Codice vettore" CODTAB DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0 DISPLAY "Ragione sociale@50" S0
COPY OUTPUT F_CODVETT COPY OUTPUT F_CODVETT
@ -53,10 +54,8 @@ STRING F_RAGSOA 20
BEGIN BEGIN
PROMPT 2 4 "Nome/Seconda parte Rag. Soc." PROMPT 2 4 "Nome/Seconda parte Rag. Soc."
FIELD S0[31,50] FIELD S0[31,50]
USE %VET KEY 2 KEY 2
HELP "Seconda parte della ragione sociale o nome" HELP "Seconda parte della ragione sociale o nome"
COPY OUTPUT F_CODVETT
MESSAGE COPY,6@
END END