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

Spostati nel modulo magazzino

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4865 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-15 07:35:29 +00:00
parent efb13d697e
commit d6154f60b2
3 changed files with 0 additions and 131 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ve/batbubi.h
View File

@ -1,9 +0,0 @@
#define F_CODICE 101
#define F_TIPO 102
#define F_DESCR 103
#define F_VAL 104
#define F_VAL1 105
#define F_DATA 106

22
ve/batbubi.rpt
View File

@ -1,22 +0,0 @@
[Headers]
132
Tabella Ubicazioni
1|@2g%s|Cod. Ubicazione
1|@19g%s|Descrizione
1|@71g%s|Piano
1|@78g%s|Corridoio
1|@89g%s|Fila
1|@95g%s|Scaffale
1|@105g%s|Piano Scaffale
[Rows]
1|CODTAB|@2g@10s
1|S0|@19g@50,ls
1|S6|@71g@4,ls
1|S7|@78g@4,ls
1|S8|@89g@4,ls
1|S9|@95g@4,ls
1|S5|@105g@4,ls

100
ve/batbubi.uml
View File

@ -1,100 +0,0 @@
#include "BATBUBI.h"
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE
PAGE "Ubicazioni " 11 60 14
GROUPBOX DLG_NULL 75 7
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 2 2 "Cod. Ubicazione "
FIELD UBI->CODTAB
KEY 1
USE UBI
FLAG "U"
FLAG "R"
INPUT CODTAB F_CODICE
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Piano " S6
DISPLAY "Corridoio " S7
DISPLAY "Fila " S8
DISPLAY "Scaffale " S9
DISPLAY "Piano scaffale " S5
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PIANO S6
OUTPUT F_CORRIDOIO S7
OUTPUT F_FILA S8
OUTPUT F_SCAFFALE S9
OUTPUT F_PSCAFFALE S5
CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN
PROMPT 2 4 "Descrizione "
FIELD UBI->S0
KEY 2
USE UBI KEY 2
INPUT S0 F_DESCR
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Piano " S6
DISPLAY "Corridoio " S7
DISPLAY "Fila " S8
DISPLAY "Scaffale " S9
DISPLAY "Piano scaffale " S5
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
OUTPUT F_PIANO S6
OUTPUT F_CORRIDOIO S7
OUTPUT F_FILA S8
OUTPUT F_SCAFFALE S9
OUTPUT F_PSCAFFALE S5
WARNING "Necessaria la descrizione"
CHECKTYPE REQUIRED
END
STRING F_PIANO 4
BEGIN
PROMPT 2 8 "Piano "
FIELD UBI->S6
END
STRING F_CORRIDOIO 4
BEGIN
PROMPT 26 8 "Corridoio "
FIELD UBI->S7
END
STRING F_FILA 4
BEGIN
PROMPT 52 8 "Fila "
FIELD UBI->S8
END
STRING F_SCAFFALE 4
BEGIN
PROMPT 2 10 "Scaffale "
FIELD UBI->S9
END
STRING F_PSCAFFALE 4
BEGIN
PROMPT 26 10 "Piano scaffale "
FIELD UBI->S5
END
ENDPAGE
ENDMASK