campo-sirio/lv/verig22.uml

#include "..\ve\verig.h"

TOOLBAR "" 0 0 0 2

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

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -34 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -44 -1 "~Collega"
  PICTURE BMP_LINK
END

ENDPAGE

PAGE "Merce Lavanderia" 0 2 0 0 

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 1 ""
END

LIST FR_TIPORIGA 2 50
BEGIN
  PROMPT 2 2 "Tipo riga "
  FIELD TIPORIGA
END

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 4 "@bArticolo"
END

STRING FR_CODART 8
BEGIN
  PROMPT 2 5 "Articolo "
  USE LF_ANAMAG KEY 1
  INPUT CODART FR_CODART
  DISPLAY "Codice@6" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FR_CODART CODART
  OUTPUT FR_DESCRART DESCR
  FLAGS "U"
  FIELD CODART
  ADD RUN ve2 -3
END

STRING FR_DESCRART 50
BEGIN
  PROMPT 25 5 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR FR_DESCRART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@8" CODART
  COPY OUTPUT FR_CODART
  ADD RUN ve2 -3
  FIELD DESCR
END

STRING FR_HDESC 50
BEGIN
  PROMPT 100 100 "Descrizione "
  USE LF_ANAMAG KEY 2
  INPUT DESCR FR_HDESC
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
	COPY OUTPUT FR_CODART
END

STRING FR_CODARTMAG 20
BEGIN
  PROMPT 200 7 ""
  FIELD CODARTMAG
  FLAGS "G"
END

BOOLEAN FR_CHECKED
BEGIN
  PROMPT 51 50 ""
  FIELD CHECKED
  FLAGS "D"
END

STRING FR_LIV1 15
BEGIN
  PROMPT 2 6 "Liv.Gia. "
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "1"
  INPUT CODTAB[2,] FR_LIV1
  DISPLAY "Livello@20" 500@->S0
  DISPLAY "Gruppo@15" CODTAB[2,]
  DISPLAY "Descrizione@30" S0
  OUTPUT FR_LIV1 CODTAB[2,]
  MESSAGE EMPTY RESET,FR_LIV2|RESET,FR_LIV3|RESET,FR_LIV4
  MESSAGE ENABLE,FR_LIV2
  CHECKTYPE NORMAL
END

STRING FR_LIV2 15
BEGIN
  PROMPT 28 6 ""
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "2"
  INPUT CODTAB[2,] FR_LIV2
  DISPLAY "Livello@20" 500@->S0
  DISPLAY "Gruppo@15" CODTAB[2,]
  DISPLAY "Descrizione@30" S0
  OUTPUT FR_LIV2 CODTAB[2,]
  MESSAGE EMPTY RESET,FR_LIV3|RESET,FR_LIV4
  MESSAGE ENABLE,FR_LIV3
  CHECKTYPE NORMAL
END

STRING FR_LIV3 15
BEGIN
  PROMPT 45 6 ""
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "3"
  INPUT CODTAB[2,] FR_LIV3
  DISPLAY "Livello@20" 500@->S0
  DISPLAY "Gruppo@15" CODTAB[2,]
  DISPLAY "Descrizione@30" S0
  OUTPUT FR_LIV3 CODTAB[2,]
  MESSAGE EMPTY RESET,FR_LIV4
  MESSAGE ENABLE,FR_LIV4
  CHECKTYPE NORMAL
END

STRING FR_LIV4 15
BEGIN
  PROMPT 62 6 ""
  FLAGS "U"
  USE GCG
  JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
  INPUT CODTAB[1,1] "4"
  INPUT CODTAB[2,] FR_LIV4
  DISPLAY "Livello@20" 500@->S0
  DISPLAY "Gruppo@15" CODTAB[2,]
  DISPLAY "Descrizione@30" S0
  OUTPUT FR_LIV4 CODTAB[2,]
  CHECKTYPE NORMAL
END

STRING FR_UMQTA 3
BEGIN
  PROMPT 62 7 "U.M. "
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART FR_CODARTMAG SE
  INPUT UM FR_UMQTA
  DISPLAY "Codice@20" UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT  FR_UMQTA UM
  FIELD UMQTA
  FLAG "U"
  CHECKTYPE REQUIRED
END

STRING FR_UMQTA2 2
BEGIN
  PROMPT 62 7 "U.M. "
  USE %UMS
  INPUT CODTAB FR_UMQTA2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  FR_UMQTA2 CODTAB
  FIELD UMQTA
  FLAG "U"
  CHECKTYPE NORMAL
END

STRING FR_CAULAV 3
BEGIN
  PROMPT 2 7 "Cau.Lav. "
  USE &LVCAU
  INPUT CODTAB FR_CAULAV 
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CAULAV CODTAB
  OUTPUT FR_FLCONS B1
  OUTPUT FR_FLRIT B0
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD CODAGG1
END

BOOLEAN FR_FLCONS
BEGIN
	PROMPT 50 50 "Flag consegnato"
	FLAGS "HG"
END

BOOLEAN FR_FLRIT
BEGIN
	PROMPT 50 50 "Flag ritirato"
	FLAGS "HG"
END

NUMBER FR_RITIRO 6 0
BEGIN
  PROMPT 28 7 "Ritirato "
  FIELD QTAGG1
END

NUMBER FR_QTA 6 0
BEGIN
  PROMPT 45 7 "Rotti    "
  FIELD QTA
END

ENDPAGE

PAGE "Analitica" 0 2 0 0

GROUPBOX DLG_NULL 78 14
BEGIN
  PROMPT 1 0 "Contabilita' analitica"
END

ENDPAGE
ENDMASK