campo-sirio/cg/cg3100a.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 Movimenti" -1 -1 76 20

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
    GROUP 3
    PROMPT 2 3 "Codice esercizio  "
    HELP "Codice esercizio per cui si vuole la lista"
    USE ESC
    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

RADIOBUTTON F_MOVIMENTI 41
BEGIN
    PROMPT 30 3 "Scelta stampa     "
    HELP "Indicare il tipo di stampa"
    ITEM "0|Lista movimenti"
    MESSAGE SHOW,F_CONTROLLO|SHOW,F_REGISTROFIN|SHOW,F_REGISTROINI|SHOW,F_STAMPA|HIDE,1@|RESET,1@
    ITEM "1|Lista movimenti di sola prima nota"
    MESSAGE HIDE,F_CONTROLLO|RESET,F_CONTROLLO|HIDE,1@|RESET,1@|HIDE,F_REGISTROFIN|RESET,F_REGISTROFIN|HIDE,F_REGISTROINI|RESET,F_REGISTROINI|HIDE,F_STAMPA|RESET,F_STAMPA
END


LIST F_CONTROLLO 23
BEGIN
    PROMPT 2 7 "Controllo movimenti errati  "
    HELP "Indicare il tipo di controllo per movimenti errati"
    ITEM "3|No"                      MESSAGE HIDE,1@|RESET,1@|ENABLE,F_STAMPA
    ITEM "2|Si"                      MESSAGE SHOW,1@
    ITEM "1|Stampa movimenti errati" MESSAGE SHOW,1@
END

TEXT DLG_NULL
BEGIN
    GROUP 1
    PROMPT 2 8 "Stampa messaggi : "
END

BOOLEAN F_ANNOC
BEGIN
    GROUP 1
    PROMPT 20 8 "Anno di competenza "
    HELP "Indicare se stampa l'anno di competenza"
    GROUP 5
END

BOOLEAN F_ALLEGATO
BEGIN
    GROUP 1
    PROMPT 44 8 "Allegato iva       "
    HELP "Indicare se stampare l'allegato IVA"
    MESSAGE TRUE  DISABLE,F_STAMPA|COPY,F_STAMPA
    MESSAGE FALSE ENABLE,F_STAMPA
    GROUP 5
END

BOOLEAN F_COMPETENZA
BEGIN
    PROMPT 2 9 "Stampa i soli movimenti con competenza nell'esercizio precedente" 
END

RADIOBUTTON F_DECIDI 12
BEGIN
    PROMPT 2 10 "Stampa "
    HELP "Indicare il criterio di scelta dei movimenti"
    ITEM "2|data"   MESSAGE DISABLE,2@|RESET,2@|ENABLE,3@
    ITEM "1|numero" MESSAGE DISABLE,3@|RESET,3@|ENABLE,2@
END

DATE F_DATAINI
BEGIN
     HELP "Data da cui iniziare la stampa"
     PROMPT 16 11 "Stampa mov. dalla data "
     GROUP 3
END

DATE F_DATAFIN
BEGIN
    HELP "Data fino a cui stampare i movimenti"
    PROMPT 52 11 "alla data "
    GROUP 3
END

NUMBER F_NUMEROINI 7
BEGIN
    HELP "Numero del movimento da cui iniziare la stampa"
    PROMPT 16 12 "Stampa mov. dal numero "
    USE LF_MOV KEY 1
    INPUT NUMREG F_NUMEROINI
    DISPLAY "Numero@7" NUMREG 
    DISPLAY "Data@10" DATAREG
    DISPLAY "Causale" CODCAUS
    DISPLAY "Documento" NUMDOC
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_NUMEROINI NUMREG
    GROUP 2
END

