campo-sirio/cg/cg1200a.uml

#include "cg1200a.h"

TOOLBAR "Toolbar" 0 0 0 2

BUTTON BUT_CG12_ELENCO 10 2
BEGIN
  PROMPT 4 14 "~Elenco"
  PICTURE BMP_PRINTELENCO
  MESSAGE EXIT,BUT_CG12_ELENCO
END

BUTTON BUT_CG12_RUBRICHE 10 2
BEGIN
  PROMPT 16 14 "~Rubriche"
  PICTURE BMP_PRINTRUBRICA
  MESSAGE EXIT,BUT_CG12_RUBRICHE
END

BUTTON BUT_CG12_ETICHETTE 10 2
BEGIN
  PROMPT 28 14 "E~tichette"
  PICTURE BMP_PRINTETICH
  MESSAGE EXIT,BUT_CG12_ETICHETTE
END

BUTTON BUT_CG12_VENDITE 10 2
BEGIN
  PROMPT 40 14 "~Vendite"
  MESSAGE EXIT,BUT_CG12_VENDITE
  PICTURE BMP_PRINTSCHEDE
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT 1 1 ""
  PICTURE 0
END

BUTTON DLG_SETPRINT 2 2
BEGIN
  PROMPT 1 1 "Imposta"
  PICTURE BMP_SETPRINT
END

BUTTON DLG_INFO 2 2
BEGIN
  PROMPT 2 1 "Info"
  MESSAGE EXIT,K_F2
  PICTURE BMP_INFO
END

BUTTON DLG_HELP 2 2
BEGIN
  PROMPT 3 1 "Help"
  MESSAGE EXIT,K_F1
  PICTURE BMP_HELP
END

BUTTON DLG_QUIT 2 2
BEGIN
  PROMPT 5 1 "Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
END

ENDPAGE

PAGE "Selezione" -1 -1 70 19

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta           "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
END

DATE F_DATA_STAMPA
BEGIN
  PROMPT 42 1 "Data di stampa  "  
  FLAGS "A"
END

RADIOBUTTON RDB_CG12_TYPE 24
BEGIN
  PROMPT 4 4 "Oggetto"
  HELP "Selezionare l'archivio che si desidera stampare"
  ITEM "1|Clienti"     MESSAGE RESET,2@|SHOW,1@|HIDE,2@
  ITEM "2|Fornitori"   MESSAGE RESET,1@|SHOW,2@|HIDE,1@
  ITEM "3|Entrambi"    MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@
END

RADIOBUTTON RDB_CG12_SORT 24
BEGIN
  PROMPT 4 9 "Ordinamento"
  HELP "Selezionare il tipo di ordinamento dei record stampati"
  ITEM "1|per Codice"           MESSAGE CLEAR,4@|ENABLE,3@
  ITEM "2|per Ragione Sociale"  MESSAGE CLEAR,3@|ENABLE,4@
END

GROUPBOX DLG_NULL 35 10
BEGIN
  PROMPT 32 4 "Selezione "
END

TEXT DLG_NULL
BEGIN
  PROMPT 34 8 "da Ragione Sociale/Nominativo"
END

TEXT DLG_NULL
BEGIN
  PROMPT 34 10 "a Ragione Sociale/Nominativo"
END

TEXT DLG_NULL
BEGIN
  PROMPT 34 5 "da Codice"
END

TEXT DLG_NULL
BEGIN
  PROMPT 48 5 "a Codice"
END

STRING FLD_CLI_CODFR 6
BEGIN
  PROMPT 34 6 ""
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF FLD_CLI_CODFR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice Fiscale@16" COFI  
  OUTPUT FLD_CLI_CODFR CODCF 
  GROUP 1 3
  HELP "Codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_CLI_CODTO 6
