campo-sirio/co/co0600a.uml

#include "co0600a.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Anagrafica soci" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 ""
END

NUMBER F_CODSOCIO 6
BEGIN
  PROMPT 2 2 "Cod. socio "
  FIELD CODCF
  KEY 1
  USE LF_SOCICOOP KEY 1
  JOIN LF_CLIFO TO LF_SOCICOOP INTO TIPOCF=='F' CODCF==CODCF 
  INPUT CODCF F_CODSOCIO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" 20->RAGSOC
  DISPLAY "Codice fiscale@16" 20->COFI
  OUTPUT F_CODSOCIO 20->CODCF
  OUTPUT F_RAGSOC 20->RAGSOC
  CHECKTYPE REQUIRED
  GROUP 1
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Fornitore  "
  FIELD CODCF
  KEY 1
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "F" SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  OUTPUT F_CODCF CODCF
  OUTPUT F_CODSOCIO CODCF
  OUTPUT F_RAGSOC 20->RAGSOC
  OUTPUT F_COFISOCIO 20->COFI
  OUTPUT F_CODSOCIO CODCF
  CHECKTYPE REQUIRED
	FLAGS "G"
  ADD RUN cg0 -1 F
  GROUP 2
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 2  ""
  USE LF_CLIFO KEY 2
	KEY 2
  INPUT TIPOCF "F" SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice fiscale@16" COFI
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 F
END

STRING F_COFISOCIO 16
BEGIN
  PROMPT 2 3 "Cod. fisc. "
  FLAGS "D"
END

DATE F_DATANASC
BEGIN
  PROMPT 2 4 "Nato il    "
  FIELD DATANASC
END

STRING F_COMNASC 4
BEGIN
  PROMPT 25 4 "a "
  FIELD COMNASC
  FLAGS "U"
  USE LF_COMUNI KEY 1
  INPUT COM F_COMNASC
  DISPLAY "Codice" COM
  DISPLAY "Comune@50" DENCOM
  OUTPUT F_COMNASC COM
  OUTPUT F_D_COMNASC DENCOM
  OUTPUT F_P_COMNASC PROVCOM
  HELP "Codice del comune di nascita"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD RUN ba4 -0
END

STRING F_D_COMNASC 50 30
BEGIN
  PROMPT 34 4 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_D_COMNASC
  DISPLAY "Comune@50" DENCOM
  DISPLAY "Codice" COM
  COPY OUTPUT F_COMNASC
  HELP "Nome del comune di nascita"
  ADD RUN ba4 -0
END

STRING F_P_COMNASC 5
BEGIN
  PROMPT 69 4 "Pr."
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 7
BEGIN         
  PROMPT 1 6 "Dati rapporto cooperativa"
END

DATE F_DATAASS
BEGIN
  PROMPT 2 7 "Data assunzione      "
  FIELD DATAASS
END

DATE F_DATAREC
BEGIN
  PROMPT 42 7 "Data recessione "
  FIELD DATAREC
END

NUMBER F_NUMQUOTE 5
BEGIN
  PROMPT 2 8 "Num. quote o azioni  "
  FIELD NUMQUOTE
END

NUMBER F_VALQUOTE 10 2
BEGIN
  PROMPT 42 8 "Valore          "
  FIELD VALQUOTE
END

STRING F_LIBLAVORO 10
BEGIN
  PROMPT 2 9 "Num. libretto lavoro "
  FIELD LIBLAVORO
END

DATE F_DATAEMISS
BEGIN
  PROMPT 42 9 "Data emissione  "
  FIELD DATAEMISS
END

STRING F_COMEMISS 4
BEGIN
  PROMPT 2 10 "Comune di emissione  "
  FIELD COMEMISS
  FLAGS "U"
  USE LF_COMUNI KEY 1
  INPUT COM F_COMEMISS
  DISPLAY "Codice" COM
  DISPLAY "Comune@50" DENCOM
  OUTPUT F_COMEMISS COM
  OUTPUT F_D_COMEMISS DENCOM
  OUTPUT F_P_COMEMISS PROVCOM
  HELP "Codice del comune di emissione"
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD RUN ba4 -0
END

STRING F_D_COMEMISS 50 35
BEGIN
  PROMPT 30 10 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_D_COMEMISS
  DISPLAY "Comune@50" DENCOM
  DISPLAY "Codice" COM
  COPY OUTPUT F_COMEMISS
  HELP "Nome del comune del recapito"
  ADD RUN ba4 -0
END

STRING F_P_COMEMISS 5
BEGIN
  PROMPT 69 10 "Pr."
  FLAGS "D"
END

DATE F_DATADEL
BEGIN
  PROMPT 2 11 "Data delibera        "
  FIELD DATADEL
END

GROUPBOX DLG_NULL 78 5
BEGIN         
  PROMPT 1 13 "Imbarcazione principale"
