campo-sirio/ve/ve7300a.uml

#include "ve7300a.h"

TOOLBAR "" 0 0 0 2

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

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

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

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

ENDPAGE

TOOLBAR "" 0 -2 0 2

STRING 30 70 50
  BEGIN
  FLAGS "G"
  PROMPT 10 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Riepilogo entrate fornitori " 0 0 0 0

STRING F_DACODART 20
BEGIN
    PROMPT 2 1 "Dall'art.   "
    FLAG "U"
    USE LF_ANAMAG
    INPUT CODART F_DACODART
    DISPLAY "Codice@20" CODART
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_DACODART CODART
    OUTPUT F_DADESCRART DESCR
    CHECKTYPE SEARCH
END

STRING F_DADESCRART 50 
BEGIN
    PROMPT 2 2 "Descrizione "
    USE LF_ANAMAG KEY 2
    INPUT DESCR F_DADESCRART
    DISPLAY "Descrizione@50" DESCR
    DISPLAY "Codice@20" CODART
    COPY OUTPUT F_DACODART
END

STRING F_ACODART 20
BEGIN
    PROMPT 2 3 "All'art.    "
    FLAG "U"
    USE LF_ANAMAG
    INPUT CODART F_ACODART
    COPY DISLPAY F_DACODART
    OUTPUT F_ACODART CODART
    OUTPUT F_ADESCRART DESCR
    CHECKTYPE SEARCH
END

STRING F_ADESCRART 50
BEGIN
    PROMPT 2 4 "Descrizione "
    USE LF_ANAMAG KEY 2
    INPUT DESCR F_ADESCRART
    COPY DISPLAY F_DADESCRART
    COPY OUTPUT F_ACODART
END

STRING F_DACODFOR 6
BEGIN
  PROMPT 2 6 "Dal fornitore   "
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "F"
  INPUT CODCF F_DACODFOR
  DISPLAY "Codice@10" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC  
  OUTPUT F_DACODFOR CODCF
  OUTPUT F_DADESCRFOR RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DADESCRFOR 50
BEGIN
  PROMPT 2 7 "Ragione sociale "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DADESCRFOR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@10" CODCF
  COPY OUTPUT F_DACODFOR
END

STRING F_ACODFOR 6
BEGIN
  PROMPT 2 8 "Al fornitore    "
  COPY USE F_DACODFOR
  INPUT TIPOCF "F"
  INPUT CODCF F_ACODFOR
  COPY DISPLAY F_DACODFOR
  OUTPUT F_ACODFOR CODCF
  OUTPUT F_ADESCRFOR RAGSOC
  CHECKTYPE NORMAL
END

STRING F_ADESCRFOR 50
BEGIN
  PROMPT 2 9 "Ragione sociale "
  COPY USE F_DADESCRFOR 
  INPUT TIPOCF "F"
  INPUT RAGSOC F_ADESCRFOR
  COPY DISPLAY F_DADESCRFOR
  COPY OUTPUT F_ACODFOR
END

DATE F_DADATA
BEGIN
  PROMPT 2 11 "Dalla data "
END

DATE F_ADATA
BEGIN
  PROMPT 35 11 "Alla data "
END

BOOLEAN F_DETAIL
BEGIN
  PROMPT 2 13 "Stampa dettaglio righe"
  MESSAGE FALSE CLEAR,F_TIPORIT|CLEAR,F_RITARDO
  MESSAGE TRUE ENABLE,F_TIPORIT|ENABLE,F_RITARDO
END

RADIOBUTTON F_TIPORIT 1 16
BEGIN
  PROMPT 30 12 ""
  ITEM " |Tutti"
  MESSAGE CLEAR,F_RITARDO
  ITEM "R|Ritardo"
  MESSAGE ENABLE,F_RITARDO
  ITEM "A|Anticipo"
  MESSAGE ENABLE,F_RITARDO
  FLAGS "HD"
END

NUMBER F_RITARDO 4
BEGIN
  PROMPT 43 14 "Giorni "
  FLAGS "HD"
END

SPREADSHEET F_SHEETNUMS 75 4
BEGIN
  PROMPT 2 16 ""
  ITEM "Cod. Num."
  ITEM "Descrizione cod. num."
END

ENDPAGE

ENDMASK

PAGE "Riga" -1 -1 68 6

STRING F_S_CODNUM 4
BEGIN
  PROMPT 1 1 "Codice numerazione    "
  FLAGS "U"
  USE %NUM SELECT I1==1
  INPUT CODTAB F_S_CODNUM
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_S_CODNUM CODTAB
  OUTPUT F_S_DESCRNUM S0
  CHECKTYPE NORMAL
END

STRING F_S_DESCRNUM 50
BEGIN
  PROMPT 1 2 "Descrizione "
  USE %NUM KEY 2 SELECT I1==1
  INPUT S0 F_S_DESCRNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cod. Num." CODTAB  
  COPY OUTPUT F_S_CODNUM
END

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

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

ENDPAGE

ENDMASK