campo-sirio/src/gv/gv0500b.uml

#include "gv0500b.h"

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

TOOLBAR "saldobar" 0 -1 0 0

CURRENCY F_SALDO 15
BEGIN
  PROMPT 49 0 "@bSALDO FINALE "
  FLAGS "D"
END

ENDPAGE

PAGE "Intestazione" 0 0 0 -3

GROUPBOX -1 78 5
BEGIN
  PROMPT 1 0 "AGENZIA DELLE ENTRATE"
END

TEXT -1
BEGIN
  PROMPT 2 1 "@bMODELLO DI PAGAMENTO"
END

TEXT -1
BEGIN
  PROMPT 2 2 "@bUNIFICATO"
END

NUMBER F_DISTINTA 6
BEGIN
  PROMPT 16 2 ""
  FLAGS "D"
  FIELD F24
  KEY 2
END

NUMBER F_ABI 5
BEGIN
  PROMPT 24 1 ""
  FLAGS "Z" 
  FIELD ABI
  CHECKTYPE REQUIRED
END

STRING F_DESABI 50 44
BEGIN
  PROMPT 32 1 ""
  FLAGS "D"
END

NUMBER F_CAB 5
BEGIN
  PROMPT 24 2 ""
  USE BNP
  JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
  JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Descrizione@50" 884@->S0
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_DESABI 883@->S0
  OUTPUT F_DESCAB 884@->S0
  CHECKTYPE REQUIRED
  FLAGS "Z" 
  FIELD CAB
END

STRING F_DESCAB 50
BEGIN
  PROMPT 32 2 ""
  USE BNP KEY 2
  JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
  JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
  INPUT S0 F_DESCAB
  DISPLAY "Descrizione@50" 884@->S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT F_CAB
  CHECKTYPE SEARCH
END

DATE F_DATAVERS
BEGIN
	PROMPT 47 3 "Data versamento "
	FIELD DATAVERS
  FLAGS "D"
END

GROUPBOX -1 78 6
BEGIN
  PROMPT 1 5 "CONTRIBUENTE"
END

LIST F_TIPOINTEST 1 10
BEGIN
  PROMPT 2 6 "Intestatario     "
  ITEM "D|Ditta"
  ITEM "C|Cliente"
  ITEM "F|Fisico"
  ITEM "G|Giuridico"
  FLAGS "D"
  FIELD TIPOINTEST
END

NUMBER F_PERSON 6
BEGIN
  PROMPT 34 6 ""
  FIELD INTEST
  FLAGS "D"
END

STRING F_COFI 16
BEGIN
  PROMPT 46 6 "Codice fiscale "
  FLAGS "D"
END

STRING F_RAGSOC 50 58
BEGIN
  PROMPT 2 7 "Ragione sociale  "
  FLAGS "D"
END

LIST F_TIPOINTEST2 1 10
BEGIN
  PROMPT 2 8 "Cobbligato       "
  ITEM " |Tutti"
  ITEM "F|Fisico"
  ITEM "G|Giuridico"
	FIELD TIPOCOOBB
END

NUMBER F_PERSON2 6
BEGIN
  PROMPT 34 8 ""
  USE LF_ANAG
  INPUT TIPOA F_TIPOINTEST2
  INPUT CODANAGR F_PERSON2
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_PERSON2 CODANAGR
  OUTPUT F_RAGSOC2 RAGSOC
  CHECKTYPE NORMAL
	FIELD COOBB
  ADD RUN ba4 -1 #F_TIPOINTEST2
END

STRING F_CODID 2 
BEGIN
	PROMPT 43 8 "Codice identificativo"
  SHEET "Codice|Descrizione@60"
  INPUT F_CODID
  OUTPUT F_CODID
	ITEM "  | "
	ITEM "02|Genitore/Tutore/Ammin.di sostegno"
	ITEM "03|Curatore fallimentare"
	ITEM "07|Erede"
	ITEM "08|Defunto"
	ITEM "50|Obbligato solidale"
	ITEM "51|Intervento sostitutivo"
	ITEM "60|Garante/Terzo datore"
	ITEM "61|Soggetto aderente al consolidato"
	ITEM "62|Soggetto diverso dal fruitore del credito"
	ITEM "63|Controparte"
	ITEM "70|Impresa assicur.estera fisc.rappresentata"
	ITEM "71|Soggetto che ha proposto l'atto intrduttivo del giudizio"
	ITEM "72|Rapresentante fiscale"
	ITEM "73|Contribuente"
	FIELD CODID
