#include "veuml.h"
#ifdef FULL_SCREEN
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
#endif

#ifndef MASK_WIDTH
#define MASK_WIDTH 76
#endif

#ifndef MASK_HEIGHT
#define MASK_HEIGHT 21
#endif

#ifndef MASK_TITLE1
#define MASK_TITLE1 ""
#endif

PAGE MASK_TITLE1 -1 -1 MASK_WIDTH MASK_HEIGHT

BOOLEAN FR_LORDO
BEGIN
  PROMPT 2 1 "Lordo  "
END

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

IFDEF(FLD_CODMAG)
STRING FR_CODMAG 3
BEGIN
IFDEF(X_CODMAG)
  PROMPT X_CODMAG Y_CODMAG PR_CODMAG
ELSEIF
  PROMPT 2 3 "Magazzino   "
ENDIF
  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"
IFDEF(FL_CODMAG)
  FLAGS FL_CODMAG
ENDIF
  KEY 1
IFDEF(CH_CODMAG)
  CHECKTYPE CH_CODMAG
ELSEIF
  CHECKTYPE NORMAL
ENDIF
IFDEF(MS_CODMAG)
  MESSAGE MS_CODMAG
ENDIF
  FIELD CODMAG[1,3]
IFDEF(DI1_CODMAG)
  DI1_CODMAG
  DI2_CODMAG
  DI3_CODMAG
  DI4_CODMAG
  DI5_CODMAG
  DI6_CODMAG
  DI7_CODMAG
  DI8_CODMAG
  DI9_CODMAG
ENDIF
END

IFDEF(FLD_DESMAG)
STRING FR_DESMAG 50
BEGIN
IFDEF(X_DESMAG)
  PROMPT X_DESMAG Y_DESMAG PR_DESMAG
ELSEIF
  PROMPT 22 3 ""
ENDIF
IFDEF(FL_DESMAG)
  FLAGS FL_DESMAG
ENDIF
  FLAGS "D"
END
ENDIF
ENDIF

IFDEF(FLD_CODDEP)
STRING FR_CODDEP 2
BEGIN
IFDEF(X_CODDEP)
  PROMPT X_CODDEP Y_CODDEP PR_CODDEP
ELSEIF
  PROMPT 2 4 "Deposito    "
ENDIF
  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
IFDEF(CH_CODDEP)
  CHECKTYPE CH_CODDEP
ELSEIF
  CHECKTYPE NORMAL
ENDIF
  WARNING "Deposito assente"
IFDEF(FL_CODDEP)
  FLAGS FL_CODDEP
ENDIF
  FLAGS "U"
  KEY 1
IFDEF(MS_CODDEP)
  MESSAGE MS_CODDEP
ENDIF
  FIELD CODMAG[4,5]
END

IFDEF(FLD_DESDEP)
STRING FR_DESDEP 50
BEGIN
IFDEF(X_DESDEP)
  PROMPT X_DESDEP Y_DESDEP PR_DESDEP
ELSEIF
  PROMPT 22 4 ""
ENDIF
  FLAGS "D"
END
ENDIF
ENDIF


IF(defined(FLD_CODART) || defined(FLD_CODALT))

IFDEF(FLD_CODART)
STRING FR_CODART 20
BEGIN
IFDEF(X_CODART)
  PROMPT X_CODART Y_CODART PR_CODART
ELSEIF
  PROMPT 2 5 "Articolo    "
ENDIF
  USE LF_ANAMAG KEY 1
  INPUT CODART FR_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT  FR_CODART CODART
  OUTPUT FR_DESCRART DESCR
IFDEF(OU_CODART)
  OUTPUT OUM_CODART OU_CODART
ENDIF
  WARNING "Articolo assente"
IFDEF(CH_CODART)
  CHECKTYPE CH_CODART
ENDIF
IFDEF(FL_CODART)
  FLAGS FL_CODART
ENDIF
  FLAGS "U"
IFDEF(MS_CODART)
  MESSAGE MS_CODART
ENDIF
  FIELD CODART
  ADD RUN ve2 -3
END
ENDIF

IFDEF(FLD_CODALT)
STRING FR_CODART 20
BEGIN
IFDEF(X_CODALT)
  PROMPT X_CODART Y_CODART PR_CODART
ELSEIF
  PROMPT 2 5 "Articolo    "
ENDIF
  USE LF_CODCORR KEY 2
  JOIN LF_ANAMAG INTO CODART==CODART
  INPUT CODARTALT FR_CODART
  DISPLAY "Codice\nalternativo@20" CODARTALT
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Codice@20" CODART
  OUTPUT  FR_CODART CODART
  OUTPUT FR_DESCRART DESCR
IFDEF(OU_CODART)
  OUTPUT OUM_CODART OU_CODART
ENDIF
  WARNING "Articolo assente"
IFDEF(CH_CODALT)
  CHECKTYPE CH_CODALT
ENDIF
IFDEF(FL_CODALT)
  FLAGS FL_CODALT
ENDIF
  FLAGS "U"
IFDEF(MS_CODALT)
  MESSAGE MS_CODALT
ENDIF
  FIELD CODART
END
ENDIF

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 50 50 ""
  FIELD CODARTMAG
  FLAGS "G"
END

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

STRING FR_LIV1 15
BEGIN
IFDEF(X_LIV1)
  PROMPT X_LIV1 Y_LIV1 ""
ELSEIF
  PROMPT 37 5 ""
  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
IFDEF(MS_LIV1)
  MESSAGE MS_LIV1
ENDIF
  CHECKTYPE NORMAL
ENDIF
END

STRING FR_LIV2 15
BEGIN
IFDEF(X_LIV2)
  PROMPT X_LIV2 Y_LIV2 ""
ELSEIF
  PROMPT 55 5 ""
ENDIF
  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
IFDEF(MS_LIV2)
  MESSAGE MS_LIV2
ENDIF
  CHECKTYPE NORMAL
END

STRING FR_LIV3 15
BEGIN
IFDEF(X_LIV3)
  PROMPT X_LIV3 Y_LIV3 ""
ELSEIF
  PROMPT 37 6 ""
ENDIF
  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
IFDEF(MS_LIV3)
  MESSAGE MS_LIV3
ENDIF
  CHECKTYPE NORMAL
END

STRING FR_LIV4 15
BEGIN
IFDEF(X_LIV4)
  PROMPT X_LIV4 Y_LIV4 ""
ELSEIF
  PROMPT 55 6 ""
ENDIF
  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,]
IFDEF(MS_LIV4)
  MESSAGE MS_LIV4
ENDIF
  CHECKTYPE NORMAL
END
ENDIF

IFDEF(FLD_CODSP)
STRING FR_CODSP 8
BEGIN
IFDEF(X_CODSP)
  PROMPT X_CODSP Y_CODSP PR_CODSP
