campo-sirio/ci/ci0300a.uml

#include "ci0300a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -33 -11 ""
  MESSAGE EXIT,K_QUIT
END

#include <helpbar.h>

ENDPAGE

PAGE "Configurazione" 0 2 0 0

SPREADSHEET F_SHEET -5 0
BEGIN
  PROMPT 0 1 ""
  ITEM "Filtro"
  ITEM "Descrizione@30"
  ITEM "Rimani in\ninserimento@11"
  ITEM "Rimani in\nmodifica@9"
  ITEM "Documento\ncollegato@9"
  ITEM "Numerazione"
  ITEM "Tipo\nDocumento"
  ITEM "Stato"
  ITEM "Modifica documento\ncollegato@18"
  ITEM "Campi modificati@50"
  ITEM "Cancella le\nCommesse chiuse@20"
END

BUTTON F_MOVEUP 2 2
BEGIN
  PROMPT -1 -37 ""
  PICTURE BMP_DARROWU
END

BUTTON F_MOVEDN 2 2
BEGIN
  PROMPT -1 -57 ""
  PICTURE BMP_DARROWD
END

ENDPAGE

PAGE "Parametri" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bLivello di dettaglio"
END

LISTBOX F_DETTDISP 6
BEGIN 
	PROMPT 2 2 "Dettaglio disponibilit<69> "
	ITEM "G|Giorno"
	ITEM "M|Mese"
	ITEM "A|Anno"
	FIELD DETTDISP
END

LISTBOX F_DETTCONS 6
BEGIN 
	PROMPT 2 3 "Dettaglio consuntivi    "
	ITEM "G|Giorno"
	ITEM "M|Mese"
	ITEM "A|Anno"
	FIELD DETTCONS
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 5 "@bPreventivi"
END

STRING F_CODNUMPR 4
BEGIN
  PROMPT 2 6 "Numerazione    "
  FIELD CODNUMPR
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMPR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMPR CODTAB
  OUTPUT F_DESNUMPR S0
  CHECKTYPE NORMAL
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

STRING F_DESNUMPR 50
BEGIN
  PROMPT 25 6 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUMPR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUMPR
END

STRING F_TIPODOCPR 4
BEGIN
  PROMPT 2 7 "Tipo documento "
  FIELD TIPODOCPR
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCPR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCPR CODTAB
  OUTPUT F_DESTIPODOCPR S0
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING F_DESTIPODOCPR 50
BEGIN
  PROMPT 25 7 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOCPR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOCPR
END

STRING F_CODARTPR 20
BEGIN
  PROMPT 2 8 "Articolo       "
  FIELD CODARTPR
  USE LF_ANAMAG /*SELECT (SOTTOCV!=0)&&(SOTTOCA!=0)*/
  INPUT CODART F_CODARTPR
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Grp.V." GRUPPOV
  DISPLAY "Con.V." CONTOV
  DISPLAY "Sot.V." SOTTOCV
  DISPLAY "Grp.A." GRUPPOA
  DISPLAY "Con.A." CONTOA
  DISPLAY "Sot.A." SOTTOCA
  OUTPUT F_CODARTPR CODART
  OUTPUT F_DESARTPR DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAG "U"
END

STRING F_DESARTPR 50 30
BEGIN
  PROMPT 45 8 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESARTPR /*SELECT (SOTTOCV!=0)&&(SOTTOCA!=0)*/
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  DISPLAY "Grp.V." GRUPPOV
  DISPLAY "Con.V." CONTOV
  DISPLAY "Sot.V." SOTTOCV
  DISPLAY "Grp.A." GRUPPOA
  DISPLAY "Con.A." CONTOA
  DISPLAY "Sot.A." SOTTOCA
  COPY OUTPUT F_CODARTPR
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 10 "@bConsuntivi"
END

STRING F_CODNUMCN 4
BEGIN
  PROMPT 2 11 "Numerazione    "
  FIELD CODNUMCN
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUMCN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMCN CODTAB
  OUTPUT F_DESNUMCN S0
  CHECKTYPE NORMAL
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUMCN 50
BEGIN
  PROMPT 25 11 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUMCN
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUMCN
END

STRING F_TIPODOCCN 4
BEGIN
  PROMPT 2 12 "Tipo documento "
  FIELD TIPODOCCN
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOCCN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOCCN CODTAB
  OUTPUT F_DESTIPODOCCN S0
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING F_DESTIPODOCCN 50
BEGIN
  PROMPT 25 12 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOCCN
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOCCN
END

STRING F_CAUSCN 4
BEGIN
  PROMPT 2 13 "Casuale cont.  "
  USE LF_CAUSALI SELECT MOVIND="X"
  INPUT CODCAUS F_CAUSCN
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Analitica@C" MOVIND
  DISPLAY "Industriale@C" MOVCGIND
  OUTPUT F_CAUSCN CODCAUS
  OUTPUT F_DESCAUSCN DESCR 
  CHECKTYPE NORMAL
  ADD RUN cg0 -4
  FIELD CODCAUSCN
