campo-sirio/vd/vd0300a.uml

#include "vdconf.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
	PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Parametri ditta"  1 1 60 14

STRING FD_FILIALE 2
BEGIN
  PROMPT 2 2 "Filiale           "
  FIELD FILIALE
  USE FLD
  INPUT CODTAB FD_FILIALE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FD_FILIALE CODTAB
  OUTPUT FD_DESFIL S0
  CHECKTYPE REQUIRED
  FLAG "UZ"
END

STRING FD_DESFIL 50 40
BEGIN
  PROMPT 30 2 ""
  USE FLD KEY 2
  INPUT S0 FD_DESFIL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FD_FILIALE
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

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@
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@
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@
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@

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@
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@

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@
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
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