campo-sirio/ps/pd6342500a.uml

#include "pd6342500a.h"

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>

ENDPAGE

TOOLBAR "" 0 -2 0 2

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 -11 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Quadra movimenti" -1 -1 80 0  

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 0 "@bBilancio per "
END


NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Codice esercizio  "
  HELP "Esercizio di cui si vuole ottenere il bilancio"
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  FLAGS "Z"
  CHECKTYPE REQUIRED
  WARNING "L'esercizio non esiste"
  ADD RUN cg0 -5 esc
  MESSAGE EMPTY CLEAR,4@
  MESSAGE ENABLE,4@
END

RADIOBUTTON F_TIPO 28
BEGIN
  PROMPT 2 3 "@bTipo stampa"
  HELP "Indicare il tipo di stampa"
  ITEM "1|Per date limite"  MESSAGE SHOW,F_ADATA|ENABLE,F_ADATA
  ITEM "2|All'ultima immissione" MESSAGE HIDE,F_ADATA|RESET,F_ADATA
END

DATE F_ADATA
BEGIN
  PROMPT 41 4 "Al "
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 7 "@bFoglio Excel del calcolo"
END

STRING F_PATH 255 50
BEGIN
  PROMPT 2 8 "Cartella "
  DSELECT
END

STRING F_NAME 255 50
BEGIN
  PROMPT 2 9 "File     "
  FSELECT "*.xls"
END

ENDPAGE
ENDMASK