campo-sirio/ve/ve0100b.uml

#include "ve0100b1.h"

TOOLBAR "" 0 -2 0 2

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

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

ENDPAGE

PAGE "Elaborazioni " -1 -1 78 19

BOOLEAN F_TYPE
BEGIN
  PROMPT 1 0 "Aggiungere al doc. attuale" 
  MESSAGE FALSE SHOW,F_GROUP_D|HIDE,F_GROUP_S|CLEAR,F_UPDATE_HEADER
  MESSAGE TRUE  SHOW,F_GROUP_S|HIDE,F_GROUP_D|ENABLE,F_UPDATE_HEADER
END
               
LISTBOX F_ELAB 50 30
BEGIN
  PROMPT 31 0 "@bElaborazione  "
END

GROUPBOX F_GROUP_D 77 9
BEGIN
  PROMPT 1 1 "@bDestinazione"
END

GROUPBOX F_GROUP_S 77 9
BEGIN
  PROMPT 1 1 "@bSorgente"
END

STRING F_TIPODOC_ELAB 4
BEGIN
  PROMPT 2 2 "Tipo documento "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_ELAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_ELAB CODTAB
  OUTPUT F_DESTIPODOC_ELAB S0
  CHECKTYPE NORMAL
  FLAG "U"
  GROUP 1
END

STRING F_DESTIPODOC_ELAB 50
BEGIN
  PROMPT 24 2 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC_ELAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  CHECKTYPE NORMAL
  COPY OUTPUT F_TIPODOC_ELAB
  GROUP 1
END

STRING F_STATODOC_ELAB 1
BEGIN
  PROMPT 2 3 "Stato          "
  USE %STD
  CHECKTYPE NORMAL
  INPUT CODTAB F_STATODOC_ELAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATODOC_ELAB CODTAB
  OUTPUT F_DESSTATODOC_ELAB S0
  FLAG "U"
  GROUP 1
END

STRING F_DESSTATODOC_ELAB 50
BEGIN
  PROMPT 24 3 ""
  HELP "Descrizione stato documento"
  USE %STD KEY 2
  INPUT S0 F_DESSTATODOC_ELAB
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_STATODOC_ELAB
  CHECKTYPE NORMAL
  GROUP 1
END
                       
STRING F_CODNUM_ELAB 4
BEGIN
  PROMPT 2 4 "Cod. num.      "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM_ELAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_ELAB CODTAB
  OUTPUT F_DESNUM_ELAB S0
  CHECKTYPE NORMAL
  FLAG "U"
  WARNING "Numerazione assente"
  GROUP 1
END

STRING F_DESNUM_ELAB 50
BEGIN
  PROMPT 24 4 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM_ELAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM_ELAB
  GROUP 1
END

NUMBER F_ANNO_ELAB 4
BEGIN
  PROMPT 2 5 "Anno documento "
  CHECKTYPE REQUIRED
END

LIST F_TIPOCF_ELAB 1 11
BEGIN
  PROMPT 2 9 ""
  FLAGS "H"
  HELP "Indicare se cliente oppure fornitore"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER F_CODCF_ELAB 6
BEGIN
  PROMPT 10 9 ""
  FLAGS "HR"
END

STRING F_CODVAL_ELAB 3
BEGIN
  PROMPT 10 25 ""
  FLAGS "HR"
END

NUMBER F_NDOC_ELAB 6
BEGIN
  PROMPT 24 5 "Numero doc. "
  USE LF_DOC KEY 2
  JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF 
  INPUT TIPOCF F_TIPOCF_ELAB SELECT 
  INPUT CODCF F_CODCF_ELAB SELECT 
  INPUT PROVV F_PROVV_ELAB SELECT 
  INPUT ANNO F_ANNO_ELAB SELECT   
  INPUT DATADOC F_DATADOC_ELAB
  INPUT CODNUM F_CODNUM_ELAB
  INPUT NDOC F_NDOC_ELAB
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Stato" STATO
  DISPLAY "Data\ndocumento" DATADOC
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_DATADOC_ELAB DATADOC
  OUTPUT F_CODNUM_ELAB CODNUM
  OUTPUT F_NDOC_ELAB NDOC
  CHECKTYPE SEARCH
  WARNING "Documento inesistente o incompatibile"
  ADD RUN ve0 -1
  MESSAGE EMPTY SHOW,F_DATADOC_ELAB
  MESSAGE HIDE,F_DATADOC_ELAB
  GROUP GRP_DOC
END

LISTBOX F_PROVV_ELAB 14
BEGIN
  PROMPT 52 5 "Tipo "
  ITEM "D|Definitiva "
  ITEM "P|Provvisoria"
  KEY 1
  FLAGS "P"
  GROUP GRP_DOC
END

STRING F_NUMDOCRIF_ELAB 7
BEGIN
  PROMPT 2 6 "Documento di riferimento "
  FLAGS "B"
  GROUP GRP_DOC
END

DATE F_DATADOC_ELAB
BEGIN
  PROMPT 2 7 "Data documento "
  FLAGS "A"
  GROUP GRP_DOC
END

BOOLEAN F_UPDATE_HEADER
BEGIN
  PROMPT 41 7 "Aggiorna testata"
END

STRING F_CODART 20
BEGIN
  PROMPT 2 8 "Articolo       "
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT  F_CODART CODART
  WARNING "Articolo assente"
  CHECKTYPE SEARCH
  FLAGS "U"        
  GROUP GRP_ART
END

STRING F_UMQTA 2
BEGIN
  PROMPT 41 8 "U.M. "
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART F_CODART SELECT
  INPUT UM F_UMQTA
  DISPLAY "Codice@20" UM
  DISPLAY "Descrizione@50" %UMS->S0
  OUTPUT F_UMQTA UM
  FLAG "U"
  CHECKTYPE NORMAL                 
  WARNING "Unita' di misura obbligatoria"
  VALIDATE REQIF_FUNC 1 F_CODART
  GROUP GRP_ART
END

NUMBER F_QTA 13 5
BEGIN
  PROMPT 51 8 "Qta' "
  GROUP GRP_ART
END

TREE F_ROWS -3 -1
BEGIN
  PROMPT 0 10 ""
  GROUP GRP_DOC
END

ENDPAGE

ENDMASK