campo-sirio/gv/gv0500b.uml

#include "gv0500a.h"

TOOLBAR "" 0 -3 0 3

#include <toolbar.h>

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 5
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 13
BEGIN
  PROMPT 47 6 "Codice fiscale  "
  FLAGS "D"
END

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

BUTTON F_CONT 20
BEGIN
	PROMPT 2 8 "Contabilizza"
	FLAGS "D"
END

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

SPREADSHEET F_ERARIO 0 8
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 6
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 8 "@b(C) "
  FLAGS "D"
END

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

CURRENCY F_INPS_CD 15
BEGIN
  PROMPT 50 8 "@bSaldo (C-D) "
  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
  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 ""
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 10 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
  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 40 0 "periodo di riferimento"
END

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

NUMBER 104 6
BEGIN
  PROMPT 48 2 ""
  FIELD PERIODODA
END 

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

NUMBER 105 6
BEGIN
  PROMPT 40 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 10 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