ELSEIF
  PROMPT 2 5 "Spesa       "
ENDIF
  USE SPP
  INPUT CODTAB FR_CODSP
  DISPLAY "Codice spesa" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODSP CODTAB
  OUTPUT FR_DESCRSP S0
  OUTPUT FR_QTA R1
  OUTPUT FR_PERCSP R2
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODSP)
  MESSAGE MS_CODSP
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODSP)
  CHECKTYPE CH_CODSP
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODSPV)
STRING FR_CODSPV 8
BEGIN
IFDEF(X_CODSPV)
  PROMPT X_CODSPV Y_CODSPV PR_CODSPV
ELSEIF
  PROMPT 2 5 "Spesa       "
ENDIF
  USE SPP SELECT S6=="V"
  INPUT CODTAB FR_CODSPV
  DISPLAY "Codice spesa" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODSPV CODTAB
  OUTPUT FR_DESCRSPV S0
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA|DISABLE,FR_QTA
IFDEF(MS_CODSPV)
  MESSAGE MS_CODSPV
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODSPV)
  CHECKTYPE CH_CODSPV
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODSPQ)
STRING FR_CODSPQ 8
BEGIN
IFDEF(X_CODSPQ)
  PROMPT X_CODSPQ Y_CODSPQ PR_CODSPQ
ELSEIF
  PROMPT 2 5 "Spesa       "
ENDIF
  USE SPP SELECT S6=="Q"
  INPUT CODTAB FR_CODSPQ
  DISPLAY "Codice spesa" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODSPQ CODTAB
  OUTPUT FR_DESCRSPQ S0
  OUTPUT FR_QTA R1
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODSPQ)
  MESSAGE MS_CODSPQ
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODSPQ)
  CHECKTYPE CH_CODSPQ
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODSPP)
STRING FR_CODSPP 8
BEGIN
IFDEF(X_CODSPP)
  PROMPT X_CODSPP Y_CODSPP PR_CODSPP
ELSEIF
  PROMPT 2 5 "Spesa       "
ENDIF
  USE SPP SELECT S6=="P"
  INPUT CODTAB FR_CODSPP
  DISPLAY "Codice spesa" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODSPP CODTAB
  OUTPUT FR_DESCRSPP S0
  OUTPUT FR_PERCSP R2
  OUTPUT FR_CODIVA S3
  FIELD CODART
  FLAGS "U"
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODSPP)
  MESSAGE MS_CODSPP
ENDIF
IFDEF(CH_CODSPP)
  CHECKTYPE CH_CODSPP
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODPRS)
STRING FR_CODPRS 8
BEGIN
IFDEF(X_CODPRS)
  PROMPT X_CODPRS Y_CODPRS PR_CODPRS
ELSEIF
  PROMPT 2 6 "Prestazione "
ENDIF
  USE PRS
  INPUT CODTAB FR_CODPRS
  DISPLAY "Codice prestazione" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODPRS CODTAB
  OUTPUT FR_DESCRPRS S0
  OUTPUT FR_QTA R1
  OUTPUT FR_PERCSP R2
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODPRS)
  MESSAGE MS_CODPRS
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODPRS)
  CHECKTYPE CH_CODPRS
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODPRSV)
STRING FR_CODPRSV 8
BEGIN
IFDEF(X_CODPRSV)
  PROMPT X_CODPRSV Y_CODPRSV PR_CODPRSV
ELSEIF
  PROMPT 2 5 "Prestazione "
ENDIF
  USE PRS SELECT S6=='V'
  INPUT CODTAB FR_CODPRSV
  DISPLAY "Codice prestazione" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODPRSV CODTAB
  OUTPUT FR_DESCRPRSV S0
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODPRSV)
  MESSAGE MS_CODPRSV
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODPRSV)
  CHECKTYPE CH_CODPRSV
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODPRSQ)
STRING FR_CODPRSQ 8
BEGIN
IFDEF(X_CODPRSQ)
  PROMPT X_CODPRSQ Y_CODPRSQ PR_CODPRSQ
ELSEIF
  PROMPT 2 5 "Prestazione "
ENDIF
  USE PRS SELECT S6=='Q'
  INPUT CODTAB FR_CODPRSQ
  DISPLAY "Codice prestazione" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODPRSQ CODTAB
  OUTPUT FR_DESCRPRSQ S0
  OUTPUT FR_QTA R1
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODPRSQ)
  MESSAGE MS_CODPRSQ
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODPRSQ)
  CHECKTYPE CH_CODPRSQ
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODPRSP)
STRING FR_CODPRSP 8
BEGIN
IFDEF(X_CODPRSP)
  PROMPT X_CODPRSP Y_CODPRSP PR_CODPRSP
ELSEIF
  PROMPT 2 5 "Prestazione "
ENDIF
  USE PRS SELECT S6=='P'
  INPUT CODTAB FR_CODPRSQ
  DISPLAY "Codice prestazione" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_CODPRSQ CODTAB
  OUTPUT FR_DESCRPRSQ S0
  OUTPUT FR_PERCSP R2
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODPRSP)
  MESSAGE MS_CODPRSP
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODPRSP)
  CHECKTYPE CH_CODPRSP
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_DESCR)
STRING FR_CODGOL 8
BEGIN
  PROMPT 2 5 "Codice      "
  FLAGS "U"
  USE LF_GOLEM
  INPUT CODICE FR_CODGOL
  DISPLAY "Codice" CODICE
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FR_DESCR DESCR
  OUTPUT FR_CODGOL CODICE
  CHECKTYPE NORMAL
  ADD RUN ve0 -5
END

ZOOM FR_DESCR 50
BEGIN
IFDEF(X_DESCR)
  PROMPT X_DESCR Y_DESCR PR_DESCR
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
 COPY ALL FR_CODGOL
 ADD RUN ve0 -5
IFDEF(MS_DESCR)
  MESSAGE MS_DESCR
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_CODRSS)
STRING FR_CODRSS 16
BEGIN
IFDEF(X_CODRSS)
  PROMPT X_CODRSS Y_CODRSS PR_CODRSS
ELSEIF
  PROMPT 2 6 "Dipendente  "
ENDIF
  USE RSS
  INPUT CODTAB FR_CODRSS
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FR_CODRSS CODTAB
  OUTPUT FR_DESCRRSS S0
  OUTPUT FR_QTA R1
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODRSS)
  MESSAGE MS_CODRSS
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODRSS)
  CHECKTYPE CH_CODRSS
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF

IFDEF(FLD_CODATR)
STRING FR_CODATR 16
BEGIN
IFDEF(X_CODATR)
  PROMPT X_CODATR Y_CODATR PR_CODATR
