campo-sirio/cg/cg4700a.uml

#include "cg4700.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -14 -11 "~Registra"
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
MESSAGE EXIT,K_SAVE
END

BUTTON DLG_FINDREC 10 2
BEGIN
PROMPT -24 -11 "Ri~cerca"
PICTURE BMP_FINDREC
MESSAGE EXIT,K_F9
END

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -34 -11 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -11 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Gestione acconti di Dicembre" 0 0 0 2

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta "
  FIELD CODTAB[1,5]
  FLAGS "ZFR"
  KEY 1
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE FORCED
  WARNING "Ditta assente"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 16 1 "Rag.Soc "
  KEY 1
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Ditta" CODDITTA
  COPY OUTPUT F_CODDITTA
  WARNING "Ditta assente"
  CHECKTYPE NORMAL
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 3 "Anno liquidazione      "
  HELP "Introdurre l'anno liquidazione"
  FIELD CODTAB[6,9]
  CHECKTYPE REQUIRED
  KEY 1
  USE %LIA
  JOIN LF_NDITTE TO %LIA INTO CODDITTA=CODTAB[1,5]
  INPUT CODTAB[1,5] F_CODDITTA
  INPUT CODTAB[6,9] F_ANNO
  DISPLAY "Ditta" CODTAB[1,5]
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  DISPLAY "Anno" CODTAB[6,9]
  OUTPUT F_CODDITTA CODTAB[1,5]
  OUTPUT F_ANNO CODTAB[6,9]
  VALIDATE FIXLEN_FUNC 4
  FLAGS "Z"
  ADD NONE
END

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

CURRENCY F_ACCONTO 15
BEGIN
  PROMPT 1 7 "Acconto dovuto         "
  HELP "Introdurre l'acconto dovuto"
  DRIVENBY F_CODVAL
  FIELD R4
END

CURRENCY F_CREDITO 15
BEGIN
  PROMPT 1 9 "Credito utilizzato     "
  HELP "Introdurre il credito utilizzato"
  DRIVENBY F_CODVAL
  FIELD R6
END

ENDPAGE

ENDMASK