campo-sirio/src/cg/cg21iva.uml

PAGE "RIGA IVA" -1 -1 78 19

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 1 "@BImposta"
END

STRING IVA_CODIVA 4
BEGIN
  PROMPT 2 2 "IVA "
  HELP "Codice IVA della riga"
  FLAGS "U"
  USE %IVA
  INPUT CODTAB IVA_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "%@6" R0
  DISPLAY "Tipo" S1
  OUTPUT IVA_CODIVA CODTAB
  OUTPUT 158 S0          
  CHECKTYPE NORMAL
  WARNING "Codice IVA assente"
  VALIDATE ZEROFILL_FUNC 2
END

STRING 158 58
BEGIN
  PROMPT 16 2 ""
  FLAGS "D"
END

STRING IVA_INDETRAIBILE 1
BEGIN
  PROMPT 2 3 "Indetraibilit<69>  "
  USE %DET
  INPUT CODTAB IVA_INDETRAIBILE
  DISPLAY "Codice" CODTAB
  DISPLAY "Tipo" I0
  DISPLAY "Percentuale@R" R0
  DISPLAY "Descrizione@50" S0
  OUTPUT IVA_INDETRAIBILE CODTAB
  OUTPUT 99 S0
  CHECTYPE NORMAL
  FLAGS "U"
END

STRING 99 75 52
BEGIN
  PROMPT 22 3 ""
  FLAGS "D"
END

CURRENCY IVA_IMPONIBILE 18
BEGIN
  PROMPT 2 4 "Imponibile    "
END

STRING IVA_PERCIVA 3
BEGIN
	PROMPT 20 4 "Perc."
	FLAGS "D"
END

CURRENCY IVA_IMPOSTA 18
BEGIN
  PROMPT 48 4 "Imposta "
  HELP "Importo dell'IVA.  Se e' nullo, col tasto F8 si puo' effettuare lo scorporo"
END

STRING IVA_NATURIVA 4
BEGIN
	PROMPT 2 6 "Natura"
	FLAGS "D"
END

BOOLEAN IVA_REVCHARGE
BEGIN
	PROMPT 48 6  "Reverse charge"
	FLAGS "D"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 8 "@BConto"
END

LIST IVA_TIPO 1 12
BEGIN
  PROMPT 2 9 ""
  HELP "Tipo del conto"
  FIELD TIPOC
  ITEM " |Conto"
    MESSAGE SHOW,IVA_SOTTOCONTO|HIDE,IVA_CLIENTE|HIDE,IVA_FORNITORE|SHOW,IVA_DESCRCONTO|HIDE,IVA_DESCRCONTOC|HIDE,IVA_DESCRCONTOF
  ITEM "C|Cliente"
    MESSAGE SHOW,IVA_CLIENTE|HIDE,IVA_SOTTOCONTO|HIDE,IVA_FORNITORE|SHOW,IVA_DESCRCONTOC|HIDE,IVA_DESCRCONTO|HIDE,IVA_DESCRCONTOF
  ITEM "F|Fornitore"
    MESSAGE SHOW,IVA_FORNITORE|HIDE,IVA_SOTTOCONTO|HIDE,IVA_CLIENTE|SHOW,IVA_DESCRCONTOF|HIDE,IVA_DESCRCONTO|HIDE,IVA_DESCRCONTOC
  FLAGS "U"
END

NUMBER IVA_GRUPPO 3
BEGIN
  PROMPT 22 9 "Gruppo "
  HELP "Codice del gruppo"
  FIELD GRUPPO
END

NUMBER IVA_CONTO 3
BEGIN
  PROMPT 38 9 "Conto "
  FIELD CONTO
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO IVA_GRUPPO
  INPUT CONTO IVA_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TMCF 
  OUTPUT IVA_TIPO TMCF
  OUTPUT IVA_GRUPPO GRUPPO
  OUTPUT IVA_CONTO CONTO
  OUTPUT IVA_DESCRCONTO DESCR
  ADD RUN cg0 -0
  MESSAGE DIRTY,IVA_SOTTOCONTO|DIRTY,IVA_CLIENTE|DIRTY,IVA_FORNITORE
  CHECKTYPE NORMAL
  WARNING "Conto assente"
END