BEGIN
  PROMPT 48 6 ""
  COPY USE FLD_CLI_CODFR
  INPUT TIPOCF "C"
  INPUT CODCF FLD_CLI_CODTO
  COPY DISPLAY FLD_CLI_CODFR
  OUTPUT FLD_CLI_CODTO CODCF
  GROUP 1 3
  HELP "Codice di fine stampa: vuoto = fine archivio"
  NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)} 
  WARNING "Limite superiore errato"
END

STRING FLD_CLI_RAGSOCFR 50 29
BEGIN
  PROMPT 34 9 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC FLD_CLI_RAGSOCFR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT FLD_CLI_RAGSOCFR RAGSOC
  OUTPUT F_TIPOAPERFR TIPOAPER
  GROUP 1 4
  HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_CLI_RAGSOCTO 50 29
BEGIN
  PROMPT 34 11 ""
  COPY USE FLD_CLI_RAGSOCFR 
  INPUT TIPOCF "C"
  INPUT RAGSOC FLD_CLI_RAGSOCTO
  COPY DISPLAY FLD_CLI_RAGSOCFR
  OUTPUT FLD_CLI_RAGSOCTO RAGSOC
  OUTPUT F_TIPOAPERTO TIPOAPER 
  GROUP 1 4
  HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
  STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)} 
  WARNING "Limite superiore errato"
END

STRING FLD_FOR_CODFR 6
BEGIN
  PROMPT 34 6 ""
  COPY USE FLD_CLI_CODFR
  INPUT TIPOCF "F"
  INPUT CODCF FLD_FOR_CODFR
  COPY DISPLAY FLD_CLI_CODFR
  OUTPUT FLD_FOR_CODFR CODCF
  GROUP 2 3
  HELP "Codice C/F di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_CODTO 6
BEGIN
  PROMPT 48 6 ""
  COPY USE FLD_FOR_CODFR
  INPUT TIPOCF "F"
  INPUT CODCF FLD_FOR_CODTO
  COPY DISPLAY FLD_CLI_CODFR
  OUTPUT FLD_FOR_CODTO CODCF
  GROUP 2 3
  HELP "Codice C/F di fine stampa: vuoto = fine archivio"
  NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)} 
  WARNING "Limite superiore errato"
END

STRING FLD_FOR_RAGSOCFR 50 29
BEGIN
  PROMPT 34 9 ""
  USE LF_CLIFO KEY 2 
  INPUT TIPOCF "F"
  INPUT RAGSOC FLD_FOR_RAGSOCFR
  COPY DISPLAY FLD_CLI_RAGSOCFR
  OUTPUT FLD_FOR_RAGSOCFR RAGSOC
  OUTPUT F_TIPOAPERFR TIPOAPER
  GROUP 2 4
  HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_RAGSOCTO 50 29
BEGIN
  PROMPT 34 11 ""
  COPY USE FLD_FOR_RAGSOCFR 
  INPUT TIPOCF "F"
  INPUT RAGSOC FLD_FOR_RAGSOCTO
  COPY DISPLAY FLD_CLI_RAGSOCFR
  OUTPUT FLD_FOR_RAGSOCTO RAGSOC
  OUTPUT F_TIPOAPERTO TIPOAPER 
  GROUP 2 4
  HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
  STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)} 
  WARNING "Limite superiore errato"
END
     
STRING F_TIPOAPERFR 1
BEGIN
  PROMPT 1 1 ""
  FLAGS "HD"
END

STRING F_TIPOAPERTO 1
BEGIN
  PROMPT 2 2 ""
  FLAGS "HD"
END

BOOLEAN CHK_CG12_MOVIM
BEGIN
  PROMPT 4 13 "Solo movimentati"
  HELP "Indicare se stampare solo inclusi archivio movimenti"
END

LIST LST_CG12_INTERLINE 2
BEGIN
  PROMPT 4 14 "Righe interlinea "
  ITEM "0|0"
  ITEM "1|1"
  ITEM "2|2"
  HELP "Indicare il numero di righe di interlinea tra i nominativi"
END

ENDPAGE

ENDMASK