campo-sirio/mg/batbgca.uml

#include "batbfca.h"

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

PAGE "Gruppi 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 "Numero parte           "
  FIELD CODTAB[1,1]
	KEY 1
  FLAG "UP"
  USE FCA
  INPUT CODTAB[1,1] F_CODLIV
  DISPLAY "Codice Parte" CODTAB[1,1]
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODLIV CODTAB  
  OUTPUT F_DESLIV S0  
  OUTPUT F_FORMLIV S1  
//	MESSAGE CHECK,F_NEXTLIV
	CHECKTYPE  FORCED
	ADD NONE	
	
END

// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
  PROMPT 2 3 "Descrizione Parte      "
  USE FCA KEY 2
	INPUT S0 F_DESLIV 
  DISPLAY "Descrizione@50 " S0
  DISPLAY "N.Parte" CODTAB[1,1]
	COPY OUTPUT F_CODLIV
	CHECKTYPE FORCED
	ADD NONE	
END


// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 23
BEGIN
  PROMPT 2 5 "Formato previsto per il codice gruppo "
	FLAGS "D"
END

STRING F_CODGROUP 23
BEGIN
	FLAGS "U"
  PROMPT 22 6 "Codice del gruppo "
	FIELD CODTAB[2,25]
	KEY 1
  USE GCA
	JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1]  F_CODLIV SELECT
  INPUT CODTAB[2,25]  F_CODGROUP
  DISPLAY "N." CODTAB[1,1]
  DISPLAY "Parte@20 " 500@->S0
  DISPLAY "Gruppo@23" CODTAB[2,25]
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODLIV CODTAB[1,1]  
  OUTPUT F_CODGROUP CODTAB[2,25]  
  OUTPUT F_DESGROUP S0  
	MESSAGE DISABLE,F_DESLIV
	MESSAGE EMPTY ENABLE,F_DESLIV
	CHECKTYPE REQUIRED
END


STRING F_DESGROUP 50
BEGIN
  PROMPT 2 7 "Descrizione del gruppo "
	FIELD S0
	KEY 2
  USE GCA KEY 2 SELECT CODTAB[1,1]==#F_CODLIV
	JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT S0 F_DESGROUP
  DISPLAY "Descrizione@50 " S0
  DISPLAY "N." CODTAB[1,1]
  DISPLAY "Parte@20 " 500@->S0
  DISPLAY "Gruppo@23" CODTAB[2,25]
  COPY OUTPUT F_CODGROUP
	CHECKTYPE REQUIRED
END


/*
NUMBER F_NEXTLIV 2
BEGIN
  PROMPT 2 15 "Numero par+1           "
  FLAG "UD"
	NUM_CALC #F_CODLIV+1
	MESSAGE COPY,F_CHECKLIV|CHECK,F_CHECKLIV
END

NUMBER F_CHECKLIV 1
BEGIN
  PROMPT 2 16 "Numero parte           "
  FLAG "UD"
  USE FCA
  INPUT CODTAB[1,1] F_CHECKLIV
  DISPLAY "Codice Parte" CODTAB[1,1]
  DISPLAY "Descrizione@50 " S0
	WARNING "Non si possono definire gruppi per l'ultimo livello"
//	MESSAGE RESET,F_CODLIV
	CHECKTYPE  FORCED
END
*/
ENDPAGE