campo-sirio/dl/dl0900a.uml

#include "dl0900a.h"

PAGE "Invio ordini" -1 -1 70 20

GROUPBOX DLG_NULL 68 10
BEGIN
  PROMPT 1 0 "@bSelezione ordini"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno "
  FLAGS "A"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Codice ordini Discoteca Laziale  "
  FLAG "U"
  USE %NUM SELECT I1==3
  INPUT CODTAB F_CODNUM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  CHECKTYPE REQUIRED
END

STRING F_STATOINI 1
BEGIN
  PROMPT 2 3 "Stato dei documenti da inviare "
  USE %STD
  INPUT CODTAB F_STATOINI
  DISPLAY "Stato iniziale" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOINI CODTAB
  CHECKTYPE REQUIRED
END

STRING F_STATOEND 1
BEGIN
  PROMPT 2 4 "Stato dei documenti inviati    "
  USE %STD
  INPUT CODTAB F_STATOEND
  DISPLAY "Stato iniziale" CODTAB
  DISPLAY "Descrizione@50" S0  
  OUTPUT F_STATOEND CODTAB
  CHECKTYPE REQUIRED
END

NUMBER F_ORDINI 7
BEGIN
  PROMPT 2 5 "Dall'ordine           "
  USE LF_DOC SELECT STATO==#F_STATOINI
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_ORDINI
  DISPLAY "Anno" ANNO
  DISPLAY "Numerazione" CODNUM
  DISPLAY "Ordine " NDOC
  DISPLAY "Data@10" DATADOC
  DISPLAY "Stato" STATO
  OUTPUT F_ORDINI NDOC
  OUTPUT F_DATAINI DATADOC
  CHECKTYPE NORMAL
END

DATE F_DATAINI
BEGIN
  PROMPT 35 5 "del "
  FLAGS "D" 
END

NUMBER F_ORDFINE 7
BEGIN
  PROMPT 2 6 "All'ordine            "
  COPY USE F_ORDINI
  INPUT PROVV "D"
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_ORDFINE
  COPY DISPLAY F_ORDINI
  OUTPUT F_ORDFINE NDOC
  OUTPUT F_DATAFINE DATADOC
  CHECKTYPE NORMAL
END

DATE F_DATAFINE
BEGIN
  PROMPT 35 6 "del "
  FLAGS "D" 
END

NUMBER F_LASTORDSENT 7
BEGIN
  PROMPT 2 7 "Ultimo ordine inviato "
  FLAGS "D"
END

DATE F_LASTORDDATE
BEGIN
  PROMPT 35 7 "del "
  FLAGS "D"
END

GROUPBOX DLG_NULL 68 8
BEGIN
  PROMPT 1 11 "@bParametri per l'invio"
END

STRING F_CODCLI 6
BEGIN
  PROMPT 2 12 "Codice cliente Discoteca Laziale "
  CHECKTYPE REQUIRED
END

STRING F_CODINDSPED 4
BEGIN
  PROMPT 2 13 "Codice indirizzo spedizione      "
  CHECKTYPE REQUIRED
END

STRING F_ADDRESS 80 50
BEGIN
  PROMPT 2 14 "Indirizzo  "
  CHECKTYPE REQUIRED
END

STRING F_PATH 50 35
BEGIN
  PROMPT 2 15 "Cartella files da inviare "
  CHECKTYPE REQUIRED
END

STRING F_USER 8
BEGIN
  PROMPT 2 16 "Utente   "
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_PASSWORD 8
BEGIN
  PROMPT 32 16 "Password "
  FLAGS "U*"
  CHECKTYPE REQUIRED
END

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

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE
ENDMASK