END

STRING F_RAGSOC2 50 58
BEGIN
  PROMPT 2 9 "Ragione sociale  "
  FLAGS "D"
END

STRING F_IDOP 16
BEGIN
  PROMPT 2 12 "Ident.operazione"
  FIELD IDENTOP
END

BUTTON F_STAMPA 10 2
BEGIN
	PROMPT -12 14 "~Stampa"
	PICTURE BMP_PRINT
	FLAGS "D"
END

BUTTON F_CONT 11 2
BEGIN
	PROMPT -22 14 "~Contabilizza"
	FLAGS "D"
END

ENDPAGE

PAGE "Erario" -1 -1 80 7

TEXT -1
BEGIN
  PROMPT 1 4 "@bSEZIONE ERARIO"
END

SPREADSHEET F_ERARIO 0 8
BEGIN
  PROMPT 2 7 "Erario"
  ITEM "cod.\ntrib.@4"
  ITEM "rateazione\nreg./prov.@10"
  ITEM "anno\nrif."
  ITEM "importi a debito\nversati@18"
  ITEM "importi a credito\ncompensati@18"
  ITEM "Interessi IVA\nTrimestrali@18"
  ITEM "riga@7"
  ITEM "descrizione@50"
  ITEM "Data scadenza"

END

CURRENCY F_ERARIO_A 15
BEGIN
  PROMPT 2 16 "@b(A) "
  FLAGS "D"
END

CURRENCY F_ERARIO_B 15
BEGIN
  PROMPT 26 16 "@b(B) "
  FLAGS "D"
END

CURRENCY F_ERARIO_AB 15
BEGIN
  PROMPT 50 16 "@bSaldo (A-B) "
  FLAGS "D"
END

ENDPAGE

PAGE "INPS" -1 -1 0 0

TEXT -1 
BEGIN
  PROMPT 1 4 "@bSEZIONE INPS"
END

SPREADSHEET F_INPS 0 8
BEGIN
  PROMPT 2 7 "INPS"
  ITEM "codice\nsede"
  ITEM "caus.\ncontr.@5"
  ITEM "matricola INPS\ncodice INPS"
  ITEM "da mm/aaaa"
  ITEM "a mm/aaaa"
  ITEM "importi\na debito@15"
  ITEM "importi\na credito@15"
  ITEM "riga@7"
  ITEM "descrizione@50"
  ITEM "Data scadenza"
END

CURRENCY F_INPS_C 15
BEGIN
  PROMPT 2 16 "@b(C) "
  FLAGS "D"
END

CURRENCY F_INPS_D 15
BEGIN
  PROMPT 26 16 "@b(D) "
  FLAGS "D"
END

CURRENCY F_INPS_CD 15
BEGIN
  PROMPT 50 16 "@bSaldo (C-D) "
  FLAGS "D"
END

ENDPAGE

PAGE "Regioni" -1 -1 0 0

TEXT -1 
BEGIN
  PROMPT 1 4 "@bSEZIONE Regioni"
END

SPREADSHEET F_REGIONI 0 8
BEGIN
  PROMPT 2 7 "Regioni"
  ITEM "Regione@10"
  ITEM "cod.\ntrib.@4"
  ITEM "rateazione@10"
  ITEM "anno\nrif."
  ITEM "importi a debito\nversati@18"
  ITEM "importi a credito\ncompensati@18"
	ITEM "riga@7"
  ITEM "descrizione@50"
  ITEM "Data scadenza"

END

CURRENCY F_REGIONI_E 15
BEGIN
  PROMPT 2 16 "@b(E) "
  FLAGS "D"
END

CURRENCY F_REGIONI_F 15
BEGIN
  PROMPT 26 16 "@b(F) "
  FLAGS "D"
END

CURRENCY F_REGIONI_EF 15
BEGIN
  PROMPT 50 16 "@bSaldo (E-F) "
  FLAGS "D"