ELSEIF
  PROMPT 2 6 "Dipendente  "
ENDIF
  USE ATR
  INPUT CODTAB FR_CODATR
  DISPLAY "Codice@16" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT FR_CODATR CODTAB
  OUTPUT FR_DESCRATR S0
  OUTPUT FR_QTA R1
  OUTPUT FR_UMQTASP S7
  OUTPUT FR_CODIVA S3
  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
IFDEF(MS_CODATR)
  MESSAGE MS_CODATR
ENDIF
  FIELD CODART
  FLAGS "U"
IFDEF(CH_CODATR)
  CHECKTYPE CH_CODATR
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END
ENDIF


IFDEF(FLD_DESCRART)
ZOOM FR_DESCRART 50
BEGIN
IFDEF(X_DESCRART)
  PROMPT X_DESCRART Y_DESCRART PR_DESCRART
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE LF_ANAMAG KEY 2
  INPUT DESCR FR_DESCRART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  OUTPUT  FR_DESCRART DESCR
IFDEF(OU_CODART)
  OUTPUT OUM_CODART OU_CODART
ENDIF
  ADD RUN ve2 -3
IFDEF(MS_DESCRART)
  MESSAGE MS_DESCRART
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRSP)
ZOOM FR_DESCRSP 50
BEGIN
IFDEF(X_DESCRSP)
  PROMPT X_DESCRSP Y_DESCRSP PR_DESCRSP
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE SPP KEY 2
  INPUT S0 FR_DESCRSP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice spesa" CODTAB
  COPY OUTPUT FR_CODSP
IFDEF(MS_DESCRSP)
  MESSAGE MS_DESCRSP
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRSPV)
ZOOM FR_DESCRSPV 50
BEGIN
IFDEF(X_DESCRSPV)
  PROMPT X_DESCRSPV Y_DESCRSPV PR_DESCRSPV
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE SPP KEY 2 SELECT S6=="V"
  INPUT S0 FR_DESCRSPV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice spesa" CODTAB
  COPY OUTPUT FR_CODSPV
IFDEF(MS_DESCRSPV)
  MESSAGE MS_DESCRSPV
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRSPQ)
ZOOM FR_DESCRSPQ 50
BEGIN
IFDEF(X_DESCRSPQ)
  PROMPT X_DESCRSPQ Y_DESCRSPQ PR_DESCRSPQ
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE SPP KEY 2 SELECT S6=="Q"
  INPUT S0 FR_DESCRSPQ
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice spesa" CODTAB
  COPY OUTPUT FR_CODSPQ
IFDEF(MS_DESCRSPQ)
  MESSAGE MS_DESCRSPQ
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRSPP)
ZOOM FR_DESCRSPP 50
BEGIN
IFDEF(X_DESCRSPP)
  PROMPT X_DESCRSPP Y_DESCRSP PR_DESCRSPP
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE SPP KEY 2 SELECT S6=="P"
  INPUT S0 FR_DESCRSPP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice spesa" CODTAB
  COPY OUTPUT FR_CODSPP
IFDEF(MS_DESCRSPP)
  MESSAGE MS_DESCRSPP
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRPRS)
ZOOM FR_DESCRPRS 50
BEGIN
IFDEF(X_DESCRPRS)
  PROMPT X_DESCRPRS Y_DESCRPRS PR_DESCRPRS
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE PRS KEY 2
  INPUT S0 FR_DESCRPRS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice prestazione" CODTAB
  COPY OUTPUT FR_CODPRS
IFDEF(MS_DESCRPRS)
  MESSAGE MS_DESCRPRS
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRRSS)
STRING FR_DESCRRSS 50
BEGIN
IFDEF(X_DESCRRSS)
  PROMPT X_DESCRRSS Y_DESCRRSS PR_DESCRRSS
ELSEIF
  PROMPT 2 7 "Denominazione "
ENDIF
  USE RSS KEY 2
  INPUT S0 FR_DESCRRSS
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice dipendente" CODTAB
  COPY OUTPUT FR_CODRSS
IFDEF(MS_DESCRRSS)
  MESSAGE MS_DESCRRSS
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRATR)
STRING FR_DESCRATR 50
BEGIN
IFDEF(X_DESCRATR)
  PROMPT X_DESCRATR Y_DESCRATR PR_DESCRATR
ELSEIF
  PROMPT 2 7 "Denominazione "
ENDIF
  USE ATR KEY 2
  INPUT S0 FR_DESCRATR
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice dipendente" CODTAB
  COPY OUTPUT FR_CODATR
IFDEF(MS_DESCRATR)
  MESSAGE MS_DESCRATR
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRPRSV)
ZOOM FR_DESCRPRSV 50
BEGIN
IFDEF(X_DESCRPRSV)
  PROMPT X_DESCRPRSV Y_DESCRPRSV PR_DESCRPRSV
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE PRS KEY 2 SELECT S6=='V'
  INPUT S0 FR_DESCRPRSV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice prestazione" CODTAB
  COPY OUTPUT FR_CODPRSV
IFDEF(MS_DESCRPRSV)
  MESSAGE MS_DESCRPRSV
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRPRSQ)
ZOOM FR_DESCRPRSQ 50
BEGIN
IFDEF(X_DESCRPRSQ)
  PROMPT X_DESCRPRSQ Y_DESCRPRSQ PR_DESCRPRSQ
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE PRS KEY 2 SELECT S6=='Q'
  INPUT S0 FR_DESCRPRSQ
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice prestazione" CODTAB
  COPY OUTPUT FR_CODPRSQ
IFDEF(MS_DESCRPRSQ)
  MESSAGE MS_DESCRPRSQ
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_DESCRPRSP)
ZOOM FR_DESCRPRSP 50
BEGIN
IFDEF(X_DESCRPRSP)
  PROMPT X_DESCRPRSP Y_DESCRPRSP PR_DESCRPRSP
ELSEIF
  PROMPT 2 7 "Descrizione "
ENDIF
  USE PRS KEY 2 SELECT S6=='P'
  INPUT S0 FR_DESCRPRSP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice prestazione" CODTAB
  COPY OUTPUT FR_CODPRSP
IFDEF(MS_DESCRPRSP)
  MESSAGE MS_DESCRPRSP
ENDIF
  FIELD DESCR
END
ENDIF

IFDEF(FLD_UMQTA)
STRING FR_UMQTA 2
BEGIN
IFDEF(X_UMQTA)
  PROMPT X_UMQTA Y_UMQTA PR_UMQTA
ELSEIF
  PROMPT 2 9 "U.M.        "
ENDIF
  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
IFDEF(MS_UMQTA)
  MESSAGE MS_UMQTA
ENDIF
  FIELD UMQTA
  FLAG "U"
