campo-sirio/cg/cg3100b.uml

#include "cg3100.h"

PAGE "Lista Fatture" -1 -1 73 16

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_DATASTAMPA 
BEGIN
  PROMPT 48 1 "Data stampa "
  HELP "Data in cui viene effettuata la stampa"
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 4 "Codice esercizio  "
  HELP "Codice esercizio per cui si vuole la stampa"
  USE ESC KEY 1
  CHECKTYPE NORMAL
  INPUT CODTAB F_ANNO
  DISPLAY "Codice" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  FLAGS "RZ"
  ADD RUN cg0 -5 esc
END

DATE F_DATAINI
BEGIN
  PROMPT 2 5 "Stampa movimenti dalla data "
  HELP "Data da cui iniziare la stampa"
END

DATE F_DATAFIN
BEGIN
  PROMPT 45 5 "alla data "
  HELP "Data fino a cui eseguire la stampa"
END

LIST F_TIPOELENCO 9
BEGIN
  PROMPT 2 6 "Tipo elenco                 "
  HELP "Indicare cosa includere nella stampa"
  ITEM "C|Clienti"
  MESSAGE HIDE,2@|SHOW,1@|RESET,1@
  ITEM "F|Fornitori"
  MESSAGE HIDE,2@|SHOW,1@|RESET,1@
  ITEM "E|Entrambi"
  MESSAGE HIDE,1@|SHOW,2@|RESET,2@
END

NUMBER F_CODICEINI 6
BEGIN
  PROMPT 2 7 "Stampa dal codice           "
  HELP "Indicare il codice da cui iniziare la stampa"
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOELENCO SELECT
  INPUT CODCF F_CODICEINI
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEINI CODCF
  OUTPUT F_RAGSOCINI RAGSOC
  FLAGS "R"       
  CHECKTYPE NORMAL
END

STRING F_RAGSOCINI 50
BEGIN
  PROMPT 2 8 ""
  GROUP 1
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOELENCO SELECT
  INPUT RAGSOC F_RAGSOCINI
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_RAGSOCINI RAGSOC
  OUTPUT F_CODICEINI CODCF
  CHECKTYPE NORMAL
END

NUMBER F_CODICEFIN 6
BEGIN
  PROMPT 2 9 "al codice                   "
  HELP "Indicare il codice a cui terminare la stampa"
  GROUP 1
  COPY USE F_CODICEINI
  INPUT TIPOCF F_TIPOELENCO SELECT
  INPUT CODCF F_CODICEFIN
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEFIN CODCF
  OUTPUT F_RAGSOCFIN RAGSOC
  NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
  WARNING "Limite superiore errato"
  FLAGS "R"
  CHECKTYPE NORMAL
END  

STRING F_RAGSOCFIN 50
BEGIN
  PROMPT 2 10 ""
  GROUP 1
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOELENCO SELECT
  INPUT RAGSOC F_RAGSOCFIN
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_RAGSOCFIN RAGSOC
  OUTPUT F_CODICEFIN CODCF   
  CHECKTYPE NORMAL
END

NUMBER F_CODICEINI1 6
BEGIN
  PROMPT 2 7 "Stampa dal codice           "
  HELP "Indicare il codice da cui iniziare la stampa"
  GROUP 2
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODICEINI1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEINI1 CODCF
  OUTPUT F_RAGSOCINI1 RAGSOC
  FLAGS "R"       
  CHECKTYPE NORMAL
END

STRING F_RAGSOCINI1 50
BEGIN
  PROMPT 2 8 ""
  GROUP 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOCINI1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_RAGSOCINI1 RAGSOC
  OUTPUT F_CODICEINI1 CODCF
  CHECKTYPE NORMAL
END

NUMBER F_CODICEFIN1 6
BEGIN
  PROMPT 2 9 "al codice                   "
  HELP "Indicare il codice a cui terminare la stampa"
  GROUP 2
  COPY USE F_CODICEINI1
  INPUT TIPOCF "F"
  INPUT CODCF F_CODICEFIN1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEFIN1 CODCF
  OUTPUT F_RAGSOCFIN1 RAGSOC
  NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
  WARNING "Limite superiore errato"
  FLAGS "R"       
  CHECKTYPE NORMAL
END  

STRING F_RAGSOCFIN1 50
BEGIN
  PROMPT 2 10 ""
  GROUP 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOCFIN1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_RAGSOCFIN1 RAGSOC
  OUTPUT F_CODICEFIN1 CODCF   
  CHECKTYPE NORMAL
END

BOOLEAN F_CAMBIO
BEGIN
  PROMPT 2 12 "Cambio pagina per cliente/fornitore "
  HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
END

/*
BOOLEAN F_STAMPAMOVP
BEGIN
  PROMPT 2 13 "Stampa movimenti provvisori "
  HELP "Indicare se stampare i movimenti provvisori"
END
*/

BOOLEAN F_SEPARATOR
BEGIN
  PROMPT 2 13 "Non stampare i separatri delle migliaia"
END

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

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

ENDPAGE

ENDMASK