campo-sirio/ca/ca0600a.uml

#include "ca0600a.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Commessa" 0 0 0 2

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 22 12 "Commessa in località diversa"
  FIELD LOCDIV
END

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

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

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

STRING F_CMS_LOC 35
BEGIN
  PROMPT 2 15 "Località  "
  FIELD LOC
END

STRING F_CMS_STATO 3
BEGIN
  PROMPT 2 16 "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 16 ""
  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 17 "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 17 "Provincia "
  FLAGS "D"
END

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

STRING F_CMS_DEN 50
BEGIN
  PROMPT 2 18 "          "
  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

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 20 "@bCliente"
END

STRING F_CMS_CODCF 6
BEGIN
  PROMPT 2 21 "Cliente  "
  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
  ADD RUN cg0 -1
  FIELD CODCF
END

STRING F_CMS_CRAGSOC 50
BEGIN
  PROMPT 22 21 ""
  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


ENDPAGE

PAGE "Parametri" -1 -1 64 6

LIST F_CMS_REGIVA 2 14
BEGIN
  PROMPT 2 2 "Regime IVA "
  ITEM "  |Normale" MESSAGE CLEAR,F_CMS_INDETR
  ITEM "NR|Non rilevante" MESSAGE CLEAR,F_CMS_INDETR
  ITEM "ES|Esente" MESSAGE CLEAR,F_CMS_INDETR
  ITEM "NI|Non imponibile" MESSAGE CLEAR,F_CMS_INDETR
  ITEM "NS|Non soggetta" MESSAGE CLEAR,F_CMS_INDETR
  ITEM "FC|Fuori campo" MESSAGE CLEAR,F_CMS_INDETR
  ITEM "PR|Promiscuo" MESSAGE ENABLE,F_CMS_INDETR
  FIELD REGIVA
END

STRING F_CMS_CODATT 5
BEGIN
  PROMPT 35 2 "Codice Attività "
  FLAGS "UZ"
  USE LF_ATTIV
  INPUT CODDITTA F_CMS_CODDITTA SELECT
  INPUT CODATT F_CMS_CODATT
  DISPLAY "Attività" CODATT
  DISPLAY "Prevalente" ATTPREV
  DISPLAY " @48" DESCR
  OUTPUT F_CMS_CODATT CODATT
	CHECKYPE NORMAL
  FIELD CODATT
END

STRING F_CMS_INDETR 1
BEGIN
  PROMPT 62 2 "Indetraibilità "
  USE %DET
  INPUT CODTAB F_CMS_INDETR
  DISPLAY "Codice" CODTAB
  DISPLAY "Tipo" I0
  DISPLAY "Descrizione@50" S0
  OUTPUT  F_CMS_INDETR CODTAB
  CHECTYPE NORMAL
  FIELD INDETR
  FLAGS "U"
END

NUMBER F_CMS_CODDITTA 5
BEGIN
  PROMPT 70 2 ""
  FLAGS "FDH"
END

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

DATE F_CMS_DATAINIZIO
BEGIN
  PROMPT 2 4 "Data inizio "
  FIELD DATAINIZIO
  CHECKTYPE REQUIRED
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 26 6 "Pubblica"
  FIELD PUBBLICA
END

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

BOOLEAN F_CMS_CHIUSA
BEGIN
  PROMPT 68 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 "Tipo 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 44
BEGIN
  PROMPT 30 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 "Tipo 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 44
BEGIN
  PROMPT 30 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 44
BEGIN
  PROMPT 30 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 13 "@bPreventivo"
END

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

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

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

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

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

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

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 18 ""
END

BOOLEAN F_CMS_CONTRATTO
BEGIN
  PROMPT 2 19 "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 20 "Anno contratto "
  FIELD ANNOC
END

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

ENDPAGE


PAGE "Parametri 2" -1 -1 64 6

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bCentro di costo"
END

BOOLEAN F_CMS_APPOGGIO
BEGIN
  PROMPT 2 6 "Commessa di appoggio"
  FIELD APPOGGIO
END

BOOLEAN F_CMS_IMPRODUTTIVA
BEGIN
  PROMPT 42 6 "Non produttiva"
  FIELD IMPRODUTT
END

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

CURRENCY F_CMS_IMPORTOB 18
BEGIN
  PROMPT 30 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

CURRENCY F_CMS_SICUREZZA 15
BEGIN
  PROMPT 2 10 "Sicurezza "
  FIELD SICUREZZA
END

