campo-sirio/ps/pg0388100a.uml

#include "pg0388100a.h"

TOOLBAR "" 0 -5 0 4

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Trasmissione ordini" -1 -1 78 18

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

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "GDF"
  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_FILENAME 52
BEGIN
  PROMPT 2 4 "Nome file da creare "
  CHECKTYPE REQUIRED
  VALIDATE FILENAME_FUNC
  FLAGS "A"
  HELP "Nome del file in cui scaricare i dati"
  WARNING "E' necessario specificare un nome di file"
  FIELD FILENAME
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 5 "Anno ordini "
  HELP "Anno ordini da trasferire"
  CHECKTYPE REQUIRED
  FIELD ANNO
END


NUMBER F_NUMINI 7
BEGIN
  PROMPT 2 6 "Ordini dal  "
  HELP "Numero ordine iniziale"
  CHECKTYPE REQUIRED
  FIELD NUMINI
END

NUMBER F_NUMFIN 7
BEGIN
  PROMPT 30 6 "al "
  HELP "Numero ordine finale"
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 9 "@bParametri di configurazione"
END

STRING F_NUMORD 4
BEGIN
  PROMPT 2 10 "Numerazione "
  USE %NUM
  INPUT CODTAB F_NUMORD
  OUTPUT F_DESORD S0
  CHECKTYPE REQUIRED
  FLAGS "UD"
  FIELD NUMORD
END

STRING F_DESORD 50
BEGIN
  PROMPT 20 10 ""
  FLAGS "D"
END

STRING F_STATOINI 1
BEGIN
  PROMPT 2 11 "Stato ordini da trasmettere             "
  FLAGS "D"
  FIELD STATOINI
END

STRING F_STATOFIN 1
BEGIN
  PROMPT 2 12 "Stato da attribuire dopo la trasmissione"
  FLAGS "D"
  FIELD STATOFIN
END

ENDPAGE
ENDMASK