IFDEF(CH_UMQTA)
  CHECKTYPE CH_UMQTA
ELSEIF
  CHECKTYPE REQUIRED
ENDIF
END

STRING FR_UMQTA2 2
BEGIN
IFDEF(X_UMQTA)
  PROMPT X_UMQTA Y_UMQTA PR_UMQTA
ELSEIF
  PROMPT 2 9 "U.M.        "
ENDIF
  USE %UMS
  INPUT CODTAB FR_UMQTA2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  FR_UMQTA2 CODTAB
IFDEF(MS_UMQTA2)
  MESSAGE MS_UMQTA2
ENDIF
  FIELD UMQTA
  FLAG "U"
IFDEF(CH_UMQTA)
  CHECKTYPE CH_UMQTA
ELSEIF
  CHECKTYPE NORMAL
ENDIF
END
ENDIF

IFDEF(FLD_UMQTASP)
STRING FR_UMQTASP 2
BEGIN
IFDEF(X_UMQTASP)
  PROMPT X_UMQTASP Y_UMQTASP PR_UMQTASP
ELSEIF
  PROMPT 2 9 "U.M.        "
ENDIF
  USE %UMS
  INPUT CODTAB FR_UMQTASP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  FR_UMQTASP CODTAB
IFDEF(MS_UMQTASP)
  MESSAGE MS_UMQTASP
ENDIF
  FIELD UMQTA
  FLAG "U"
IFDEF(CH_UMQTASP)
  CHECKTYPE CH_UMQTASP
ELSEIF
  CHECKTYPE NORMAL
ENDIF
END
ENDIF

IF(defined(FLD_QTA) || defined(FLD_PERCSP))
NUMBER FR_QTA
IFDEF(LN_QTA)
 LN_QTA
ELSEIF
 13
ENDIF
IFDEF(DE_QTA)
 DE_QTA
ELSEIF
 5
ENDIF
BEGIN
IFDEF(X_QTA)
  PROMPT X_QTA Y_QTA PR_QTA
ELSEIF
  PROMPT 21 9 "Qta' "
ENDIF
IFDEF(FLD_PERCSP)
  FLAGS "H"
ENDIF
IFDEF(FL_QTA)
  FLAGS FL_QTA
ENDIF
IFDEF(MS_QTA)
  MESSAGE MS_QTA
ENDIF
IFDEF(NC_QTA)
  NUM_CALC NC_QTA
ENDIF
  FIELD QTA
END

NUMBER FR_PERCSP 6 2
BEGIN
IFDEF(X_PERCSP)
  PROMPT X_PERCSP Y_PERCSP PR_PERCSP
ELSEIF
  PROMPT 21 9 "Spesa % "
ENDIF
IFDEF(FLD_QTA)
  FLAGS "H"
ENDIF
IFDEF(FL_PERCSP)
  FLAGS FL_PERCSP
ENDIF
IFDEF(MS_PERCSP)
  MESSAGE MS_PERCSP
ENDIF
IFDEF(NC_PERCSP)
  NUM_CALC NC_PERCSP
ENDIF
  FIELD QTA
END
ENDIF

IFDEF(FLD_PREZZO)
CURRENCY FR_PREZZO 18
BEGIN
IFDEF(X_PREZZO)
  PROMPT X_PREZZO Y_PREZZO PR_PREZZO
ELSEIF
  PROMPT 42 9 "Prezzo "
ENDIF
  FLAGS "U"
IFDEF(MS_PREZZO)
  MESSAGE MS_PREZZO
ENDIF
IFDEF(NC_PREZZO)
  NUM_CALC NC_PREZZO
ENDIF
  FIELD PREZZO
END
ENDIF

IFDEF(FLD_VALORE)
CURRENCY FR_VALORE 18
BEGIN
IFDEF(X_VALORE)
  PROMPT X_VALORE Y_VALORE PR_VALORE
ELSEIF
  PROMPT 42 9 "Valore  "
ENDIF
IFDEF(MS_VALORE)
  MESSAGE MS_VALORE
ENDIF
IFDEF(NC_VALORE)
  NUM_CALC NC_VALORE
ENDIF
  FIELD PREZZO
END
ENDIF

IFDEF(FLD_QTAEVASA)
NUMBER FR_QTAEVASA 13 5
BEGIN
IFDEF(X_QTAEVASA)
  PROMPT X_QTAEVASA Y_QTAEVASA PR_QTAEVASA
ELSEIF
  PROMPT 15 10 "Qta' evasa "
ENDIF
IFDEF(FL_QTAEVASA)
  FLAGS FL_QTAEVASA
ENDIF
IFDEF(MS_QTAEVASA)
  MESSAGE MS_QTAEVASA
ENDIF
IFDEF(NC_QTAEVASA)
  NUM_CALC NC_QTAEVASA
ENDIF
  FIELD QTAEVASA
END
ENDIF

IFDEF(FLD_RIGAEVASA)
BOOLEAN FR_RIGAEVASA
BEGIN
IFDEF(X_RIGAEVASA)
  PROMPT X_RIGAEVASA Y_RIGAEVASA PR_RIGAEVASA
ELSEIF
  PROMPT 42 10 "Saldata "
ENDIF
  FIELD RIGAEVASA
END
ENDIF

IFDEF(FLD_DATACONS)
DATE FR_DATACONS
BEGIN
IFDEF(X_RIGAEVASA)
  PROMPT X_DATACONS Y_DATACONS PR_DATACONS
ELSEIF
  PROMPT 53 10 "Consegna "
ENDIF
IFDEF(FL_DATACONS)
  FLAGS FL_DATACONS
ENDIF
  FIELD DATACONS
END
ENDIF

IFDEF(FLD_TARA)
IFDEF(FLD_NCOLLI)
NUMBER FR_NCOLLI 7
BEGIN
IFDEF(X_NCOLLI)
  PROMPT X_NCOLLI Y_NCOLLI PR_NCOLLI
ELSEIF
  PROMPT 2 12 "N.Colli     "
ENDIF
IFDEF(FL_NCOLLI)
  FLAGS FL_NCOLLI
ENDIF
IFDEF(MS_NCOLLI)
  MESSAGE MS_NCOLLI
ENDIF
IFDEF(NC_NCOLLI)
  NUM_CALC NC_NCOLLI
ENDIF
  FIELD NCOLLI
END
ENDIF

NUMBER FR_TARA 15 2
BEGIN
IFDEF(X_TARA)
  PROMPT X_TARA Y_TARA PR_TARA
ELSEIF
  PROMPT 22 12 "Tara   "
ENDIF
IFDEF(FL_TARA)
  FLAGS FL_TARA
ENDIF
IFDEF(MS_TARA)
  MESSAGE MS_TARA
