483 lines
7.7 KiB
Plaintext
Executable File
483 lines
7.7 KiB
Plaintext
Executable File
#include "..\ve\verig.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -14 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -24 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -34 -1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
BUTTON DLG_USER 10 2
|
|
BEGIN
|
|
PROMPT -44 -1 "~Collega"
|
|
PICTURE BMP_LINK
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Merce Lavanderia" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
LIST FR_TIPORIGA 2 50
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo riga "
|
|
FIELD TIPORIGA
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 10
|
|
BEGIN
|
|
PROMPT 1 3 "@bArticolo"
|
|
END
|
|
|
|
STRING FR_CODART 20 8
|
|
BEGIN
|
|
PROMPT 2 4 "Articolo "
|
|
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
|
|
FLAGS "U"
|
|
FIELD CODART
|
|
ADD RUN ve2 -3
|
|
END
|
|
|
|
ZOOM FR_DESCRART 50
|
|
BEGIN
|
|
PROMPT 25 4 ""
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR FR_DESCRART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@8" CODART
|
|
COPY OUTPUT FR_CODART
|
|
FIELD DESCR
|
|
ADD RUN ve2 -3
|
|
FIELD DESCR
|
|
END
|
|
|
|
STRING FR_HDESC 50
|
|
BEGIN
|
|
PROMPT 100 100 "Descrizione "
|
|
USE LF_ANAMAG KEY 2
|
|
INPUT DESCR FR_HDESC
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice@20" CODART
|
|
COPY OUTPUT FR_CODART
|
|
END
|
|
|
|
STRING FR_CODARTMAG 20
|
|
BEGIN
|
|
PROMPT 200 6 ""
|
|
FIELD CODARTMAG
|
|
FLAGS "G"
|
|
END
|
|
|
|
BOOLEAN FR_CHECKED
|
|
BEGIN
|
|
PROMPT 51 50 ""
|
|
FIELD CHECKED
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FR_LIV1 15
|
|
BEGIN
|
|
PROMPT 2 5 "Liv.Gia. "
|
|
FLAGS "U"
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "1"
|
|
INPUT CODTAB[2,] FR_LIV1
|
|
DISPLAY "Livello@20" 500@->S0
|
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT FR_LIV1 CODTAB[2,]
|
|
MESSAGE EMPTY RESET,FR_LIV2|RESET,FR_LIV3|RESET,FR_LIV4
|
|
MESSAGE ENABLE,FR_LIV2
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FR_LIV2 15
|
|
BEGIN
|
|
PROMPT 28 5 ""
|
|
FLAGS "U"
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "2"
|
|
INPUT CODTAB[2,] FR_LIV2
|
|
DISPLAY "Livello@20" 500@->S0
|
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT FR_LIV2 CODTAB[2,]
|
|
MESSAGE EMPTY RESET,FR_LIV3|RESET,FR_LIV4
|
|
MESSAGE ENABLE,FR_LIV3
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FR_LIV3 15
|
|
BEGIN
|
|
PROMPT 45 5 ""
|
|
FLAGS "U"
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "3"
|
|
INPUT CODTAB[2,] FR_LIV3
|
|
DISPLAY "Livello@20" 500@->S0
|
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT FR_LIV3 CODTAB[2,]
|
|
MESSAGE EMPTY RESET,FR_LIV4
|
|
MESSAGE ENABLE,FR_LIV4
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FR_LIV4 15
|
|
BEGIN
|
|
PROMPT 62 5 ""
|
|
FLAGS "U"
|
|
USE GCG
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] "4"
|
|
INPUT CODTAB[2,] FR_LIV4
|
|
DISPLAY "Livello@20" 500@->S0
|
|
DISPLAY "Gruppo@15" CODTAB[2,]
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT FR_LIV4 CODTAB[2,]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FR_UMQTA 3
|
|
BEGIN
|
|
PROMPT 2 6 "U.M. "
|
|
USE LF_UMART KEY 2
|
|
JOIN %UMS INTO CODTAB=UM
|
|
INPUT CODART FR_CODARTMAG SE
|
|
INPUT UM FR_UMQTA
|
|
DISPLAY "Codice@20" UM
|
|
DISPLAY "Descrizione@50" %UMS->S0
|
|
OUTPUT FR_UMQTA UM
|
|
FIELD UMQTA
|
|
FLAG "U"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING FR_UMQTA2 2
|
|
BEGIN
|
|
PROMPT 2 6 "U.M. "
|
|
USE %UMS
|
|
INPUT CODTAB FR_UMQTA2
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_UMQTA2 CODTAB
|
|
FIELD UMQTA
|
|
FLAG "U"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
CURRENCY FR_PREZZO 15
|
|
BEGIN
|
|
PROMPT 13 6 "Prezzo "
|
|
FLAGS "U"
|
|
FIELD PREZZO
|
|
END
|
|
|
|
STRING FR_SCONTO 15
|
|
BEGIN
|
|
PROMPT 36 6 "Sconto "
|
|
FIELD SCONTO
|
|
END
|
|
|
|
NUMBER FR_PERCPROV 5 2
|
|
BEGIN
|
|
PROMPT 59 6 "Provv. "
|
|
FIELD PERCPROV
|
|
END
|
|
|
|
NUMBER FR_PERCPROV1 5 2
|
|
BEGIN
|
|
PROMPT 72 6 ""
|
|
FIELD PERCPROV1
|
|
END
|
|
|
|
STRING FR_CAULAV 3
|
|
BEGIN
|
|
PROMPT 2 7 "Cau. Lav. "
|
|
USE &LVCAU
|
|
INPUT CODTAB FR_CAULAV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_CAULAV CODTAB
|
|
OUTPUT FR_DESCAU S0
|
|
OUTPUT FR_FLCONS B1
|
|
OUTPUT FR_FLRIT B0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "U"
|
|
FIELD CODAGG1
|
|
END
|
|
|
|
STRING FR_DESCAU 50
|
|
BEGIN
|
|
PROMPT 18 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN FR_FLCONS
|
|
BEGIN
|
|
PROMPT 50 50 "Flag consegnato"
|
|
FLAGS "HG"
|
|
END
|
|
|
|
BOOLEAN FR_FLRIT
|
|
BEGIN
|
|
PROMPT 50 50 "Flag ritirato"
|
|
FLAGS "HG"
|
|
END
|
|
|
|
NUMBER FR_RITIRO 6 0
|
|
BEGIN
|
|
PROMPT 2 8 "Ritirato "
|
|
FIELD QTAGG1
|
|
END
|
|
|
|
NUMBER FR_QTA 6 0
|
|
BEGIN
|
|
PROMPT 20 8 "Da cons. "
|
|
FIELD QTA
|
|
END
|
|
|
|
NUMBER FR_QTAEVASA 6 0
|
|
BEGIN
|
|
PROMPT 40 8 "Consegnato "
|
|
FIELD QTAEVASA
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FR_NCOLLI 7
|
|
BEGIN
|
|
PROMPT 60 8 "Pacchi "
|
|
FIELD NCOLLI
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FR_JOLLY1 6 0
|
|
BEGIN
|
|
PROMPT 2 9 "Dot. Od. "
|
|
FIELD DOTOD
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FR_JOLLY2 6 0
|
|
BEGIN
|
|
PROMPT 20 9 "Dot. Tem. "
|
|
FIELD DOTMP
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE FR_JOLLY3
|
|
BEGIN
|
|
PROMPT 40 9 "Inizio "
|
|
FIELD DADATATMP
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE FR_JOLLY4
|
|
BEGIN
|
|
PROMPT 60 9 "Fine "
|
|
FIELD ADATATMP
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FR_TARA 15 2
|
|
BEGIN
|
|
PROMPT 2 10 "Tara "
|
|
FIELD TARA
|
|
END
|
|
|
|
NUMBER FR_PNETTO 6 2
|
|
BEGIN
|
|
PROMPT 25 10 "Peso netto "
|
|
FIELD PNETTO
|
|
END
|
|
|
|
STRING FR_CODIVA 4
|
|
BEGIN
|
|
PROMPT 2 11 "IVA "
|
|
USE %IVA
|
|
INPUT CODTAB FR_CODIVA
|
|
DISPLAY "Codice@20" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_CODIVA CODTAB
|
|
OUTPUT FR_DESIVA S0
|
|
FLAGS "U"
|
|
VALIDATE ZEROFILL_FUNC 2
|
|
CHECKTYPE NORMAL
|
|
FIELD CODIVA
|
|
END
|
|
|
|
STRING FR_DESIVA 50
|
|
BEGIN
|
|
PROMPT 13 11 ""
|
|
USE %IVA KEY 2
|
|
INPUT S0 FR_DESIVA
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@20" CODTAB
|
|
OUTPUT FR_CODIVA CODTAB
|
|
OUTPUT FR_DESIVA S0
|
|
END
|
|
|
|
STRING FR_TIPODET 1
|
|
BEGIN
|
|
PROMPT 67 11 "Indetr. "
|
|
USE %DET
|
|
INPUT CODTAB FR_TIPODET
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Tipo" I0
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_TIPODET CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAGS "U"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 13 "@bMagazzino"
|
|
END
|
|
|
|
STRING FR_CODMAG 4
|
|
BEGIN
|
|
PROMPT 2 14 "Magazzino "
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB FR_CODMAG
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_CODMAG CODTAB
|
|
OUTPUT FR_DESMAG S0
|
|
WARNING "Magazzino assente"
|
|
FLAGS "U"
|
|
CHECKTYPE NORMAL
|
|
FIELD CODMAG[1,3]
|
|
END
|
|
|
|
STRING FR_DESMAG 50
|
|
BEGIN
|
|
PROMPT 26 14 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FR_CODDEP 4
|
|
BEGIN
|
|
PROMPT 2 15 "Deposito "
|
|
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB[4,5]!="")
|
|
INPUT CODTAB[1,3] FR_CODMAG
|
|
INPUT CODTAB[4,5] FR_CODDEP
|
|
DISPLAY "Codice mag." CODTAB[1,3]
|
|
DISPLAY "Codice dep." CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_CODMAG CODTAB[1,3]
|
|
OUTPUT FR_CODDEP CODTAB[4,5]
|
|
OUTPUT FR_DESDEP S0
|
|
MESSAGE DIRTY,FR_CODMAG|K_TAB,FR_CODMAG
|
|
CHECKTYPE NORMAL
|
|
WARNING "Deposito assente"
|
|
FLAGS "U"
|
|
FIELD CODMAG[4,5]
|
|
END
|
|
|
|
STRING FR_DESDEP 50
|
|
BEGIN
|
|
PROMPT 26 15 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FR_CODMAGC 4
|
|
BEGIN
|
|
PROMPT 2 16 "Magazzino Col. "
|
|
COPY USE FR_CODMAG
|
|
INPUT CODTAB FR_CODMAGC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_CODMAGC CODTAB
|
|
OUTPUT FR_DESMAGC S0
|
|
WARNING "Magazzino assente"
|
|
FLAGS "U"
|
|
CHECKTYPE NORMAL
|
|
FIELD CODMAGC[1,3]
|
|
END
|
|
|
|
STRING FR_DESMAGC 50
|
|
BEGIN
|
|
PROMPT 26 16 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FR_CODDEPC 4
|
|
BEGIN
|
|
PROMPT 2 17 "Deposito "
|
|
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAGC) && (CODTAB[4,5]!="")
|
|
INPUT CODTAB[1,3] FR_CODMAGC
|
|
INPUT CODTAB[4,5] FR_CODDEPC
|
|
DISPLAY "Codice mag." CODTAB[1,3]
|
|
DISPLAY "Codice dep." CODTAB[4,5]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FR_CODMAGC CODTAB[1,3]
|
|
OUTPUT FR_CODDEPC CODTAB[4,5]
|
|
OUTPUT FR_DESDEPC S0
|
|
MESSAGE DIRTY,FR_CODMAGC|K_TAB,FR_CODMAGC
|
|
CHECKTYPE NORMAL
|
|
WARNING "Deposito assente"
|
|
FLAGS "U"
|
|
FIELD CODMAGC[4,5]
|
|
END
|
|
|
|
STRING FR_DESDEPC 50
|
|
BEGIN
|
|
PROMPT 26 17 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 19 "@bRiferimenti documenti"
|
|
END
|
|
|
|
STRING FR_JOLLY5 20
|
|
BEGIN
|
|
PROMPT 2 20 "Buono di Consegna"
|
|
FIELD RIFBCON
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER FR_QTAGG5 6 0
|
|
BEGIN
|
|
PROMPT 60 20 "Cong. "
|
|
FLAGS "H"
|
|
FIELD QTAGG5
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Analitica" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 14
|
|
BEGIN
|
|
PROMPT 1 0 "Contabilita' analitica"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|