campo-sirio/ca/ca0600a.uml

#include "ca0600a.h"

TOOLBAR "" 0 -2 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Pagina 1" -1 -1 64 6

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bCodici"
END

MEMO F_CMS_DESCRAGG 78 5
BEGIN
  PROMPT 2 6 "Descrizione aggiuntiva"
  FIELD DESCRAGG
END

STRING F_CMS_ANNO 4
BEGIN
  PROMPT 2 12 "Anno "
  FIELD ANNO
END

BOOLEAN F_CMS_LOCDIV
BEGIN
  PROMPT 2 13 "Commessa in località diversa"
  FIELD LOCDIV
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 14 "@bLocazione"
END

STRING F_CMS_INDIR 35
BEGIN
  PROMPT 2 15 "Indirizzo "
  FIELD INDIR
END

STRING F_CMS_CIV 10
BEGIN
  PROMPT 50 15 "N. "
  FIELD CIV
END

STRING F_CMS_LOC 35
BEGIN
  PROMPT 2 16 "Localita' "
  FIELD LOC
END

STRING F_CMS_STATO 3
BEGIN
  PROMPT 2 17 "Stato     "
  FIELD STATO
  FLAGS "Z"
  USE %STA
  INPUT CODTAB F_CMS_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT F_CMS_STATO CODTAB
  OUTPUT F_CMS_DESTATO S0
  CHECKTYPE NORMAL
  WARNING "Stato assente"
END

STRING F_CMS_DESTATO 50
BEGIN
  PROMPT 20 17 ""
  USE %STA KEY 2
  INPUT S0 F_CMS_DESTATO
  DISPLAY "Stato@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CMS_STATO
END

STRING F_CMS_COM 4
BEGIN
  PROMPT 2 18 "Comune    "
  FIELD COM
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO F_CMS_STATO
  INPUT COM F_CMS_COM
  DISPLAY "Cod." COM
  DISPLAY "Denominazione@50" DENCOM
  DISPLAY "Pr" PROVCOM
  DISPLAY " CAP " CAPCOM
  OUTPUT F_CMS_STATO STATO 
  OUTPUT F_CMS_COM COM
  OUTPUT F_CMS_PROV PROVCOM
  OUTPUT F_CMS_CAP CAPCOM
  OUTPUT F_CMS_DEN DENCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
END

STRING F_CMS_PROV 2
BEGIN
  PROMPT 21 18 "Provincia "
  FLAGS "D"
END

STRING F_CMS_CAP 5
BEGIN
  PROMPT 38 18 "CAP "
  FIELD CAP
END

STRING F_CMS_DEN 50
BEGIN
  PROMPT 2 19 "          "
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_CMS_DEN
  DISPLAY "Denominazione@50" DENCOM
  DISPLAY "Cod." COM
  DISPLAY "Pr" PROVCOM
  DISPLAY " CAP " CAPCOM
  COPY OUTPUT F_CMS_COM
END

ENDPAGE

PAGE "Pagina 2" -1 -1 64 6

STRING F_CMS_CODCF 6
BEGIN
  PROMPT 2 1 "Cliente "
  FIELD CODCF
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CMS_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  OUTPUT F_CMS_CODCF CODCF
  OUTPUT F_CMS_CRAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_CMS_CRAGSOC 50
BEGIN
  PROMPT 20 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_CMS_CRAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  COPY OUTPUT F_CMS_CODCF
END

LIST F_CMS_REGIVA 2 14
BEGIN
  PROMPT 2 2 "Regime IVA     "
  ITEM "  |Normale"
  ITEM "NR|Non rilevante"
  ITEM "ES|Esente"
  ITEM "NI|Non imponibile"
  ITEM "NS|Non soggetta"
  ITEM "FC|Fuori campo"
  FIELD REGIVA
END

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 1 3 "@bParametri"
END

DATE F_CMS_DATAINIZIO
BEGIN
  PROMPT 2 4 "Data inizio "
  FIELD DATAINIZIO
END

DATE F_CMS_DATAFINE
BEGIN
  PROMPT 28 4 "Data fine "
  FIELD DATAFINE
END

NUMBER F_CMS_AVANZ 5 2
BEGIN
  PROMPT 2 5 "Percentuale di avanzamento "
  FIELD AVANZ
END

BOOLEAN F_CMS_PRORATA
BEGIN
  PROMPT 2 6 "Gestione Pro Rata"
  FIELD PRORATA
END

BOOLEAN F_CMS_PUBBLICA
BEGIN
  PROMPT 22 6 "Pubblica"
  FIELD PUBBLICA
