campo-sirio/cg/cg0500a.uml

#include "cg0500.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Righe" 0 0 0 2

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

STRING F_COD_CAUS 3
BEGIN
  PROMPT 2 1 "Codice "
  FIELD CODCAUS
  KEY 1
  FLAGS "UZ"
  USE LF_CAUSALI
  INPUT CODCAUS F_COD_CAUS
  DISPLAY "Cod." CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Tipo movimento" TIPOMOV
  DISPLAY "Colleg." CODCAUSIM
  DISPLAY "770" M770
  DISPLAY "Cespiti" COLLCESP
  OUTPUT F_COD_CAUS CODCAUS
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_COD_CAUS2
END

STRING F_DESCR 50
BEGIN
  PROMPT 16 1 "Descriz."
  FIELD DESCR
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DESCR
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Cod." CODCAUS
  DISPLAY "Documento" TIPODOC
  DISPLAY "Registro" REG
  DISPLAY "Movimento" TIPOMOV
  DISPLAY "Colleg." CODCAUSIM
  DISPLAY "770" M770
  DISPLAY "Cespiti" COLLCESP
  COPY OUTPUT F_COD_CAUS
  CHECKTYPE REQUIRED
  KEY 2
  WARNING "Descrizione assente"
  MESSAGE COPY,F_DESCR2
END

STRING F_TIPO_DOC 2
BEGIN
  PROMPT 2 3 "Tipo documento "
  FIELD TIPODOC
  USE %TPD
  INPUT CODTAB F_TIPO_DOC
  DISPLAY "Tipo " CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_TIPO_DOC CODTAB
  OUTPUT F_DES_DOC S0
  WARNING "Tipo documento errato"
  CHECKTYPE NORMAL
  FLAGS "U"
  ADD NONE
  MESSAGE EMPTY CLEAR,F_SOLAIVA|ENABLE,F_PROVV
  MESSAGE ENABLE,F_SOLAIVA|CLEAR,F_PROVV
END

STRING F_DES_DOC 50
BEGIN
  PROMPT 24 3 ""
  USE %TPD KEY 2
  INPUT S0 F_DES_DOC
  DISPLAY "Descrizione @50" S0
  DISPLAY "Tipo " CODTAB
  COPY OUTPUT F_TIPO_DOC
  WARNING "Tipo documento errato"
  CHECKTYPE NORMAL
  ADD NONE
END

STRING F_COD_REG 3
BEGIN
  PROMPT 2 4 "Registro       "
  FIELD REG
  USE REG
  INPUT CODTAB[1,4] F_ANNOES
  INPUT CODTAB[5,7] F_COD_REG
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Registro" CODTAB[5,7]
  DISPLAY "Tipo" I0
  DISPLAY "Corrispettivi" B0
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_REG CODTAB[5,7]
  OUTPUT F_TIPO_REG I0
  OUTPUT F_CORRISP B0
  OUTPUT F_DES_REG S0
  WARNING "Registro assente o non compatibile col tipo documento"
  CHECKTYPE REQUIRED
  FLAGS "UZ"
END

STRING F_DES_REG 50
BEGIN
  PROMPT 24 4 ""
  USE REG KEY 2
  INPUT S0 F_DES_REG
  DISPLAY "Descrizione @50" S0
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Codice registro " CODTAB[5,7]
  DISPLAY "Tipo" I0
  DISPLAY "Corrispettivi" B0
  COPY OUTPUT F_COD_REG
  CHECKTYPE REQUIRED
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 5 "Anno liquidaz. "
  FLAGS "HA"
END

NUMBER F_TIPO_REG 1
BEGIN
  PROMPT 25 5 "Tipo "
  FLAGS "H"
END

// Questo rimane quasi sempre nascosto
STRING F_TIPO_MOV 1
BEGIN
  PROMPT 2 5 ""
  FIELD TIPOMOV
  FLAGS "H"
END

