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

Corretti mesaggi sul e alcune posizioni, ma soprattutto i messaggi.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3117 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-06-27 10:02:34 +00:00
parent ee91041430
commit dd67226d54
1 changed files with 26 additions and 23 deletions

49
ve/vebol.frm

@ -39,28 +39,28 @@ STRING 1 36 1
BEGIN
KEY "nome ditta"
PROMPT 5 6 ""
MESSAGE INIT _DITTA,!RAGSOC
MESSAGE _DITTA,!RAGSOC
END
STRING 2 36 1
BEGIN
KEY "indirizzo ditta"
PROMPT 5 7 ""
MESSAGE INIT _DITTA,!IND
MESSAGE _DITTA,!IND
END
STRING 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 5 8 ""
MESSAGE INIT _DITTA,!CAP
MESSAGE _DITTA,!CAP
END
STRING 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 12 8 ""
MESSAGE INIT _DITTA,!COM
MESSAGE _DITTA,!COM
END
STRING 5 5 1
@ -73,7 +73,7 @@ STRING 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 11 9 ""
MESSAGE INIT _DITTA,!IVA
MESSAGE _DITTA,!IVA
END
STRING 7 9 1
@ -86,42 +86,42 @@ STRING 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 15 10 ""
MESSAGE INIT _DITTA,!CF
MESSAGE _DITTA,!CF
END
STRING 14 35 2
BEGIN
KEY "destinatario, ditta"
PROMPT 44 16 ""
MESSAGE INIT _CLIENTE,!RAGSOC
MESSAGE _CLIENTE,!RAGSOC
END
STRING 15 35 2
BEGIN
KEY "destinatario, indirizzo"
PROMPT 44 18 ""
MESSAGE INIT _CLIENTE,!IND
MESSAGE _CLIENTE,!IND
END
STRING 16 5 1
BEGIN
KEY "destinatario, cap"
PROMPT 44 20 ""
MESSAGE INIT _CLIENTE,!CAP
MESSAGE _CLIENTE,!CAP
END
STRING 17 30 2
BEGIN
KEY "destinatario, comune"
PROMPT 50 20 ""
MESSAGE INIT _CLIENTE,!COM
MESSAGE _CLIENTE,!COM
END
STRING 18 2 1
STRING 18 2
BEGIN
KEY "destinatario, provincia"
PROMPT 72 21 ""
MESSAGE INIT _CLIENTE,!PROV
MESSAGE _CLIENTE,!PROV
END
DATE 19 8 1
@ -146,7 +146,7 @@ BEGIN
FIELD 16->INDIR
END
STRING 32 5 1
STRING 32 5 1
BEGIN
KEY "destinazione, cap"
PROMPT 5 18 ""
@ -161,18 +161,18 @@ BEGIN
FIELD 16->COM
END
STRING 33 21 1
STRING 33 21
BEGIN
KEY "destinazione, comune"
PROMPT 5 20 ""
MESSAGE INIT _ISAMREAD,13,COM=#49,DENCOM
MESSAGE _ISAMREAD,13,COM=#49,DENCOM
END
STRING 34 2
STRING 34 2 1
BEGIN
KEY "destinazione, provincia"
PROMPT 28 20 ""
MESSAGE INIT _ISAMREAD,13,COM=#49,PROVCOM
MESSAGE _ISAMREAD,13,COM=#49,PROVCOM
END
NUMBER 22
@ -215,7 +215,7 @@ STRING 27 11 1
BEGIN
KEY "partita iva cliente"
PROMPT 12 29 ""
MESSAGE INIT _CLIENTE,!IVA
MESSAGE _CLIENTE,!IVA
END
STRING 28 18 1
@ -254,6 +254,7 @@ STRING 33 10 4
BEGIN
KEY "descrizione articolo"
PROMPT 25 1 ""
// Stampare il campo descrizione estesa e non l'anagrafica dell'articolo
FIELD 47->DESCR
END
@ -261,7 +262,7 @@ STRING 90 12 1
BEGIN
KEY "campo di prova per gli allineamenti"
PROMPT 42 1 "allineamento"
MESSAGE INIT _ALIGN,#33,BOTTOM
MESSAGE _ALIGN,#33,BOTTOM
END
STRING 34 2 1
@ -273,17 +274,19 @@ END
NUMBER 35 6 3
BEGIN
KEY "quantità"
KEY "quantita"
PROMPT 60 1 ""
PICTURE "@@@@@@,###"
FIELD 34->QTA
MESSAGE COPY,36
END
STRING 36 10 1
NUMBER 36
BEGIN
KEY "quantità lettere"
KEY "quantita' lettere"
PROMPT 72 1 ""
MESSAGE INIT _CIFRELETTERE,#35
PICTURE "LETTERE"
//MESSAGE _CIFRELET,#35
END
END