campo-sirio/ps/ps1002100a.uml

#include "ps1002100a.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_SELECT 10 2
BEGIN
  PROMPT -14 -11 "~Carica"
  GROUP 1
END

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -24 -11 "~Salva"
  PICTURE BMP_SAVEREC
  GROUP 2
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -34 -11 "Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE BMP_CANCEL
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -44 -11 "Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
END

ENDPAGE

PAGE "Produttivita' giornaliera" 0 0 0 -3

GROUPBOX DLG_NULL 76 11
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

STRING F_LAV 1
BEGIN
  PROMPT 1 3 "Lavorazione "
  USE CMS
  INPUT CODTAB F_LAV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_LAV CODTAB
  OUTPUT F_DESLAV S0
  CHECKTYPE NORMAL
END

STRING F_DESLAV 50 46
BEGIN
  PROMPT 27 3 ""
  USE CMS KEY 2
  INPUT S0 F_DESLAV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  CHECKTYPE NORMAL
  COPY OUTPUT F_LAV
END

STRING F_COLORE 10
BEGIN
  PROMPT 1 4 "Colore      "
  USE FSC
  INPUT CODTAB F_COLORE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COLORE CODTAB
  OUTPUT F_DESCOL S0
  CHECKTYPE NORMAL
END

STRING F_DESCOL 50 46
BEGIN
  PROMPT 27 4 ""
  USE FSC KEY 2
  INPUT S0 F_DESCOL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  CHECKTYPE NORMAL
  COPY OUTPUT F_COLORE
END

STRING F_CODART 20
BEGIN
  PROMPT 1 5 "Articolo    "
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART
  OUTPUT F_DESCR DESCR
  FLAGS "U"
  CHECKTYPE NORMAL
END

STRING F_DESCR 50 36
BEGIN
  PROMPT 37 5 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT F_CODART
  CHECKTYPE NORMAL
END

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

STRING F_TIPODOC 4
BEGIN
  PROMPT 1 7 "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 7 ""
  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 7 "Data "
  FLAGS "A"
END

BOOLEAN F_INCL_EVASI
BEGIN
  PROMPT 2 8 "Includi evasi"
  MESSAGE FALSE HIDE,3@
  MESSAGE TRUE  SHOW,3@
END

NUMBER F_DA_ANNO 4
BEGIN
  PROMPT 20 8 "BEM dall' anno:"
  CHECKTYPE REQUIRED
  FLAGS "A"
  GROUP 3
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "@bConsegnato"
  GROUP 3
END

DATA F_DADATA_EV
BEGIN
  PROMPT 15 9 "Dal "
  CHECKTYPE REQUIRED
  GROUP 3
END

DATA F_ADATA_EV
BEGIN
  PROMPT 35 9 "al "
  CHECKTYPE REQUIRED
  GROUP 3
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 1 11 "Righe documento"
  ITEM "N. doc."
  ITEM "N. riga"
  ITEM "Mag."
  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 "Data Prod.Lav."
  ITEM "Qta prod.Lav.@15"
  ITEM "Colore"
  ITEM "Data Prod.Col.1"
  ITEM "Qta prod.Col.1@15"
  ITEM "Data Prod.Col.2"
  ITEM "Qta prod.Col.2@15"
  ITEM "Num."
  ITEM "Anno"
  ITEM "P/D"
  GROUP 2
END

ENDPAGE

ENDMASK


//---------------------------------------------------
//maschera di riga dello sheet (righe documenti)
TOOLBAR "topbar" 0 -3 0 3

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -24 -11 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -34 -11 ""
END

BUTTON DLG_USER 10 2
  BEGIN
  PROMPT -44 -11 "Collega"
  PICTURE BMP_LINK
END

ENDPAGE

PAGE "Riga" 0 0 0 -3

STRING S_CODMAG 5
BEGIN
  PROMPT 1 0 "Magazzino "
  USE MAG
  INPUT CODTAB S_CODMAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODMAG CODTAB
  OUTPUT S_DESMAG S0
  CHECKTYPE NORMAL
  FIELD CODMAG
END

STRING S_DESMAG 50
BEGIN
  PROMPT 20 0 ""
  USE MAG KEY 2
  INPUT S0 S_DESMAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CODMAG
  CHECKTYPE NORMAL
END

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.  "
  USE CMS
  INPUT CODTAB S_LAV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_LAV CODTAB
  OUTPUT S_DESLAV S0
  CHECKTYPE NORMAL
  FIELD CODCMS
END

STRING S_DESLAV 50 40
BEGIN
  PROMPT 35 7 ""
  USE CMS KEY 2
  INPUT S0 S_DESLAV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  CHECKTYPE NORMAL
  COPY OUTPUT S_LAV
END

DATA S_DATAPROD_LAV
BEGIN
  PROMPT 1 8 "Data prod. Lav. "
  FIELD CODAGG2
  FLAGS "R"
END

NUMBER S_QTAPROD_LAV 13 5
BEGIN
  PROMPT 1 9 "Qta prod. Lav.  "
  VALIDATE 14 1 IF(#S_DATAPROD_LAV=0,0,IF(S_QTAPROD_LAV=0,#S_QTA,#S_QTAPROD_LAV))
  DRIVENBY S_DATAPROD_LAV
  FIELD QTAGG2
END

STRING S_COLORE 20
BEGIN
  PROMPT 1 10 "Colore    "
  USE FSC
  INPUT CODTAB S_COLORE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_COLORE CODTAB
  OUTPUT S_DESCOL S0
  CHECKTYPE NORMAL
  FIELD FASCMS
END

STRING S_DESCOL 50 40
BEGIN
  PROMPT 35 10 ""
  USE FSC KEY 2
  INPUT S0 S_DESCOL
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  CHECKTYPE NORMAL
  COPY OUTPUT S_COLORE
END

DATA S_DATAPROD_COL_1
BEGIN
  PROMPT 1 11 "Data prod. Col.1"
  FIELD DATACONS
END

NUMBER S_QTAPROD_COL_1 13 5
BEGIN
  PROMPT 1 12 "Qta prod. Col.1 "
  VALIDATE 14 1 IF(#S_DATAPROD_COL_1=0,0,IF(#S_QTAPROD_COL_1=0,#S_QTA,#S_QTAPROD_COL_1))
  DRIVENBY S_DATAPROD_COL_1
  FIELD QTAGG1
END

DATA S_DATAPROD_COL_2
BEGIN
  PROMPT 1 13 "Data prod. Col.2"
  FIELD CODAGG1
END

NUMBER S_QTAPROD_COL_2 13 5
BEGIN
  PROMPT 1 14 "Qta prod. Col.2 "
  VALIDATE 14 1 IF(#S_DATAPROD_COL_2=0,0,IF(#S_QTAPROD_COL_2=0,(#S_QTA-#S_QTAPROD_COL_1),#S_QTAPROD_COL_2))
  DRIVENBY S_DATAPROD_COL_2
  FIELD QTAGG3
END

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

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

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

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

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

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

ENDPAGE

ENDMASK