campo-sirio/cg/cg3100b.uml

#include "cg3100.h"

TOOLBAR "" 0 -2 0 2

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

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

ENDPAGE

PAGE "Lista Fatture" -1 -1 73 17

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 11 "Cambio pagina per cliente/fornitore "
  HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
END

BOOLEAN F_SEPARATOR
BEGIN
  PROMPT 2 12 "Non stampare i separatori delle migliaia"
END

STRING F_DACODCAUS 3
BEGIN
  PROMPT 2 13 "Da causale: "
  FLAGS "ZU"
  USE LF_CAUSALI SELECT REG!=""
  INPUT CODCAUS F_DACODCAUS
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DACODCAUS CODCAUS
  OUTPUT F_DADESCRCAUS DESCR
  CHECKTYPE NORMAL
  ADD RUN CG0 -4
END

STRING F_DADESCRCAUS 50
BEGIN
  PROMPT 22 13 ""
  FLAGS "D"
END

STRING F_ACODCAUS 3
BEGIN
  PROMPT 2 14 "A causale:  "
  FLAGS "ZU"
  USE LF_CAUSALI SELECT REG!=""
  INPUT CODCAUS F_ACODCAUS
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ACODCAUS CODCAUS
  OUTPUT F_ADESCRCAUS DESCR
  CHECKTYPE NORMAL
  ADD RUN CG0 -4
  STR_EXPR IF(#F_ACODCAUS!="",#F_ACODCAUS>=#F_DACODCAUS,1)
  WARNING "Indicare una causale valida successiva a quella iniziale"
END

STRING F_ADESCRCAUS 50
BEGIN
  PROMPT 22 14 ""
  FLAGS "D"
END

STRING F_DACODIVA 4
BEGIN
  PROMPT 2 15 "Da codice IVA "
  USE %IVA KEY 1
  FLAGS "U"
  INPUT CODTAB F_DACODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DACODIVA CODTAB
  OUTPUT F_DES_DACODIVA S0
  CHECKTYPE NORMAL
END

STRING F_DES_DACODIVA 50 45
BEGIN
  PROMPT 25 15 ""
  USE %IVA KEY 2
  INPUT S0 F_DES_DACODIVA 
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DACODIVA
END

STRING F_ACODIVA 4
BEGIN
  PROMPT 2 16 "A codice IVA  "
  COPY USE F_DACODIVA
  FLAGS "U"
  INPUT CODTAB F_ACODIVA
  COPY DISPLAY F_DACODIVA
  OUTPUT F_ACODIVA CODTAB
  OUTPUT F_DES_ACODIVA S0
  CHECKTYPE NORMAL
END

STRING F_DES_ACODIVA 50 45
BEGIN
  PROMPT 25 16 ""
  COPY USE F_DES_DACODIVA
  INPUT S0 F_DES_ACODIVA
  COPY DISPLAY F_DES_DACODIVA
  COPY OUTPUT F_ACODIVA
END

ENDPAGE

ENDMASK