END

ENDPAGE

PAGE "ICI/Comuni" -1 -1 0 0

TEXT -1 
BEGIN
  PROMPT 1 4 "@bSEZIONE ICI"
END

SPREADSHEET F_ICI 0 8
BEGIN
  PROMPT 2 7 "ICI ed altri tributi locali"
  ITEM "cod.\nente\ncom.@4"
  ITEM "Ravved."
	ITEM "Immob.\nvariati"
	ITEM "Acconto"
	ITEM "Saldo"
	ITEM "Numero\nImmobili"
  ITEM "cod.\ntrib.@4"
  ITEM "rateazione@10"
  ITEM "anno\nrif."
  ITEM "importi a debito\nversati@18"
  ITEM "importi a credito\ncompensati@18"
	ITEM "riga@7"
  ITEM "descrizione@50"
  ITEM "Data scadenza"

END

CURRENCY F_ICI_G 15
BEGIN
  PROMPT 2 16 "@b(G) "
  FLAGS "D"
END

CURRENCY F_ICI_H 15
BEGIN
  PROMPT 26 16 "@b(H) "
  FLAGS "D"
END

CURRENCY F_ICI_GH 15
BEGIN
  PROMPT 50 16 "@bSaldo (G-H) "
  FLAGS "D"
END

ENDPAGE

PAGE "INAIL" -1 -1 0 0

TEXT -1 
BEGIN
  PROMPT 1 4 "@bSEZIONE INAIL"
END

SPREADSHEET F_INAIL 0 8
BEGIN
  PROMPT 2 7 "INAIL"
  ITEM "cod.\ntrib.@4"
	ITEM "codice\nsede"
  ITEM "Posizione\nassicurativa"
  ITEM "codice\ncontr."
  ITEM "Numero di\nriferimento"
  ITEM "Causale"
  ITEM "importi\na debito@15"
  ITEM "importi\na credito@15"
  ITEM "riga@7"
  ITEM "descrizione@50"
  ITEM "Data scadenza"
END

CURRENCY F_INAIL_I 15
BEGIN
  PROMPT 2 16 "@b(I) "
  FLAGS "D"
END

CURRENCY F_INAIL_L 15
BEGIN
  PROMPT 26 16 "@b(L) "
  FLAGS "D"
END

CURRENCY F_INAIL_IL 15
BEGIN
  PROMPT 50 16 "@bSaldo (I-L) "
  FLAGS "D"
END

ENDPAGE

ENDMASK

PAGE "Intestazione" -1 -1 80 7

TEXT -1
BEGIN
  PROMPT 1 0 "codice"
END

TEXT -1
BEGIN
  PROMPT 1 1 "tributo"
END

STRING S_CODTRIB 4
BEGIN
  PROMPT 1 2 ""
  USE %TRB SELECT S6=="E"
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT 101 CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD TRIBUTO
END 

TEXT -1
BEGIN
  PROMPT 9 0 "rateazione"
END

TEXT -1
BEGIN
  PROMPT 9 1 "reg./prov."
END

STRING S_RATEAZ 8
BEGIN
  PROMPT 9 2 ""
	FIELD RATEAZIONE
END 

TEXT -1
BEGIN
  PROMPT 19 1 "anno"
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 19 2 ""
  FIELD ANNO
END 

TEXT -1
BEGIN
  PROMPT 25 0 "importi a debito"
END

TEXT -1
BEGIN
  PROMPT 25 1 "versati"
END

CURRENCY S_IMPDEB 15
BEGIN
  PROMPT 25 2 ""
  FIELD IMPORTODEB
END

TEXT -1
BEGIN
  PROMPT 45 0 "importi a credito"
END

TEXT -1
BEGIN
  PROMPT 45 1 "compensati"
END

CURRENCY S_IMPCRED 15
BEGIN
  PROMPT 45 2 ""
  FIELD IMPORTOCRE
END

TEXT -1
BEGIN
  PROMPT 62 0 "Interessi"
END

TEXT -1
BEGIN
  PROMPT 62 1 "IVA trim."
END

