campo-sirio/db/dbtblav.uml

#include "dbtblav.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Anagrafica lavorazioni" 0 2 0 0 

GROUPBOX DLG_NULL 78 5 
BEGIN
  PROMPT 1 1 ""
END

STRING F_CODICE 20
BEGIN
  PROMPT 2 2   "Codice          "  
  FLAGS "U"
  FIELD CODTAB      
  KEY 1
  USE LAV
  INPUT CODTAB F_CODICE
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  F_CODICE CODTAB
  OUTPUT  F_DESCR S0
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_SEARCHART|CHECK,F_SEARCHART
END

STRING F_SEARCHART 20
BEGIN
  FLAGS "HG"
  PROMPT 2 3   "Codice          "
  USE LF_ANAMAG
  INPUT CODART F_SEARCHART 
  OUTPUT F_CODICEART CODART
  MESSAGE CHECK,F_CODICEART
  MESSAGE EMPTY RESET,F_CODICEART
  CHECKTYPE SEARCH
  WARNING "ricerca articolo errata"
END

STRING F_CODICEART 20
BEGIN
  FLAGS "HG"
  PROMPT 42 3  ""
  STR_EXPR #F_CODICEART==""
  MESSAGE EMPTY RESET,F_CODICEART
  MESSAGE RESET,F_CODICEART
  WARNING "Il codice e' gia' utilizzato per gli articoli"
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 4   "Descrizione     "  
  FIELD S0          
  KEY 2
  USE LAV KEY 2  
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  OUTPUT F_DESCR S0
  OUTPUT F_CODICE CODTAB
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 6 ""
END             

STRING F_UNMIS 2
BEGIN
  FLAGS "U"
  PROMPT 2 7 "Unita' di misura "
  FIELD S6    
  USE %UMS
  INPUT CODTAB F_UNMIS
  DISPLAY "Unità di misura@2" CODTAB
  DISPLAY "Descrizione@50"    S0
  OUTPUT F_UNMIS CODTAB
  OUTPUT F_UMDESC S0 
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_UNMIS2
END                                

STRING F_UMDESC 50
BEGIN
  PROMPT 22 7 "  "
  USE %UMS KEY 2         
  INPUT S0 F_UMDESC 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Unità di misura@2" CODTAB
  OUTPUT F_UMDESC S0
  OUTPUT F_UNMIS CODTAB
  CHECKTYPE REQUIRED
END

CURRENCY F_COSUNIT 15
BEGIN            
  PROMPT 2 9 "Costo unitario   "
  FLAGS "U"
  FIELD R10
END                   

BOOLEAN F_STAMPA 
BEGIN
  PROMPT 51 9 "Stampa nelle esplosioni"
  FIELD B0
END 

NUMBER F_PERCMIN 6 2
BEGIN
	PROMPT 2 10 "Tempo minimo     "
	FIELD R1
END 

BOOLEAN F_PRODNRIL
BEGIN
  PROMPT 51 10 "Produzione non rilevata"
  FIELD B3
END 

ENDPAGE

PAGE "Parametri di MRP" -1 -1 65 15

NUMBER F_NUMPERS 3
BEGIN
  PROMPT 1 2 "Persone impiegate in media "
  FIELD R2
END

NUMBER F_PRODUTTIV 8 3
BEGIN
  PROMPT 1 3 "Produttivita' media        "
  FIELD R1
  CHECKTYPE REQUIRED
END

STRING F_UNMIS2 2
BEGIN
  FLAGS "DG"
  PROMPT 38 3 "espressa in "
END                                

LIST F_UNTEMPO 8
BEGIN
  FLAGS "U"
  PROMPT 53 3 " per "
  FIELD S7
  ITEM "H|ora"
  ITEM "M|minuto"
  ITEM "S|secondo"
END                                

NUMBER F_LINEESTD 2
BEGIN
  FLAGS "U"
  PROMPT 1 4 "Numero di linee standard   "
  FIELD I1
END



SPREADSHEET F_SHEET
BEGIN
  FLAGS "I"
  PROMPT 0 6 ""
  ITEM "Linea@5"
  ITEM "Descrizione@30"
  ITEM "Impianto"
  ITEM "Persone"
  ITEM "Produttivita'"
END

ENDPAGE

ENDMASK
        
PAGE "Righe" -1 -1 66 12

STRING F_CODLIN 5
BEGIN
  PROMPT 1 1 "Linea        "
  FLAGS "U"
  USE LNP
  JOIN IMP ALIAS 100 INTO CODTAB==S6
  INPUT CODTAB F_CODLIN
  DISPLAY "Linea" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Impianto" S6
  DISPLAY "Descrizione" 100@->S0
  OUTPUT F_CODLIN CODTAB
  OUTPUT F_DESCRLIN S0
  OUTPUT F_CODIMP S6
  OUTPUT F_DESCRIMP 100@->S0
  CHECKTYPE REQUIRED
END

STRING F_DESCRLIN 50
BEGIN    
  PROMPT 1 2 "Descrizione  "
  FLAGS "D"
END

STRING F_CODIMP 5
BEGIN
  PROMPT 1 3 "Impianto     "
  FLAGS "D"
END

STRING F_DESCRIMP 50
BEGIN    
  PROMPT 1 4 "Descrizione  "
  FLAGS "D"
END

NUMBER F_LNUMPERS 3
BEGIN
  PROMPT 1 6 "N. persone   "
END

NUMBER F_LPRODUTTIV 8 3
BEGIN
  PROMPT 1 8 "Produttivita'"
END



BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK