campo-sirio/ps/ps0077200a.uml

#include "ps0077200a.h"

TOOLBAR "" 0 0 0 2

#include <printbar.h>

ENDPAGE

TOOLBAR "" 0 -2 0 2

STRING 30 70 50
  BEGIN
  FLAGS "G"
  PROMPT 10 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Stampa Flussi di cassa" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "DFR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Rag.Soc. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
   PROMPT 1 3 "@bParametri"
END

STRING F_ESERCIZIO 4
BEGIN
  PROMPT 2 4 "Esercizio da cui partire per le scadenze dei documenti "
  FLAGS  "UPZ"
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Dal@16" D0
  DISPLAY "Al@16"   D1
  OUTPUT F_ESERCIZIO CODTAB
  CHECKTYPE NORMAL                   
END

DATE F_DATASCADI
BEGIN
  PROMPT 2 5 "Data di scadenza dal    "
  HELP "Data di inizio scadenza"
  CHECKTYPE REQUIRED
  WARNING "Data di inizio scadenza non valida"
  FLAGS "A"
END

DATE F_DATASCADF
BEGIN
  PROMPT 40 5 "al    "
  HELP "Data di fine scadenza"
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATASCADI
  WARNING "Data di fine scadenza non valida"
END

CURRENCY F_SALDOINI 15
BEGIN
   PROMPT 2 6 "Saldo iniziale "
END

SPREADSHEET F_SHEETDOC
BEGIN
   PROMPT 2 8 "Scelta documenti"
   ITEM "Cod. num."
   ITEM "Descrizione num.@32"
   ITEM "Tipo doc."
   ITEM "Descrizione tipo@32"
   ITEM "Da stato"
   ITEM "A stato"
   ITEM "A residuo"
END

ENDPAGE
ENDMASK

PAGE "Scelta documenti" -1 -1 75 10

STRING F_S_CODNUM 4
BEGIN
  PROMPT 2 1 "Cod. num. "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_S_CODNUM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_CODNUM CODTAB
  OUTPUT F_S_DESNUM S0
  CHECKTYPE REQUIRED
END

STRING F_S_DESNUM 50
BEGIN
   PROMPT 20 1 ""
   HELP "Descrizione numerazione"
   USE %NUM KEY 2
   INPUT S0 F_S_DESNUM
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_S_CODNUM
END

STRING F_S_TIPODOC 4
BEGIN
   PROMPT 2 2 "Tipo doc. "
   HELP "Codice tipo documento"
   USE %TIP
   INPUT CODTAB F_S_TIPODOC
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_S_TIPODOC CODTAB
   OUTPUT F_S_DESTIPO S0
   CHECKTYPE REQUIRED
   FLAG "UP"
END

STRING F_S_DESTIPO 50
BEGIN
   PROMPT 20 2 ""
   HELP "Descrizione tipo documento"
   USE %TIP KEY 2
   INPUT S0 F_S_DESTIPO
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_S_TIPODOC
END

STRING F_S_DASTATO 1
BEGIN
  PROMPT 2 3 "Da stato  "
  USE %STD
  INPUT CODTAB F_S_DASTATO
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_DASTATO CODTAB
  OUTPUT F_S_DESDASTATO S0
  CHECKTYPE NORMAL
END

STRING F_S_ASTATO 1
BEGIN
  PROMPT 2 4 "A stato   "
  USE %STD
  INPUT CODTAB F_S_ASTATO
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_ASTATO CODTAB
  OUTPUT F_S_DESASTATO S0
  CHECKTYPE NORMAL
END

BOOLEAN F_S_ARESIDUO
BEGIN
  PROMPT 2 5 "A residuo"
END

STRING F_S_DESDASTATO 50
BEGIN
   PROMPT 20 3 ""
END

STRING F_S_DESASTATO 50
BEGIN
   PROMPT 20 4 ""
END

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

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

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

ENDPAGE
ENDMASK