campo-sirio/cg/cg3700a.uml

#include "cg3700a.h"

PAGE "Lista fatture per IVA indetraibile" -1 -1 68 10

DATE FLD_DATE_FROM
BEGIN
  PROMPT 1 2 "Dalla data "
  CHECKTYPE REQUIRED
  WARNING "La data iniziale e' obbligatoria."
END

DATE FLD_DATE_TO
BEGIN
  PROMPT 1 3 "Alla data  "
  CHECKTYPE REQUIRED
  WARNING "La data finale e' obbligatoria."
END

GROUPBOX DLG_NULL 40 5
BEGIN
  PROMPT 25 1 "Scelta ditte"
END

NUMBER FLD_DFR 5
BEGIN
  PROMPT 26 2 "Da codice "
  FLAGS "B"
END

NUMBER FLD_DTO 5
BEGIN
  PROMPT 26 3 "A codice  "
  FLAGS "B"
END

STRING FLD_SELECTED 5
BEGIN
  PROMPT 26 4 "Scelte n. "
  FLAGS "DR"
END

BUTTON BUT_SEL 10 2
BEGIN
  PROMPT 50 2 "~Selezione"
  PICTURE BMP_SELECT
END

BUTTON BUT_ANN 10
BEGIN
  PROMPT 50 4 "A~zzera"
END

NUMBER FLD_FROM_FOR 6
BEGIN
  PROMPT 1 6 "Da fornitore  "
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF FLD_FROM_FOR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT FLD_FROM_FOR CODCF
  CHECKTYPE SEARCH
END

NUMBER FLD_TO_FOR 6
BEGIN
  PROMPT 1 7 "A fornitore   "
  GROUP 1
  COPY USE FLD_FROM_FOR
  INPUT TIPOCF "F"
  INPUT CODCF FLD_TO_FOR
  COPY DISPLAY FLD_FROM_FOR
  OUTPUT FLD_TO_FOR CODCF
  CHECKTYPE SEARCH
END

NUMBER FLD_ANNO 4
BEGIN
  PROMPT 35 5 ""
  FLAGS "AH"
END

STRING FLD_FROM_REG 3
BEGIN
  PROMPT 35 6 "Da registro "
  FLAGS "UZ"
  GROUP 1
  USE REG
  INPUT CODTAB[1,4] FLD_ANNO SELECT
  INPUT CODTAB[5,7] FLD_FROM_REG
  DISPLAY "Codice" CODTAB[5,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT FLD_FROM_REG CODTAB[5,7]
  CHECKTYPE SEARCH
END

STRING FLD_TO_REG 3
BEGIN
  PROMPT 35 7 "A registro  "
  FLAGS "UZ"
  GROUP 1
  COPY USE FLD_FROM_REG
  INPUT CODTAB[1,4] FLD_ANNO SELECT
  INPUT CODTAB[5,7] FLD_TO_REG
  COPY DISPLAY FLD_FROM_REG
  OUTPUT FLD_TO_REG CODTAB[5,7]
  CHECKTYPE SEARCH
END

STRING FLD_FROM_CAU 3
BEGIN
  PROMPT 1 6 "Da causale    "
  FLAGS "HUZ"
  GROUP 2
  USE LF_CAUSALI
  INPUT CODCAUS FLD_FROM_CAU
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT FLD_FROM_CAU CODCAUS
  CHECKTYPE SEARCH
END

STRING FLD_TO_CAU 3
BEGIN
  PROMPT 1 7 "A causale     "
  FLAGS "HUZ"
  GROUP 2
  COPY USE FLD_FROM_CAU
  INPUT CODCAUS FLD_TO_CAU
  COPY DISPLAY FLD_FROM_CAU
  OUTPUT FLD_TO_CAU CODCAUS
  CHECKTYPE SEARCH
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 ""
  FLAGS "D"
END

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

ENDPAGE
ENDMASK