NUMBER F_NUMEROFIN 7
BEGIN
    HELP "Numero del movimenti fino cui fare la stampa"
    PROMPT 52 12 "al numero "
    COPY USE F_NUMEROINI
    INPUT NUMREG F_NUMEROFIN
    COPY DISPLAY F_NUMEROINI
    OUTPUT F_NUMEROFIN NUMREG
    //CHECKTYPE NORMAL
    FLAGS "R"
    NUM_EXPR {(#F_NUMEROFIN==0)||(#F_NUMEROFIN>=#F_NUMEROINI)}
    WARNING "Limite superiore errato"
    GROUP 2
END

STRING F_CAUSALEINI 3
BEGIN
    PROMPT 2 14 "Stampa dalla causale    "
    USE LF_CAUSALI KEY 1
    INPUT CODCAUS F_CAUSALEINI
    DISPLAY "Codice causale" CODCAUS
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CAUSALEINI CODCAUS
    FLAGS "U"
    HELP "Causale di inizio stampa: vuoto = inizio archivio" 
    VALIDATE ZEROFILL_FUNC 3
END

STRING F_CAUSALEFIN 3
BEGIN
    PROMPT 40 14 "alla causale "
    COPY USE F_CAUSALEINI
    INPUT CODCAUS F_CAUSALEFIN
    DISPLAY "Codice causale" CODCAUS
    DISPLAY "Descrizione@50" DESCR
    OUTPUT F_CAUSALEFIN CODCAUS
    FLAGS "U"
    HELP "Causale di fine stampa: vuoto = fine archivio"
    VALIDATE ZEROFILL_FUNC 3
END

STRING F_REGISTROINI 3
BEGIN
  PROMPT 2 15 "Stampa dal registro iva "
  USE REG SELECT I0<"3" 
  INPUT CODTAB[1,4] F_ANNO
  INPUT CODTAB[5,7] F_REGISTROINI
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Cod. registro iva" CODTAB[5,7]
  DISPLAY "Descrizione@40" S0
  OUTPUT F_REGISTROINI CODTAB[5,7]
  FLAGS "U"
  //CHECKTYPE NORMAL
  HELP "Codice registro iva di inizio stampa: vuoto = inizio archivio"
  VALIDATE ZEROFILL_FUNC 3
END

STRING F_REGISTROFIN 3
BEGIN
    PROMPT 40 15 "al reg. iva  "
    COPY USE F_REGISTROINI
    INPUT CODTAB[1,4] F_ANNO
    INPUT CODTAB[5,7] F_REGISTROFIN
    DISPLAY "Anno" CODTAB[1,4]
    DISPLAY "Cod. registro iva" CODTAB[5,7]
    DISPLAY "Descrizione@40" S0
    OUTPUT F_REGISTROFIN CODTAB[5,7]
    FLAGS "U"
    //CHECKTYPE NORMAL
    HELP "Codice registro iva di fine stampa: vuoto = fine archivio"
    VALIDATE ZEROFILL_FUNC 3
END

BOOLEAN F_STAMPA
BEGIN
    PROMPT 2 16 "Stampa imponibili, imposte e codici iva "
    HELP "Indicare se stampare i valori degli imponibili, delle imposte e i codici IVA"
    GROUP 5
END

LIST F_STAMPAMOVP 16
BEGIN
    PROMPT 2 17 "Tipo lista "
    ITEM "1|Normale"                      
    ITEM "2|Globale"                      
    ITEM "3|Solo provvisori" 
END

GROUPBOX DLG_NULL 71 5
BEGIN
  PROMPT 2 18 "@bCDC / Commesse"
  GROUP 4
END

BOOLEAN F_PRINTCDC
BEGIN
   PROMPT 22 18 "Stampa CDC/Commessa e fase relativa ad ogni riga"
   GROUP 4 5
END

STRING F_DACDC 20
BEGIN
  PROMPT 3 19 "Da CDC/Commessa "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_DACDC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_DACDC CODTAB
  CHECKTYPE SEARCH
  GROUP 4 5
END

STRING F_DAFASE 10
BEGIN
  PROMPT 50 19 "Da fase "
  FLAGS "UZ"
  USE FSC
  INPUT CODTAB F_DAFASE
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_DAFASE CODTAB
  CHECKTYPE SEARCH
  GROUP 4 5
END

STRING F_ACDC 20
BEGIN
  PROMPT 3 20 "A CDC/Commessa  "
  FLAGS "UZ"
  COPY USE F_DACDC
  INPUT CODTAB F_ACDC
  COPY DISPLAY F_DACDC
  OUTPUT F_ACDC CODTAB
  CHECKTYPE SEARCH
  GROUP 4 5
END

STRING F_AFASE 10
BEGIN
  PROMPT 50 20 "A fase  "
  FLAGS "UZ"
  COPY USE F_DAFASE
  INPUT CODTAB F_AFASE
  COPY DISPLAY F_DAFASE
  OUTPUT F_AFASE CODTAB
  CHECKTYPE SEARCH
  GROUP 4 5
END

BOOLEAN F_CDC_ONLY
BEGIN
  PROMPT 3 21 "Stampa solo le righe relative a CDC/Commesse "
  GROUP 4 5
END

ENDPAGE

ENDMASK