campo-sirio/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 F_SELECT
BEGIN
  PROMPT 1 1 "Selezione"
END

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

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

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

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

NUMBER F_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 F_CODNUM 4
BEGIN
  PROMPT 1 4 "Ordine    "
  FLAGS "D"
END

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

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

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

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

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

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

STRING F_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 F_LOTTO 5
BEGIN
  PROMPT 51 8 "Lotto "
END

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

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

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

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


BOOLEAN F_SALDO
BEGIN
  PROMPT 51 9 "Saldo"
END

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

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

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

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

NUMERO F_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