campo-sirio/cg/cg0300a.uml

#include "cg0300.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Immissione progressivi allegati" 0 0 0 2

GROUPBOX DLG_NULL 77 8
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno          "
  HELP "Anno di cui si vogliono visualizzare i saldi"
  FIELD LF_ALLEG->ANNO
  FLAGS "PRZA"
  KEY 1
  USE LF_ALLEG KEY 1
  JOIN %AIS TO LF_ALLEG INTO CODTAB=CODATT
  INPUT ANNO F_ANNO SELECT
  INPUT CODATT F_CODATT
  INPUT TIPOCF F_TIPOCF
  INPUT CODCF F_CODCF
  INPUT IMMESSO F_IMMESSO
  DISPLAY "Anno" ANNO
  DISPLAY "Codice att." CODATT
  DISPLAY "Descrizione @40" LF_TABCOM->S0
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Immesso" IMMESSO
  OUTPUT F_ANNO ANNO
  OUTPUT F_CODATT CODATT
  OUTPUT F_CODATTH CODATT
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCF CODCF
  OUTPUT F_IMMESSO IMMESSO
  WARNING "Registrazione assente"
  CHECKTYPE REQUIRED
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 2 "Ditta         "
  HELP "Ditta di cui si vogliono visualizzare i saldi"
  FLAGS "RPDG"
  KEY 1
  CHECKTYPE REQUIRED
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  WARNING "Ditta assente"
END

STRING F_RAGSOC_D 50 50
BEGIN
  PROMPT 24 2 ""
  FLAGS "DP"
END

STRING F_CODATT 5
BEGIN
  PROMPT 2 3 "Cod.attivita' "
  HELP "Codice dell'attivita' della ditta"
  FIELD LF_ALLEG->CODATT
  FLAGS "PRZ"
  KEY 1
  COPY ALL F_ANNO
  CHECKTYPE REQUIRED
  WARNING "Registrazione assente"
  MESSAGE COPY,F_CODATTH
  GROUP 1
END

STRING F_CODATTH 5
BEGIN
  PROMPT 2 3 "Cod.attivita' "
  FIELD LF_ALLEG->CODATT
  FLAGS "HPRZ"
  KEY 1
  USE LF_ATTIV
  JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT CODATT F_CODATT
  DISPLAY "Codice" LF_ATTIV->CODDITTA
  DISPLAY "Ragione sociale @50" LF_NDITTE->RAGSOC
  DISPLAY "Codice attivita'" LF_ATTIV->CODATT
  DISPLAY "Descrizione @40" LF_ATTIV->DESCR
  OUTPUT F_CODATT CODATT
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_DENATT LF_ATTIV->DESCR
  HELP "Inserire il codice dell'attivita'"
  MESSAGE COPY,F_CODATTH
  MESSAGE COPY,3@
  WARNING "Attivita' assente"
  GROUP 2
END

STRING F_DENATT 50
BEGIN
  PROMPT 24 3 ""
  FLAGS "D"
END

LIST F_TIPOCF 16
BEGIN
  PROMPT 2 4 "Tipo          "
  FIELD LF_ALLEG->TIPOCF
  KEY 1
  HELP "Indicare se cliente, fornitore oppure bolletta doganale"
  ITEM "C|Clienti"
  MESSAGE SHOW,F_T1|HIDE,F_T2|HIDE,F_T3|SHOW,F_T5|HIDE,F_T6
  ITEM "F|Fornitori"
  MESSAGE HIDE,F_T1|SHOW,F_T2|HIDE,F_T3|HIDE,F_T5|SHOW,F_T6|ENABLE,F_CODCF|SHOW,6@
  ITEM "B|Boll.doganali"
  MESSAGE HIDE,F_T1|HIDE,F_T2|SHOW,F_T3|HIDE,F_T5|SHOW,F_T6|DISABLE,F_CODCF|SHOW,6@
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 36 4 "Codice            "
  FIELD LF_ALLEG->CODCF
  FLAGS "R"
  KEY 1
  COPY ALL F_ANNO
  HELP "Codice relativo al cliente o fornitore"
  ADD RUN cg0 -1
  WARNING "Registrazione assente"
  GROUP 1
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_CODCFH
END

NUMBER F_CODCFH 6
BEGIN
  PROMPT 36 4 "Codice            "
  FIELD LF_ALLEG->CODCF
  FLAGS "HR"
  KEY 1
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_TIPOCF TIPOCF
  OUTPUT F_CODCFH CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_COFI COFI
  OUTPUT F_PAIV PAIV
  HELP "Codice relativo al cliente o fornitore"
  ADD RUN cg0 -1
  WARNING "Cliente assente"
  GROUP 2
  MESSAGE COPY,F_CODCF 
  CHECKTYPE NORMAL
END

BOOLEAN F_IMMESSO
BEGIN
  PROMPT 64 4 "Immesso"
  HELP "Indicare se il saldo e' stato immesso da utente"
  FIELD LF_ALLEG->IMMESSO
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 5 "Rag.sociale   "
  FLAGS "U"
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCFH
  HELP "Ragione sociale del cliente o fornitore"
  WARNING "Ragione sociale assente"
  GROUP 3
END

STRING F_COFI 16
BEGIN
  PROMPT 2 6 "Cod.fiscale   "
  KEY 3
  USE LF_CLIFO KEY 4
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT COFI F_COFI
  DISPLAY "Codice fiscale  " COFI
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  COPY OUTPUT F_CODCFH
  HELP "Codice fiscale del cliente o fornitore"
  CHECKTYPE NORMAL
  WARNING "Codice fiscale assente"
  GROUP 3
END

