campo-sirio/ve/batbmag.uml

#include "BATBMAG.h"
#define LF_COMUNI 13

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

PAGE "Gestione magazzini" 11 60 14

STRING F_CODICE 6 
BEGIN
  PROMPT 2 2 "Codice del magazzino    "
  FIELD MAG->CODTAB 
  KEY 1
  USE MAG
  
  FLAG "U"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Indirizzo@25 " S1
  DISPLAY "Località@25 " S2
  DISPLAY "Prov." S7
  DISPLAY "C.A.P." S6 
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESCR  S0
  OUTPUT F_IND    S1
  OUTPUT F_LOC    S2
  OUTPUT F_CAP    S6
  OUTPUT F_PROV   S7
  CHECKTYPE REQUIRED
  
END


STRING F_DESCR 50
BEGIN
  PROMPT 2 4 "Descrizione  "
  FIELD MAG->S0
  KEY 2
  USE MAG KEY 2
  
  INPUT S0  F_DESCR
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Indirizzo@25 " S1
  DISPLAY "Località@25 " S2
  DISPLAY "Prov." S7
  DISPLAY "C.A.P." S6 
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESCR  S0
  OUTPUT F_IND    S1
  OUTPUT F_LOC    S2
  OUTPUT F_CAP    S6
  OUTPUT F_PROV   S7
  CHECKTYPE REQUIRED
  
END
  
STRING F_IND 40
BEGIN
  PROMPT 2 6 "Indirizzo    "
  FIELD MAG->S1
END

STRING F_LOC 25
BEGIN
  PROMPT 2 8 "Località "
  FIELD MAG->S2
  USE LF_COMUNI
  INPUT CAPCOM  F_CAP
  INPUT DENCOM F_LOC
  DISPLAY "Comune@50"   DENCOM
  DISPLAY "C.A.P."      CAPCOM
  DISPLAY "Provincia"   PROVCOM
  OUTPUT F_LOC   DENCOM
  OUTPUT F_CAP   CAPCOM
  OUTPUT F_PROV  PROVCOM

END

STRING F_CAP 5
BEGIN
  PROMPT 41 8 "C.A.P. "
  FIELD MAG->S6
  USE LF_COMUNI KEY 3
  INPUT CAPCOM  F_CAP
  DISPLAY "Comune@50"   DENCOM
  DISPLAY "C.A.P."      CAPCOM
  DISPLAY "Provincia"   PROVCOM
  OUTPUT F_LOC   DENCOM
  OUTPUT F_CAP   CAPCOM
  OUTPUT F_PROV  PROVCOM
END

STRING F_PROV 5
BEGIN
  PROMPT 58 8 "Prov. "
  FIELD MAG->S7
END

LISTBOX F_NATMAG 51
BEGIN
PROMPT 2 11 "Natura del magazzino "
FIELD MAG->I1
ITEM "1|Proprietà 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

STRING F_CODMAGSTA 6
BEGIN
  PROMPT 2 13 "Codice magazzino sul quale stampare i movimenti "
  FIELD MAG->I1
END

STRING F_CODLGIOR 6
BEGIN
  PROMPT 2 15 "Codice libro giornale "
  FIELD MAG->I2
END


GROUPBOX DLG_NULL 75 11
BEGIN
  PROMPT 0 0 ""
  FLAG "R"
END

ENDPAGE

PAGE "Gestione magazzini" 11 60 14

STRING F_CODLUNICO 6
BEGIN
  PROMPT 2 2 "Codice libro unico di studio "
  FIELD MAG->I3
END

BOOLEAN F_GESTGIA
BEGIN
  PROMPT 2 4 "Gestione giacenze in più 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