END

STRING F_DESCAUSCN 50
BEGIN
  PROMPT 25 13 ""
  USE LF_CAUSALI KEY 2 SELECT MOVIND="X"
  INPUT DESCR F_DESCAUSCN
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  DISPLAY "Analitica@C" MOVIND
  DISPLAY "Industriale@C" MOVCGIND
  COPY OUTPUT F_CAUSCN
  CHECKTYPE NORMAL
  ADD RUN cg0 -4
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 15 "@bMovimenti NON IVA"
END

STRING F_CODNUMNI 4
BEGIN
  PROMPT 2 16 "Numerazione    "
  FIELD CODNUMNI
  HELP "Codice numerazione"
  COPY USE F_CODNUMPR
  INPUT CODTAB F_CODNUMNI
  COPY DISPLAY F_CODNUMPR
  OUTPUT F_CODNUMNI CODTAB
  OUTPUT F_DESNUMNI S0
  CHECKTYPE NORMAL
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUMNI 50
BEGIN
  PROMPT 25 16 ""
  HELP "Descrizione numerazione"
  COPY USE F_DESNUMPR
  INPUT S0 F_DESNUMNI
  COPY DISPLAY F_DESNUMPR
  COPY OUTPUT F_CODNUMNI
END

STRING F_TIPODOCNI 4
BEGIN
  PROMPT 2 17 "Tipo documento "
  FIELD TIPODOCNI
  HELP "Codice tipo documento"
  COPY USE F_TIPODOCPR
  INPUT CODTAB F_TIPODOCNI
  COPY DISPLAY F_TIPODOCPR
  OUTPUT F_TIPODOCNI CODTAB
  OUTPUT F_DESTIPODOCNI S0
  CHECKTYPE NORMAL
  FLAG "UP"
END

STRING F_DESTIPODOCNI 50
BEGIN
  PROMPT 25 17 ""
  HELP "Descrizione tipo documento"
  COPY USE F_DESTIPODOCPR
  INPUT S0 F_DESTIPODOCNI
  COPY DISPLAY F_DESTIPODOCPR
  COPY OUTPUT F_TIPODOCNI
END

STRING F_CODIVANI 4
BEGIN
  PROMPT 2 18 "Codice IVA     "
  FIELD CODIVANI
  HELP "Codice IVA"
  USE %IVA
  INPUT CODTAB F_CODIVANI
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODIVANI CODTAB
  OUTPUT F_DESIVANI S0
  CHECKTYPE NORMAL
  FLAGS "U"
END

STRING F_DESIVANI 50
BEGIN
  PROMPT 25 18 ""
  HELP "Descrizione IVA"
  USE %IVA KEY 2
  INPUT S0 F_DESIVANI
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODIVANI
  CHECKTYPE NORMAL
END

ENDPAGE

PAGE "Certificati" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "Pagamenti clienti"
END

STRING F_CODARTLC 20
BEGIN
  PROMPT 2 2 "Lavori         "
  COPY USE F_CODARTPR
  INPUT CODART F_CODARTLC
  COPY DISPLAY F_CODARTPR
  OUTPUT F_CODARTLC CODART
  OUTPUT F_DESARTLC DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAG "U"
  FIELD CODARTLC
END

STRING F_DESARTLC 50 30
BEGIN
  PROMPT 45 2 ""
  COPY USE F_DESARTPR
  INPUT DESCR F_DESARTLC
  COPY DISPLAY F_DESARTPR
  COPY OUTPUT F_CODARTLC
  CHECKTYPE NORMAL
END

STRING F_CODARTGC 20
BEGIN
  PROMPT 2 3 "Garanzia       "
  COPY USE F_CODARTPR
  INPUT CODART F_CODARTGC
  COPY DISPLAY F_CODARTPR
  OUTPUT F_CODARTGC CODART
  OUTPUT F_DESARTGC DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FIELD CODARTGC
END

STRING F_DESARTGC 50 30
BEGIN
  PROMPT 45 3 ""
  COPY USE F_DESARTPR
  INPUT DESCR F_DESARTGC
  COPY DISPLAY F_DESARTPR
  COPY OUTPUT F_CODARTGC
  CHECKTYPE NORMAL
END

STRING F_CODARTAC 20
BEGIN
  PROMPT 2 4 "Anticipi       "
  COPY USE F_CODARTPR
  INPUT CODART F_CODARTAC
  COPY DISPLAY F_CODARTPR
  OUTPUT F_CODARTAC CODART
  OUTPUT F_DESARTAC DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAG "U"
  FIELD CODARTAC
END

