614 lines
9.3 KiB
Plaintext
Executable File
614 lines
9.3 KiB
Plaintext
Executable File
#ifdef FULL_SCREEN
|
|
TOOLBAR "" 0 20 0 2
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
ENDPAGE
|
|
#endif
|
|
|
|
#ifndef MASK_WIDTH
|
|
#define MASK_WIDTH 74
|
|
#endif
|
|
|
|
#ifndef MASK_HEIGHT
|
|
#define MASK_HEIGHT 19
|
|
#endif
|
|
|
|
#ifndef MASK_TITLE1
|
|
#define MASK_TITLE1 ""
|
|
#endif
|
|
|
|
PAGE MASK_TITLE1 -1 -1 MASK_WIDTH MASK_HEIGHT
|
|
|
|
STRING FR_STATORIGA 2
|
|
BEGIN
|
|
PROMPT 2 1 "Stato riga "
|
|
FLAGS "DG"
|
|
END
|
|
|
|
STRING FR_TIPORIGA 2
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo riga "
|
|
USE %TRI
|
|
IN CODTAB FR_TIPORIGA
|
|
OU FR_DESTIPORIGA S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
END
|
|
|
|
#ifdef FULL_SCREEN
|
|
STRING FR_DESTIPORIGA 50
|
|
#else
|
|
STRING FR_DESTIPORIGA 25
|
|
#endif
|
|
BEGIN
|
|
PROMPT 16 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
IFDEF(F_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 ? "???"
|
|
INPUT CODTAB[1,3] FR_CODMAG
|
|
DISPLAY "Codice" CODTAB[1,3]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_CODMAG CODTAB[1,3]
|
|
OUTPUT FR_DESMAG S0
|
|
IFDEF(CH_CODMAG)
|
|
CHECKTYPE CH_CODMAG
|
|
ELSEIF
|
|
CHECKTYPE NORMAL
|
|
ENDIF
|
|
FLAGS "U"
|
|
IFDEF(FL_CODMAG)
|
|
FLAGS FL_CODMAG
|
|
ENDIF
|
|
KEY 1
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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
|
|
|
|
IFDEF(F_CODDEP)
|
|
STRING FR_CODDEP 2
|
|
BEGIN
|
|
IFDEF(X_DESMAG)
|
|
PROMPT X_DESMAG Y_DESMAG PR_DESMAG
|
|
ELSEIF
|
|
PROMPT 2 4 "Deposito "
|
|
ENDIF
|
|
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB ? "?????")
|
|
IN CODTAB[1,3] FR_CODMAG
|
|
IN 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
|
|
IFDEF(FL_CODDEP)
|
|
FLAGS FL_CODDEP
|
|
ENDIF
|
|
FLAGS "U"
|
|
KEY 1
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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
|
|
|
|
IFDEF(F_CODART)
|
|
ST 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
|
|
OUTPUT FR_DESCR DESCR
|
|
WARNING "Articolo assente"
|
|
IFDEF(CH_CODART)
|
|
CHECKTYPE CH_CODART
|
|
ELSEIF
|
|
CHECKTYPE REQUIRED
|
|
ENDIF
|
|
IFDEF(FL_CODART)
|
|
FLAGS FL_CODART
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_CODSPV)
|
|
STRING FR_CODSPV 3
|
|
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_VALORE R1
|
|
OUTPUT FR_CODIVA S3
|
|
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
|
|
IFDEF(CH_CODSPV)
|
|
CHECKTYPE CH_CODSPV
|
|
ELSEIF
|
|
CHECKTYPE REQUIRED
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_CODSPQ)
|
|
STRING FR_CODSPQ 3
|
|
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_PREZZO R0
|
|
OUTPUT FR_CODIVA S3
|
|
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
|
|
IFDEF(CH_CODSPQ)
|
|
CHECKTYPE CH_CODSPQ
|
|
ELSEIF
|
|
CHECKTYPE REQUIRED
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_CODSPP)
|
|
STRING FR_CODSPP 3
|
|
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
|
|
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
|
|
IFDEF(CH_CODSPP)
|
|
CHECKTYPE CH_CODSPP
|
|
ELSEIF
|
|
CHECKTYPE REQUIRED
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_DESCR)
|
|
ZOOM FR_DESCR 50
|
|
BEGIN
|
|
IFDEF(X_DESCR)
|
|
PROMPT X_DESCR Y_DESCR PR_DESCR
|
|
ELSEIF
|
|
PROMPT 2 7 "Descrizione "
|
|
ENDIF
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR FR_DESCR
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
OUTPUT FR_CODART CODART
|
|
OUTPUT FR_DESCR DESCR
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_DESCRSPQ)
|
|
ZOOM FR_DESCRSPQ 50
|
|
BEGIN
|
|
IFDEF(X_DESCRSPV)
|
|
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
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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_CODART SE
|
|
INPUT UM FR_UMQTA
|
|
DISPLAY "Codice@20" UM
|
|
DISPLAY "Descrizione@50" %UMS->S0
|
|
OUTPUT FR_UMQTA UM
|
|
IFDEF(CH_UMQTA)
|
|
CHECKTYPE CH_UMQTA
|
|
ELSEIF
|
|
CHECKTYPE NORMAL
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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(CH_UMQTASP)
|
|
CHECKTYPE CH_UMQTASP
|
|
ELSEIF
|
|
CHECKTYPE NORMAL
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_QTA)
|
|
NUMBER FR_QTA 11 3
|
|
BEGIN
|
|
IFDEF(X_QTA)
|
|
PROMPT X_QTA Y_QTA PR_QTA
|
|
ELSEIF
|
|
PROMPT 22 9 "Qta' "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_PERCSP)
|
|
NUMBER FR_QTA 6 2
|
|
BEGIN
|
|
IFDEF(X_PERCSP)
|
|
PROMPT X_PERCSP Y_PERCSP PR_PERCSP
|
|
ELSEIF
|
|
PROMPT 22 9 "%Spesa "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_PREZZO)
|
|
NUMBER FR_PREZZO 15 3
|
|
BEGIN
|
|
IFDEF(X_PREZZO)
|
|
PROMPT X_PREZZO Y_PREZZO PR_PREZZO
|
|
ELSEIF
|
|
PROMPT 42 9 "Prezzo "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_VALORE)
|
|
NUMBER FR_VALORE 15 3
|
|
BEGIN
|
|
IFDEF(X_VALORE)
|
|
PROMPT X_VALORE Y_VALORE PR_VALORE
|
|
ELSEIF
|
|
PROMPT 42 9 "Valore "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_QTAEVASA)
|
|
NUMBER FR_QTAEVASA 11 3
|
|
BEGIN
|
|
IFDEF(X_QTAEVASA)
|
|
PROMPT X_QTAEVASA Y_QTAEVASA PR_QTAEVASA
|
|
ELSEIF
|
|
PROMPT 17 10 "Q.ta evasa "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_RIGAEVASA)
|
|
BOOLEAN FR_RIGAEVASA
|
|
BEGIN
|
|
IFDEF(X_RIGAEVASA)
|
|
PROMPT X_RIGAEVASA Y_RIGAEVASA PR_RIGAEVASA
|
|
ELSEIF
|
|
PROMPT 42 10 "Saldata "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_TARA)
|
|
NUMBER FR_TARA 15 2
|
|
BEGIN
|
|
IFDEF(X_TARA)
|
|
PROMPT X_TARA Y_TARA PR_TARA
|
|
ELSEIF
|
|
PROMPT 2 11 "Tara "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_PNETTO)
|
|
NUMBER FR_PNETTO 15 2
|
|
BEGIN
|
|
IFDEF(X_PNETTO)
|
|
PROMPT X_PNETTO Y_PNETTO PR_PNETTO
|
|
ELSEIF
|
|
PROMPT 30 11 "Peso netto "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_NCOLLI)
|
|
NUMBER FR_NCOLLI 7
|
|
BEGIN
|
|
IFDEF(X_NCOLLI)
|
|
PROMPT X_NCOLLI Y_NCOLLI PR_NCOLLI
|
|
ELSEIF
|
|
PROMPT 2 12 "N.Colli "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_DAEVADERE)
|
|
BOOLEAN FR_DAEVADERE
|
|
BEGIN
|
|
IFDEF(X_DAEVADERE)
|
|
PROMPT X_DAEVADERE Y_DAEVADERE PR_DAEVADERE
|
|
ELSEIF
|
|
PROMPT 22 12 "Da evadere "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_SCONTO)
|
|
STRING FR_SCONTO 25
|
|
BEGIN
|
|
IFDEF(X_SCONTO)
|
|
PROMPT X_SCONTO Y_SCONTO PR_SCONTO
|
|
ELSEIF
|
|
PROMPT 2 13 "Sconto "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_PERCPROV)
|
|
NUMBER FR_PERCPROV 5 2
|
|
BEGIN
|
|
IFDEF(X_PERCPROV)
|
|
PROMPT X_PERCPROV Y_PERCPROV PR_PERCPROV
|
|
ELSEIF
|
|
PROMPT 42 13 "Perc.Provv. "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_IMPFISUN)
|
|
BOOLEAN FR_IMPFISUN
|
|
BEGIN
|
|
IFDEF(X_IMPFISUN)
|
|
PROMPT X_IMPFISUN Y_IMPFISUN PR_IMPFISUN
|
|
ELSEIF
|
|
PROMPT 2 14 "Importo provv.unitario"
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
|
|
IFDEF(F_IMPFISSO)
|
|
NUMBER FR_IMPFISSO 18 2
|
|
BEGIN
|
|
IFDEF(X_IMPFISSO)
|
|
PROMPT X_IMPFISSO Y_IMPFISSO PR_IMPFISSO
|
|
ELSEIF
|
|
PROMPT 42 14 "Imp.Provv. "
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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"
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
IFDEF(CH_CODIVA)
|
|
CHECKTYPE CH_CODIVA
|
|
ELSEIF
|
|
CHECKTYPE NORMAL
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_DESIVA)
|
|
STRING FR_DESIVA 50
|
|
BEGIN
|
|
IFDEF(X_DESIVA)
|
|
PROMPT X_DESIVA Y_DESIVA PR_DESIVA
|
|
ELSEIF
|
|
PROMPT 22 15 ""
|
|
ENDIF
|
|
FLAGS "D"
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_ADDIVA)
|
|
BOOLEAN FR_ADDIVA
|
|
BEGIN
|
|
IFDEF(X_ADDIVA)
|
|
PROMPT X_ADDIVA Y_ADDIVA PR_ADDIVA
|
|
ELSEIF
|
|
PROMPT 2 16 "Addebito IVA"
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_ASPBENI)
|
|
STRING FR_ASPBENI 2
|
|
BEGIN
|
|
IFDEF(X_ASPBENI)
|
|
PROMPT X_ASPBENI Y_ASPBENI PR_ASPBENI
|
|
ELSEIF
|
|
PROMPT 2 17 "Aspetto 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(CH_ASPBENI)
|
|
CHECKTYPE CH_ASPBENI
|
|
ELSEIF
|
|
CHECKTYPE NORMAL
|
|
ENDIF
|
|
END
|
|
ENDIF
|
|
|
|
IFDEF(F_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
|
|
|
|
#ifndef FULL_SCREEN
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
#endif
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|