root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ve/verig.uml
guy 2cceeb585b Patch level : 2.0 572 
Files correlati     : tutti i profili standard delle vendite + vebol.frm vebolbmp.frm
Ricompilazione Demo : [ ]
Commento            :

AO20090
Ho un cliente ITALIANO con un indirizzo di spedizione ESTERO che ha per
codice stato "004" e per codice comune "Z114", se stampo la bolla mi riporta
come indirizzo di spedizione "GRAN BRETAGNA E IRLANDA DEL N.", questo perché
sul form di stampa si collegano gli indirizzi di spedizione ai comuni tramite
soltanto il codice del Comune ma non dello Stato, pertanto se per due stati
diversi ho un codice comune uguale il programma riporta sempre il primo che
trova (ovvero quello dell'Italia). Aggiungere il controllo anche dello Stato.


git-svn-id: svn://10.65.10.50/trunk@11421 c028cbd2-c16b-5b4b-a496-9718f37d4682
2003-09-17 08:51:57 +00:00

1771 lines
28 KiB
Plaintext
Executable File
Raw Blame History

#include "veuml.h"
#ifdef FULL_SCREEN
TOOLBAR "" 0 20 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
STRING FR_TIPORIGA 2
BEGIN
PROMPT 2 2 "Tipo riga "
USE %TRI
IN CODTAB FR_TIPORIGA
OU FR_DESTIPORIGA S0
CHECKTYPE REQUIRED
FLAGS "DG"
FIELD TIPORIGA
END
#ifdef FULL_SCREEN
STRING FR_DESTIPORIGA 50
#else
STRING FR_DESTIPORIGA 25
#endif
BEGIN
PROMPT 22 2 ""
FLAGS "D"
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 6 "Articolo "
ENDIF
USE LF_ANAMAG KEY 1
INPUT CODART FR_CODART
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT FR_CODART CODART
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 6 "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
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_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 10
BEGIN
IFDEF(X_LIV1)
PROMPT X_LIV1 Y_LIV1 ""
ELSEIF
PROMPT 37 6 ""
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@10" 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 6
BEGIN
IFDEF(X_LIV2)
PROMPT X_LIV2 Y_LIV2 ""
ELSEIF
PROMPT 50 6 ""
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@10" 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 6
BEGIN
IFDEF(X_LIV3)
PROMPT X_LIV3 Y_LIV3 ""
ELSEIF
PROMPT 59 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@10" 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 6
BEGIN
IFDEF(X_LIV4)
PROMPT X_LIV4 Y_LIV4 ""
ELSEIF
PROMPT 67 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@10" 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 6 "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 6 "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 6 "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 6 "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_PREZZO R0
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 6 "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 6 "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 6 "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 6 "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_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
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_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 13 5
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 "Perc.Provv. "
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_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
ENDIF
IFDEF(FLD_ADDIVA)
BOOLEAN FR_ADDIVA
BEGIN
IFDEF(X_ADDIVA)
PROMPT X_ADDIVA Y_ADDIVA PR_ADDIVA
ELSEIF
PROMPT 2 16 "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 17 "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 17 ""
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 18 "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 18 ""
ENDIF
FLAGS "D"
END
ENDIF
ENDIF
#ifdef PAGE_2
#ifndef FULL_SCREEN
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
#define PAGE_1
#endif
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)
NUMBER FR_QTAGG1 13 5
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)
NUMBER FR_QTAGG2 13 5
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)
NUMBER FR_QTAGG3 13 5
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)
NUMBER FR_QTAGG4 13 5
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)
NUMBER FR_QTAGG5 13 5
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_CODCMS)
STRING FR_CODCMS 20
BEGIN
IFDEF(X_CODCMS)
PROMPT X_CODCMS Y_CODCMS PR_CODCMS
ELSEIF
PROMPT 2 11 "Commessa "
ENDIF
USE CMS
INPUT CODTAB FR_CODCMS
DISPLAY "Codice commessa@20" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT FR_CODCMS CODTAB
OUTPUT FR_DESCMS S0
FIELD CODCMS
FLAGS "UZ"
IFDEF(CH_CODCMS)
CHECKTYPE CH_CODCMS
ELSEIF
CHECKTYPE NORMAL
ENDIF
END
STRING FR_DESCMS 50
BEGIN
IFDEF(X_CODCMS)
PROMPT 14 Y_CODCMS ""
ELSEIF
PROMPT 14 12 ""
ENDIF
USE CMS KEY 2
INPUT S0 FR_DESCMS
DISPLAY "Descrizione @50" S0
DISPLAY "Codice commessa@20" CODTAB
COPY OUTPUT FR_CODCMS
CHECKTYPE NORMAL
END
STRING FR_FASCMS 10
BEGIN
IFDEF(X_FASCMS)
PROMPT X_FASCMS Y_FASCMS PR_FASCMS
ELSEIF
PROMPT 2 13 "Fase "
ENDIF
USE FSC
INPUT CODTAB FR_FASCMS
DISPLAY "Codice Fase@10" CODTAB
DISPLAY "Descrizione @50" S0
OUTPUT FR_FASCMS CODTAB
OUTPUT FR_DESCMS S0
FIELD FASCMS
FLAGS "UZ"
IFDEF(CH_FASCMS)
CHECKTYPE CH_CODCMS
ELSEIF
CHECKTYPE NORMAL
ENDIF
END
STRING FR_DESFAS 50
BEGIN
IFDEF(X_FASCMS)
PROMPT 14 Y_FASCMS ""
ELSEIF
PROMPT 14 14 ""
ENDIF
USE FAS KEY 2
INPUT S0 FR_DESFAS
DISPLAY "Descrizione @50" S0
DISPLAY "Codice Fase@10" CODTAB
COPY OUTPUT FR_FASCMS
CHECKTYPE NORMAL
END
ENDIF
#endif
IFDEF(JOLLY)
INCLDEF(JOLLY)
ENDIF
#ifndef FULL_SCREEN
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
IFDEF(JOLLYP)
INCLDEF(JOLLYP)
#ifndef FULL_SCREEN
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
#endif
#endif
ENDIF
ENDMASK
Reference in New Issue View Git Blame Copy Permalink