CURRENCY S_INTERESSI 15
BEGIN
  PROMPT 62 2 ""
  FIELD INTIVATRIM
END

NUMBER S_RIGA 7
BEGIN
  PROMPT 1 4 "riga "
  FLAGS "D"
  FIELD PROGR
END

STRING S_DESCR 50
BEGIN
  PROMPT 15 4 ""
  FIELD DESCR
END

DATE S_DATASCAD
BEGIN
  PROMPT 1 5 "Scad."
  FIELD DATASCAD
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -14 -1 ""
  PICTURE BMP_LINK
END

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

#include <cancelbar.h>

ENDPAGE

ENDMASK

PAGE "INPS" -1 -1 80 10

TEXT -1
BEGIN
  PROMPT 1 0 "codice"
END

TEXT -1
BEGIN
  PROMPT 1 1 "sede"
END

STRING S_SEDE 4
BEGIN
  PROMPT 1 2 ""
  FIELD SEDE
END 

TEXT -1
BEGIN
  PROMPT 10 0 "causale"
END

TEXT -1
BEGIN
  PROMPT 10 1 "contr."
END

STRING S_CODTRIB_I 4
BEGIN
  PROMPT 10 2 ""
  USE %TRB SELECT S6=="I"
  INPUT CODTAB 102
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT 102 CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD TRIBUTO
END 

TEXT -1
BEGIN
  PROMPT 21 0 "matricola INPS"
END

TEXT -1
BEGIN
  PROMPT 21 1 "codice INPS"
END

STRING S_MATRICOLA 17
BEGIN
  PROMPT 19 2 ""
  FIELD MATRICOLA
END 

TEXT -1
BEGIN
  PROMPT 42 0 "periodo di riferimento"
END

TEXT -1
BEGIN
  PROMPT 40 1 "da mm/aaaa"
END

NUMBER S_PERRIFDA 6
BEGIN
  PROMPT 40 2 ""
  FIELD PERIODODA
END 

TEXT -1
BEGIN
  PROMPT 50 1 "a mm/aaaa"
END

NUMBER S_PERRIFA 6
BEGIN
  PROMPT 50 2 ""
  FIELD PERIODOA
END 

TEXT -1
BEGIN
  PROMPT 1 3 "importi a debito"
END

TEXT -1
BEGIN
  PROMPT 1 4 "versati"
END

CURRENCY S_IMPDEB_I 15
BEGIN
  PROMPT 1 5 ""
  FIELD IMPORTODEB
END

TEXT -1
BEGIN
  PROMPT 18 3 "importi a credito"
END

TEXT -1
BEGIN
  PROMPT 18 4 "compensati"
END

CURRENCY S_IMPCRED_I 15
BEGIN
  PROMPT 18 5 ""
  FIELD IMPORTOCRE
END

NUMBER S_RIGA_I 7
BEGIN
  PROMPT 1 7 "riga "
  FIELD PROGR
  FLAGS "D"
END

STRING S_DESCR_I 50
BEGIN
  PROMPT 15 7 ""
  FIELD DESCR
END

DATE S_DATASCAD_I
BEGIN
  PROMPT 1 8 "Scad."
  FIELD DATASCAD
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -14 -1 ""
  PICTURE BMP_LINK
END

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

#include <cancelbar.h>

ENDPAGE

ENDMASK

PAGE "Regioni" -1 -1 80 7

TEXT -1
BEGIN
  PROMPT 1 1 "Regione"
END

STRING S_CODREG 2
BEGIN
  PROMPT 1 2 ""
  FLAGS "RZ"
  KEY 1
  USE %RGI
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT 101 CODTAB
  CHECKTYPE REQUIRED
	FIELD CODREG
END 

TEXT -1
BEGIN
  PROMPT 9 0 "codice"
END

TEXT -1
BEGIN
  PROMPT 9 1 "tributo"
END

STRING S_CODTRIB_R 4
BEGIN
  PROMPT 9 2 ""
  USE %TRB SELECT S6=="R"
  INPUT CODTAB 102
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT 102 CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD TRIBUTO
END 

TEXT -1
BEGIN
  PROMPT 17 1 "rateazione"
END

STRING S_RATEAZ_R 8
BEGIN
  PROMPT 17 2 ""
	FIELD RATEAZIONE