END

STRING F_NOMEBARCA 25
BEGIN
  PROMPT 2 14 "Nome barca       " 
  FIELD NOMEBARCA
END

LISTBOX F_TIPOPROP 1 10
BEGIN
  PROMPT 45 14 "Tipo propulsione "
  FIELD TIPOPROP
  FLAGS "U"
  ITEM "0|Motore"
  ITEM "1|Vela"
END

LISTBOX F_TIPOCOMAPP 1 15
BEGIN
  PROMPT 2 15 "Tipo comm. app.  "
  FIELD TIPOCOMAPP
  FLAGS "U"
  ITEM "0|Acque interne"
  ITEM "1|Acque marittime"
END

STRING F_LICENZA 10
BEGIN
  PROMPT 45 15 "Licenza          "
  FIELD LICENZA
END

DATE F_DATALIC
BEGIN
  PROMPT 2 16 "Data rilascio    "
  FIELD DATALIC
END

DATE F_DATASCALIC
BEGIN
  PROMPT 45 16 "Data scadenza    "
  FIELD DATASCALIC
	FLAGS 'D'
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 18 "Compagnie di appartenenza"
END

NUMBER F_COMPAGNIA1 4
BEGIN
  PROMPT 2 19 "1 "
  FLAGS "Z"
  FIELD COMPAGNIA1
  USE %CMP
  INPUT CODTAB F_COMPAGNIA1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COMPAGNIA1 CODTAB
  OUTPUT F_D_COMPAGNIA1 S0
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_D_COMPAGNIA1 50 40
BEGIN
  PROMPT 13 19 ""
  USE %CMP KEY 2
  INPUT S0 F_D_COMPAGNIA1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_COMPAGNIA1 CODTAB
  OUTPUT F_D_COMPAGNIA1 S0
  CHECKTYPE NORMAL
END

NUMBER F_QUOTA1 5 1
BEGIN
  PROMPT 62 19 "Valore "
  FIELD QUOTA1
END

NUMBER F_COMPAGNIA2 4
BEGIN
  PROMPT 2 20 "2 "
  FLAGS "Z"
  FIELD COMPAGNIA2
  USE %CMP
  INPUT CODTAB F_COMPAGNIA2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COMPAGNIA2 CODTAB
  OUTPUT F_D_COMPAGNIA2 S0
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_D_COMPAGNIA2 50 40
BEGIN
  PROMPT 13 20 ""
  USE %CMP KEY 2
  INPUT S0 F_D_COMPAGNIA2
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_COMPAGNIA2 CODTAB
  OUTPUT F_D_COMPAGNIA2 S0
  CHECKTYPE NORMAL
END

NUMBER F_QUOTA2 5 1
BEGIN
  PROMPT 62 20 "Valore "
  FIELD QUOTA2
END

NUMBER F_COMPAGNIA3 4
BEGIN
  PROMPT 2 21 "3 "
  FLAGS "Z"
  FIELD COMPAGNIA3
  USE %CMP
  INPUT CODTAB F_COMPAGNIA3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COMPAGNIA3 CODTAB
  OUTPUT F_D_COMPAGNIA3 S0
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_D_COMPAGNIA3 50 40
BEGIN
  PROMPT 13 21 ""
  USE %CMP KEY 2
  INPUT S0 F_D_COMPAGNIA3
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_COMPAGNIA3 CODTAB
  OUTPUT F_D_COMPAGNIA3 S0
  CHECKTYPE NORMAL
END

NUMBER F_QUOTA3 5 1
BEGIN
  PROMPT 62 21 "Valore "
  FIELD QUOTA3
END

ENDPAGE

PAGE "Imbarcazioni" 0 -1 0 20

SPREADSHEET F_IMBARCAZIONI 
BEGIN
   PROMPT 2 5 "Imbarcazioni"
   FLAGS "A"
   USE LF_IMBARCAZIONI KEY PROGIMB
   INPUT CODCF F_CODCF
   ITEM "Tipo comm.app."
   ITEM "Targa@10"
   ITEM "Motobarca@30"
   ITEM "Data iscr."
   ITEM "Lunghezza"
   ITEM "Larghezza"
   ITEM "Altezza"
   ITEM "St.lorda"
   ITEM "Scad. coll."
   ITEM "Scad. spec."
   ITEM "St.netta"
   ITEM "GT@7"
   ITEM "HP@7"
   ITEM "KW@7"
   ITEM "R.I.P.@10"
   ITEM "Scad.lic.nav."
   ITEM "Scad.ruol.equip."
   ITEM "Nr. ruol. equip."
   ITEM "Scad.lic.pesca"
   ITEM "Scad.pag.lic.pesca"
END

ENDPAGE

PAGE "Progressivi" 0 -1 0 20

NUMBER F_ANNO 4
BEGIN 
	PROMPT 2 5 "Anno "
	FLAGS "A"