// Viene mostrato questo se TPD non vuoto e diverso da IN AN PG
LISTBOX F_TIPO_MOV_1 1 20
BEGIN
  PROMPT 2 5 "Tipo movimento        "
  FIELD TIPOMOV
  ITEM " |Nessuno"      MESSAGE COPY,F_TIPO_MOV
  ITEM "1|Fattura"      MESSAGE COPY,F_TIPO_MOV
  ITEM "2|Nota credito" MESSAGE COPY,F_TIPO_MOV
//  GROUP 2
END

// Viene mostrato questo se TPD vuoto o uguale a IN AN PG
LISTBOX F_TIPO_MOV_2 1 20
BEGIN
  PROMPT 2 5 "Tipo movimento        "
  FIELD TIPOMOV
  ITEM " |Nessuno"            MESSAGE COPY,F_TIPO_MOV|ENABLE,F_PROVV
  ITEM "1|Fattura"            MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
  ITEM "3|Incasso/pagamento " MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
  ITEM "5|Insoluto"           MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
  ITEM "6|Pagamento insoluto" MESSAGE COPY,F_TIPO_MOV|CLEAR,F_PROVV
  FLAGS "H"
END

BOOLEAN F_CORRISP
BEGIN
  PROMPT 33 5 ""
  FLAGS "H"
END

SPREADSHEET F_SHEET_GCS
BEGIN
  PROMPT 0 7 "Righe"
  ITEM "Tipo conto@21F"
  ITEM "D/A@3"
  ITEM "C/F@3"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc."
  ITEM "Descrizione Conto@50"
  ITEM "Desc. agg."
  ITEM "Descrizione Aggiuntiva@50"
END

ENDPAGE

PAGE "Parametri" -1 -1 77 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

STRING F_COD_CAUS2 3
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "D"
END

STRING F_DESCR2 50
BEGIN
  PROMPT 16 1 "Descriz."
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 3 "@BCampi obbligatori in immissione documenti"
END

BOOLEAN F_DATA_DOC
BEGIN
  PROMPT 2 4 "Data documento"
  FIELD DATADOC
END

BOOLEAN F_NUM_DOC
BEGIN
  PROMPT 34 4 "Numero documento"
  FIELD NUMDOC
END

BOOLEAN F_AUTO_FAT
BEGIN
  PROMPT 2 6 "Autofattura art.34"
  FIELD AUTOFATT
  GROUP 2
END

BOOLEAN F_ALLEGAT
BEGIN
  PROMPT 34 6 "Doc. non va in allegati fine anno"
  FIELD ALLEG
  GROUP 2
END

BOOLEAN F_FAT_RITARDO
BEGIN
  PROMPT 2 8 "Fattura in ritardo"
  FIELD RITFATT
  GROUP 2
END

STRING F_COD_CAUS_IM 3
BEGIN
  PROMPT 34 8 "Codice causale collegata "
  FLAGS "UZ"
  FIELD CODCAUSIM
  USE LF_CAUSALI 
  INPUT CODCAUS F_COD_CAUS_IM
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Documento" TIPODOC
  OUTPUT F_COD_CAUS_IM CODCAUS
  CHECKTYPE NORMAL
  GROUP 2
END

BOOLEAN F_OP_INTRACOM
BEGIN
  PROMPT 2 10 "Operazione intracomunitaria"
  FIELD INTRACOM
  GROUP 2
END

BOOLEAN F_VALINTRA
BEGIN
  PROMPT 34 10 "Gestione valuta per operazioni intrac."
  FIELD VALINTRA
  GROUP 2
END

BOOLEAN F_MOV_VALU
BEGIN
  PROMPT 2 11 "Movimento in valuta"
  FIELD MOVVAL
  GROUP 2
END

BOOLEAN F_SOLAIVA
BEGIN
  PROMPT 34 11 "Movimento di sola IVA"
  FIELD SOLOIVA
END

BOOLEAN F_MOV_SEZ
BEGIN
  PROMPT 34 11 "Movimento solo sezionale"
  FIELD MOVSEZ
  FLAGS "H"
END

