campo-sirio/cg/cg21iva.uml

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
	ITEM "C|Cliente"
		MESSAGE SHOW,209|HIDE,109|HIDE,309
	ITEM "F|Fornitore"
		MESSAGE SHOW,309|HIDE,109|HIDE,209
	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 104 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 104 TIPOSPRIC
	OUTPUT 107 GRUPPO
	OUTPUT 108 CONTO
	OUTPUT 109 SOTTOCONTO
	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 110 RAGSOC
	CHECKTYPE NORMAL
	ADD RUN cg0 -1
	FLAGS "G"
	MESSAGE COPY,109|RESET,104
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 110 RAGSOC
	CHECKTYPE NORMAL
	ADD RUN cg0 -1
	FLAGS "G"
	MESSAGE COPY,109|RESET,104
END

STRING 110 50
BEGIN
	PROMPT 2 3 "Descrizione  "
	FLAGS "D"
END

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

STRING 102 4
BEGIN
	PROMPT 2 6 "IVA "
	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 105 1
BEGIN
	PROMPT 2 7 "Detraz. "
	SHEET "Codice|Descrizione@60"
	INPUT 105
	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 105
	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 103 14
BEGIN
	PROMPT 41 8 "Imposta   "
	FLAGS "RV"
	PICTURE "."
END


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

STRING 104 1
BEGIN
	PROMPT 2 11 "Tipo "
	FLAGS "D"
	HELP "Specifica il tipo Costo/Ricavo"
	SHEET "Codice|Descrizione@50"
	INPUT 104
	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 104
	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