END

SPREADSHEET F_PROGRESSIVI 78 13
BEGIN
   PROMPT 2 7 "Progressivi annuali"
   ITEM "Mese@10"
   ITEM "Conferimenti@18"
   ITEM "IVA@18"
   ITEM "Ritenute@18"
   ITEM "Acconto 8%@18"
END

ENDPAGE
ENDMASK

PAGE "Imbarcazione" -1 -1 75 16

LISTBOX F_I_TIPOCOMAPP 1 15
BEGIN
  PROMPT 2 2 "Tipo comm. app.      "
  FIELD 162->TIPOCOMAPP
  FLAGS "U"
  ITEM "0|Acque interne"
  MESSAGE ENABLE,1@|CLEAR,2@
  ITEM "1|Acque marittime"
  MESSAGE ENABLE,2@|CLEAR,1@
END

STRING F_I_TARGA 10
BEGIN
  PROMPT 2 3 "Numero iscr. (targa) "
  FIELD 162->TARGA
END

DATA F_I_DATAISC
BEGIN
  PROMPT 35 3 "Data iscr. "
  FIELD 162->DATAISC
  GROUP 1
END

STRING F_I_MOTOBARCA 30
BEGIN
  PROMPT 2 4 "Nome motobarca       "
  FIELD 162->MOTOBARCA
END

NUMBER F_I_LUNGHEZZA 6 2
BEGIN
  PROMPT 2 5 "Lunghezza            "
  FIELD 162->LUNGHEZZA
END

NUMBER F_I_LARGHEZZA 6 2
BEGIN
  PROMPT 35 5 "Larghezza "
  FIELD 162->LARGHEZZA
END

NUBER F_I_ALTEZZA 6 2
BEGIN
  PROMPT 58 5 "Altezza "
  FIELD 162->ALTEZZA
END

NUBER F_I_STLORDA 7 2
BEGIN
  PROMPT 2 6 "Stazza lorda         "
  FIELD 162->STLORDA
END

DATE F_I_SCADCOLL
BEGIN
  PROMPT 2 7 "Scad. collaudo       "
  FIELD 162->SCADCOLL
END

DATE F_I_SCADSPEC
BEGIN
  PROMPT 35 7 "Scad. speciale "
  FIELD 162->SCADSPEC
  GROUP 1
END

NUBER F_I_STNETTA 7 2
BEGIN
  PROMPT 2 8 "Stazza netta         "
  FIELD 162->STNETTA
  GROUP 2
END

NUBER F_I_GT 7 2
BEGIN
  PROMPT 35 8 "GT "
  FIELD 162->GT
  GROUP 2
END

NUBER F_I_HP 7 2
BEGIN
  PROMPT 2 9 "HP                   "
  FIELD 162->HP
  GROUP 2
END

NUBER F_I_KW 7 2
BEGIN
  PROMPT 35 9 "KW "
  FIELD 162->KW
  GROUP 2
END

STRING F_I_RIP 30
BEGIN
  PROMPT 2 10 "R.I.P.              "
  FIELD 162->RIP
  GROUP 2
END

DATE F_I_SCADLICNAV
BEGIN
  PROMPT 2 12 "Scad. licenza navigazione "
  FIELD 162->SCADLICNAV
  GROUP 2
END

DATE F_I_SCADRUOLEQ
BEGIN
  PROMPT 2 13 "Scad. ruolino equip."
  FIELD 162->SCADRUOLEQ
  GROUP 2
END

STRING F_I_NRRUOLEQUI 15
BEGIN
  PROMPT 35 13 "Nr. ruolino equip."
  FIELD 162->NRRUOLEQUI
  GROUP 2
END

DATE F_I_SCADLICPES
BEGIN
  PROMPT 2 14 "Scad. licenza pesca "
  FIELD 162->SCADLICPES
  GROUP 2
END

DATE F_I_SCADPAGLIC
BEGIN
  PROMPT 35 14 "Scad. pag. lic. pesca "
  FIELD 162->SCADPAGLIC
  GROUP 2
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
   PROMPT -33 -1 ""
   MESSAGE EXIT, K_DEL
END

ENDPAGE

ENDMASK

PAGE "Progressivi" -1 -1 75 12

STRINGA F_MESE 10
BEGIN
	PROMPT 2 2 "Mese         "
	FLAGS "D"
END

CURRENCY F_CONF
BEGIN
  PROMPT 2 4 "Conferimenti "
END

CURRENCY F_IVA
BEGIN
 PROMPT 2 6 "IVA          "
END

CURRENCY F_RIT
BEGIN
  PROMPT 2 8 "Ritenute     "
END

CURRENCY F_ACC8
BEGIN
  PROMPT 2 8 "Acconto 8%   "
END

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

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END

ENDPAGE

ENDMASK