STRING F_CMS_CODIVA 4
BEGIN
  PROMPT 38 10 "IVA "
  USE %IVA
  INPUT CODTAB F_CMS_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_CODIVA CODTAB
  CHECKTYPE NORMAL
  FIELD CODIVA
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

STRING F_CMS_LISPR 4
BEGIN
  FLAGS "UZ"
  PROMPT 2 21 "Listino rilev. preventivo"
  FIELD LISRILPR
  USE &CILIS
  INPUT CODTAB F_CMS_LISPR
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_LISPR CODTAB
  OUTPUT F_CMS_DLISPR S0
  CHECKTYPE NORMAL
END

STRING F_CMS_DLISPR 70 40
BEGIN
  FLAGS "D"
  PROMPT 35 21 ""
END

STRING F_CMS_LISCN 4
BEGIN
  FLAGS "UZ"
  PROMPT 2 22 "Listino rilev. consuntivo"
  FIELD LISRILCN
  USE &CILIS
  INPUT CODTAB F_CMS_LISCN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_LISCN CODTAB
  OUTPUT F_CMS_DLISCN S0
  CHECKTYPE NORMAL
END

STRING F_CMS_DLISCN 70 40
BEGIN
  FLAGS "D"
  PROMPT 35 22 ""
END

ENDPAGE

PAGE "Default" 0 0 0 2

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bConto analitico"
END

STRING F_CMS_CONTSEP 6
BEGIN
  PROMPT 1 8 "Contab. separata "
  USE &NPENT
  INPUT CODTAB F_CMS_CONTSEP
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_CONTSEP CODTAB
  OUTPUT F_CMS_DESCONTSEP S0
  CHECKTYPE NORMAL
  FIELD CONTSEP
END

STRING F_CMS_DESCONTSEP 50 48
BEGIN
  PROMPT 27 8 ""
  USE &NPENT KEY 2
  INPUT S0 F_CMS_DESCONTSEP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@6" CODTAB
  COPY OUTPUT F_CMS_CONTSEP
  CHECKTYPE NORMAL
END

ENDPAGE

PAGE "Clienti/Fornitori" 0 0 0 2

GROUPBOX DLG_NULL 0 10
BEGIN
  PROMPT 0 0 "@bFinanziatori"
END

SPREADSHEET F_CMS_FINAN 0 8
BEGIN
  PROMPT 0 1 "@bFinanziatori"
  ITEM "Codice"
  ITEM "Ragione Sociale@50"
  ITEM "Riga banca"
  ITEM "IBAN@27"
  ITEM "CUP@22"
  ITEM "CIG@10"
  ITEM "% finanziamento"
  ITEM "Settore/Dipartimento/Servizio@50"
END

GROUPBOX DLG_NULL 0 10
BEGIN
  PROMPT 0 11 "@bFornitori"
END

SPREADSHEET F_CMS_FORN 0 8
BEGIN
  PROMPT 1 12 "@bFornitori"
  ITEM "Codice"
  ITEM "Ragione Sociale@50"
  ITEM "Riga banca"
  ITEM "IBAN@27"
  ITEM "CUP@22"
  ITEM "CIG@10"
END

ENDPAGE
ENDMASK

TOOLBAR "topbar" 0 0 0 2

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

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

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

ENDPAGE

PAGE "Finanziatori" 0 0 0 2

STRING F_CMS_CODFIN 6
BEGIN
  PROMPT 2 1 "Cliente  "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CMS_CODFIN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  OUTPUT F_CMS_CODFIN CODCF
  OUTPUT F_CMS_RAGFIN RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

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

NUMBER F_CMS_NRIGABANFIN 3
BEGIN
  PROMPT 2 3 "Conto corr. "
  USE LF_CFBAN
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF 
  INPUT TIPOCF "C"
  INPUT CODCF F_CMS_CODFIN	SELECT
  INPUT TIPOBAN "V"
  INPUT NRIGA F_CMS_NRIGABANFIN
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "IBAN" IBAN
  OUTPUT F_CMS_NRIGABANFIN NRIGA
  OUTPUT F_CMS_IBANFIN IBAN
  CHECKTYPE NORMAL
END

STRING F_CMS_IBANFIN 27
BEGIN
  PROMPT 25 3 "IBAN " 
  FLAGS "D"
END

