root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ve/verig.uml
luca 5ed2688fdd Patch level :10.0 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
1) sistemati nomi campi conai in anamag e campi virtuali in rdoc
2) prosegue la gestione listini del futuro


git-svn-id: svn://10.65.10.50/trunk@19336 c028cbd2-c16b-5b4b-a496-9718f37d4682
2009-09-25 13:22:32 +00:00

2223 lines
34 KiB
Plaintext
Executable File
Raw Blame History

#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
Reference in New Issue View Git Blame Copy Permalink