ENDIF
IFDEF(NC_TARA)
  NUM_CALC NC_TARA
ENDIF
  FIELD TARA
END
ENDIF

IFDEF(FLD_PNETTO)
NUMBER FR_PNETTO 15 2
BEGIN
IFDEF(X_PNETTO)
  PROMPT X_PNETTO Y_PNETTO PR_PNETTO
ELSEIF
  PROMPT 46 12 "Peso netto "
ENDIF
IFDEF(FL_PNETTO)
  FLAGS FL_PNETTO
ENDIF
IFDEF(MS_PNETTO)
  MESSAGE MS_PNETTO
ENDIF
IFDEF(NC_PNETTO)
  NUM_CALC NC_PNETTO
ENDIF
  FIELD PNETTO
END
ENDIF

IFDEF(FLD_DAEVADERE)
BOOLEAN FR_DAEVADERE
BEGIN
IFDEF(X_DAEVADERE)
  PROMPT X_DAEVADERE Y_DAEVADERE PR_DAEVADERE
ELSEIF
  PROMPT 68 12 "Da evadere "
ENDIF
  FIELD DAEVADERE
END
ENDIF

IFDEF(FLD_SCONTO)
STRING FR_SCONTO 25
BEGIN
IFDEF(X_SCONTO)
  PROMPT X_SCONTO Y_SCONTO PR_SCONTO
ELSEIF
  PROMPT 2 13 "Sconto      "
ENDIF
IFDEF(FL_SCONTO)
  FLAGS FL_SCONTO
ENDIF
IFDEF(MS_SCONTO)
  MESSAGE MS_SCONTO
ENDIF
  FIELD SCONTO
END
ENDIF

IFDEF(FLD_PERCPROV)
NUMBER FR_PERCPROV 5 2
BEGIN
IFDEF(X_PERCPROV)
  PROMPT X_PERCPROV Y_PERCPROV PR_PERCPROV
ELSEIF
  PROMPT 42 13 "Provvigione 1 "
ENDIF
IFDEF(FL_PERCPROV)
  FLAGS FL_PERCPROV
ENDIF
IFDEF(MS_PERCPROV)
  MESSAGE MS_PERCPROV
ENDIF
IFDEF(NC_PERCPROV)
  NUM_CALC NC_PERCPROV
ENDIF
  FIELD PERCPROV
END
ENDIF

IFDEF(FLD_PERCPROV1)
NUMBER FR_PERCPROV1 5 2
BEGIN
IFDEF(X_PERCPROV1)
  PROMPT X_PERCPROV1 Y_PERCPROV1 PR_PERCPROV1
ELSEIF
  PROMPT 65 13 "2 "
ENDIF
IFDEF(FL_PERCPROV1)
  FLAGS FL_PERCPROV1
ENDIF
IFDEF(MS_PERCPROV1)
  MESSAGE MS_PERCPROV1
ENDIF
IFDEF(NC_PERCPROV1)
  NUM_CALC NC_PERCPROV1
ENDIF
  FIELD PERCPROV1
END
ENDIF

IFDEF(FLD_IMPFISUN)
BOOLEAN FR_IMPFISUN
BEGIN
IFDEF(X_IMPFISUN)
  PROMPT X_IMPFISUN Y_IMPFISUN PR_IMPFISUN
ELSEIF
  PROMPT 2 14 "Importo provv.unitario"
ENDIF
IFDEF(FL_IMPFISUN)
  FLAGS FL_IMPFISUN
ENDIF
IFDEF(MS_IMPFISUN)
  MESSAGE MS_IMPFISUN
ENDIF
  FIELD IMPFISUN
END
ENDIF


IFDEF(FLD_IMPFISSO)
CURRENCY FR_IMPFISSO 18
BEGIN
IFDEF(X_IMPFISSO)
  PROMPT X_IMPFISSO Y_IMPFISSO PR_IMPFISSO
ELSEIF
  PROMPT 42 14 "Imp.Provv.  "
ENDIF
IFDEF(MS_IMPFISSSO)
  MESSAGE MS_IMPFISSO
ENDIF
  FIELD IMPFISSO
END
ENDIF

IFDEF(FLD_CODIVA)
STRING FR_CODIVA 4
BEGIN
IFDEF(X_CODIVA)
  PROMPT X_CODIVA Y_CODIVA PR_CODIVA
ELSEIF
  PROMPT 2 15 "Cod. IVA    "
ENDIF
  USE %IVA
  INPUT CODTAB FR_CODIVA
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  FR_CODIVA CODTAB
  OUTPUT  FR_DESIVA S0
  FLAGS "U"
IFDEF(FL_CODIVA)
  FLAGS FL_CODIVA
ENDIF
  VALIDATE ZEROFILL_FUNC 2
IFDEF(CH_CODIVA)
  CHECKTYPE CH_CODIVA
ELSEIF
  CHECKTYPE NORMAL
ENDIF
IFDEF(MS_CODIVA)
  MESSAGE MS_CODIVA
ENDIF
  FIELD CODIVA
END

IFDEF(FLD_DESIVA)
STRING FR_DESIVA 50
BEGIN
IFDEF(X_DESIVA)
  PROMPT X_DESIVA Y_DESIVA PR_DESIVA
ELSEIF
  PROMPT 22 15 ""
ENDIF
  USE %IVA KEY 2
  INPUT S0 FR_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  OUTPUT  FR_CODIVA CODTAB
  OUTPUT  FR_DESIVA S0
IFDEF(FL_DESIVA)
  FLAGS FL_DESIVA
ENDIF
IFDEF(MS_DESIVA)
  MESSAGE MS_DESIVA
ENDIF
END
ENDIF

STRING FR_TIPODET 1
BEGIN
  PROMPT 2 16 "Indetraib.  "
  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

ENDIF

IFDEF(FLD_ADDIVA)
BOOLEAN FR_ADDIVA
BEGIN
IFDEF(X_ADDIVA)
  PROMPT X_ADDIVA Y_ADDIVA PR_ADDIVA
ELSEIF
  PROMPT 2 17 "Addebito IVA"
ENDIF
  FIELD ADDIVA
END
ENDIF

IFDEF(FLD_ASPBENI)
STRING FR_ASPBENI 2
BEGIN
IFDEF(X_ASPBENI)
  PROMPT X_ASPBENI Y_ASPBENI PR_ASPBENI
ELSEIF
  PROMPT 2 18 "Asp. Beni   "
ENDIF
  USE %ABE
  INPUT CODTAB FR_ASPBENI
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  FR_ASPBENI CODTAB
  OUTPUT  FR_DESASP S0
  FLAGS "UZ"
IFDEF(FL_ASPBENI)
  FLAGS FL_ASPBENI
ENDIF
IFDEF(MS_ASPBENI)
  MESSAGE MS_ASPBENI
