campo-sirio/ba/ba8600a.uml

#include "ba8600a.h"

TOOLBAR "Toolbar" 0 -2 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 -11 "~Elabora"
  PICTURE BMP_ELABORA
END

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

ENDPAGE

PAGE "Ricerca documenti" 0 0 0 -2

NUMBER F_DITTA 5
BEGIN
  PROMPT 1 1 "Ditta  "
  FLAGS "F"
  USE LF_NDITTE
  INPUT CODDITTA F_DITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione Sociale@60" RAGSOC
  OUTPUT F_DITTA CODDITTA
  OUTPUT F_FIRMRAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_FIRMRAGSOC 50
BEGIN
  PROMPT 24 1 ""
  USE LF_NDITTE KEY 2
  INPUT RAGSOC F_FIRMRAGSOC
  DISPLAY "Ragione Sociale@60" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_DITTA
  CHECKTYPE NORMAL
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 2 "Anno   "
  FLAGS "A"
END

STRING F_TIPODOC 10
BEGIN
  PROMPT 41 2 "Tipo documento "
  FLAGS "U"
END

LIST F_TIPOCF 1 9
BEGIN
  PROMPT 1 3 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 14 3 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  OUTPUT F_CLIRAGSOC RAGSOC
  CHECKTYPE NORMAL
  ADD RUN CG0 -1 F_TIPOCF
END

STRING F_CLIRAGSOC 50
BEGIN
  PROMPT 24 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_CLIRAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIFO
  CHECKTYPE NORMAL
  ADD RUN CG0 -1 F_TIPOCF
END

SPREADSHEET F_SHEET 
BEGIN
  PROMPT 0 5 ""
  ITEM "Ditta"
  ITEM "Anno"
  ITEM "File@80"
END

ENDPAGE

ENDMASK

PAGE "File" -1 -1 78 4

NUMBER 101 5
BEGIN
  PROMPT 1 1 "Ditta "
END

NUMBER 102 4
BEGIN
  PROMPT 21 1 "Anno "
END

STRING 103 256 70
BEGIN
  PROMPT 1 2 "File "
END

BUTTON 100 10 2
BEGIN
  PROMPT -12 -1 "~Collega"
  PICTURE BMP_LINK
END

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

ENDPAGE

ENDMASK