#include "gv0500a.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 "Erario" 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 44
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 32 6 ""
  FIELD INTEST
  FLAGS "D"
END

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

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

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

BUTTON F_CONT 10 2
BEGIN
	PROMPT -22 8 "~Contabilizza"
	FLAGS "D"
END

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

SPREADSHEET F_ERARIO 0 7
BEGIN
  PROMPT 2 11 "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 20 "@b(A) "
  FLAGS "D"
END

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

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

ENDPAGE

PAGE "INPS/Regioni" -1 -1 0 0

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

SPREADSHEET F_INPS 0 5
BEGIN
  PROMPT 2 1 "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 6 "@b(C) "
  FLAGS "D"
END

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

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

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

SPREADSHEET F_REGIONI 0 5
BEGIN
  PROMPT 2 8 "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 13 "@b(E) "
  FLAGS "D"
END

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

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

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

SPREADSHEET F_ICI 0 5
BEGIN
  PROMPT 2 15 "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 20 "@b(G) "
  FLAGS "D"
END

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

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

ENDPAGE

PAGE "INAIL" -1 -1 0 0

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

SPREADSHEET F_INAIL 0 5
BEGIN
  PROMPT 2 1 "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 7 "@b(I) "
  FLAGS "D"
END

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

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

ENDPAGE

ENDMASK

PAGE "Erario" -1 -1 80 7

TEXT -1
BEGIN
  PROMPT 1 0 "codice"
END

TEXT -1
BEGIN
  PROMPT 1 1 "tributo"
END

STRING 101 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 102 8
BEGIN
  PROMPT 9 2 ""
	FIELD RATEAZIONE
END 

TEXT -1
BEGIN
  PROMPT 19 1 "anno"
END

NUMBER 103 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 104 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 105 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 106 15
BEGIN
  PROMPT 62 2 ""
  FIELD INTIVATRIM
END

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

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

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

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

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

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

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

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 101 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 102 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 103 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 104 6
BEGIN
  PROMPT 40 2 ""
  FIELD PERIODODA
END 

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

NUMBER 105 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 106 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 107 15
BEGIN
  PROMPT 18 5 ""
  FIELD IMPORTOCRE
END

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

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

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

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

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

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

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

ENDPAGE

ENDMASK

PAGE "Regioni" -1 -1 80 7

TEXT -1
BEGIN
  PROMPT 1 1 "Regione"
END

STRING 101 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 102 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 103 8
BEGIN
  PROMPT 17 2 ""
	FIELD RATEAZIONE
END 

TEXT -1
BEGIN
  PROMPT 28 1 "anno"
END

NUMBER 104 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 105 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 106 15
BEGIN
  PROMPT 54 2 ""
  FIELD IMPORTOCRE
END

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

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

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

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

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

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

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

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 101 4
BEGIN
  PROMPT 1 2 ""
	FIELD ENTECOM
END 

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

BOOLEAN 102
BEGIN
	PROMPT 8 2 ""
	FIELD RAVVED
END

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

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

BOOLEAN 103
BEGIN
	PROMPT 13 2 ""
	FIELD IMMVAR
END

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

BOOLEAN 104
BEGIN
	PROMPT 17 2 ""
	FIELD ACCONTO
END

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

BOOLEAN 105
BEGIN
	PROMPT 21 2 ""
	FIELD SALDO
END

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

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

NUMBER 106 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 107 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 108 8
BEGIN
  PROMPT 37 2 ""
	FIELD RATEAZIONE
END 

TEXT -1
BEGIN
  PROMPT 49 1 "anno"
END

NUMBER 109 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 110 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 111 15
BEGIN
  PROMPT 21 5 ""
  FIELD IMPORTOCRE
END

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

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

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

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

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

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

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

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 101 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 102 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 103 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 104 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 105 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 106 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 107 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 108 15
BEGIN
  PROMPT 62 2 ""
  FIELD IMPORTOCRE
END

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

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

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

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

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

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

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

ENDPAGE

ENDMASK