END 

TEXT -1
BEGIN
  PROMPT 28 1 "anno"
END

NUMBER S_ANNO_R 4
BEGIN
  PROMPT 28 2 ""
  FIELD ANNO
END 

TEXT -1
BEGIN
  PROMPT 34 0 "importi a debito"
END

TEXT -1
BEGIN
  PROMPT 34 1 "versati"
END

CURRENCY S_IMPDEB_R 15
BEGIN
  PROMPT 34 2 ""
  FIELD IMPORTODEB
END

TEXT -1
BEGIN
  PROMPT 54 0 "importi a credito"
END

TEXT -1
BEGIN
  PROMPT 54 1 "compensati"
END

CURRENCY S_IMPCRED_R 15
BEGIN
  PROMPT 54 2 ""
  FIELD IMPORTOCRE
END

NUMBER S_RIGA_R 7
BEGIN
  PROMPT 1 4 "riga "
  FLAGS "D"
  FIELD PROGR
END

STRING S_DESCR_R 50
BEGIN
  PROMPT 15 4 ""
  FIELD DESCR
END

DATE S_DATASCAD_R
BEGIN
  PROMPT 1 5 "Scad."
  FIELD DATASCAD
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -14 -1 ""
  PICTURE BMP_LINK
END

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

#include <cancelbar.h>

ENDPAGE

ENDMASK

PAGE "ICI ed altri tributi locali" -1 -1 80 10

TEXT -1
BEGIN
  PROMPT 1 0 "codice ente"
END

TEXT -1
BEGIN
  PROMPT 1 1 "comune"
END

STRING S_CODCOM 4
BEGIN
  PROMPT 1 2 ""
	USE LF_COMUNI
  INPUT STATO ""
  INPUT COM S_CODCOM
  DISPLAY "Codice" COM
  DISPLAY "Denominazione@50" DENCOM
  DISPLAY "Provincia" PROVCOM
  DISPLAY "CAP  " CAPCOM
	OUTPUT S_CODCOM COM
	FLAGS "U"
	FIELD ENTECOM
END 

TEXT -1
BEGIN
  PROMPT 8 1 "Ravv."
END

BOOLEAN S_RAVVED
BEGIN
	PROMPT 8 2 ""
	FIELD RAVVED
END

TEXT -1
BEGIN
  PROMPT 13 0 "Imm."
END

TEXT -1
BEGIN
  PROMPT 13 1 "var."
END

BOOLEAN S_IMMVAR
BEGIN
	PROMPT 13 2 ""
	FIELD IMMVAR
END

TEXT -1
BEGIN
  PROMPT 17 1 "Acc."
END

BOOLEAN S_ACC
BEGIN
	PROMPT 17 2 ""
	FIELD ACCONTO
END

TEXT -1
BEGIN
  PROMPT 21 1 "Sal."
END

BOOLEAN S_SALDO
BEGIN
	PROMPT 21 2 ""
	FIELD SALDO
END

TEXT -1
BEGIN
  PROMPT 25 0 "Num."
END

TEXT -1
BEGIN
  PROMPT 25 1 "Imm."
END

NUMBER S_NUMIMM 2
BEGIN
	PROMPT 25 2 ""
	FIELD NUMIMM
END

TEXT -1
BEGIN
  PROMPT 29 0 "codice"
END

TEXT -1
BEGIN
  PROMPT 29 1 "tributo"
END

STRING S_CODTRIB_C 4
BEGIN
  PROMPT 29 2 ""
  USE %TRB SELECT S6=="L"
  INPUT CODTAB 107
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT 107 CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD TRIBUTO
END 

TEXT -1
BEGIN
  PROMPT 37 1 "rateazione"
END

STRING S_RATEAZ_C 8
BEGIN
  PROMPT 37 2 ""
	FIELD RATEAZIONE
END 

TEXT -1
BEGIN
  PROMPT 49 1 "anno"
END

NUMBER S_ANNO_C 4
BEGIN
  PROMPT 49 2 ""
  FIELD ANNO
END 

TEXT -1
BEGIN
  PROMPT 1 3 "importi a debito"
END