STRING F_PAIV 12
BEGIN
  PROMPT 36 6 "Partita IVA       "
  KEY 4
  USE LF_CLIFO KEY 5
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT PAIV F_PAIV
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Tipo" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale  " COFI
  COPY OUTPUT F_CODCFH
  HELP "Partita IVA del cliente o fornitore"
  CHECKTYPE NORMAL
  WARNING "Partita IVA assente"
  GROUP 3
END

TEXT DLG_NULL
BEGIN
  PROMPT 27 8 "Anno corrente"
END

TEXT DLG_NULL
BEGIN
  PROMPT 43 8 "Anno precedente"
END

TEXT DLG_NULL
BEGIN
  PROMPT 66 8 "Totale"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 9 "Operazioni imponibili "
END

CURRENCY F_IMPESC 15
BEGIN
  PROMPT 25 9 ""
  HELP "Totale operazioni imponibili anno corrente"
  FIELD LF_ALLEG->IMPESC
  MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5
END

CURRENCY F_IMPESP 15
BEGIN
  PROMPT 42 9 ""
  HELP "Totale operazioni imponibili anno corrente"
  FIELD LF_ALLEG->IMPESP
  MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6
END

CURRENCY F_TOTALE1 15
BEGIN
  PROMPT 60 9 ""
  FLAGS "D"
  NUM_CALC {#F_IMPESP+#F_IMPESC}
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Imposte addebitate "
END

CURRENCY F_IVAESC 15
BEGIN
  PROMPT 25 10 ""
  HELP "Totale imposte addebitate dell'anno corrente"
  FIELD LF_ALLEG->IVAESC
  MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5
END

CURRENCY F_IVAESP 15
BEGIN
  PROMPT 42 10 ""
  HELP "Totale imposte addebitate dell'anno precedente"
  FIELD LF_ALLEG->IVAESP
  MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6
END

CURRENCY F_TOTALE2 15
BEGIN
  PROMPT 60 10 ""
  FLAGS "D"
  NUM_CALC {#F_IVAESP+#F_IVAESC}
END

TEXT F_T1
BEGIN
  PROMPT 2 11 "Op. non imp. ed esenti "         
  FLAGS "H"
END

TEXT F_T2
BEGIN
  PROMPT 2 11 "Op. senza appl. d'imp. "
  FLAGS "H"
END

TEXT F_T3
BEGIN
  PROMPT 2 11 "Operazioni senza appl. d'imposta "
  FLAGS "H"
END

CURRENCY F_NIESC 15
BEGIN
  PROMPT 25 11 ""
  FIELD LF_ALLEG->NIESC
  HELP "Totale operazioni non imponibili ed esenti dell'anno corrente"
  MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE5
END

CURRENCY F_NIESP 15
BEGIN
  PROMPT 42 11 ""
  FIELD LF_ALLEG->NIESP
  HELP "Totale operazioni non imponibili ed esenti dell'anno precedente"
  MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE6
END

CURRENCY F_TOTALE3 15
BEGIN
  PROMPT 60 11 ""
  FLAGS "D"
  NUM_CALC {#F_NIESP+#F_NIESC}
END

TEXT F_T4
BEGIN
  PROMPT 2 12 "Op. non imp.(Art.8 2^c)"
  GROUP 6
END

CURRENCY F_E8ESC 15
BEGIN
  PROMPT 25 12 ""
  FIELD LF_ALLEG->E8ESC
  GROUP 6
  HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno corrente"
  MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE5
END

CURRENCY F_E8ESP 15
BEGIN
  PROMPT 42 12 ""
  FIELD LF_ALLEG->E8ESP
  GROUP 6
  HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno precedente"
  MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE6
END

CURRENCY F_TOTALE4 15
BEGIN
  PROMPT 60 12 ""
  FLAGS "D"
  GROUP 6
  NUM_CALC {#F_E8ESP+#F_E8ESC}
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Totale "
END

CURRENCY F_TOTALE5 15
BEGIN
  PROMPT 25 13 ""
  FLAGS "D"
  NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC}
END

CURRENCY F_TOTALE6 15
BEGIN
  PROMPT 42 13 ""
  FLAGS "D"
  NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP}
END

TEXT F_T7
BEGIN
  PROMPT 2 15 "Numero fatture "
  GROUP 6
END

NUMBER F_NDOCESC 4
BEGIN
  PROMPT 25 15 ""
  HELP "Numero di fatture ricevute nell'anno in corso dal fornitore"
  FIELD LF_ALLEG->NDOCESC
  FLAGS "R"
  GROUP 6
  MESSAGE K_TAB,F_TOTALE
END

NUMBER F_NDOCESP 4
BEGIN
  PROMPT 42 15 ""
  HELP "Numero di fatture ricevute nell'anno precedente dal fornitore"
  FIELD LF_ALLEG->NDOCESP
  FLAGS "R"
  GROUP 6
  MESSAGE K_TAB,F_TOTALE
END

NUMBER F_TOTALE 5
BEGIN
  PROMPT 60 15 ""
  FLAGS "RD"
  GROUP 6
  NUM_CALC {#F_NDOCESP+#F_NDOCESC}
END

TEXT F_T5
BEGIN
  PROMPT 2 17 "Operazioni non imponibili (mod 101)   "
  FLAGS "H"
END

TEXT F_T6
BEGIN
  PROMPT 2 17 "Operazioni non imponibili (mod 102)   "
  FLAGS "H"
END

CURRENCY F_PROG101102 15
BEGIN
  PROMPT 42 17 ""
  FIELD LF_ALLEG->PROG101102
  HELP "Totale operazioni non imponibili Art. 8 1^c, Artt. 8 bis, 9 e 72"
END

ENDPAGE

ENDMASK