campo-sirio/ps/pn0001100.uml

#include "pn0001100.h"

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

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

NUMBER F_LEN 2
BEGIN
  PROMPT 2 4 "Lunghezz codice numerico "
  CHECKTYPE REQUIRED
  FIELD CodeLen
END

BOOLEAN F_CF
BEGIN
  PROMPT 2 5 "Clienti/Forn."
  FIELD cf
END

BOOLEAN F_AM
BEGIN
  PROMPT 14 5 "Articoli"
  FIELD am
END

BOOLEAN F_BC
BEGIN
  PROMPT 26 5 "Barcode"
  FIELD bc
END

BOOLEAN F_LI
BEGIN
  PROMPT 38 5 "Listini"
  FIELD li
END

BOOLEAN F_GI
BEGIN
  PROMPT 50 5 "Giacenze"
  FIELD gi
END

BOOLEAN F_CS
BEGIN
  PROMPT 62 5 "Costi"
  FIELD cs
END

BOOLEAN F_TB
BEGIN
  PROMPT 71 5 "Tabelle"
  FIELD tb
END

STRING F_PATH 256 30
BEGIN
  PROMPT 2 6 "Cartella di input        "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD DestPath
END

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

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

ENDPAGE

ENDMASK