campo-sirio/cg/cg21iva.uml

PAGE "RIGA IVA" -1 -1 78 12

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

STRING 102 4
BEGIN
  PROMPT 2 2 "IVA "
  HELP "Codice IVA della riga"
  FLAGS "U"
  USE %IVA
  INPUT CODTAB 102
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "%@6" R0
  DISPLAY "Tipo" S1
  OUTPUT 102 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

NUMBER 103 1
BEGIN
  PROMPT 2 3 "Detraibilita' "
  HELP "Indicare il tipo di detraibilita' della riga"
  SHEET "Codice|Tipo detraibilita'@75"
  INPUT 103
  ITEM " |Regime normale"
  ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
  ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
  ITEM "9|IVA non detraibile per l'articolo 19"
  OUTPUT 103
  OUTPUT 99
END

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

CURRENCY 101 18
BEGIN
  PROMPT 2 4 "Imponibile    "
END

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

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

LIST 106 1 12
BEGIN
  PROMPT 2 7 "Tipo "
  HELP "Tipo del conto"
  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 22 7 "Gruppo "
  HELP "Codice del gruppo"
  FIELD GRUPPO
END

NUMBER 108 3
BEGIN
  PROMPT 38 7 "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
  ADD RUN cg0 -0
  MESSAGE DIRTY,109|DIRTY,209|DIRTY,309
  CHECKTYPE NORMAL
  WARNING "Conto assente"
END


NUMBER 109 6
BEGIN
  PROMPT 55 7 "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
  DISPLAY "C/R" TIPOSPRIC
  OUTPUT 109 SOTTOCONTO
  OUTPUT 107 GRUPPO
  OUTPUT 108 CONTO
  OUTPUT 110 DESCR
  ADD RUN cg0 -0
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 101
  WARNING "Sottoconto assente"
END


NUMBER 209 6
BEGIN
  PROMPT 55 7 "Cliente    "
  HELP "Codice del 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 C
  MESSAGE COPY,109
  VALIDATE REQIF_FUNC 1 101
  WARNING "Cliente assente"
END

NUMBER 309 6
BEGIN
  PROMPT 55 7 "Fornitore  "
  HELP "Codice del fornitore"
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF 309
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
  OUTPUT 309 CODCF
  OUTPUT 310 RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 F
  MESSAGE COPY,109
  VALIDATE REQIF_FUNC 1 101
  WARNING "Fornitore assente"
END

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

STRING 210 50
BEGIN
  PROMPT 2 8 "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 C
  CHECKTYPE SEARCH
END

STRING 310 50
BEGIN
  PROMPT 2 8 "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 F
  CHECKTYPE SEARCH
END

LIST 105 1 51
BEGIN
  PROMPT 2 9 "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"
  FLAGS "D"
  HELP "Tipo Costo/Ricavo del conto"
END

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

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 "Elimina"
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
  MESSAGE EXIT,K_DEL
END

ENDPAGE

ENDMASK