campo-sirio/cg/cgp0100a.uml

#include "cgp0100a.h"

PAGE "Liquidazione riepilogativa IVA" -1 -1 78 14

LIST F_MESE 15
BEGIN
  PROMPT 2 1 "Periodo    "
  ITEM "13|Annuale"
  FLAGS "AM"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 35 1 "Anno "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 3 "Ditta ricevente"
END

NUMBER F_RCVFIRM 5
BEGIN
  PROMPT 3 4 "Codice    "
  USE LF_NDITTE
  INPUT CODDITTA F_RCVFIRM
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_RCVFIRM CODDITTA
  OUTPUT F_DESRCVFIRM RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_DESRCVFIRM 50
BEGIN
  PROMPT 22 4 ""
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_DESRCVFIRM
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_RCVFIRM
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 40 5
BEGIN
  PROMPT 2 6 "Ditte invianti"
END

NUMBER F_DFR 5
BEGIN
  PROMPT 3 7 "Da codice "
  FLAGS "B"
END

NUMBER F_DTO 5
BEGIN
  PROMPT 3 8 "A codice  "
  FLAGS "B"
END

STRING F_SELECTED 5
BEGIN
  PROMPT 3 9 "Scelte n. "
  FLAGS "DR"
END

BUTTON FBUT_SELECT 10 2
BEGIN
  PROMPT 25 7 "~Selezione"
  PICTURE BMP_SELECT
END

BUTTON FBUT_RESET 10
BEGIN
  PROMPT 25 9 "A~zzera"
END

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

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

ENDPAGE
ENDMASK