ENDIF
IFDEF(CH_ASPBENI)
  CHECKTYPE CH_ASPBENI
ELSEIF
  CHECKTYPE NORMAL
ENDIF
  FIELD ASPBENI
END

IFDEF(FLD_DESASP)
STRING FR_DESASP 50
BEGIN
IFDEF(X_DESASP)
  PROMPT X_DESASP Y_DESASP PR_DESASP
ELSEIF
  PROMPT 22 18 ""
ENDIF
  FLAGS "D"
END
ENDIF
ENDIF

IFDEF(FLD_CAUS)
STRING FR_CAUS 5
BEGIN
IFDEF(X_CAUS)
  PROMPT X_CAUS Y_CAUS PR_CAUS
ELSEIF
  PROMPT 2 19 "Caus.mag.   "
ENDIF
  USE %CAU
  INPUT CODTAB FR_CAUS
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  FR_CAUS CODTAB
  OUTPUT  FR_DESCRCAUS S0
  FLAGS "U"
IFDEF(FL_CAUS)
  FLAGS FL_CAUS
ENDIF
IFDEF(MS_CAUS)
  MESSAGE MS_CAUS
ENDIF
IFDEF(CH_CAUS)
  CHECKTYPE CH_CAUS
ELSEIF
  CHECKTYPE NORMAL
ENDIF
  FIELD CAUSMAG
END

IFDEF(FLD_DESCRCAUS)
STRING FR_DESCRCAUS 50
BEGIN
IFDEF(X_DESCRCAUS)
  PROMPT X_DESCRCAUS Y_DESCRCAUS PR_DESCRCAUS
ELSEIF
  PROMPT 22 19 ""
ENDIF
  FLAGS "D"
END
ENDIF
ENDIF

IFDEF(FLD_RITIRO)
NUMBER FR_RITIRO
IFDEF(LN_RITIRO)
 LN_RITIRO
ELSEIF
 13
ENDIF
IFDEF(DE_RITIRO)
 DE_RITIRO
ELSEIF
 5
ENDIF
BEGIN
IFDEF(X_RITIRO)
  PROMPT X_RITIRO Y_RITIRO PR_RITIRO
ELSEIF
  PROMPT 2 20 "Ritirato    "
ENDIF
IFDEF(FL_RITIRO)
  FLAGS FL_RITIRO
ENDIF
IFDEF(MS_RITIRO)
  MESSAGE MS_RITIRO
ENDIF
IFDEF(NC_RITIRO)
  NUM_CALC NC_RITIRO
ENDIF
  FIELD QTAGG1
END
ENDIF

IFDEF(FLD_CAULAV)
STRING FR_CAULAV 3
BEGIN
IFDEF(X_CAULAV)
PROMPT X_CAULAV Y_CAULAV PR_CAULAV
ELSEIF
  PROMPT 35 20 "Causale lavanderie "
ENDIF
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"
IFDEF(MS_CAULAV)
  MESSAGE MS_CAULAV
ENDIF
IFDEF(NC_CAULAV)
  NUM_CALC NC_CAULAV
ENDIF
  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
ENDIF

#ifdef USR_PAGE_1
#include USR_PAGE_1
#endif

#ifdef PAGE_2

ENDPAGE

PAGE "Pag.2"  -1 -1 MASK_WIDTH MASK_HEIGHT

IFDEF(FLD_CODMAGC)
STRING FR_CODMAGC 3
BEGIN
IFDEF(X_CODMAG)
  PROMPT X_CODMAG Y_CODMAG PR_CODMAG
ELSEIF
  PROMPT 2 3 "Mag.colleg. "
ENDIF
  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"
IFDEF(FL_CODMAGC)
  FLAGS FL_CODMAGC
ENDIF
IFDEF(MS_CODMAGC)
  MESSAGE MS_CODMAGC
ENDIF
  KEY 1
IFDEF(CH_CODMAGC)
  CHECKTYPE CH_CODMAGC
ELSEIF
  CHECKTYPE NORMAL
ENDIF
  FIELD CODMAGC[1,3]
END

IFDEF(FLD_DESMAGC)
STRING FR_DESMAGC 50
BEGIN
IFDEF(X_DESMAGC)
  PROMPT X_DESMAGC Y_DESMAGC PR_DESMAGC
ELSEIF
  PROMPT 22 3 ""
ENDIF
IFDEF(FL_DESMAGC)
  FLAGS FL_DESMAGC
ENDIF
  FLAGS "D"
END
ENDIF
ENDIF

IFDEF(FLD_CODDEPC)
STRING FR_CODDEPC 2
BEGIN
IFDEF(X_CODDEPC)
  PROMPT X_CODDEPC Y_CODDEPC PR_CODDEPC
ELSEIF
  PROMPT 2 4 "Deposito    "
ENDIF
  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
IFDEF(MS_CODDEPC)
  MESSAGE MS_CODDEPC
ENDIF
IFDEF(CH_CODDEPC)
  CHECKTYPE CH_CODDEPC
ELSEIF
  CHECKTYPE NORMAL
ENDIF
  WARNING "Deposito assente"
IFDEF(FL_CODDEPC)
  FLAGS FL_CODDEPC
ENDIF
  FLAGS "U"
  KEY 1
  FIELD CODMAGC[4,5]
END

IFDEF(FLD_DESDEPC)
STRING FR_DESDEPC 50
BEGIN
IFDEF(X_DESDEPC)
  PROMPT X_DESDEPC Y_DESDEPC PR_DESDEPC
ELSEIF
  PROMPT 22 4 ""
ENDIF
  FLAGS "D"
END
ENDIF
ENDIF

IFDEF(FLD_QTAGG1)
IFDEF(TY_QTAGG1)
IF(TY_QTAGG1==CURRENCY)
TY_QTAGG1 FR_QTAGG1 13
ELSEIF
TY_QTAGG1 FR_QTAGG1 13 5
ENDIF
ELSEIF
NUMBER FR_QTAGG1 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG1)
  PROMPT X_QTAGG1 Y_QTAGG1 PR_QTAGG1
ELSEIF
  PROMPT 2 6 "Qta' agg.1  "
ENDIF
IFDEF(FL_QTAGG1)
  FLAGS FL_QTAGG1
ENDIF
IFDEF(MS_QTAGG1)
  MESSAGE MS_QTAGG1
ENDIF
IFDEF(NC_QTAGG1)
  NUM_CALC NC_QTAGG1
ENDIF
  FIELD QTAGG1
END
ENDIF

IFDEF(FLD_QTAGG2)
IFDEF(TY_QTAGG2)
IF(TY_QTAGG2==CURRENCY)
TY_QTAGG2 FR_QTAGG2 13
ELSEIF
TY_QTAGG2 FR_QTAGG2 13 5
ENDIF
ELSEIF
NUMBER FR_QTAGG2 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG2)
  PROMPT X_QTAGG2 Y_QTAGG2 PR_QTAGG2