TEXT -1
BEGIN
  PROMPT 1 4 "versati"
END

CURRENCY S_IMPDEB_C 15
BEGIN
  PROMPT 1 5 ""
  FIELD IMPORTODEB
END

TEXT -1
BEGIN
  PROMPT 21 3 "importi a credito"
END

TEXT -1
BEGIN
  PROMPT 21 4 "compensati"
END

CURRENCY S_IMPCRED_C 15
BEGIN
  PROMPT 21 5 ""
  FIELD IMPORTOCRE
END

NUMBER S_RIGA_C 7
BEGIN
  PROMPT 1 7 "riga "
  FLAGS "D"
  FIELD PROGR
END

STRING S_DESCR_C 50
BEGIN
  PROMPT 15 7 ""
  FIELD DESCR
END

DATE S_DATASCAD_C
BEGIN
  PROMPT 1 8 "Scad."
  FIELD DATASCAD
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -14 -1 ""
  PICTURE BMP_LINK
END

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

#include <cancelbar.h>

ENDPAGE

ENDMASK

PAGE "INAIL" -1 -1 80 7

TEXT -1
BEGIN
  PROMPT 1 0 "codice"
END

TEXT -1
BEGIN
  PROMPT 1 1 "tributo"
END

STRING S_CODTRIB_N 4
BEGIN
  PROMPT 1 2 ""
  USE %TRB SELECT S6=="N"
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT 101 CODTAB
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD TRIBUTO
END 

TEXT -1
BEGIN
  PROMPT 8 0 "codice"
END

TEXT -1
BEGIN
  PROMPT 8 1 "sede"
END

STRING S_SEDE_N 5
BEGIN
  PROMPT 8 2 ""
  FIELD SEDE
END 

TEXT -1
BEGIN
  PROMPT 14 0 "Posizione"
END

TEXT -1
BEGIN
  PROMPT 14 1 "Assicur."
END

NUMBER S_POSASS 8
BEGIN
  PROMPT 14 2 ""
	FIELD POSASS
	FLAGS "Z"
END 

TEXT -1
BEGIN
  PROMPT 24 0 "Codice"
END

TEXT -1
BEGIN
  PROMPT 24 1 "contr."
END

NUMBER S_CIN 2
BEGIN
  PROMPT 24 2 ""
  FIELD CIN
	FLAGS "Z"
END 

TEXT -1
BEGIN
  PROMPT 30 0 "Numero"
END

TEXT -1
BEGIN
  PROMPT 30 1 "rif."
END

NUMBER S_NUMRIF 6
BEGIN
  PROMPT 30 2 ""
  FIELD NUMRIF
	FLAGS "Z"
END 

TEXT -1
BEGIN
  PROMPT 38 0 "Caus."
END

TEXT -1
BEGIN
  PROMPT 38 1 "INAIL"
END

STRING S_CAUSINAIL 1
BEGIN
  PROMPT 38 2 ""
  FIELD CAUSINAIL
	FLAGS "U"
END 

TEXT -1
BEGIN
  PROMPT 45 0 "importi a debito"
END

TEXT -1
BEGIN
  PROMPT 45 1 "versati"
END

CURRENCY S_IMPDEB_N 15
BEGIN
  PROMPT 45 2 ""
  FIELD IMPORTODEB
END

TEXT -1
BEGIN
  PROMPT 62 0 "importi a credito"
END

TEXT -1
BEGIN
  PROMPT 62 1 "compensati"
END

CURRENCY S_IMPCRED_N 15
BEGIN
  PROMPT 62 2 ""
  FIELD IMPORTOCRE
END

NUMBER S_RIGA_N 7
BEGIN
  PROMPT 1 4 "riga "
  FIELD PROGR
  FLAGS "D"
END

STRING S_DESCR_N 50
BEGIN
  PROMPT 15 4 ""
  FIELD DESCR
END

DATE S_DATASCAD_N
BEGIN
  PROMPT 1 5 "Scad."
  FIELD DATASCAD
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_USER 10 2
BEGIN
  PROMPT -14 -1 ""
  PICTURE BMP_LINK
END

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

#include <cancelbar.h>

ENDPAGE

ENDMASK