campo-sirio/ps/ps1002100a.uml

#include "ps1002100a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_SELECT 2 2
BEGIN
  PROMPT 1 1 "~Carica"
  PICTURE TOOL_MULTISEL
  GROUP 1
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 2 2 "~Salva"
  PICTURE TOOL_SAVEREC
  GROUP 2
END

#include <cancelbar.h>

ENDPAGE

PAGE "Produttivita' giornaliera" 0 2 0 0

GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 0 0 "@bParametri documenti"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 1 "Cliente     "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "R"
  WARNING "Cliente assente"
  GROUP 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 1 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso" SOSPESO
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_CODNUM 4
BEGIN
  PROMPT 1 2 "Numerazione "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FLAGS "U"
  GROUP 1
END

STRING F_DESNUM 50
BEGIN
  PROMPT 23 2 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 3 "Anno        "
  FLAGS "A"
  CHECKTYPE REQUIRED
  GROUP 1
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 4 "Parametri degli eventuali documenti da creare"
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 1 5 "Tipo doc.   "
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPO S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
  GROUP 1
END

STRING F_DESTIPO 50 33
BEGIN
  PROMPT 23 5 ""
  USE %TIP KEY 2
  INPUT S0 F_DESTIPO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB
  COPY OUTPUT F_TIPODOC
  CHECKTYPE NORMAL
  GROUP 1
END

DATA F_DATADOC
BEGIN
  PROMPT 59 5 "Data "
  FLAGS "A"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 1 8 "Righe documento"
  ITEM "N. doc."
  ITEM "N. riga"
  ITEM "Codice articolo@20"
  ITEM "Descrizione articolo@50"
  ITEM "UM"
  ITEM "Quantita@15"
  ITEM "Qta evasa@13"
  ITEM "Prezzo@18"
  ITEM "IVA@4"
  ITEM "Lav@3"
  ITEM "Colore"
  ITEM "Data Prod."
  ITEM "Qta prod.@15"
  ITEM "Num."
  ITEM "Anno"
  ITEM "P/D"
  GROUP 2
END

ENDPAGE

ENDMASK


//---------------------------------------------------
//maschera di riga dello sheet (righe documenti)

PAGE "Riga" -1 -1 78 14

STRING S_CODART 20
BEGIN
  PROMPT 1 1 "Articolo  "
  USE LF_ANAMAG
  INPUT CODART S_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODART CODART
  OUTPUT S_DESCR DESCR
  WARNING "Articolo assente"
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD CODART
END

STRING S_DESCR 50 40
BEGIN
  PROMPT 35 1 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR S_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT S_CODART
  CHECKTYPE NORMAL
  FIELD DESCR
END

STRING S_UM 2
BEGIN
  PROMPT 1 2 "U.M.      "
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART S_CODART SELECT
  INPUT UM S_UM
  DISPLAY "Codice@20" UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT S_UM UM
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD UMQTA
END

NUMBER S_QTA 15 5
BEGIN
  PROMPT 1 3 "Quantita  "
  FIELD QTA
END

NUMBER S_QTAEVASA 13 5
BEGIN
  PROMPT 1 4 "Qta evasa "
  FIELD QTAEVASA
END

CURRENCY S_PREZZO
BEGIN
  PROMPT 1 5 "Prezzo    "
  FLAGS "U"
  FIELD PREZZO
END

STRING S_CODIVA 4
BEGIN
  PROMPT 1 6 "Cod. IVA  "
  USE %IVA
  INPUT CODTAB S_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODIVA CODTAB
  OUTPUT S_DESIVA S0
  CHECKTYPE REQUIRED
  FIELD CODIVA
END

STRING S_DESIVA 50
BEGIN
  PROMPT 20 6 ""
  USE %IVA KEY 2
  INPUT S0 S_DESIVA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CODIVA
  CHECKTYPE NORMAL
END

STRING S_LAV 20
BEGIN
  PROMPT 1 7 "Lavoraz.  "
  FIELD CODCMS
END

STRING S_COLORE 20
BEGIN
  PROMPT 1 8 "Colore    "
  FIELD FASCMS
END

DATA S_DATAPROD
BEGIN
  PROMPT 1 9 "Data prod "
  FIELD DATACONS
END

NUMBER S_QTAPROD 13 5
BEGIN
  PROMPT 1 10 "Qta prod  "
  FIELD QTAGG1
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 11 "@bChiave riga"
END

STRING S_CODNUM 4
BEGIN
  PROMPT 2 12 "Num. "
  FLAGS "D"
  FIELD CODNUM
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 13 12 "Anno "
  FLAGS "D"
  FIELD ANNO
END

STRING S_PROVV 1
BEGIN
  PROMPT 24 12 "P "
  FLAGS "D"
  FIELD PROVV
END

NUMBER S_NDOC 7
BEGIN
  PROMPT 29 12 "N.doc. "
  FLAGS "D"
  FIELD NDOC
END

NUMBER S_NRIGA 3
BEGIN
  PROMPT 46 12 "N.Riga "
  FLAGS "D"
  FIELD NRIGA
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE

ENDMASK