ELSEIF
  PROMPT 28 6 "2 "
ENDIF
IFDEF(FL_QTAGG2)
  FLAGS FL_QTAGG2
ENDIF
IFDEF(MS_QTAGG2)
  MESSAGE MS_QTAGG2
ENDIF
IFDEF(NC_QTAGG2)
  NUM_CALC NC_QTAGG2
ENDIF
  FIELD QTAGG2
END
ENDIF

IFDEF(FLD_QTAGG3)
IFDEF(TY_QTAGG3)
IF(TY_QTAGG3==CURRENCY)
TY_QTAGG3 FR_QTAGG3 13
ELSEIF
TY_QTAGG3 FR_QTAGG3 13 5
ENDIF
ELSEIF
NUMBER FR_QTAGG3 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG3)
  PROMPT X_QTAGG3 Y_QTAGG3 PR_QTAGG3
ELSEIF
  PROMPT 44 6 "3 "
ENDIF
IFDEF(FL_QTAGG3)
  FLAGS FL_QTAGG3
ENDIF
IFDEF(MS_QTAGG3)
  MESSAGE MS_QTAGG3
ENDIF
IFDEF(NC_QTAGG3)
  NUM_CALC NC_QTAGG3
ENDIF
  FIELD QTAGG3
END
ENDIF

IFDEF(FLD_QTAGG4)
IFDEF(TY_QTAGG4)
IF(TY_QTAGG4==CURRENCY)
TY_QTAGG4 FR_QTAGG4 13
ELSEIF
TY_QTAGG4 FR_QTAGG4 13 5
ENDIF
ELSEIF
NUMBER FR_QTAGG4 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG4)
  PROMPT X_QTAGG4 Y_QTAGG4 PR_QTAGG4
ELSEIF
  PROMPT 12 7 "4 "
ENDIF
IFDEF(FL_QTAGG4)
  FLAGS FL_QTAGG4
ENDIF
IFDEF(MS_QTAGG4)
  MESSAGE MS_QTAGG4
ENDIF
IFDEF(NC_QTAGG1)
  NUM_CALC NC_QTAGG4
ENDIF
  FIELD QTAGG4
END
ENDIF

IFDEF(FLD_QTAGG5)
IFDEF(TY_QTAGG5)
IF(TY_QTAGG1==CURRENCY)
TY_QTAGG5 FR_QTAGG5 13
ELSEIF
TY_QTAGG5 FR_QTAGG5 13 5
ENDIF
ELSEIF
NUMBER FR_QTAGG5 13 5
ENDIF
BEGIN
IFDEF(X_QTAGG5)
  PROMPT X_QTAGG5 Y_QTAGG5 PR_QTAGG5
ELSEIF
  PROMPT 28 7 "5 "
ENDIF
IFDEF(FL_QTAGG5)
  FLAGS FL_QTAGG5
ENDIF
IFDEF(MS_QTAGG5)
  MESSAGE MS_QTAGG5
ENDIF
IFDEF(NC_QTAGG5)
  NUM_CALC NC_QTAGG5
ENDIF
  FIELD QTAGG5
END
ENDIF

IFDEF(FLD_IMPIANTO)
STRING FR_IMPIANTO 5
BEGIN
IFDEF(X_IMPIANTO)
  PROMPT X_IMPIANTO Y_IMPIANTO PR_IMPIANTO
ELSEIF
  PROMPT 2 9 "Impianto    "
ENDIF
  USE IMP
  INPUT CODTAB FR_IMPIANTO
  DISPLAY "Codice Impianto" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT FR_IMPIANTO CODTAB
  OUTPUT FR_DESIMP S0
  FIELD IMPIANTO
IFDEF(CH_IMPIANTO)
  CHECKTYPE CH_IMPIANTO
ELSEIF
  FLAGS "U"
  CHECKTYPE NORMAL
ENDIF
END

STRING FR_DESIMP 50
BEGIN
IFDEF(X_IMPIANTO)
  PROMPT 22 Y_IMPIANTO ""
ELSEIF
  PROMPT 22 9 ""
ENDIF
  USE IMP KEY 2
  INPUT S0 FR_DESIMP
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice Impianto" CODTAB
  COPY OUTPUT FR_IMPIANTO
  CHECKTYPE NORMAL
END
ENDIF

IFDEF(FLD_LINEA)
STRING FR_LINEA 5
BEGIN
IFDEF(X_LINEA)
  PROMPT X_LINEA Y_LINEA PR_LINEA
ELSEIF
  PROMPT 2 10 "Linea       "
ENDIF
  USE LNP
  INPUT CODTAB FR_LINEA
  DISPLAY "Codice Linea" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT FR_LINEA CODTAB
  OUTPUT FR_DESLNP S0
  FIELD LINEA
IFDEF(CH_LINEA)
  CHECKTYPE CH_LINEA
ELSEIF
  FLAGS "U"
  CHECKTYPE NORMAL
ENDIF
END

STRING FR_DESLNP 50
BEGIN
IFDEF(X_LINEA)
  PROMPT 22 Y_LINEA ""
ELSEIF
  PROMPT 22 10 ""
ENDIF
  USE LNP KEY 2
  INPUT S0 FR_DESLNP
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice Linea" CODTAB
  COPY OUTPUT FR_LINEA
  CHECKTYPE NORMAL
END
ENDIF

IFDEF(FLD_JOLLY)
STRING FR_JOLLY1 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY2 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY3 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY4 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY5 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY6 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY7 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY8 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY9 20
BEGIN
  PROMPT 2 12 "Jolly "
END

STRING FR_JOLLY10 20
BEGIN
  PROMPT 2 12 "Jolly "
END
ENDIF

IFDEF(FLD_RIDPREZZO)
CURRENCY FR_RIDPREZZO 18
BEGIN
IFDEF(X_RIDPREZZO)
  PROMPT X_RIDPREZZO Y_RIDPREZZO PR_RIDPREZZO
ELSEIF
  PROMPT 42 17 "Rid.prezzo  "
ENDIF
IFDEF(FL_RIDPREZZO)
  FLAGS FL_RIDPREZZO
ELSEIF
  FLAGS "U"
ENDIF
IFDEF(MS_RIDPREZZO)
  MESSAGE MS_RIDPREZZO
ENDIF
IFDEF(NC_RIDPREZZO)
  NUM_CALC NC_RIDPREZZO
ENDIF
  FIELD RIDPREZZO
END
ENDIF

#ifdef USR_PAGE_2
#include USR_PAGE_2
#endif

#endif

