campo-sirio/ve/batbmag.uml

#include "BATBMAG.h"
#include <comdcod.h>
#include <comdden.h>

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Gestione magazzini" 11 60 14

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 H_DESCR S0
  MESSAGE COPY,H_CODICE
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
  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,F_DESCR|HIDE,H_DESCR|SHOW,F_DESDEP
  MESSAGE EMPTY HIDE,F_DESCR|SHOW,H_DESCR|HIDE,F_DESDEP
  VALIDATE AUTOEXIT_FUNC 2 F_CODICE F_CODDEP
  GROUP GR_SEARCH
END

STRING H_CODICE 3
BEGIN
  FLAGS "H"
  COPY USE F_CODICE
  INPUT CODTAB F_CODICE
  COPY DISPLAY F_CODICE
  OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
END

STRING F_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 H_DESCR 50
BEGIN
  PROMPT 2 3 "Denominazione mag. "
  FIELD S0
  KEY 2
  USE MAG KEY 2
  INPUT S0 H_DESCR
  DISPLAY "Denominazione mag.@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  COPY OUTPUT F_CODDEP
  OUTPUT H_DESCR S0
  MESSAGE K_TAB,F_CODDEP
  CHECKTYPE REQUIRED
  WARNING "Manca la denominazione del magazzino"
END

GROUPBOX DLG_NULL 72 5
BEGIN
  PROMPT 4 6 "Unita' locale"
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
END

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

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

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

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

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

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

GROUPBOX DLG_NULL 72 6
BEGIN
  PROMPT 4 11 "Sede magazzino/deposito"
END

STRING F_IND 35
BEGIN
  PROMPT 6 12 "Indirizzo      "
  FIELD S2
END

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

STRING F_COM 4
BEGIN
  PROMPT 6 13 "Codice comune  "
  FLAGS "U"
  FIELD S5
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM F_COM
  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 6 14 "Comune         "
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_LOC
  COPY OUTPUT F_COM
  CHECKTYPE NORMAL
END

STRING F_PROV 2
BEGIN
  PROMPT 6 15 "Provincia      "
  FLAGS "D"
END

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

LISTBOX F_NATMAG 51
BEGIN
PROMPT 2 17 "Natura del magazzino "
FIELD MAG->I1
ITEM "1|Propriet<65> dell'azienda       "
ITEM "2|Materiale nostro in lavorazione presso terzi"
ITEM "3|Materiale nostro in depositopresso terzi"
ITEM "4|Materiale di terzi, in lavorazione presso l'azienda "
ITEM "5|Materiale di terzi, in deposito presso l'azienda "
END


ENDPAGE

PAGE "Gestione magazzini" 11 60 14

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

STRING F_CODMAGSTA 3
BEGIN
  PROMPT 2 2 "Codice magazzino sul quale stampare i movimenti "
  FIELD S6
  USE MAG SELECT CODTAB ?= "???"
  INPUT CODTAB[1,3]  F_CODMAGSTA
  DISPLAY "Codice " CODTAB
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAGSTA CODTAB[1,3]
END

STRING F_CODLGIOR 3
BEGIN
  PROMPT 2 3 "Codice libro giornale "
  FIELD S8
  USE REG
  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]
END

STRING F_CODLUNICO 3
BEGIN
  PROMPT 40 3 "Codice libro unico di studio "
  FIELD S9
  USE %LBU
  INPUT CODTAB[1,4] F_ANNO
  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]
END

BOOLEAN F_GESTGIA
BEGIN
  PROMPT 2 4 "Gestione giacenze in pi<70> depositi "
  FIELD MAG->B0
END

BOOLEAN F_STALDIS
BEGIN
  PROMPT 2 6 "Stampa libri distinti per classe fiscale articoli "
  FIELD MAG->B1
END

NUMBER F_FREQSTA 2
BEGIN
  PROMPT 2 7 "Frequenza stampa movimenti "
  FIELD MAG->I4
END

BOOLEAN F_STAFISART
BEGIN
  PROMPT 2 8 "Stampa libri per raggruppamento fiscale articoli "
  FIELD MAG->B2
END

BOOLEAN F_STAFISCAU
BEGIN
  PROMPT 2 9 "Stampa libri per raggruppamento fiscale causali "
  FIELD MAG->B3
END

NUMBER F_PAGULTCORR 3
BEGIN
  PROMPT 2 11 "Pagina e data ultima stampa esercizio corrente    "
  FIELD MAG->I5
END

DATE F_ULTCORR
BEGIN
  PROMPT 58 11 ""
  FIELD MAG->D0
END

NUMBER F_PAGULTPREC 3
BEGIN
  PROMPT 2 12 "Pagina e data ultima stampa esercizio precedente  "
  FIELD MAG->I6
END

DATE F_ULTPREC
BEGIN
  PROMPT 58 12 ""
  FIELD MAG->D1
END

TEXT 140
BEGIN
  PROMPT 2 14 "Parametri di stampa :"
END

BOOLEAN F_INTDITTA
BEGIN
  PROMPT 2 15 "Intestazione della ditta "
  FIELD MAG->B4
END

BOOLEAN F_STARIS
BEGIN
  PROMPT 2 16 "Stampa ristretta "
  FIELD MAG->B5
END

NUMBER F_LUNGMOD 2
BEGIN
  PROMPT 2 17 "Lunghezza modulo  "
  FIELD MAG->I7
END


ENDPAGE

ENDMASK