campo-sirio/ba/batbdel.uml

#include "batbdel.h"

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

PAGE "Versamenti" -1 -1 78 15

NUMBER F_DITTA 5
BEGIN
  PROMPT 4 1 "Ditta            "
  HELP "Codice ditta a cui si riferisce la delega"
  FIELD CODTAB[1,5]
  FLAGS "RZ"
  KEY 1
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_DITTA
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_DITTA CODDITTA
  OUTPUT F_RSOC RAGSOC
  CHECKTYPE FORCED
  WARNING "Ditta assente"
END

STRING F_CODVAL 3
BEGIN
  PROMPT 0 0 ""
  FLAGS "HD"
END

STRING F_RSOC 50
BEGIN
  PROMPT 4 2 "Ragione sociale  "
  HELP "Ragione sociale ditta a cui si riferisce la delega"
  KEY 1
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_RSOC
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Ditta" CODDITTA
  OUTPUT F_DITTA CODDITTA
  OUTPUT F_RSOC RAGSOC
  CHECKTYPE NORMAL
  WARNING "Ditta assente"
END

NUMBER F_ANNODEL 4
BEGIN
  PROMPT 4 3 "Anno versamento  "
  FIELD CODTAB[6,9]
  CHECKTYPE REQUIRED
  FLAGS "RZ"
  KEY 1
  USE %DEL
  JOIN LF_NDITTE TO %DEL INTO CODDITTA=CODTAB[1,5]
  INPUT CODTAB[1,5] F_DITTA
  INPUT CODTAB[6,9] F_ANNODEL
  INPUT CODTAB[10,11] F_MESEDEL
  INPUT CODTAB[12,12] F_TIPODEL
  DISPLAY "Anno" CODTAB[6,9]
  DISPLAY "Mese" CODTAB[10,11]
  DISPLAY "Ditta" CODTAB[1,5]
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  DISPLAY "Tipo" CODTAB[12,12]
  OUTPUT F_DITTA CODTAB[1,5]
  OUTPUT F_ANNODEL CODTAB[6,9]
  OUTPUT F_MESEDEL CODTAB[10,11]
  OUTPUT F_TIPODEL CODTAB[12,12]
  HELP "Anno di versamento"
//  VALIDATE AUTOEXIT_FUNC 2 F_CODDITTA F_ANNO
//  GROUP GR_SEARCH
END

LIST F_TIPODEL 20
BEGIN
  PROMPT 4 4 "Tipo versamento  "
  FIELD CODTAB[12,12]
  KEY 1
  HELP "Tipo di versamento"
  ITEM "1|normale"
  MESSAGE ENABLE,F_MESEDEL
  ITEM "2|annuale"
  MESSAGE "13",F_MESEDEL|DISABLE,F_MESEDEL
  ITEM "3|art. 74"
  MESSAGE ENABLE,F_MESEDEL
  ITEM "4|cessazione attivita'"
  MESSAGE ENABLE,F_MESEDEL
  ITEM "5|integrativa"
  MESSAGE ENABLE,F_MESEDEL
  ITEM "7|acconti IVA"
  MESSAGE "12",F_MESEDEL|DISABLE,F_MESEDEL
END

LIST F_MESEDEL 10
BEGIN
  PROMPT 4 5 "Mese versamento  "
  HELP "Mese di versamento"
  FIELD CODTAB[10,11]
  FLAGS "MG"
  KEY 1
  ITEM "13|Annuale"
  MESSAGE "2",F_TIPODEL
  // VALIDATE MTCHECK_FUNC
  // WARNING "Ditta trimestrale: indicare trimestre"
END

DATE F_DATA
BEGIN
  PROMPT 4 7 "Data             "
  FIELD D0
  HELP "Data di versamento"
END

NUMBER F_BANCA1 5
BEGIN
  PROMPT 4 8 "Codice ABI       "
  HELP "Codice ABI banca di appoggio"
  FIELD S7
  FLAGS "RZ"
  USE %BAN
  INPUT CODTAB[1,5] F_BANCA1
  INPUT CODTAB[6,10] F_BANCA2
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_BANCA1 CODTAB[1,5]
  OUTPUT F_BANCA2 CODTAB[6,10]
  CHECKTYPE NORMAL
  WARNING "Banca assente"
END

NUMBER F_BANCA2 5
BEGIN
  PROMPT 40 8 "Codice CAB       "
  HELP "Codice CAB banca di appoggio"
  FIELD S8
  FLAGS "RZ"
  COPY ALL F_BANCA1
  CHECKTYPE NORMAL
  WARNING "Banca assente"
END

NUMBER F_CONCESSIONE 3
BEGIN
  PROMPT 4 9 "Concessione      "
  HELP "Codice concessione del comune di residenza fiscale"
  FIELD S9
  FLAGS "RZ"
  USE %UCC
  INPUT CODTAB F_CONCESSIONE
  DISPLAY "Concessione " CODTAB[1,5]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CONCESSIONE CODTAB
  CHECKTYPE NORMAL
  WARNING "Concessione assente"
END

CURRENCY F_IMPORTO 15
BEGIN
  PROMPT 4 10 "Importo versato  "
  FIELD R0
  FLAGS "R"
  DRIVENBY F_CODVAL
  HELP "Importo versato"
END

CURRENCY F_INTERESSI 15
BEGIN
  PROMPT 4 11 "Di cui interessi "
  FIELD R1
  FLAGS "R"
  HELP "Interessi da pagare"
  DRIVENBY F_CODVAL
END

BOOLEAN F_STAMPATO
BEGIN
  PROMPT 4 13 "Stampato "
  HELP "Indicare se si tratta di versamento gia' stampato"
  FIELD B0
END

ENDPAGE

ENDMASK