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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Nuova versione stampa mangano, lavatrice


git-svn-id: svn://10.65.10.50/trunk@20233 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2010-03-16 09:22:10 +00:00
parent b3e0e9f6fe
commit 7b77236a7c
2 changed files with 33 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lv/lv0800a.uml
View File

@ -16,13 +16,14 @@ BEGIN
PROMP 2 3 "Da Data "
FIELD #F_DATADOC_DA
CHECKTYPE REQUIRED
FLAGS "A"
END
DATE F_DATADOC_A_1
BEGIN
PROMP 40 3 "Da Data "
PROMP 40 3 "A Data "
FIELD #F_DATADOC_A
VALIDATE DATE_CMP_FUNC >= F_DATADOC_A
VALIDATE DATE_CMP_FUNC >= F_DATADOC_A_1
WARNING "La data finale non deve essere successiva a quella finale"
CHECKTYPE REQUIRED
FLAGS "A"
@ -33,11 +34,11 @@ BEGIN
PROMPT 2 5 "Numerazione "
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM
INPUT CODTAB F_CODNUM_1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
OUTPUT F_DESCODNUM S0
OUTPUT F_CODNUM_1 CODTAB
OUTPUT F_DESCODNUM_1 S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
@ -49,11 +50,11 @@ BEGIN
PROMPT 24 5 ""
HELP "Descrizione Numerazione"
USE %NUM KEY 2
INPUT S0 F_DESCODNUM
INPUT S0 F_DESCODNUM_1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODNUM CODTAB
OUTPUT F_DESCODNUM S0
OUTPUT F_CODNUM_1 CODTAB
OUTPUT F_DESCODNUM_1 S0
FIELD #F_DESCODNUM
END
@ -62,12 +63,12 @@ BEGIN
PROMPT 2 6 "Tipo "
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
INPUT CODTAB F_TIPODOC_1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC CODTAB
OUTPUT F_DESTIPODOC S0
FLAGS "UP"
OUTPUT F_TIPODOC_1 CODTAB
OUTPUT F_DESTIPODOC_1 S0
FLAGS "UPA"
FIELD #F_TIPODOC
END
@ -76,10 +77,11 @@ BEGIN
PROMPT 24 6 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC
INPUT S0 F_DESTIPODOC_1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC
OUTPUT F_TIPODOC_1 CODTAB
OUTPUT F_DESTIPODOC_1 S0
FIELD #F_DESTIPODOC
END

32
lv/lv0900a.uml
View File

@ -1,4 +1,4 @@
#include "lv0800a.h"
#include "lv0900a.h"
TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
@ -16,13 +16,14 @@ BEGIN
PROMP 2 3 "Da Data "
FIELD #F_DATADOC_DA
CHECKTYPE REQUIRED
FLAGS "A"
END
DATE F_DATADOC_A_1
BEGIN
PROMP 40 3 "Da Data "
PROMP 40 3 "A Data "
FIELD #F_DATADOC_A
VALIDATE DATE_CMP_FUNC >= F_DATADOC_A
VALIDATE DATE_CMP_FUNC >= F_DATADOC_A_1
WARNING "La data finale non deve essere successiva a quella finale"
CHECKTYPE REQUIRED
FLAGS "A"
@ -33,11 +34,11 @@ BEGIN
PROMPT 2 5 "Numerazione "
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM
INPUT CODTAB F_CODNUM_1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
OUTPUT F_DESCODNUM S0
OUTPUT F_CODNUM_1 CODTAB
OUTPUT F_DESCODNUM_1 S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
@ -49,11 +50,11 @@ BEGIN
PROMPT 24 5 ""
HELP "Descrizione Numerazione"
USE %NUM KEY 2
INPUT S0 F_DESCODNUM
INPUT S0 F_DESCODNUM_1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
OUTPUT F_CODNUM CODTAB
OUTPUT F_DESCODNUM S0
OUTPUT F_CODNUM_1 CODTAB
OUTPUT F_DESCODNUM_1 S0
FIELD #F_DESCODNUM
END
@ -62,12 +63,12 @@ BEGIN
PROMPT 2 6 "Tipo "
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
INPUT CODTAB F_TIPODOC_1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC CODTAB
OUTPUT F_DESTIPODOC S0
FLAGS "UP"
OUTPUT F_TIPODOC_1 CODTAB
OUTPUT F_DESTIPODOC_1 S0
FLAGS "UPA"
FIELD #F_TIPODOC
END
@ -76,10 +77,11 @@ BEGIN
PROMPT 24 6 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC
INPUT S0 F_DESTIPODOC_1
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC
OUTPUT F_TIPODOC_1 CODTAB
OUTPUT F_DESTIPODOC_1 S0
FIELD #F_DESTIPODOC
END