campo-sirio/mg/batbfca.uml

#include "batbfca.h"

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

PAGE "Formato Codice Articoli" 11 60 14

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

// codice parte del formato codice
NUMBER F_CODLIV 1
BEGIN
  PROMPT 2 2 "Parte del codice "
  FLAG "U"
  FIELD CODTAB[1,2]
	KEY 1
  USE FCA
  INPUT CODTAB  F_CODLIV
  DISPLAY "Codice Parte" CODTAB[1,2]
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODLIV CODTAB  
  OUTPUT F_DESLIV S0  
  OUTPUT F_FORMLIV S1  
	CHECKTYPE REQUIRED
//	NUM_EXPR (#F_CODLIV<5)
//	WARNING "Sono ammessi solo quattro livelli di gruppi di codice"
END

// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
  PROMPT 2 4 "     Descrizione "
	FIELD S0
	KEY 2
  USE FCA 
	INPUT S0 F_DESLIV 
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice Parte" CODTAB[1,2]
	COPY OUTPUT F_CODLIV
	CHECKTYPE REQUIRED
END

// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 24
BEGIN
  PROMPT 2 6 "         Formato "
	FIELD S1
	CHECKTYPE REQUIRED
END

NUMBER F_LENFORM 2
BEGIN
  PROMPT 2 100 ""
  FLAG "DG"
	FIELD I0
END


ENDPAGE
ENDMASK