campo-sirio/ve/velib04d.uml

#include "velib04d.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Consegna Ordini" 0 0 0 0

GROUPBOX -1 78 6
BEGIN
  PROMPT 1 0 "@bDocumento"
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      "
  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 "C~onsegna tutte le righe"
END

STRING F_CODVAL 3
BEGIN
  PROMPT 40 6 "Valuta "
  FIELD CODVAL
  FLAGS "D"
END

STRING F_UMQTA 2
BEGIN
  PROMPT 40 7 "U.M.   "
  FLAG "DU"
END

NUMBER F_CAMBIO 15 5
BEGIN
  PROMPT 52 6 "Cambio "
  FIELD CAMBIO
  FLAGS "D"
END

NUMBER F_QTA 13 5
BEGIN
  PROMPT 52 7 "Quantit<69> "
  FLAGS "D"
END

SPREADSHEET F_ROWS
BEGIN
  PROMPT 0 8 ""
  ITEM "@F1"
  ITEM "Residuo@13"
  ITEM "Da evadere@13"
  ITEM "Evasa@F5"
  ITEM "Mag@3"
  ITEM "Dep@3"
  ITEM "Codice articolo@20"
  ITEM "Livello 1"
  ITEM "Livello 2"
  ITEM "Livello 3"
  ITEM "Livello 4"
  ITEM "Data cons."
  ITEM "Prezzo@15"
  ITEM "Descrizione@50"
  ITEM "Tipo@4"
  ITEM "N.ro riga"
	ITEM "Codice Aggiuntivo 1"
	ITEM "Codice Aggiuntivo 2"
END

ENDPAGE

ENDMASK

PAGE "Riga 1" -1 -1 66 15

GROUPBOX DLG_NULL 64 8
BEGIN
  PROMPT 1 0 ""
END

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

STRING 155 50 46
BEGIN
  PROMPT 17 1 ""
  FLAGS "D"
END

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

STRING 156 50 46
BEGIN
  PROMPT 17 2 ""
  FLAGS "D"
END
 
STRING S_CODART 20
BEGIN
  PROMPT 2 3 "Articolo  "
  FLAGS "D"
END

STRING S_LIVGIAC1 10
BEGIN
  PROMPT 2 4 "Livello Giacen 1 "
  FLAGS "D"
END

STRING S_LIVGIAC2 10
BEGIN
  PROMPT 36 4 "Livello Giacen 2 "
  FLAGS "D"
END

STRING S_LIVGIAC3 10
BEGIN
  PROMPT 2 5 "Livello Giacen 3 "
  FLAGS "D"
END

STRING S_LIVGIAC4 10
BEGIN
  PROMPT 36 5 "Livello Giacen 4 "
  FLAGS "D"
END

STRING S_DESCR 50 49
BEGIN
  PROMPT 2 6 "Descrizione "
  FLAGS "D"
END

STRING S_NUMRIGA 3
BEGIN
  PROMPT 40 3 "N. "
  FLAGS "D"
END

STRING S_TIPORIGA 3
BEGIN
  PROMPT 50 3 "Tipo riga "
  FLAGS "D"
END

DATE S_DATACONS
BEGIN
  PROMPT 2 8 "Data di consegna     " 
  FLAGS "D"
END

NUMBER S_QTARESIDUA 13 5
BEGIN
  PROMPT 2 9 "Residuo              "
  FLAGS "DU"
END

NUMBER S_QTADAEVADERE 13 5
BEGIN
  PROMPT 2 10 "Da evadere           "
  FLAGS "U"
END

CURRENCY S_PREZZO 15
BEGIN
  PROMPT 41 8 "Prezzo "
  FLAGS "DU"
  DRIVENBY -F_CODVAL
END

BOOLEAN S_RIGACONSEGNATA
BEGIN
  PROMPT 41 9 "Riga consegnata"
END

BOOLEAN S_RIGAEVASA
BEGIN
  PROMPT 41 10 "Riga evasa"
END

STRING S_CODAGG1 20
BEGIN
  PROMPT 2 11 "Cod.Aggiuntivo 1 "
  FLAGS "D"
END

STRING S_CODAGG2 20
BEGIN
  PROMPT 2 12 "Cod.Aggiuntivo 2 "
  FLAGS "D"
END

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

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

ENDPAGE

ENDMASK