campo-sirio/src/ba/ba9b00a.uml

#include "ba9b00.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>

ENDPAGE

TOOLBAR "bottombar" 0 -2 0 1

STRING F_REPORT 256 64
BEGIN
  PROMPT 2 -2 "Report  "
  RSELECT "repcom"
  CHECKTYPE REQUIRED
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 2 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Report Clienti Fornitori" 0 2 0 0

LISTBOX F_KEY 50
BEGIN
  PROMPT 1 1 "Chiave "
  ITEM "1|Codice (TIPOCF CODCF)"
  ITEM "2|Ragione sociale (TIPOCF RAGSOC)"
  ITEM "3|Conto (TIPOCF GRUPPO CONTO CODCF)"
  ITEM "4|Codice fiscale (TIPOCF COFI)"
  ITEM "5|Partita IVA (TIPOCF STATOPAIV PAIV"
  ITEM "6|Ricerca alternativa (TIPOCF+RICALT)"
END

LISTBOX F_TIPOCF 10
BEGIN
  PROMPT 1 3 "Tipo   "
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
  MESSAGE COPY,S_TIPOCF
END

NUMBER F_CODES 4
BEGIN
  PROMPT 21 3 "Esercizio   Da"
  USE ESC
  INPUT CODTAB F_CODES
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_CODES CODTAB
  CHECKTYPE NORMAL
END

NUMBER F_CODES_TO 4
BEGIN
  PROMPT 55 3 "A  "
  USE ESC
  INPUT CODTAB F_CODES_TO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  OUTPUT F_CODES_TO CODTAB
  CHECKTYPE NORMAL
END

DATE F_DA
BEGIN
  PROMPT 32 4 "Dal"
END

DATE F_A
BEGIN
  PROMPT 55 4 "Al "
END

SPREADSHEET F_SHEET 0 -3
BEGIN
  PROMPT 15 6 "Selezione"
  ITEM "Campo@25"
  ITEM "Da@50"
  ITEM "A@50"
  ITEM "Nome campo@25"
  ITEM "Tipo"
END

ENDPAGE

ENDMASK

PAGE "Riga Selezione" -1 -1 78 19

STRING S_DESCR 25
BEGIN
  PROMPT 2 2 "Campo"
  FLAGS "D"
END

STRING S_DA 50
BEGIN
  PROMPT 2 4 "Da   "
END

STRING S_A 50
BEGIN
  PROMPT 2 6 "A    "
END

STRING S_FIELD 25
BEGIN
  PROMPT 2 8 "Nome campo"
  FLAGS "D"
END

LISTBOX S_TIPOCF 9
BEGIN 
  PROMPT 2 10 ""
  FLAGS "HGD"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
EN

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

ENDPAGE 

ENDMASK