Spostati dal modulo vendite

git-svn-id: svn://10.65.10.50/trunk@4866 c028cbd2-c16b-5b4b-a496-9718f37d4682

mg/batbubi.h

@@ -0,0 +1,9 @@
+#define F_CODICE   101
+#define F_TIPO     102
+#define F_DESCR    103
+#define F_PIANO     104
+#define F_CORRIDOIO   105
+#define F_FILA        106
+#define F_SCAFFALE    107
+#define F_PSCAFFALE   108
+      

mg/batbubi.rpt

@@ -0,0 +1,22 @@
+[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
+

mg/batbubi.uml

@@ -0,0 +1,100 @@
+#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