campo-sirio/si/si0200a.uml

#include "si0200a.h"

TOOLBAR "" 0 -3 0 2
STRING DLG_PROFILE 70 50
BEGIN
  PR 2 -3 "Profilo "
  PSELECT
  GR 1
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

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

PA "Stampe Pagamenti" -1 2 80 20
NUMBER F_ANNO 4 0
BEGIN
  PROMPT 2 1 "Anno            "
  FLAG "P"
END

LIST F_PROVV 12
BEGIN
  PROMPT 25 1 "Tipo numerazione "
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
  FLAG "P"
END

SPREADSHEET F_SHEETNUMS 55 8
BEGIN
  PROMPT 1 2 ""
  ITEM "Cod. num."
  ITEM "Stato 1"
  ITEM "Stato 2"
  ITEM "Stato 3"
  ITEM "Stato 4"
  ITEM "Stato 5"
  ITEM "Stato 6"
END

LIST F_TIPOCF 1 9
BEGIN
  PROMPT 2 10 "Tipo         "
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

STRING F_RAGSOCFR 50
BEGIN
  PROMPT 2 11 "Dal Cliente  "
  USE LF_CLIFO KEY 2 
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOCFR
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY  "Codice " CODCF
  OUTPUT F_RAGSOCFR RAGSOC
  OUTPUT F_CODFR CODCF
END

NUMBER F_CODFR 6
BEGIN
  PROMPT 68 11 "Da codice "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODFR
  DISPLAY  "Codice " CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  COPY OUTPUT F_RAGSOCFR 
END

STRING F_RAGSOCTO 50
BE
  PROMPT 2 12 "Al Cliente   "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOCTO
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY  "Codice " CODCF
  OUTPUT F_RAGSOCTO RAGSOC
  OUTPUT F_CODTO CODCF
END             

NUMBER F_CODTO 6
BEGIN
  PROMPT 68 12 "A codice  "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODTO
  DISPLAY  "Codice " CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  COPY OUTPUT F_RAGSOCTO
END

STRING F_SERVFR 20 
BEGIN
  PROMPT 2 13 "Dal Servizio "
  USE 47
  INPUT CODART F_SERVFR
  DISPLAY "Codice " CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SERVFR CODART
END

STRING F_SERVTO 20 
BEGIN
  PR 2 14 "Al Servizio  "
  USE 47
  INPUT CODART F_SERVTO
  DISPLAY "Codice " CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_SERVTO CODART
END

DATE F_DA_DATADOC
BEGIN
  PROMPT 2 15 "Dalla Data   "
END

DATE F_A_DATADOC
BEGIN
  PROMPT 27 15 "Alla Data   "
END

ENDPAGE
ENDMASK

PAGE "" -1 -1 75 10

STRING 101 4
BEGIN
  PROMPT 1 1 "Codice numerazione  "
  FLAG "U"
  USE %NUM
  INPUT CODTAB 101
  DISPLAY "Cod. Num." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 101 CODTAB
  CHECKTYPE NORMAL
END

STRING 102 1
BEGIN
  PROMPT 1 3 "Stato 1            "
  USE %STD
  INPUT CODTAB 102
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 102 CODTAB
  CHECKTYPE NORMAL
END

STRING 103 1
BEGIN
  PROMPT 1 4 "Stato 2            "
  USE %STD
  INPUT CODTAB 103
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 103 CODTAB
  CHECKTYPE NORMAL
END

STRING 104 1
BEGIN
  PROMPT 1 5 "Stato 3            "
  USE %STD
  INPUT CODTAB 104
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 104 CODTAB
  CHECKTYPE NORMAL
END

STRING 105 1
BEGIN
  PROMPT 1 6 "Stato 4            "
  USE %STD
  INPUT CODTAB 105
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 105 CODTAB
  CHECKTYPE NORMAL
END

STRING 106 1
BEGIN
  PROMPT 1 7 "Stato 5            "
  USE %STD
  INPUT CODTAB 106
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 106 CODTAB
  CHECKTYPE NORMAL
END

STRING 107 1
BEGIN
  PROMPT 1 8 "Stato 6            "
  USE %STD
  INPUT CODTAB 107
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 107 CODTAB
  CHECKTYPE NORMAL
END

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

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

ENDPAGE
ENDMASK