#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 10
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"
  ADD RUN ve2 -3
  CHECKTYPE NORMAL
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
  //CHECKTYPE NORMAL
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 2 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 2 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

CURRENCY FR_PREZZO 15
BEGIN
  PROMPT 13 7 "Prezzo "
  FLAGS "U"
  FIELD PREZZO
END

STRING FR_SCONTO 15
BEGIN
  PROMPT 36 7 "Sconto "
  FIELD SCONTO
END

NUMBER FR_PERCPROV 5 2
BEGIN
  PROMPT 59 7 "Provv. "
  FIELD PERCPROV
END

NUMBER FR_PERCPROV1 5 2
BEGIN
  PROMPT 72 7 ""
  FIELD PERCPROV1
END

STRING FR_CAULAV 3
BEGIN
  PROMPT 2 8 "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 1
BEGIN
  PROMPT 20 8 "Ritirato  "
  FIELD QTAGG1
END

NUMBER FR_QTA 6 1
BEGIN
  PROMPT 39 8 "Consegnato  "
  FIELD QTA
END

NUMBER FR_JOLLY1 6 1
BEGIN
  PROMPT 2 9 "Dot. Od.  "
  FIELD DOTOD
  FLAGS "D"
END

NUMBER FR_JOLLY2 6 1
BEGIN
  PROMPT 20 9 "Dot. Tem. "
  FIELD DOTMP
  FLAGS "D"
END

DATE FR_JOLLY3
BEGIN
  PROMPT 40 9 "Inizio "
  FIELD DADATATMP
END

DATE FR_JOLLY4
BEGIN
  PROMPT 60 9 "Fine   "
  FIELD ADATATMP
END

NUMBER FR_NCOLLI 7
BEGIN
  PROMPT 2 10 "N. Colli  "
  FIELD NCOLLI
END

NUMBER FR_TARA 15 2
BEGIN
  PROMPT 25 10 "Tara "
  FIELD TARA
END

NUMBER FR_PNETTO 6 2
BEGIN
  PROMPT 60 10 "Peso netto "
  FIELD PNETTO
END

STRING FR_CODIVA 4
BEGIN
  PROMPT 2 12 "IVA "
  USE %IVA
  INPUT CODTAB FR_CODIVA
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  FR_CODIVA CODTAB
  OUTPUT  FR_DESIVA S0
  FLAGS "U"
  VALIDATE ZEROFILL_FUNC 2
  CHECKTYPE NORMAL
  FIELD CODIVA
END

STRING FR_DESIVA 50
BEGIN
  PROMPT 13 12 ""
  USE %IVA KEY 2
  INPUT S0 FR_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  OUTPUT  FR_CODIVA CODTAB
  OUTPUT  FR_DESIVA S0
END

STRING FR_TIPODET 1
BEGIN
  PROMPT 67 12 "Indetr.  "
  USE %DET
  INPUT CODTAB FR_TIPODET
  DISPLAY "Codice" CODTAB
  DISPLAY "Tipo" I0
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_TIPODET CODTAB
  CHECKTYPE NORMAL
  FLAGS "U"
END

GROUPBOX DLG_NULL 78 6
BEGIN
	PROMPT 1 14 "@bMagazzino"
END

STRING FR_CODMAG 4
BEGIN
  PROMPT 2 15 "Magazzino      "
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB FR_CODMAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODMAG CODTAB
  OUTPUT FR_DESMAG S0
  WARNING "Magazzino assente"
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD CODMAG[1,3]
END

STRING FR_DESMAG 50
BEGIN
  PROMPT 26 15 ""
  FLAGS "D"
END

STRING FR_CODDEP 4
BEGIN
  PROMPT 2 16 "Deposito       "
  USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB[4,5]!="")
  INPUT CODTAB[1,3] FR_CODMAG
  INPUT CODTAB[4,5] FR_CODDEP
  DISPLAY "Codice mag." CODTAB[1,3]
  DISPLAY "Codice dep." CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODMAG CODTAB[1,3]
  OUTPUT FR_CODDEP CODTAB[4,5]
  OUTPUT FR_DESDEP S0
  MESSAGE DIRTY,FR_CODMAG|K_TAB,FR_CODMAG
  CHECKTYPE NORMAL
  WARNING "Deposito assente"
  FLAGS "U"
  FIELD CODMAG[4,5]
END

STRING FR_DESDEP 50
BEGIN
  PROMPT 26 16 ""
  FLAGS "D"
END

STRING FR_CODMAGC 4
BEGIN
  PROMPT 2 17 "Magazzino Col. "
  COPY USE FR_CODMAG
  INPUT CODTAB FR_CODMAGC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODMAGC CODTAB
  OUTPUT FR_DESMAGC S0
  WARNING "Magazzino assente"
  FLAGS "U"
  CHECKTYPE NORMAL
  FIELD CODMAGC[1,3]
END

STRING FR_DESMAGC 50
BEGIN
  PROMPT 26 17 ""
  FLAGS "D"
END

STRING FR_CODDEPC 4
BEGIN
  PROMPT 2 18 "Deposito       "
  USE MAG SELECT (CODTAB[1,3]==#FR_CODMAGC) && (CODTAB[4,5]!="")
  INPUT CODTAB[1,3] FR_CODMAGC
  INPUT CODTAB[4,5] FR_CODDEPC
  DISPLAY "Codice mag." CODTAB[1,3]
  DISPLAY "Codice dep." CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODMAGC CODTAB[1,3]
  OUTPUT FR_CODDEPC CODTAB[4,5]
  OUTPUT FR_DESDEPC S0
  MESSAGE DIRTY,FR_CODMAGC|K_TAB,FR_CODMAGC
  CHECKTYPE NORMAL
  WARNING "Deposito assente"
  FLAGS "U"
  FIELD CODMAGC[4,5]
END

STRING FR_DESDEPC 50
BEGIN
  PROMPT 26 18 ""
  FLAGS "D"
END

ENDPAGE

PAGE "Analitica" 0 2 0 0

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

ENDPAGE
ENDMASK