STRING F_DESARTAC 50 30
BEGIN
  PROMPT 45 4 ""
  COPY USE F_DESARTPR
  INPUT DESCR F_DESARTAC
  COPY DISPLAY F_DESARTPR
  COPY OUTPUT F_CODARTAC
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 7 "Pagamenti fornitori"
END

STRING F_CODARTLF 20
BEGIN
  PROMPT 2 8 "Lavori         "
  COPY USE F_CODARTPR
  INPUT CODART F_CODARTLF
  COPY DISPLAY F_CODARTPR
  OUTPUT F_CODARTLF CODART
  OUTPUT F_DESARTLF DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAG "U"
  FIELD CODARTLF
END

STRING F_DESARTLF 50 30
BEGIN
  PROMPT 45 8 ""
  COPY USE F_DESARTPR
  INPUT DESCR F_DESARTLF
  COPY DISPLAY F_DESARTPR
  COPY OUTPUT F_CODARTLF
  CHECKTYPE NORMAL
END

STRING F_CODARTGF 20
BEGIN
  PROMPT 2 9 "Garanzia       "
  COPY USE F_CODARTPR
  INPUT CODART F_CODARTGF
  COPY DISPLAY F_CODARTPR
  OUTPUT F_CODARTGF CODART
  OUTPUT F_DESARTGF DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAG "U"
  FIELD CODARTGF
END

STRING F_DESARTGF 50 30
BEGIN
  PROMPT 45 9 ""
  COPY USE F_DESARTPR
  INPUT DESCR F_DESARTGF
  COPY DISPLAY F_DESARTPR
  COPY OUTPUT F_CODARTGF
  CHECKTYPE NORMAL
END

STRING F_CODARTAF 20
BEGIN
  PROMPT 2 10 "Anticipi       "
  COPY USE F_CODARTPR
  INPUT CODART F_CODARTAF
  COPY DISPLAY F_CODARTPR
  OUTPUT F_CODARTAF CODART
  OUTPUT F_DESARTAF DESCR
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  FLAG "U"
  FIELD CODARTAF
END

STRING F_DESARTAF 50 30
BEGIN
  PROMPT 45 10 ""
  COPY USE F_DESARTPR
  INPUT DESCR F_DESARTAF
  COPY DISPLAY F_DESARTPR
  COPY OUTPUT F_CODARTAF
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK

PAGE "Tipologia Documento" -1 -1 78 13

STRING FR_FILTRO 4
BEGIN
  PROMPT 1 1 "Filtro      "
  USE %NUM
  INPUT CODTAB FR_FILTRO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_FILTRO CODTAB
  OUTPUT FR_DES S0
  CHECKTYPE NORMAL
  FLAG "UPA"
END

STRING FR_DES 30
BEGIN
  PROMPT 1 2 "Descrizione "
END

BOOLEAN FR_INS
BEGIN
  PROMPT 1 3 "Rimani in inserimento"
END

BOOLEAN FR_MOD
BEGIN
  PROMPT 1 4 "Rimani in modifica"
END

BOOLEAN FR_COLL
BEGIN
  PROMPT 1 5 "Documento collegato"
	MESSAGE FALSE CLEAR,1@
	MESSAGE TRUE ENABLE,1@
END

BOOLEAN FR_MODCOLL
BEGIN
  PROMPT 23 5 "Modifica interattiva del documento collegato"
  GROUP 1
END

STRING FR_NUM 4
BEGIN
  PROMPT 1 6 "Numerazione "
  USE %NUM
  INPUT CODTAB FR_NUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_NUM CODTAB
  OUTPUT FR_DESNUM S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  GROUP 1
END

STRING FR_DESNUM 50
BEGIN
  PROMPT 23 6 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 FR_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FR_NUM
  GROUP 1
END

STRING FR_TIPODOC 4
BEGIN
  PROMPT 1 7 "Tipo        "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB FR_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_TIPODOC CODTAB
  OUTPUT FR_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAG "UP"
  GROUP 1
END

STRING FR_DESTIPODOC 50
BEGIN
  PROMPT 23 7 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 FR_DESTIPODOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FR_TIPODOC
  GROUP 1
END

STRING FR_STATO 1
BEGIN
	PROMPT 1 8 "Stato       "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB FR_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FR_STATO CODTAB
  OUTPUT FR_DESSTA S0
  FLAG "U"
  GROUP 1
END

STRING FR_DESSTA 50
BEGIN
  PROMPT 23 8 ""
  HELP "Descrizione tipo documento"
  USE %STD KEY 2
  INPUT S0 FR_DESSTA
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FR_STATO
  GROUP 1
END

ZOOM FR_VAR 50
BEGIN
  PROMPT 1 9 "Campi variati "
  GROUP 1
END

BOOLEAN FR_DELCLOSE
BEGIN
  PROMPT 1 10 "Cancella i documenti di Commesse chiuse"
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

ENDPAGE

ENDMASK