campo-sirio/cg/cg3100b.uml

#include "cg3100.h"

PAGE "" -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 "
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 4 "Anno esercizio    "
  //HELP "Se non indicato nessun anno esercizio significa che si richiede la stampa come specificato nei campi: dalla data, alla data"
  USE ESC KEY 1
  CHECKTYPE NORMAL
  INPUT CODTAB F_ANNO
  DISPLAY "Anno" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
END

DATE F_DATAINI
BEGIN
  PROMPT 2 6 "Stampa movimenti dalla data "
  HELP "Se non indicato nessun valore viene effettuata una stampa completa in ordine di data"
END

DATE F_DATAFIN
BEGIN
  PROMPT 45 6 "alla data "
END   

LIST F_TIPOELENCO 8
BEGIN
  PROMPT 2 7 "Tipo elenco                 "
  //HELP "Se si desidera l'elenco per clienti e fornitori, specificare prima il codice del cliente da cui iniziare la stampa e poi quello del fornitore"  
  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 8 "Stampa dal codice           "
  HELP "Se si desidera l'elenco per clienti e fornitori, specificare prima il codice del cliente da cui iniziare la stampa e poi quello del fornitore"
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOELENCO SELECT
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEINI CODCF
  FLAGS "R"
END

NUMBER F_CODICEFIN 6
BEGIN
  PROMPT 45 8 "al codice "
  GROUP 1
  COPY USE F_CODICEINI
  INPUT TIPOCF F_TIPOELENCO SELECT
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEFIN CODCF
  FLAGS "R"
END  

NUMBER F_CODICEINI1 6
BEGIN
  PROMPT 2 8 "Stampa dal codice           "
  GROUP 2
  COPY USE F_CODICEINI
  INPUT TIPOCF F_CODICEINI1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEINI1 CODCF
  FLAGS "R"
END

NUMBER F_CODICEFIN1 6
BEGIN
  PROMPT 45 8 "al codice "
  GROUP 2
  COPY USE F_CODICEINI
  INPUT TIPOCF F_CODICEFIN1
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODICEFIN1 CODCF
  FLAGS "R"
END  

BOOLEAN F_CAMBIO
BEGIN
  PROMPT 2 10 "Cambio pagina per cliente/fornitore "
END

BOOLEAN F_STAMPAMOVP
BEGIN
  PROMPT 2 11 "Stampa movimenti provvisori "
END

/*
TEXT DLG_NULL
BEGIN
  PROMPT 3 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
END
*/
  
BUTTON DLG_OK 9 2 
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE

ENDMASK