END

BOOLEAN F_CMS_RENDIC
BEGIN
  PROMPT 35 6 "Da rendicontare"
  FIELD RENDIC
END

BOOLEAN F_CMS_CHIUSA
BEGIN
  PROMPT 55 6 "Chiusa"
  FIELD CHIUSA
END

BOOLEAN F_CMS_PROROGA
BEGIN
  PROMPT 2 7 "Prorogata"
  FIELD PROROGA
  MESSAGE FALSE CLEAR,F_CMS_DATAPROR|CLEAR,F_CMS_DATAULTP|CLEAR,F_CMS_DATACOLLP
  MESSAGE TRUE ENABLE,F_CMS_DATAPROR|ENABLE,F_CMS_DATAULTP|ENABLE,F_CMS_DATACOLLP
END

DATE F_CMS_DATAPROR
BEGIN
  PROMPT 20 7 "Data proroga "
  FIELD DATAPROR
END

STRING F_CMS_CODTIPCM 5
BEGIN
  PROMPT 2 8 "Tipologia di commessa "
  FIELD CODTIPCM
  USE TPC
  INPUT CODTAB F_CMS_CODTIPCM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_CODTIPCM CODTAB
  OUTPUT F_CMS_DESTIPCM S0
  CHECKTYPE NORMAL
END

STRING F_CMS_DESTIPCM 50 42
BEGIN
  PROMPT 32 8 ""
  USE TPC KEY 2
  INPUT S0 F_CMS_DESTIPCM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CMS_CODTIPCM
END

STRING F_CMS_CODTIPOL 5
BEGIN
  PROMPT 2 9 "Tipologia di lavoro   "
  FIELD CODTIPO
  USE TPL
  INPUT CODTAB F_CMS_CODTIPOL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_CODTIPOL CODTAB
  OUTPUT F_CMS_DESTIPOL S0
  CHECKTYPE NORMAL
END

STRING F_CMS_DESTIPOL 50 42
BEGIN
  PROMPT 32 9 ""
  USE TPL KEY 2
  INPUT S0 F_CMS_DESTIPOL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CMS_CODTIPOL
END

STRING F_CMS_CODRESP 10
BEGIN
  PROMPT 2 10 "Responsabile     "
  FIELD CODRESP
  USE RSP
  INPUT CODTAB F_CMS_CODRESP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_CODRESP CODTAB
  OUTPUT F_CMS_DESRESP S0
  CHECKTYPE NORMAL
END

STRING F_CMS_DESRESP 50 42
BEGIN
  PROMPT 32 10 ""
  USE RSP KEY 2
  INPUT S0 F_CMS_DESRESP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CMS_CODRESP
END

BOOLEAN F_CMS_GESTFASI
BEGIN
  PROMPT 2 11 "Gestione fasi"
  FIELD GESTFASI
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 14 "@bPreventivo"
END

STRING F_CMS_RIFER 15
BEGIN
  PROMPT 2 15 "N. di riferimento "
  FIELD RIFER
END

DATE F_CMS_DATAPREV
BEGIN
  PROMPT 40 15 "Data "
  FIELD DATAPREV
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 16 "@bDocumento"
  FLAGS "R"
END

STRING F_CMS_PROVVP 1
BEGIN
  PROMPT 3 17 "Provv. / Def. "
  FIELD PROVVP
END

NUMBER F_CMS_ANNOP 4
BEGIN
  PROMPT 21 17 "Anno "
  FIELD ANNOP
END

STRING F_CMS_CODNUMP 4
BEGIN
  PROMPT 35 17 "Cod. num. "
  FIELD CODNUMP
END

NUMBER F_CMS_NDOCP 7
BEGIN
  PROMPT 54 17 "N. doc. "
  FIELD NDOCP
END

ENDPAGE


PAGE "Pagina 3" -1 -1 64 6

BOOLEAN F_CMS_APPOGGIO
BEGIN
  PROMPT 2 1 "Commessa di appoggio"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 2 ""
END

BOOLEAN F_CMS_CONTRATTO
BEGIN
  PROMPT 2 3 "Commessa con contratto"
  FIELD CONTRATTO
  MESSAGE FALSE CLEAR,F_CMS_ANNOC|CLEAR,F_CMS_NROCONT
  MESSAGE TRUE ENABLE,F_CMS_ANNOC|ENABLE,F_CMS_NROCONT
END

STRING F_CMS_ANNOC 4
BEGIN
  PROMPT 2 4 "Anno contratto "
  FIELD ANNOC
