campo-sirio/ci/ci1200.uml

#include "ci1200.h"

TOOLBAR "Toolbar" 0 -3 0 3

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 0 "Profilo "
  PSELECT
END

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

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

ENDPAGE

PAGE "Riepiloghi" 0 0 0 -3

STRING F_REPORT 32
BEGIN
  PROMPT 1 0 "Tipo di stampa "  
  RSELECT "ci1200"
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 20 4
BEGIN
  PROMPT 1 1 "@bData" 
END

DATA F_DA_DATA 
BEGIN
  PROMPT 2 2 "Dal "
END

DATA F_A_DATA 
BEGIN
  PROMPT 2 3 "Al  "
END

GROUPBOX DLG_NULL 20 4
BEGIN
  PROMPT 22 1 "" 
END

LIST F_TIPOCF 1 9
BEGIN
  PROMPT 22 1 ""
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
END

NUMBER F_DA_CLIFO 6
BEGIN
  PROMPT 23 2 "Dal "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_DA_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_DA_CLIFO CODCF
  OUTPUT F_DA_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

NUMBER F_A_CLIFO 6
BEGIN
  PROMPT 23 3 "Al  "
  COPY USE F_DA_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_DA_CLIFO
  COPY DISPLAY F_DA_CLIFO
  OUTPUT F_A_CLIFO CODCF
  OUTPUT F_A_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 35 4
BEGIN
  PROMPT 43 1 "@bArticolo" 
END

STRING F_DA_CODART 20
BEGIN
  PROMPT 44 2 "Dal "
  USE LF_ANAMAG
  INPUT CODART F_DA_CODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DA_CODART CODART
  CHECKTYPE SEARCH
END

STRING F_A_CODART 20
BEGIN
  PROMPT 44 3 "Al  "
  COPY USE F_DA_CODART
  INPUT CODART F_A_CODART
  COPY DISPLAY F_DA_CODART
  OUTPUT F_A_CODART CODART
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 60 4
BEGIN
  PROMPT 1 5 "@bRagione Sociale" 
END

STRING F_DA_RAGSOC 50
BEGIN
  PROMPT 2 6 "Da "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_DA_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DA_CLIFO
  CHECKTYPE NORMAL
END

STRING F_A_RAGSOC 50 
BEGIN
  PROMPT 2 7 "A  "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_A_RAGSOC
  COPY DISPLAY F_DA_RAGSOC
  COPY OUTPUT F_A_CLIFO
  CHECKTYPE NORMAL
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 9 "@bTipi documento"
END

SPREADSHEET F_TIPI 0 5
BEGIN
  PROMPT 0 10 ""
  ITEM "Numerazione"
  ITEM "Descrizione@50"
  ITEM "Tipo"
  ITEM "Descrizione@50"
  ITEM "Da Stato"
  ITEM "A Stato"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 15 "@bCommesse"
END

SPREADSHEET F_COMMESSE
BEGIN
  PROMPT 0 16 ""
  ITEM "Cdc1@20"
  ITEM "Cdc2@20"
  ITEM "Cdc3@20"
  ITEM "Cdc4@20"
  ITEM "Cdc5@20"
  ITEM "Cdc6@20"
  ITEM "Cdc7@20"
  ITEM "Cdc8@20"
  ITEM "Cdc9@20"
  ITEM "Cdc10@20"
  ITEM "Cdc11@20"
  ITEM "Cdc12@20"
END

ENDPAGE

ENDMASK

PAGE "Tipi" -1 -1 68 9

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

STRING 102 50
BEGIN
  PROMPT 13 2 ""
  USE %NUM KEY 2
  INPUT S0 102
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 101
  CHECKTYPE NORMAL
END

STRING 103 4
BEGIN
  PROMPT 1 3 "Tipo documento "
  USE %TIP
  INPUT CODTAB 103
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 103 CODTAB
  OUTPUT 104 S0
  CHECKTYPE NORMAL
	FLAG "U"
END

STRING 104 50
BEGIN
  PROMPT 13 4 ""
  USE %TIP KEY 2
  INPUT S0 104
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 103
  CHECKTYPE NORMAL
END

STRING 105 1
BEGIN
  PROMPT 1 5 "Da stato       "
  USE %STD
  CHECKTYPE NORMAL
  INPUT CODTAB 105
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 105 CODTAB
  FLAG "U"
END

STRING 106 1
BEGIN
  PROMPT 1 6 "A stato        "
  USE %STD
  CHECKTYPE NORMAL
  INPUT CODTAB 106
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 106 CODTAB
  FLAG "U"
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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


ENDPAGE

ENDMASK

PAGE "Commesse" -1 -1 78 14

STRING 101 20
BEGIN
  PROMPT 1 1 "Cdc1 "
  FLAGS "B"
END

STRING 102 20
BEGIN
  PROMPT 1 2 "Cdc2 "
  FLAGS "B"
END

STRING 103 20
BEGIN
  PROMPT 1 3 "Cdc3 "
  FLAGS "B"
END

STRING 104 20
BEGIN
  PROMPT 1 4 "Cdc4 "
  FLAGS "B"
END

STRING 105 20
BEGIN
  PROMPT 1 5 "Cdc5 "
  FLAGS "B"
END

STRING 106 20
BEGIN
  PROMPT 1 6 "Cdc6 "
  FLAGS "B"
END

STRING 107 20
BEGIN
  PROMPT 1 7 "Cdc7 "
  FLAGS "B"
END

STRING 108 20
BEGIN
  PROMPT 1 8 "Cdc8 "
  FLAGS "B"
END

STRING 109 20
BEGIN
  PROMPT 1 9 "Cdc9 "
  FLAGS "B"
END

STRING 110 20
BEGIN
  PROMPT 1 10 "Cdc10 "
  FLAGS "B"
END

STRING 111 20
BEGIN
  PROMPT 1 11 "Cdc11 "
  FLAGS "B"
END

STRING 112 20
BEGIN
  PROMPT 1 12 "Cdc12 "
  FLAGS "B"
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

ENDPAGE

ENDMASK