campo-sirio/m770/773100a.uml

#include "773100.h"

PAGE "Parametri gestione percipienti" -1 -1 76 13

//
// NB Il parametro AnnoDic e' letto in tutte le stampe
//
NUMBER F_ANNO 4
BEGIN
  PROMPT 3 2 "Anno dichiarazione            "
  FLAGS "R"
  FIELD AnnoDic
END

NUMBER F_CODCAU1015 2
BEGIN
  PROMPT 3 4 "Codice causale 1015           "
  USE %CA7 SELECT (I0=1015)
  INPUT CODTAB F_CODCAU1015
  DISPLAY "Codice Causale" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_CODCAU1015 CODTAB
  CHECKTYPE NORMAL   
  WARNING "Causale non valida"
  FIELD CoCa1015   
  FLAGS "Z"
  ADD RUN 773mod -3 %ca7
END

LIST F_FSTAMPAQL 35
BEGIN
    PROMPT 3 6 "Flag per stampa quadro L      "
    ITEM "1|Ordine primario data versamento"
    ITEM "2|Ordine primario periodo riferimento"
    FIELD FlStQl
    FLAGS "H"
END

LIST F_FSTAMPAQCQD 29
BEGIN
    PROMPT 3 8 "Flag per stampa quadri C/D/D1 "
    ITEM "1|Per codice causale e aliquota"
    ITEM "2|Per codice tributo e aliquota"
    FIELD FlStQcQd  
    FLAGS "H"
END

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

BUTTON DLG_QUIT 10 2 
BEGIN
    PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK