campo-sirio/ve/velib04d.uml

#include "velib04d.h"

TOOLBAR "Toolbar" 0 20 0 0

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

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

ENDPAGE


PAGE "Consegna Ordini" 11 60 14

GROUPBOX -1 78 6
BEGIN
  PROMPT 1 0 ""
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 1 "Cod. num.  "
  FIELD CODNUM
  USE %NUM KEY 1
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESNUM S0
  CHECKTYPE NORMAL
  FLAGS "GDU"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 1 ""
  FLAGS "D"
END

STRING F_TIPODOC 4
BEGIN
  FIELD TIPODOC
  PROMPT 2 2 "Tipo doc.  "
  USE %TIP KEY 1
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESCTIPO S0
  CHECKTYPE NORMAL
  FLAGS "GDU"
END

STRING F_DESCTIPO 50
BEGIN
  PROMPT 24 2 ""
  FLAGS "GD"
END

STRING F_ESERCIZIO 4
BEGIN
  PROMPT 2 3 "Esercizio  "
  FIELD ANNO
  FLAGS "D"
END

NUMBER F_NUMDOC 6
BEGIN
  PROMPT 24 3 "Numero doc. "
  FIELD NDOC
  FLAGS "D"
END

DATE F_DATADOC
BEGIN
  PROMPT 46 3 "Data "
  FIELD DATADOC
  FLAGS "D"
END

NUMBER F_STATODOC 1
BEGIN
  PROMPT 67 3 "Stato "
  FIELD STATO
  FLAGS "D"
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 1 4 ""
  FLAGS "GH"
  FIELD TIPOCF
  ITEM "C|Clienti"
    MESSAGE SHOW,1@|HIDE,2@
  ITEM "F|Fornitori"
    MESSAGE SHOW,2@|HIDE,1@
END

NUMBER F_CODCLI 6
BEGIN
  PROMPT 2 4 "Cliente    "
  WARNING "Cliente assente"
  HELP "Codice del cliente del documento"
  FLAGS "D"
  FIELD CODCF
  GROUP 1
  USE 20 KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCLI
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCLI CODCF
  OUTPUT F_RAGCLI RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
END

STRING F_RAGCLI 50
BEGIN
  PROMPT 24 4 ""
  FLAGS "D"
  GROUP 1
END

NUMBER F_CODFOR 6
BEGIN
  PROMPT 2 4 "Fornitore "
  WARNING "Fornotore assente"
  HELP "Codice del cliente del documento"
  FLAGS "D"
  FIELD CODCF
  GROUP 2
  USE 20 KEY 1
  INPUT TIPOCF "F"
  INPUT CODCF F_CODFOR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODFOR CODCF
  OUTPUT F_RAGFOR RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 C
END

STRING F_RAGFOR 50
BEGIN
  PROMPT 24 4 ""
  FLAGS "DH"
  GROUP 2
END

BUTTON F_CONSEGNA 30 2
BEGIN
  PROMPT 1 6 "~Consegna tutte le righe"
END

SPREADSHEET F_ROWS
BEGIN
  PROMPT 0 8 ""
  ITEM "@1"
  ITEM "Quantita'\nresidua@13"
  ITEM "Quantita'\nda evadere@13"
  ITEM "Evasa@5"
  ITEM "Mag@3"
  ITEM "Dep@3"
  ITEM "Codice articolo@20"
  ITEM "Descrizione@50"
  ITEM "Tipo@4"
END

ENDPAGE

ENDMASK

PAGE "Riga 1" -1 -1 66 10

GROUPBOX DLG_NULL 64 6
BEGIN
  PROMPT 1 0 ""
END

STRING 105 3
BEGIN
  PROMPT 2 1 "Magazzino "
  USE MAG
  INPUT CODTAB 105
  OUTPUT 155 S0
  CHECKTYPE NORMAL
  FLAGS "D"
END

STRING 155 45
BEGIN
  PROMPT 17 1 ""
  FLAGS "D"
END

STRING 106 2
BEGIN
  PROMPT 2 2 "Deposito  "
  USE MAG
  INPUT CODTAB[1,3] 105
  INPUT CODTAB[4,5] 106
  OUTPUT 156 S0
  CHECKTYPE NORMAL
  FLAGS "D"
END

STRING 156 45
BEGIN
  PROMPT 17 2 ""
  FLAGS "D"
END


STRING 107 20
BEGIN
  PROMPT 2 3 "Articolo  "
  FLAGS "D"
END

STRING 108 50
BEGIN
  PROMPT 2 4 "Descriz.  "
  FLAGS "D"
END

STRING 109 3
BEGIN
  PROMPT 49 3 "Tipo riga "
  FLAGS "D"
END

NUMBER S_QTARESIDUA 13 5
BEGIN
  PROMPT 1 6 "Quantita' residua    "
  FLAGS "DU"
END

NUMBER S_QTADAEVADERE 13 5
BEGIN
  PROMPT 1 7 "Quantita' da evadere "
  FLAGS "U"
END

BOOLEAN S_RIGACONSEGNATA
BEGIN
  PROMPT 41 6 "Riga consegnata"
END

BOOLEAN S_RIGAEVASA
BEGIN
  PROMPT 41 7 "Riga evasa"
END

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

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

ENDPAGE

ENDMASK