ENDPAGE

PAGE "Pag.3"  -1 -1 MASK_WIDTH MASK_HEIGHT

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

IFDEF(FLD_CDC)

STRING FR_CDC1 20
BEGIN
  PROMPT 2 1 "Cms1  "
  FLAGS "B"
END

STRING FR_CDC2 20
BEGIN
  PROMPT 2 2 "Cms2  "
  FLAGS "B"
END

STRING FR_CDC3 20
BEGIN
  PROMPT 2 3 "Cms3  "
  FLAGS "B"
END

STRING FR_CDC4 20
BEGIN
  PROMPT 2 4 "Cms4  "
  FLAGS "B"
END

STRING FR_CDC5 20
BEGIN
  PROMPT 2 5 "Cms5  "
  FLAGS "B"
END

STRING FR_CDC6 20
BEGIN
  PROMPT 2 6 "Cms6  "
  FLAGS "B"
END

STRING FR_CDC7 20
BEGIN
  PROMPT 2 7 "Cms7  "
  FLAGS "B"
END

STRING FR_CDC8 20
BEGIN
  PROMPT 2 8 "Cms8  "
  FLAGS "B"
END

STRING FR_CDC9 20
BEGIN
  PROMPT 2 9 "Cms9  "
  FLAGS "B"
END

STRING FR_CDC10 20
BEGIN
  PROMPT 2 10 "Cms10 "
  FLAGS "B"
END

STRING FR_CDC11 20
BEGIN
  PROMPT 2 11 "Cms11 "
  FLAGS "B"
END

STRING FR_CDC12 20
BEGIN
  PROMPT 2 12 "Cms12 "
  FLAGS "B"
END

ENDIF // Campi analitici


IFDEF(FLD_CODAGG1)
IFDEF(TY_CODAGG1)
TY_CODAGG1 FR_CODAGG1 20
ELSEIF
STRING FR_CODAGG1 20
ENDIF
BEGIN
IFDEF(X_CODAGG1)
PROMPT X_CODAGG1 Y_CODAGG1 PR_CODAGG1
ELSEIF
  PROMPT 2 15 "Stringa 1   "
ENDIF
IFDEF(FL_CODAGG1)
  FLAGS FL_CODAGG1
ENDIF
IFDEF(MS_CODAGG1)
  MESSAGE MS_CODAGG1
ENDIF
IFDEF(NC_CODAGG1)
  NUM_CALC NC_CODAGG1
ENDIF
  FIELD CODAGG1
END
ENDIF

IFDEF(FLD_CODAGG2)
IFDEF(TY_CODAGG2)
TY_CODAGG2 FR_CODAGG2 20
ELSEIF
STRING FR_CODAGG2 13 5
ENDIF
BEGIN
IFDEF(X_CODAGG2)
  PROMPT X_CODAGG2 Y_CODAGG2 PR_CODAGG2
ELSEIF
  PROMPT 42 15 "Stringa 2   "
ENDIF
IFDEF(FL_CODAGG2)
  FLAGS FL_CODAGG2
ENDIF
IFDEF(MS_CODAGG2)
  MESSAGE MS_CODAGG2
ENDIF
IFDEF(NC_CODAGG2)
  NUM_CALC NC_CODAGG2
ENDIF
  FIELD CODAGG2
END
ENDIF

#ifdef IS_MERCE
ENDPAGE

PAGE "Pag.4"  -1 -1 MASK_WIDTH MASK_HEIGHT

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 0 "CONAI"
END

STRING FR_SCAACC 4
BEGIN
  PROMPT 2 1 "Sottocategoria ACCIAIO   "
  USE &SCC SELECT CODTAB[1,2]=="AC"
  INPUT CODTAB FR_SCAACC
  DISPLAY "Sottocategoria" CODTAB[3,4]
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_SCAACC CODTAB 
  FIELD CONSCACC
END

NUMBER FR_PUNACC 13 5
BEGIN
  PROMPT 40 1 "Peso unitario "
  FIELD CONPUACC
END

STRING FR_SCAALL 4
BEGIN
  PROMPT 2 2 "Sottocategoria ALLUMINIO "
  USE &SCC SELECT CODTAB[1,2]=="AL"
  INPUT CODTAB FR_SCAALL
  COPY DISPLAY FR_SCAACC
  OUTPUT FR_SCAALL CODTAB 
  FIELD CONSCALL
END

NUMBER FR_PUNALL 13 5
BEGIN
  PROMPT 40 2 "Peso unitario "
  FIELD CONPUALL
END

STRING FR_SCACAR 4
BEGIN
  PROMPT 2 3 "Sottocategoria CARTA     "
  USE &SCC SELECT CODTAB[1,2]=="CA"
  INPUT CODTAB FR_SCACAR
  COPY DISPLAY FR_SCAACC
  OUTPUT FR_SCACAR CODTAB 
  FIELD CONSCCAR
END

NUMBER FR_PUNCAR 13 5
BEGIN
  PROMPT 40 3 "Peso unitario "
  FIELD CONPUCAR
END

STRING FR_SCAPLA 4
BEGIN
  PROMPT 2 4 "Sottocategoria PLASTICA  "
  USE &SCC SELECT CODTAB[1,2]=="PL"
  INPUT CODTAB FR_SCAPLA
  COPY DISPLAY FR_SCAACC
  OUTPUT FR_SCAPLA CODTAB 
  FIELD CONSCPLA
END

NUMBER FR_PUNPLA 13 5
BEGIN
  PROMPT 40 4 "Peso unitario "
  FIELD CONPUPLA
END

STRING FR_SCALEG 4
BEGIN
  PROMPT 2 5 "Sottocategoria LEGNO     "
  USE &SCC SELECT CODTAB[1,2]=="LE"
  INPUT CODTAB FR_SCALEG
  COPY DISPLAY FR_SCAACC
  OUTPUT FR_SCALEG CODTAB
  FIELD CONSCLEG
END

NUMBER FR_PUNLEG 13 5
BEGIN
  PROMPT 40 5 "Peso unitario "
  FIELD CONPULEG
END

STRING FR_SCAVET 4
BEGIN
  PROMPT 2 6 "Sottocategoria VETRO     "
  USE &SCC SELECT CODTAB[1,2]=="VE"
  INPUT CODTAB FR_SCAVET
  COPY DISPLAY FR_SCAACC
  OUTPUT FR_SCAVET CODTAB
  FIELD CONSCVET
END

NUMBER FR_PUNVET 13 5
BEGIN
  PROMPT 40 6 "Peso unitario "
  FIELD CONPUVET
END
#endif

#ifndef FULL_SCREEN
ENDPAGE

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

#ifndef PAGE_1
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
#define PAGE_1
#endif

#endif

ENDPAGE
ENDMASK