campo-sirio/src/ps/ps0920500a.uml

#include "ps0920500a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_IMPORT 2 2
BEGIN
  PROMPT 1 1 "Acquisizione"
  PICTURE TOOL_BARCODE
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 2 "Registra"
  PICTURE TOOL_SAVEREC
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 1 3 "Elimina"
  PICTURE TOOL_DELREC
END

BUTTON DLG_NULL 2 2 
BEGIN
  PROMPT 1 4 ""
END

BUTTON DLG_RECALC 2 2
BEGIN
  PROMPT 1 5 "Tutti"
  PICTURE TOOL_MULTISEL
END

BUTTON DLG_ELABORA 2 2
BEGIN
  PROMPT 1 6 "Elabora"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_NULL 2 2 
BEGIN
  PROMPT 1 7 ""
END

BUTTON DLG_LINK 2 2
BEGIN
  PROMPT 1 8 "Scelte"
  PICTURE TOOL_LINK
END

#include <helpbar.h>

ENDPAGE

PAGE "Chiusura ordini da terminale" 0 2 0 0

DATE F_DATADOC
BEGIN
  PROMPT 1 0 "Data "
  FLAGS "A"
  CHECKTYPE REQUIRED
  DEFAULT "NoProfile"
END

STRING F_CODELAB 8
BEGIN
  PROMPT 20 0 "Elaborazione "
  USE %ELD SELECT (I0="1")&&(S6="MMAG")
  INPUT CODTAB F_CODELAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Da@4" S5
  DISPLAY "A@4"  S6
  OUTPUT F_CODELAB CODTAB
  OUTPUT F_DESELAB S0
  CHECKTYPE REQUIRED
END

STRING F_DESELAB 50 30
BEGIN
  PROMPT 45 0 ""
  FLAGS "D"
END

STRING F_PATH 250 43
BEGIN
  PROMPT 1 1 "Rilevazioni "
  DSELECT
  CHECKTYPE REQUIRED
  FLAGS "M"
  MESSAGE EMPTY DISABLE,DLG_IMPORT
  MESSAGE ENABLE,DLG_IMPORT
END

BOOLEAN F_SHOWALL
BEGIN
  PROMPT 60 1 "Mostra evase"
END

SPREADSHEET F_SHEET
BEGIN
  PROMPT 0 2 ""
  ITEM "@1"
  ITEM "Cliente"
  ITEM "Ind."
  ITEM "Num."
  ITEM "Anno"
  ITEM "Ordine"
  ITEM "Riga"
  ITEM "Articolo"
  ITEM "Plt. I"
  ITEM "Spz. I"
  ITEM "Pez. I"
  ITEM "Peso I"
  ITEM "Plt.II"
  ITEM "Spz.II"
  ITEM "Pez.II"
  ITEM "Peso II"
  ITEM "Saldo"
  ITEM "Lotto"
  ITEM "Descrizione"
  ITEM "Acquisita il"
  ITEM "Ev."
  ITEM "Evasa il@10"
  ITEM "Record@10"
  DEFAULT "NoProfile"
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 -1 ""
  PSELECT
  FLAGS "H"
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 75 12

BOOLEAN S_SELECT
BEGIN
  PROMPT 1 1 "Selezione"
END

DATE S_DATA
BEGIN
  PROMPT 21 1 "Data "
  FLAGS "D"
END

NUMBER S_RECORD 10
BEGIN
  PROMPT 54 1 "Record "
  FLAGS "DZ"
END

NUMBER S_CLIFO 6
BEGIN
  PROMPT 1 2 "Cliente "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF S_CLIFO
  OUTPUT S_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DG"
END

STRING S_RAGSOC 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
END

NUMBER S_INDSPED 3
BEGIN
  PROMPT 1 3 "Indirizzo  "
  /*
  USE LF_INDSPED
  INPUT TIPOCF "C"
  INPUT CODCF 102
  OUTPUT 130 RAGSOC
  CHECKTYPE REQUIRED
  */
  FLAGS "DG"
END

STRING S_CODNUM 4
BEGIN
  PROMPT 1 4 "Ordine    "
  FLAGS "D"
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 17 4 ""
  FLAGS "D"
END

NUMBER S_NDOC 7
BEGIN
  PROMPT 23 4 ""
  FLAGS "D"
END

NUMBER S_IDRIGA 4
BEGIN
  PROMPT 33 4 "Riga "
  FLAGS "D"
END

BOOLEAN S_EVASA
BEGIN
  PROMPT 48 4 "Evasa il"
  FLAGS "D"
END

DATE S_DATEVAS
BEGIN
  PROMPT 61 4 ""
  FLAGS "D"
END

STRING S_CODART 20
BEGIN
  PROMPT 1 6 "Articolo "
  USE LF_ANAMAG
  INPUT CODART S_CODART
  OUTPUT S_DESCR DESCR
  CHECKTYPE REQUIRED
  FLAGS "DG"
END

STRING S_DESCR 50
BEGIN
  PROMPT 10 7 ""
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 11 8 "Palette"
END

TEXT DLG_NULL
BEGIN
  PROMPT 21 8 "Spezzoni"
END

TEXT DLG_NULL
BEGIN
  PROMPT 31 8 "Pezzi"
END

TEXT DLG_NULL
BEGIN
  PROMPT 41 8 "Peso"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "@bI scelta"
END

NUMBER S_LOTTO 5
BEGIN
  PROMPT 51 8 "Lotto "
END

NUMERO S_PALET1 3
BEGIN
  PROMPT 11 9 ""
  FLAGS "U"
END

NUMERO S_SPEZZ1 3
BEGIN
  PROMPT 21 9 ""
  FLAGS "U"
END

NUMERO S_PEZZ1 7
BEGIN
  PROMPT 31 9 ""
  FLAGS "D"
END

NUMERO S_PESO1 7
BEGIN
  PROMPT 41 9 ""
  FLAGS "D"
END


BOOLEAN S_SALDO
BEGIN
  PROMPT 51 9 "Saldo"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 10 "@bII scelta"
END

NUMERO S_PALET2 3
BEGIN
  PROMPT 11 10 ""
  FLAGS "U"
END

NUMERO S_SPEZZ2 3
BEGIN
  PROMPT 21 10 ""
  FLAGS "U"
END

NUMERO S_PEZZ2 7
BEGIN
  PROMPT 31 10 ""
  FLAGS "D"
END

NUMERO S_PESO2 7
BEGIN
  PROMPT 41 10 ""
  FLAGS "D"
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

#include <helpbar.h>

ENDPAGE

ENDMASK