NUMBER IVA_SOTTOCONTO 6
BEGIN
  PROMPT 55 9 "Sottoconto "
  FIELD SOTTOCONTO
  USE LF_PCON SELECT SOTTOCONTO!=""
  INPUT GRUPPO IVA_GRUPPO
  INPUT CONTO IVA_CONTO
  INPUT SOTTOCONTO IVA_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "C/R" TIPOSPRIC
  OUTPUT IVA_SOTTOCONTO SOTTOCONTO
  OUTPUT IVA_GRUPPO GRUPPO
  OUTPUT IVA_CONTO CONTO
  OUTPUT IVA_DESCRCONTO DESCR
  ADD RUN cg0 -0
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 IVA_IMPONIBILE
  WARNING "Sottoconto assente"
END

NUMBER IVA_CLIENTE 6
BEGIN
  PROMPT 55 9 "Cliente    "
  HELP "Codice del cliente"
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF IVA_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Cliente@50" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  OUTPUT IVA_CLIENTE CODCF
  OUTPUT IVA_DESCRCONTOC RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 C
  MESSAGE COPY,IVA_SOTTOCONTO
  VALIDATE REQIF_FUNC 1 IVA_IMPONIBILE
  WARNING "Cliente assente"
END

NUMBER IVA_FORNITORE 6
BEGIN
  PROMPT 55 9 "Fornitore  "
  HELP "Codice del fornitore"
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF IVA_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  OUTPUT IVA_FORNITORE CODCF
  OUTPUT IVA_DESCRCONTOF RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 F
  MESSAGE COPY,IVA_SOTTOCONTO
  VALIDATE REQIF_FUNC 1 IVA_IMPONIBILE
  WARNING "Fornitore assente"
END

STRING IVA_DESCRCONTO 50
BEGIN
  PROMPT 2 10 "Descrizione         "
  FIELD LF_PCON->DESCR
  USE LF_PCON KEY 2
  INPUT DESCR IVA_DESCRCONTO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "C/R" TIPOSPRIC
  COPY OUTPUT IVA_SOTTOCONTO
  ADD RUN cg0 -0
END

STRING IVA_DESCRCONTOC 50
BEGIN
  PROMPT 2 10 "Cliente             "
  FIELD LF_CLIFO->RAGSOC
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC IVA_DESCRCONTOC
  DISPLAY "Ragione Sociale Cliente@55" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Codice" CODCF
  COPY OUTPUT IVA_CLIENTE
  MESSAGE COPY,IVA_DESCRCONTO
  ADD RUN cg0 -1 C
END

STRING IVA_DESCRCONTOF 50
BEGIN
  PROMPT 2 10 "Fornitore           "
  FIELD LF_PCON->SOTTOCONTO
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC IVA_DESCRCONTOF
  DISPLAY "Ragione Sociale Fornitore@55" RAGSOC
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Codice" CODCF
  COPY OUTPUT IVA_FORNITORE
  MESSAGE COPY,IVA_DESCRCONTO
  ADD RUN cg0 -1 F
END

LIST IVA_TIPOCOSTORIC 2 51
BEGIN
  PROMPT 2 11 "Tipo Costo/Ricavo   "
  ITEM " |0. Acquisti o vendite in genere"
  ITEM "1|1. Acquisti beni per rivendita"
  ITEM "2|2. Acquisti beni ammortizzabili"
  ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
  ITEM "4|4. Vendita beni strumentali art. 17"
  ITEM "5|5. Beni per rivendita da non ventilare"
  ITEM "8|8. Altri beni strumentali acquistati in leasing"
  ITEM "9|9. Spese generali"
  ITEM "17|17. Operazioni nei confronti dei condominii"
  FLAGS "D"
  HELP "Tipo Costo/Ricavo del conto"
END

BOOLEAN IVA_NOTAVARECF
BEGIN
  PROMPT 2 17 "Nota di variazione riferita ad anni precedenti (per Elenco Clienti/Fornitori)"
  FIELD NOTAVARECF
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
END

BUTTON CG_RATEO 2 2 
BEGIN
  PROMPT 3 1 "Rateo"
  PICTURE TOOL_TODATAFIN
END

BUTTON CG_RISCONTO 2 2 
BEGIN
  PROMPT 4 1 "Risconto"
  PICTURE TOOL_TODATAINI
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT 5 1 ""
END

ENDPAGE

ENDMASK