LIST F_PROVV 1 26
BEGIN
  PROMPT 2 13 "Movimento provvisorio    "
  FIELD PROVV
  ITEM " |No (movimento normale)"
  ITEM "P|Si (cancellabile)"
  ITEM "C|Cespiti"
END

LIST F_OP_FINE_ANNO 1 11
BEGIN
  PROMPT 2 14 "Operazioni di fine anno  "
  ITEM " | "
  ITEM "C|Chiusura"
  ITEM "A|Apertura"
  FIELD MOVAP
  FLAGS "H"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 15 "@bCollegamenti"
END 

LISTBOX F_M_770 1 48
BEGIN
  PROMPT 2 16 "Modello 770 "
  FIELD M770
  ITEM " |Nessuno"
  ITEM "1|Ricevuta e/o pagamento fattura percipiente"
  ITEM "2|Versamento ritenute percipiente"
  ITEM "3|Versamento ritenute dipendente"
  ITEM "4|Versamento contributi dipendente"
  ITEM "5|Compensi non soggetti"
  ITEM "6|Ritenute per prestazioni occasionali"
  MODULE 77
END

LIST F_COLL_CESP 1 40
BEGIN
  PROMPT 2 17 "Cespiti     "
  FIELD COLLCESP
  ITEM " |Nessuno"
  ITEM "A|Acquisto cespite"
  ITEM "B|Rettifica acquisto"
  ITEM "C|Sostenimento costi"
  ITEM "E|Eliminazione dal processo produttivo"
  ITEM "M|Rivalutazione monetaria"
  ITEM "P|Reinvestimento plusvalenze"
  ITEM "R|Rivalutazione economica"
  ITEM "T|Trasferimento"
  ITEM "V|Vendita cespite"
  ITEM "Z|Rettifica vendita"
  MODULE ce
END

BOOLEAN F_MOVIND
BEGIN
  PROMPT 2 18 "Contabilit<69> analitica"
  FIELD MOVIND
  MODULE ca,cm
  MESSAGE FALSE CLEAR,F_CONTIND
  MESSAGE TRUE ENABLE,F_CONTIND
END

BOOLEAN F_CONTIND
BEGIN
  PROMPT 34 18 "Contabilit<69> industriale"
  FIELD MOVCGIND
  MODULE ci
END

NUMBER F_REGSPIVA  2
BEGIN
  PROMPT 2 19 "Regimi speciali IVA      "
	INPUT F_REGSPIVA
	SHEET "Codice|Descrizione@75"
  ITEM "|Nessuno"
	ITEM "1|Acquisti beni dallo Stato del Vaticano e dalla Repubblica di San Marino"
	ITEM "2|Estrazione beni da depositi Iva"
	ITEM "3|Acquisti beni e servizi da soggetti non residenti"
	ITEM "4|Operazioni di cui all'art.74,c.1,lett.e)"         
	ITEM "5|Provvigioni corrisposte dalle agenzie di viaggio ai loro intermediari"
	ITEM "12|Acquisti di tartufi (art.1,c.109,legge 311/2004)"
	ITEM "13|Subappalti in edilizia (Reverse charge)"
	ITEM "50|Importazione di oro o argento (Reverse charge)"
	ITEM "51|Rottami (Reverse charge)"
	ITEM "52|Operazioni effettuate nei confronti di condominii"
	OUTPUT F_REGSPIVA
	FIELD REGSPIVA
END

STRING F_CODCAUREG 3
BEGIN
  PROMPT 34 19 "Codice causale regolarizzazione IVA "
  FLAGS "UZ"
  FIELD CODCAUREG
  USE LF_CAUSALI SELECT (SOLOIVA="X")&&(CODCAUS!=#F_COD_CAUS)&&((REGSPIVA=="")||(REGSPIVA==#F_REGSPIVA))
  INPUT CODCAUS F_CODCAUREG
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Registro" REG
  DISPLAY "Documento" TIPODOC
  OUTPUT F_CODCAUREG CODCAUS
  CHECKTYPE NORMAL
END

ENDPAGE
ENDMASK

#include "cg0500b.uml"