campo-sirio/ps/ps0001100.uml

#include "ps0001100.h"

PAGE "Invio dati contabilita'" -1 -1 80 14

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 1 "@bDitta corrente"
END

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

DATE F_DATALIM
BEGIN
  PROMPT 2 4 "Data limite "
  FIELD datalim
END

DATE F_DATAMOV
BEGIN
  PROMPT 40 4 "Data movimenti "
  FIELD datamov
END

BOOLEAN F_CL
BEGIN
  PROMPT 2 6 "Clienti"
  FIELD cl
END

BOOLEAN F_FO
BEGIN
  PROMPT 14 6 "Fornitori"
  FIELD fo
END

BOOLEAN F_PC
BEGIN
  PROMPT 26 6 "Partite clienti"
  FIELD pc
END

BOOLEAN F_PF
BEGIN
  PROMPT 40 6 "Partite fornitori"
  FIELD pf
END

BOOLEAN F_SA
BEGIN
  PROMPT 59 6 "Saldi"
  FIELD cs
END

BOOLEAN F_MO
BEGIN
  PROMPT 69 6 "Movimenti"
  FIELD mo
END

STRING F_PATH 256 30
BEGIN
  PROMPT 2 8 "Cartella di output  "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD Outth
END

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

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK