d52681f795
Files correlati : Ricompilazione Demo : [ ] Commento : Riportata la versione 3.2 patch 1353 git-svn-id: svn://10.65.10.50/trunk@18581 c028cbd2-c16b-5b4b-a496-9718f37d4682
522 lines
8.6 KiB
Plaintext
Executable File
522 lines
8.6 KiB
Plaintext
Executable File
#include "vdconf.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -14 -11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_INFO 10 2
|
|
BEGIN
|
|
PROMPT -24 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_HELP 10 2
|
|
BEGIN
|
|
PROMPT -34 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 11 2
|
|
BEGIN
|
|
PROMPT -44 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri ditta" 0 0 0 0
|
|
|
|
STRING FD_NEGOZIO 2
|
|
BEGIN
|
|
PROMPT 2 2 "Negozio "
|
|
FIELD NEGOZIO
|
|
USE FLD
|
|
INPUT CODTAB FD_NEGOZIO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_NEGOZIO CODTAB
|
|
OUTPUT FD_DESNEG S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UZ"
|
|
END
|
|
|
|
STRING FD_DESNEG 50 40
|
|
BEGIN
|
|
PROMPT 30 2 ""
|
|
USE FLD KEY 2
|
|
INPUT S0 FD_DESNEG
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FD_NEGOZIO
|
|
END
|
|
|
|
STRING FD_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 4 "Numerazione "
|
|
FIELD CODNUM
|
|
USE %NUM SELECT I1==4
|
|
INPUT CODTAB FD_CODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODNUM CODTAB
|
|
OUTPUT FD_DESNUM S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UPA"
|
|
END
|
|
|
|
STRING FD_DESNUM 50 40
|
|
BEGIN
|
|
PROMPT 30 4 ""
|
|
USE %NUM KEY 2 SELECT I1==4
|
|
INPUT S0 FD_DESNUM
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FD_CODNUM
|
|
END
|
|
|
|
STRING FD_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 6 "Tipo documento "
|
|
FIELD TIPODOC
|
|
USE %TIP SELECT I1==4
|
|
INPUT CODTAB FD_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_TIPODOC CODTAB
|
|
OUTPUT FD_DESTIPODOC S0
|
|
CHECKTYPE REQUIRED
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING FD_DESTIPODOC 50 40
|
|
BEGIN
|
|
PROMPT 30 6 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2 SELECT I1==4
|
|
INPUT S0 FD_DESTIPODOC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FD_TIPODOC
|
|
END
|
|
|
|
STRING FD_CODLIST 3
|
|
BEGIN
|
|
PROMPT 2 8 "Codice listino "
|
|
FIELD CODLIST
|
|
FLAG "U"
|
|
USE LF_CONDV
|
|
INPUT TIPO "L"
|
|
INPUT CATVEN ""
|
|
INPUT COD FD_CODLIST
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT FD_CODLIST COD
|
|
OUTPUT FD_DESLIST DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING FD_DESLIST 50 40
|
|
BEGIN
|
|
PROMPT 30 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING FD_CODNUMF 4
|
|
BEGIN
|
|
PROMPT 2 10 "Numeraz. fatture "
|
|
FIELD CODNUMF
|
|
USE %NUM SELECT I1==2
|
|
INPUT CODTAB FD_CODNUMF
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODNUMF CODTAB
|
|
OUTPUT FD_DESNUMF S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UPA"
|
|
END
|
|
|
|
STRING FD_DESNUMF 50 40
|
|
BEGIN
|
|
PROMPT 30 10 ""
|
|
USE %NUM KEY 2 SELECT I1==2
|
|
INPUT S0 FD_DESNUMF
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FD_CODNUMF
|
|
END
|
|
|
|
STRING FD_TIPODOCF 4
|
|
BEGIN
|
|
PROMPT 2 12 "Tipo doc. fatture "
|
|
FIELD TIPODOCF
|
|
USE %TIP SELECT I1==2
|
|
INPUT CODTAB FD_TIPODOCF
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_TIPODOCF CODTAB
|
|
OUTPUT FD_DESTIPODOCF S0
|
|
CHECKTYPE NORMAL
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING FD_DESTIPODOCF 50 40
|
|
BEGIN
|
|
PROMPT 30 12 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2 SELECT I1==2
|
|
INPUT S0 FD_DESTIPODOCF
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT FD_TIPODOCF
|
|
END
|
|
|
|
BOOLEAN FD_BARPVAR
|
|
BEGIN
|
|
PROMPT 2 14 "Gestione Barcode a peso variabile"
|
|
FIELD BARPVAR
|
|
END
|
|
|
|
/*BOOLEAN FD_CODPVAR
|
|
BEGIN
|
|
PROMPT 2 16 "Gestione codici a peso variabile"
|
|
FIELD CODPVAR
|
|
END */
|
|
|
|
STRING FD_QTACHAR 1
|
|
BEGIN
|
|
PROMPT 2 16 "Carattere sep.qta "
|
|
FIELD QTACHAR
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Pagamenti" 1 1 60 14
|
|
|
|
STRING FD_CODPAG01 4
|
|
BEGIN
|
|
PROMPT 2 2 "Pagamento 1 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[1]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG01
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG01 CODTAB
|
|
OUTPUT FD_LABPAG01 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
MESSAGE EMPTY CLEAR,2@|K_TAB,FD_CODPAG02
|
|
MESSAGE ENABLE,2@
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG01 30
|
|
BEGIN
|
|
PROMPT 30 2 ""
|
|
FIELD LABPAG[1]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG01
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG01
|
|
CHECKTYPE SEARCH
|
|
GROUP 1 2
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG01
|
|
BEGIN
|
|
PROMPT 70 2 "Resto"
|
|
FIELD RESTO[1]
|
|
GROUP 1 2
|
|
END
|
|
|
|
STRING FD_CODPAG02 4
|
|
BEGIN
|
|
PROMPT 2 4 "Pagamento 2 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[2]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG02
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG02 CODTAB
|
|
OUTPUT FD_LABPAG02 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
GROUP 2
|
|
MESSAGE EMPTY CLEAR,3@|K_TAB,FD_CODPAG03
|
|
MESSAGE ENABLE,3@
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG02 30
|
|
BEGIN
|
|
PROMPT 30 4 ""
|
|
FIELD LABPAG[2]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG02
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG02
|
|
CHECKTYPE SEARCH
|
|
FLAGS "DG"
|
|
GROUP 2 3
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG02
|
|
BEGIN
|
|
PROMPT 70 4 "Resto"
|
|
FIELD RESTO[2]
|
|
FLAGS "DG"
|
|
GROUP 2 3
|
|
END
|
|
|
|
STRING FD_CODPAG03 4
|
|
BEGIN
|
|
PROMPT 2 6 "Pagamento 3 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[3]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG03
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG03 CODTAB
|
|
OUTPUT FD_LABPAG03 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
GROUP 3
|
|
MESSAGE EMPTY CLEAR,4@|K_TAB,FD_CODPAG04
|
|
MESSAGE ENABLE,4@
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG03 30
|
|
BEGIN
|
|
PROMPT 30 6 ""
|
|
FIELD LABPAG[3]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG03
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG03
|
|
CHECKTYPE SEARCH
|
|
FLAGS "DG"
|
|
GROUP 3 4
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG03
|
|
BEGIN
|
|
PROMPT 70 6 "Resto"
|
|
FIELD RESTO[3]
|
|
FLAGS "DG"
|
|
GROUP 3 4
|
|
END
|
|
|
|
STRING FD_CODPAG04 4
|
|
BEGIN
|
|
PROMPT 2 8 "Pagamento 4 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[4]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG04
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG04 CODTAB
|
|
OUTPUT FD_LABPAG04 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
GROUP 4
|
|
MESSAGE EMPTY CLEAR,5@|K_TAB,FD_CODPAG05
|
|
MESSAGE ENABLE,5@
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG04 30
|
|
BEGIN
|
|
PROMPT 30 8 ""
|
|
FIELD LABPAG[4]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG04
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG04
|
|
CHECKTYPE SEARCH
|
|
FLAGS "DG"
|
|
GROUP 4 5
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG04
|
|
BEGIN
|
|
PROMPT 70 8 "Resto"
|
|
FIELD RESTO[4]
|
|
FLAGS "DG"
|
|
GROUP 4 5
|
|
END
|
|
|
|
STRING FD_CODPAG05 4
|
|
BEGIN
|
|
PROMPT 2 10 "Pagamento 5 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[5]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG05
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG05 CODTAB
|
|
OUTPUT FD_LABPAG05 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
GROUP 5
|
|
MESSAGE EMPTY CLEAR,6@|K_TAB,FD_CODPAG06
|
|
MESSAGE ENABLE,6@
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG05 30
|
|
BEGIN
|
|
PROMPT 30 10 ""
|
|
FIELD LABPAG[5]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG05
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG05
|
|
CHECKTYPE SEARCH
|
|
FLAGS "DG"
|
|
GROUP 5 6
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG05
|
|
BEGIN
|
|
PROMPT 70 10 "Resto"
|
|
FIELD RESTO[5]
|
|
FLAGS "DG"
|
|
GROUP 5 6
|
|
END
|
|
|
|
STRING FD_CODPAG06 4
|
|
BEGIN
|
|
PROMPT 2 12 "Pagamento 6 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[6]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG06
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG06 CODTAB
|
|
OUTPUT FD_LABPAG06 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
GROUP 6
|
|
MESSAGE EMPTY CLEAR,7@|K_TAB,FD_CODPAG07
|
|
MESSAGE ENABLE,7@
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG06 30
|
|
BEGIN
|
|
PROMPT 30 12 ""
|
|
FIELD LABPAG[6]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG06
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG06
|
|
CHECKTYPE SEARCH
|
|
FLAGS "DG"
|
|
GROUP 6 7
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG06
|
|
BEGIN
|
|
PROMPT 70 12 "Resto"
|
|
FIELD RESTO[6]
|
|
FLAGS "DG"
|
|
GROUP 6 7
|
|
END
|
|
|
|
STRING FD_CODPAG07 4
|
|
BEGIN
|
|
PROMPT 2 14 "Pagamento 7 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[7]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG07
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG07 CODTAB
|
|
OUTPUT FD_LABPAG07 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
GROUP 7
|
|
MESSAGE EMPTY CLEAR,8@|K_TAB,FD_CODPAG08
|
|
MESSAGE ENABLE,8@
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG07 30
|
|
BEGIN
|
|
PROMPT 30 14 ""
|
|
FIELD LABPAG[7]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG07
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG07
|
|
CHECKTYPE SEARCH
|
|
FLAGS "DG"
|
|
GROUP 7 8
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG07
|
|
BEGIN
|
|
PROMPT 70 14 "Resto"
|
|
FIELD RESTO[7]
|
|
FLAGS "DG"
|
|
GROUP 7 8
|
|
END
|
|
|
|
STRING FD_CODPAG08 4
|
|
BEGIN
|
|
PROMPT 2 16 "Pagamento 8 "
|
|
FLAGS "U#"
|
|
FIELD CODPAG[8]
|
|
USE %CPG
|
|
INPUT CODTAB FD_CODPAG08
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT FD_CODPAG08 CODTAB
|
|
OUTPUT FD_LABPAG08 S0[1,30]
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DG"
|
|
GROUP 8
|
|
ADD RUN ba3 -6
|
|
END
|
|
|
|
STRING FD_LABPAG08 30
|
|
BEGIN
|
|
PROMPT 30 16 ""
|
|
FIELD LABPAG[8]
|
|
USE %CPG KEY 2
|
|
INPUT S0 FD_LABPAG08
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice@10" CODTAB
|
|
COPY OUTPUT FD_CODPAG08
|
|
CHECKTYPE SEARCH
|
|
FLAGS "DG"
|
|
GROUP 8
|
|
END
|
|
|
|
BOOLEAN FD_RESTOPAG08
|
|
BEGIN
|
|
PROMPT 70 16 "Resto"
|
|
FIELD RESTO[8]
|
|
FLAGS "DG"
|
|
GROUP 8
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|