campo-sirio/ve/batbmag.uml

#include "batbmag.h"

TOOLBAR "" 0 -3 60 3
#include <toolbar.h>
ENDPAGE

PAGE "Magazzini" -1 -1 78 20

GROUPBOX DLG_NULL 75 6
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

NUMBER F_DITTA 5
BEGIN
  PROMPT 0 0 ""
  FLAGS "FGH"
END

STRING F_CODICE 3
BEGIN
  PROMPT 2 2 "Codice magazzino   "
  FIELD CODTAB[1,3]
  KEY 1
  USE MAG SELECT CODTAB[4,5]==""
  FLAG "U"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODICE CODTAB[1,3]
  OUTPUT F_DESCR S0
  OUTPUT H_DESCR S0
  OUTPUT F_NATMAG I2
  OUTPUT H_GESTGIA B0
  OUTPUT F_CODLGIOR S8
  OUTPUT F_UNLOC I1
  CHECKTYPE REQUIRED
END

STRING F_CODDEP 2
BEGIN
  PROMPT 28 2 "Codice deposito "
  FIELD CODTAB[4,5]
  FLAGS "U"
  KEY 1
	USE MAG 
	INPUT CODTAB[1,3] F_CODICE SELECT
  INPUT CODTAB[4,5] F_CODDEP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODICE CODTAB[1,3]
  OUTPUT F_CODDEP CODTAB[4,5]
  OUTPUT F_DESDEP S0
  MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA|HIDE,G_INFOMAG@
  MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA|SHOW,G_INFOMAG@
  CHECKTYPE NORMAL
	// controllo abilit. CODDEP (utilizzabile sempre)
  STR_EXPR (#H_GESTGIA=="X")||(#F_CODDEP=="")
	WARNING "Il magazzino deve essere abilitato alla gestione dei depositi"
END

//Abilitazione/disabil. dei campi relativi al deposito
BOOLEAN H_GESTGIA
BEGIN
  PROMPT 1 1 ""
  FLAGS "HG"
	MESSAGE TRUE SHOW,F_CODDEP
  MESSAGE FALSE HIDE,F_CODDEP
END

STRING H_DESCR 50
BEGIN
  PROMPT 2 3 "Denominazione mag. "
  FLAGS "D"
END

STRING F_DESDEP 50
BEGIN
  PROMPT 2 4 "Denominazione dep. "
  FIELD S0
  USE MAG KEY 2
  KEY 2
  INPUT S0 F_DESDEP
  DISPLAY "Denominazione dep.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_CODDEP
  MESSAGE K_TAB,F_CODDEP
  CHECKTYPE REQUIRED
  WARNING "Manca la denominazione"
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 3 "Denominazione mag. "
  FIELD S0
  KEY 2
  USE MAG KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Denominazione mag.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_CODDEP
  OUTPUT F_DESCR S0
  MESSAGE K_TAB,F_CODDEP
  CHECKTYPE REQUIRED
  WARNING "Manca la denominazione del magazzino"
END


GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 7 "Sede magazzino/deposito"
END

STRING F_IND 35
BEGIN
  PROMPT 2 8 "Indirizzo      "
  FIELD S2
END

STRING F_CIV 10
BEGIN
  PROMPT 60 8 "N. "
  FIELD S7
END

STRING F_COM 4
BEGIN
  PROMPT 2 9 "Codice comune  "
  FLAGS "U"
  FIELD S5
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM F_COM
#include <comdcod.h>
  OUTPUT F_COM COM
  OUTPUT F_LOC DENCOM
  OUTPUT F_PROV PROVCOM
  OUTPUT F_CAP CAPCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD RUN ba4 -0
END

STRING F_LOC 50
BEGIN
  PROMPT 2 10 "Comune         "
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_LOC
#include <comdden.h>
  COPY OUTPUT F_COM
  ADD RUN ba4 -0
  CHECKTYPE NORMAL
END

STRING F_PROV 2
BEGIN
  PROMPT 2 11 "Provincia      "
  FLAGS "D"
END

STRING F_CAP 5
BEGIN
  PROMPT 60 11 "C.A.P.  "
  FIELD S3
END

LISTBOX F_NATMAG 1 50
BEGIN
PROMPT 2 14 "Natura del magazzino "
FIELD I2
ITEM "1|Proprieta' dell'azienda       "
ITEM "2|Materiale nostro in lavorazione presso terzi"
ITEM "3|Materiale nostro in deposito presso terzi"
ITEM "4|Materiale di terzi in lavorazione presso l'azienda"
ITEM "5|Materiale di terzi in deposito presso l'azienda"
END


BOOL F_MAGSTD
BEGIN
	PROMPT 2 16 "Usa come magazzino standard "
	FIELD B1
END

ENDPAGE


PAGE "Parametri"  -1 -1 78 20

NUMBER F_ANNO 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "AH"
END

BOOLEAN F_GESTGIA
BEGIN
  PROMPT 5 2 "Gestione giacenze in piu' depositi "
  FIELD B0
	MESSAGE TRUE CLEAR,F_MAGSTD
	MESSAGE FALSE ENABLE,F_MAGSTD
	GROUP G_INFOMAG
END

STRING F_CODLGIOR 3
BEGIN
  PROMPT 5 4 "Codice libro giornale "
	FLAGS "U"
  FIELD S8
  USE REG SELECT I0=9
  INPUT CODTAB[1,4] F_ANNO 
  INPUT CODTAB[5,7] F_CODLGIOR
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Giornale" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLGIOR CODTAB[5,7]
  OUTPUT F_ANNO CODTAB[1,4] 
  WARNING "Registro non valido come Libro giornale "
	GROUP G_INFOMAG
END

/*STRING F_CODLUNICO 3
BEGIN
  PROMPT 26 5 "Codice libro unico "
	FLAGS "HU"
  FIELD S9
  USE %LBU  
  INPUT CODTAB[1,4] F_ANNO SELECT
  INPUT CODTAB[5,7] F_CODLUNICO
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Libro" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLUNICO CODTAB[5,7]
	CHECKTYPE REQUIRED
	WARNING "Codice errato o non relativo a questo anno" 
END

BOOLEAN F_USALUNICO 
BEGIN
  PROMPT 52 5 "Usa libro unico "
	FLAGS "HU"
	FIELD B6
	MESSAGE FALSE HIDE,F_CODLUNICO|SHOW,F_CODLGIOR
	MESSAGE TRUE SHOW,F_CODLUNICO|HIDE,F_CODLGIOR
END

*/

GROUPBOX DLG_NULL 72 5
BEGIN
  PROMPT 4 6 "Unita' locale"
	GROUP G_INFOMAG
END

NUMBER F_UNLOC 3
BEGIN
  PROMPT 6 7 "Codice         "
  FIELD I1
  USE LF_UNLOC KEY 1
  JOIN LF_COMUNI INTO COM=COMULC STATO==""
  INPUT CODDITTA F_DITTA SELECT
  INPUT CODULC F_UNLOC
  DISPLAY "Unita' Locale" CODULC
  DISPLAY "Indirizzo@35" INDULC
  DISPLAY "N." CIVULC
  DISPLAY "C.A.P." CAPULC
  DISPLAY "Comune@50" LF_COMUNI->DENCOM
  DISPLAY "Provincia" LF_COMUNI->PROVCOM
  OUTPUT H_COM COMULC
  OUTPUT F_UNLOC CODULC
  OUTPUT H_IND INDULC
  OUTPUT H_CIV CIVULC
  OUTPUT H_CAP CAPULC
  OUTPUT H_LOC LF_COMUNI->DENCOM
  OUTPUT H_PROV LF_COMUNI->PROVCOM
  CHECKTYPE NORMAL
  GROUP G_INFOMAG
  ADD RUN ba4 -3
END

STRING H_COM 4
BEGIN
  PROMPT 30 7 "Comune "
  FLAGS "D"
	GROUP G_INFOMAG
END

STRING H_CAP 5
BEGIN
  PROMPT 44 7 "C.A.P. "
  FLAGS "D"
	GROUP G_INFOMAG
END

STRING H_PROV 2
BEGIN
  PROMPT 60 7 "Provincia  "
  FLAGS "D"
	GROUP G_INFOMAG
END

STRING H_IND 35
BEGIN
  PROMPT 6 8 "Indirizzo      "
  FLAGS "D"
	GROUP G_INFOMAG
END

STRING H_CIV 10
BEGIN
  PROMPT 60 8 "N. "
  FLAGS "D"
	GROUP G_INFOMAG
END

STRING H_LOC 50
BEGIN
  PROMPT 6 9 "Comune         "
  FLAGS "D"
	GROUP G_INFOMAG
END

/*LISTBOX F_STARAGG  22
BEGIN
  PROMPT 2 4 "Stampare i movimenti su "
	FIELD I2
	ITEM "1|altro magazzino"
  MESSAGE HIDE,F_CODLGIOR|SHOW,F_CODMAGSTA
	ITEM "2|libro giornale"
  MESSAGE HIDE,F_CODMAGSTA|SHOW,F_CODLGIOR
END

STRING F_CODMAGSTA 3
BEGIN
  PROMPT 28 5 "Codice magazzino "
	FLAGS "U"
  FIELD S6
  USE MAG SELECT CODTAB[4,5] == ""
  INPUT CODTAB[1,3]  F_CODMAGSTA
  DISPLAY "Codice " CODTAB
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAGSTA CODTAB[1,3]
  CHECKTYPE REQUIRED
END*/


ENDPAGE

ENDMASK