#include "cg0300.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Immissione progressivi allegati" -1 -1 78 19

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"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 2 "Ditta         "
  HELP "Ditta di cui si vogliono visualizzare i saldi"
  FLAGS "RPDG"
  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 "Op. non imp. ed esenti ",99
  MESSAGE "Operazioni non imponibili (mod 101)   ",F_PROMPT
  MESSAGE ENABLE,F_CODCF|HIDE,6@
  ITEM "F|Fornitori"
  MESSAGE "Op. senza appl. d'imp. ",99
  MESSAGE "Operazioni non imponibili (mod 102)   ",F_PROMPT
  MESSAGE ENABLE,F_CODCF|SHOW,6@
  ITEM "B|Boll.doganali"
  MESSAGE "Operazioni senza appl. d'imposta ",99
  MESSAGE "Operazioni non imponibili (mod 102)   ",F_PROMPT
  MESSAGE 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
	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
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 1
  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"
END

STRING F_COFI 16
BEGIN
  PROMPT 2 6 "Cod.fiscale   "
  KEY 1
  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"
END

STRING F_PAIV 12
BEGIN
  PROMPT 36 6 "Partita IVA       "
  KEY 1
  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"
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

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

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

NUMBER F_TOTALE1 15
BEGIN
  PROMPT 60 9 ""
  FLAGS "RD"
  PICTURE "."
	NUM_CALC {#F_IMPESP+#F_IMPESC}
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Imposte addebitate "
END

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

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

NUMBER F_TOTALE2 15
BEGIN
  PROMPT 60 10 ""
  FLAGS "RD"
  PICTURE "."
	NUM_CALC {#F_IVAESP+#F_IVAESC}
END

TEXT 99
BEGIN
  PROMPT 2 11 "Op. non imp. ed esenti "
END

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

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

NUMBER F_TOTALE3 15
BEGIN
  PROMPT 60 11 ""
  FLAGS "RD"
  PICTURE "."
	NUM_CALC {#F_NIESP+#F_NIESC}
END

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

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

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

NUMBER F_TOTALE4 15
BEGIN
  PROMPT 60 12 ""
  FLAGS "RD"
  GROUP 6
  PICTURE "."
	NUM_CALC {#F_E8ESP+#F_E8ESC}
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 13 "Totale "
END

NUMBER F_TOTALE5 15
BEGIN
  PROMPT 25 13 ""
  FLAGS "RD"
  PICTURE "."
	NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC}
END

NUMBER F_TOTALE6 15
BEGIN
  PROMPT 42 13 ""
  FLAGS "RD"
  PICTURE "."
	NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP}
END

TEXT 97
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_PROMPT
BEGIN
  PROMPT 2 17 "Operazioni non imponibili (mod 102)   "
END

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