PAGE "RIGA IVA" -1 -1 70 15

GROUPBOX DLG_NULL 67 4
BEGIN
  PROMPT 1 1 "Conto"
END

LIST 106 1 12
BEGIN
  PROMPT 2 2 "Tipo "
  FIELD TMCF
  ITEM " |Conto"
    MESSAGE SHOW,109|HIDE,209|HIDE,309|SHOW,110|HIDE,210|HIDE,310
  ITEM "C|Cliente"
    MESSAGE SHOW,209|HIDE,109|HIDE,309|SHOW,210|HIDE,110|HIDE,310
  ITEM "F|Fornitore"
    MESSAGE SHOW,309|HIDE,109|HIDE,209|SHOW,310|HIDE,110|HIDE,210
  FLAGS "U"
END

NUMBER 107 3
BEGIN
  PROMPT 21 2 "Gruppo "
  FIELD GRUPPO
END

NUMBER 108 3
BEGIN
  PROMPT 33 2 "Conto "
  FIELD CONTO
  USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
  INPUT GRUPPO 107
  INPUT CONTO 108
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF 
  OUTPUT 106 TMCF
  OUTPUT 107 GRUPPO
  OUTPUT 108 CONTO
  OUTPUT 110 DESCR
  OUTPUT 105 TIPOSPRIC
  ADD RUN cg0 -0
  CHECKTYPE NORMAL
  WARNING "Conto inesistente nella riga IVA"
END


NUMBER 109 6
BEGIN
  PROMPT 46 2 "Sottoconto "
  FIELD SOTTOCONTO
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO 107
  INPUT CONTO 108
  INPUT SOTTOCONTO 109
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT 109 SOTTOCONTO
  OUTPUT 105 TIPOSPRIC
  OUTPUT 107 GRUPPO
  OUTPUT 108 CONTO
  OUTPUT 110 DESCR
  ADD RUN cg0 -0
  CHECKTYPE NORMAL
  WARNING "Sottoconto inesistente nella riga IVA"
END


NUMBER 209 6
BEGIN
  PROMPT 46 2 "Cliente    "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF 209
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Cliente@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT 209 CODCF
  OUTPUT 210 RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
  FLAGS "G"
  MESSAGE COPY,109|RESET,105
END

NUMBER 309 6
BEGIN
  PROMPT 46 2 "Fornitore  "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF 309
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  OUTPUT 107 GRUPPO
  OUTPUT 108 CONTO
  OUTPUT 309 CODCF
  OUTPUT 310 RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
  FLAGS "G"
  MESSAGE COPY,109|RESET,105
END

STRING 110 50
BEGIN
	PROMPT 2 3 "Descriz.  "
	FIELD LF_PCON->DESCR
	USE LF_PCON KEY 2
	INPUT DESCR 107
	DISPLAY "Descrizione@50" DESCR
	DISPLAY "Gruppo" GRUPPO
	DISPLAY "Conto" CONTO
	DISPLAY "Sottoconto" SOTTOCONTO
	COPY OUTPUT 109
	CHECKTYPE NORMAL
	WARNING "Sottoconto inesistente o mancante sulla riga IVA"
	ADD RUN cg0 -0
END

STRING 210 50
BEGIN
	PROMPT 2 3 "Cliente   "
	FIELD LF_CLIFO->RAGSOC
	USE LF_CLIFO KEY 2
	INPUT TIPOCF "C"
	INPUT RAGSOC 210
	DISPLAY "Ragione Sociale Cliente@50" RAGSOC
	DISPLAY "Gruppo" GRUPPO
	DISPLAY "Conto" CONTO
	DISPLAY "Codice" CODCF
	COPY OUTPUT 209
	MESSAGE COPY,110
	ADD RUN cg0 -1
	CHECKTYPE NORMAL
	WARNING "Cliente inesistente sulla riga IVA"
END

STRING 310 50
BEGIN
	PROMPT 2 3 "Fornitore "
	FIELD LF_PCON->SOTTOCONTO
	USE LF_CLIFO KEY 2
	INPUT TIPOCF "F"
	INPUT RAGSOC 310
	DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
	DISPLAY "Gruppo" GRUPPO
	DISPLAY "Conto" CONTO
	DISPLAY "Codice" CODCF
	COPY OUTPUT 309
	MESSAGE COPY,110
	ADD RUN cg0 -1
	CHECKTYPE NORMAL
	WARNING "Fornitore inesistente sulla riga IVA"
END



GROUPBOX DLG_NULL 67 5
BEGIN
  PROMPT 1 5 "Imposta"
END

STRING 102 4
BEGIN
  PROMPT 2 6 "IVA "
  FLAGS "U"
  USE %IVA
  INPUT CODTAB 102
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "%@6" R0
  DISPLAY "Tipo" S1
  OUTPUT 102 CODTAB
  OUTPUT 211 S0          
  CHECKTYPE NORMAL
END

STRING 211 50
BEGIN
  PROMPT 15 6 ""
  FLAGS "D"
END

NUMBER 103 1
BEGIN
  PROMPT 2 7 "Detraz. "
  SHEET "Codice|Descrizione@60"
  INPUT 103
  ITEM " |Regime normale"
  ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
  ITEM "3|IVA indicata per il solo calcolo di ventilazione"
  ITEM "9|IVA non detraibile per l'articolo 19"
  OUTPUT 103
  OUTPUT 213
END

STRING 213 50
BEGIN
  PROMPT 15 7 ""
  FLAGS "D"
END


NUMBER 101 14
BEGIN
  PROMPT 2 8 "Imponibile "
  FLAGS "RV"
  PICTURE "."
END

NUMBER 104 14
BEGIN
  PROMPT 41 8 "Imposta   "
  FLAGS "RV"
  PICTURE "."
END


GROUPBOX DLG_NULL 67 3
BEGIN
  PROMPT 1 10 "Costo/Ricavo"
END

STRING 105 1
BEGIN
  PROMPT 2 11 "Tipo "
  FLAGS "D"
  HELP "Specifica il tipo Costo/Ricavo"
  SHEET "Codice|Descrizione@50"
  INPUT 105
  ITEM " |Acquisti o vendite in genere"
  ITEM "1|Acquisti beni per rivendita"
  ITEM "2|Acquisti beni ammortizzabili"
  ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
  ITEM "4|Vendita beni strumentali art. 17"
  ITEM "5|Beni per rivendita da non ventilare"
  ITEM "8|Altri beni strumentali acquistati in leasing"
  OUTPUT 105
  OUTPUT 212
END

STRING 212 50
BEGIN
  PROMPT 15 11 ""
  FLAGS "D"
END


BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
  PROMPT -33 -1 "Elimina"
END

ENDPAGE

ENDMASK