STRING F_CMS_CUPFIN 15
BEGIN
  PROMPT 2 5 "CUP      "
  USE %CUP
  INPUT CODTAB F_CMS_CUPFIN
  DISPLAY "Codice@15" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_CUPFIN CODTAB
  OUTPUT F_CMS_DCUPFIN S0
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CMS_DCUPFIN 50 30
BEGIN
  PROMPT 40 5 ""
  USE %CUP KEY 2
  INPUT S0 F_CMS_DCUPFIN
  DISPLAY "Ragione Sociale@50" S0
  DISPLAY "Codice@15" CODTAB
  COPY OUTPUT F_CMS_CUPFIN
  GROUP 1
END

STRING F_CMS_CIGFIN 10
BEGIN
  PROMPT 2 6 "CIG      "
  USE %CIG
  INPUT CODTAB F_CMS_CIGFIN
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice gara" S1
  OUTPUT F_CMS_CIGFIN CODTAB
  OUTPUT F_CMS_DCIGFIN S0
  OUTPUT F_CMS_GARAFIN S1
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CMS_DCIGFIN 50 30
BEGIN
  PROMPT 40 6 ""
  USE %CIG KEY 2
  INPUT S0 F_CMS_DCIGFIN
  DISPLAY "Ragione Sociale@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CMS_CIGFIN
  GROUP 1
END

STRING F_CMS_GARAFIN 10
BEGIN
  PROMPT 8 7 "Codice gara "
  FLAGS "D"
END

NUMBER F_CMS_PERCFINFIN 6 2
BEGIN
  PROMPT 8 8 "% di finanz."
END

STRING F_CMS_DESCRFIN 50
BEGIN
  PROMPT 8 9 "Descrizione "
END

ENDPAGE

ENDMASK

TOOLBAR "topbar" 0 0 0 2

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

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

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

ENDPAGE

PAGE "Fornitori" 0 0 0 2

STRING F_CMS_CODFOR 6
BEGIN
  PROMPT 2 1 "Fornitore"
  FIELD CODCF
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_CMS_CODFOR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  OUTPUT F_CMS_CODFIN CODCF
  OUTPUT F_CMS_RAGFIN RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END

STRING F_CMS_RAGFOR 50
BEGIN
  PROMPT 20 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_CMS_RAGFOR
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  COPY OUTPUT F_CMS_CODFOR
END

NUMBER F_CMS_NRIGABANFOR 3
BEGIN
  PROMPT 2 3 "Conto corr. "
  USE LF_CFBAN 
  JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF 
  INPUT TIPOCF "F"
  INPUT CODCF F_CMS_CODFOR	SELECT
  INPUT TIPOBAN "V"
  INPUT NRIGA F_CMS_NRIGABANFOR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "IBAN" IBAN
  OUTPUT F_CMS_NRIGABANFOR NRIGA
  OUTPUT F_CMS_IBANFOR IBAN
  CHECKTYPE NORMAL
END

STRING F_CMS_IBANFOR 27
BEGIN
	PROMPT 2 25 "IBAN " 
	FLAGS "D"
END

STRING F_CMS_CUPFOR 15
BEGIN
  PROMPT 2 5 "CUP      "
  USE %CUP
  INPUT CODTAB F_CMS_CUPFOR
  DISPLAY "Codice@15" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CMS_CUPFOR CODTAB
  OUTPUT F_CMS_DCUPFOR S0
  CHECKTYPE NORMAL
END

STRING F_CMS_DCUPFOR 50 30
BEGIN
  PROMPT 40 5 ""
  USE %CUP KEY 2
  INPUT S0 F_CMS_DCUPFOR
  DISPLAY "Ragione Sociale@50" S0
  DISPLAY "Codice@15" CODTAB
  COPY OUTPUT F_CMS_CUPFOR
END

STRING F_CMS_CIGFOR 10
BEGIN
  PROMPT 2 6 "CIG      "
  USE %CIG
  INPUT CODTAB F_CMS_CIGFOR
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice gara" S1
  OUTPUT F_CMS_CIGFOR CODTAB
  OUTPUT F_CMS_DCIGFOR S0
  OUTPUT F_CMS_GARAFOR S1
  CHECKTYPE NORMAL
END

STRING F_CMS_DCIGFOR 50 30
BEGIN
  PROMPT 40 6 ""
  USE %CIG KEY 2
  INPUT S0 F_CMS_DCIGFOR
  DISPLAY "Ragione Sociale@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_CMS_CIGFOR
END

STRING F_CMS_GARAFOR 10
BEGIN
  PROMPT 8 7 "Codice gara "
  FLAGS "D"
END

ENDPAGE

ENDMASK