END

STRING F_CMS_NROCONT 15
BEGIN
  PROMPT 25 4 "Numero contratto "
  FIELD NROCONT
END

DATE F_CMS_DATAGARA
BEGIN
  PROMPT 2 6 "Data gara    "
  FIELD DATAGARA
END

CURRENCY F_CMS_IMPORTOB 18
BEGIN
  PROMPT 2 7 "Importo base "
  FIELD IMPORTOB
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@bPercentuali"
END

NUMBER F_CMS_RIBASSO 5 2
BEGIN
  PROMPT 2 9 "Ribasso "
  FIELD RIBASSO
  FLAGS "U"
  NUM_EXPR #F_CMS_RIBASSO<=100
  WARNING "La percentuale deve essere compresa tra 0 e 100"
END

NUMBER F_CMS_AUMENTO 5 2
BEGIN
  PROMPT 20 9 "Aumento "
  FIELD AUMENTO
  FLAGS "U"
  NUM_EXPR #F_CMS_AUMENTO<=100
  WARNING "La percentuale deve essere compresa tra 0 e 100"
END

NUMBER F_CMS_GARANZIA 5 2
BEGIN
  PROMPT 38 9 "A garanzia "
  FIELD GARANZIA
  FLAGS "U"
  NUM_EXPR #F_CMS_GARANZIA<=100
  WARNING "La percentuale deve essere compresa tra 0 e 100"
END

NUMBER F_CMS_ANTICIPO 5 2
BEGIN
  PROMPT 63 9 "Anticipo "
  FIELD ANTICIPO
  FLAGS "U"
  NUM_EXPR #F_CMS_ANTICIPO<=100
  WARNING "La percentuale deve essere compresa tra 0 e 100"
  MESSAGE EMPTY CLEAR,F_CMS_DATAANTIC
  MESSAGE ENABLE,F_CMS_DATAANTIC
END

DATE F_CMS_DATAANTIC
BEGIN
  PROMPT 53 10 "Data anticipo "
  FIELD DATAANTIC
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 12 "@bScadenze"
END

DATE F_CMS_DATAULT
BEGIN
  PROMPT 2 13 "Data ultimazione lavori "
  FIELD DATAULT
END

DATE F_CMS_DATAULTP
BEGIN
  PROMPT 50 13 "Con proroga "
  FIELD DATAULTP
END

DATE F_CMS_DATACOLL
BEGIN
  PROMPT 2 14 "Data collaudo           "
  FIELD DATACOLL
END

DATE F_CMS_DATACOLLP
BEGIN
  PROMPT 50 14 "Con proroga "
  FIELD DATACOLLP
END

DATE F_CMS_DATAGAR
BEGIN
  PROMPT 2 17 "Periodo di gazanzia data "
  FIELD DATAGAR
END

STRING F_CMS_SALMIN 20
BEGIN
  PROMPT 2 18 "Modalità di fatturazione "
  FIELD SALMIN
END

STRING F_CMS_MAG 3
BEGIN
  FLAGS "U"
  PROMPT 2 19 "Magazzino                "
  FIELD CODMAG[1,3]
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_CMS_MAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_MAG CODTAB
  OUTPUT F_CMS_DESCMAG S0
  OUTPUT H_CMS_MAG B0
  MESSAGE EMPTY CLEAR,F_CMS_DEP
  MESSAGE SHOW,F_CMS_DEP
	GROUP 1
  CHECKTYPE NORMAL
END

STRING F_CMS_DESCMAG 70 40
BEGIN
  FLAGS "D"
  PROMPT 35 19 ""
END

BOOL H_CMS_MAG
BEGIN
  FLAGS "HG"
  PROMPT 2 19 "divisione in dep"
  MESSAGE FALSE CLEAR,F_CMS_DEP 
  MESSAGE TRUE ENABLE,F_CMS_DEP
END

STRING F_CMS_DEP 2
BEGIN
  FLAGS "U"
  PROMPT 2 20 "Deposito                 "
  FIELD CODMAG[4,5]
  USE MAG SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_CMS_MAG SELECT 
  INPUT CODTAB[4,5] F_CMS_DEP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_MAG CODTAB[1,3]
  OUTPUT F_CMS_DEP CODTAB[4,5]
  OUTPUT F_CMS_DESCDEP S0
	GROUP 1
  CHECKTYPE NORMAL
END

STRING F_CMS_DESCDEP 70 40
BEGIN
  FLAGS "D"
  PROMPT 35 20 ""
END

ENDPAGE

ENDMASK