campo-sirio/src/cg/cg2100c.uml

#include "cg2100.h"
#include "cg21sld.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_LINK 2 2
BEGIN
	PROMPT 3 1 "Fatture SDI"
	PICTURE TOOL_ELABORA
	MODULE FP
END

BUTTON DLG_EDIT 2 2
BEGIN
	PROMPT 3 1 "Scollega F.E."
	PICTURE TOOL_CANCEL
	MODULE FP
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT 1 1 ""
END

#include <relapbar.h>


ENDPAGE

PAGE "Testata" -1 -1 77 20

BOOLEAN F_REGST
BEGIN
  FIELD REGST
  FLAGS "H"
END

BOOLEAN F_STAMPATO
BEGIN
  FIELD STAMPATO
  FLAGS "H"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 0 "@BMovimento IVA"
END

NUMBER F_NUMREG 7
BEGIN
  PROMPT 56 1 "Operazione n. "
  FIELD NUMREG
  FLAGS "DGR"
  KEY 1
  MESSAGE COPY,H_NUMREG
END

DATE F_DATAREG
BEGIN
  PROMPT 1 1 "Data operazione "
  FIELD DATAREG
  MESSAGE COPY,H_DATAREG|COPY,F_ANNOIVA,7,10
  CHECKTYPE REQUIRED
END

NUMBER F_ANNOIVA 4
BEGIN
  PROMPT 31 1 "Anno IVA         "
  FIELD ANNOIVA
  FLAGS "D"
END

DATE F_DATACOMP
BEGIN
  PROMPT 1 2 "Data competenza "
  FIELD DATACOMP
  FLAGS "G"
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 31 2 "Codice esercizio "
  FIELD ANNOES
  FLAGS "DGZ"
  MESSAGE COPY,H_ANNOES
END

STRING F_CODREG 3
BEGIN
  PROMPT 56 2 "Registro IVA  "
  FLAGS "DUZ"
  FIELD REG
END

DATE F_DATACOMPCR
BEGIN
  PROMPT 1 3 "Data comp.c/r   "
  FIELD DATACOMPCR
  FLAGS "HG"
END

STRING F_CODCAUS 3
BEGIN
  PROMPT 1 4 "Causale         "
  FLAGS "UZ"
  FIELD CODCAUS
  USE LF_CAUSALI SELECT REG!=""
  INPUT CODCAUS F_CODCAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  OUTPUT F_CODCAUS CODCAUS
  OUTPUT F_DESCRCAUS DESCR
  OUTPUT F_CODREG REG
  OUTPUT F_TIPODOC TIPODOC
  MESSAGE COPY,H_CODCAUS
  CHECKTYPE REQUIRED
  ADD RUN cg0 -4
END

STRING F_DESCRCAUS 50
BEGIN
  PROMPT 25 4 ""
  USE LF_CAUSALI KEY 2 SELECT REG!=""
  INPUT DESCR F_DESCRCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Registro" REG
  COPY OUTPUT F_CODCAUS
  MESSAGE COPY,H_DESCRCAUS
  CHECKTYPE REQUIRED
  ADD RUN cg0 -4
END

STRING F_NUMDOCEXT 50
BEGIN
  PROMPT 1 5 "Numero documento esteso "
  FIELD NUMDOCEXT
END

STRING F_NUMDOC 7
BEGIN
  PROMPT 1 6 "Documento n.    "
  FIELD NUMDOC
  FLAGS "U"
  WARNING "La causale o il saldaconto richiedono il numero documento"
END

DATE F_DATADOC
BEGIN
  PROMPT 27 6 "Data documento "
  FIELD DATADOC
  WARNING "Inserire una data documento non superiore alla data dell'operazione"
  VALIDATE DATE_CMP_FUNC <= F_DATAREG
END

STRING F_TIPODOC 2
BEGIN
  PROMPT 56 6 "Tipo "
  FIELD TIPODOC
  FLAGS "D"
END

BUTTON F_LINKDOC 3 1
BEGIN
  PROMPT 73 6 "Doc."
END

LIST F_SOLAIVA 1 3
BEGIN
  PROMPT 1 7 "Movimento di sola IVA "
  ITEM " |No"
  ITEM "X|Si"
END

LIST F_PROVVISORIO 1 28
BEGIN
  PROMPT 31 7 "Mov.provvisorio "
  FIELD PROVVIS
  ITEM " |No (movimento normale)"
  ITEM "P|Si (cancellabile)"
  ITEM "N|Si (Non cancellabile)"
  ITEM "B|Si (Bilancio costi/ricavi)"
  ITEM "C|Si (Cespiti)"
END

STRING F_DESCAGG 5 6
BEGIN
  PROMPT 1 8 "Descrizione    "
  FLAGS "UZ"
  USE %DPN
  INPUT CODTAB F_DESCAGG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DESCAGG CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE NORMAL
END

STRING F_DESCR 50
BEGIN
  PROMPT 25 8 ""
  FIELD DESCR
  USE %DPN KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DESCAGG
END

NUMBER F_PROTIVA 6
BEGIN
  PROMPT 1 9 "Protocollo IVA "
  FIELD PROTIVA
END

NUMBER F_RIEPILOGO 6
BEGIN
  PROMPT 25 9 "Riepilogo al n."
  FIELD UPROTIVA
  NUM_EXPR {(#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)}
  WARNING "Inserire un riepilogo non inferiore al protocollo IVA (Obbigatorio se il cliente/fornitore ha codice inserimento in  allegati uguale a 3)"
END

LIST F_DIFFERITA 1 19
BEGIN
  PROMPT 48 9 "Liquid. "
  ITEM " |periodo in corso"
  ITEM "X|periodo precedente"
END

NUMBER F_CODCLIFOR 6
BEGIN
  PROMPT 1 10 "Cliente        "
  FIELD CODCF
  GROUP 1
  USE LF_CLIFO
  INPUT TIPOCF F_CLIFO SELECT
  INPUT CODCF F_CODCLIFOR
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT F_CODCLIFOR CODCF
  OUTPUT F_RAGSOCCF RAGSOC
  OUTPUT F_STATOPAIV STATOPAIV
  OUTPUT F_PIVA PAIV
  OUTPUT F_COFI COFI
  OUTPUT F_RICALT RICALT
  CHECKTYPE REQUIRED
  WARNING "Cliente/Fornitore assente"
  ADD RUN cg0 -1
END


STRING F_RAGSOCCF 50
BEGIN
  PROMPT 25 10 ""
  GROUP 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_CLIFO SELECT
  INPUT RAGSOC F_RAGSOCCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  COPY OUTPUT F_CODCLIFOR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1
END


STRING F_COFI 16
BEGIN
  PROMPT 1 11 "C.F. "
  GROUP 1
  USE LF_CLIFO KEY 4
  INPUT TIPOCF F_CLIFO SELECT
  INPUT COFI F_COFI
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  COPY OUTPUT F_CODCLIFOR
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_PIVA 12
BEGIN
  PROMPT 26 11 "P.I. "
  GROUP 1
  USE LF_CLIFO KEY 5
  INPUT TIPOCF F_CLIFO SELECT
  INPUT STATOPAIV F_STATOPAIV
  INPUT PAIV F_PIVA
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Codice Fiscale@16" COFI
  COPY OUTPUT F_CODCLIFOR
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
END

STRING F_STATOPAIV 2
BEGIN
  PROMPT 46 11 ""
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_STATOPAIV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOPAIV CODTAB
  CHECKTYPE NORMAL
END

STRING F_RICALT 30 18
BEGIN
  PROMPT 52 11 "Alt. "
  USE LF_CLIFO KEY 6
  INPUT TIPOCF F_CLIFO SELECT
  INPUT RICALT F_RICALT
  DISPLAY "Codice alternativo@30" RICALT
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  COPY OUTPUT F_CODCLIFOR
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
  GROUP 1
END

BUTTON F_OCCASEDIT 50
BEGIN
  PROMPT 1 11 "Dati del cliente o fornitore occasionale"
  FLAGS "H"
END

STRING F_CODPAG 4
BEGIN
  PROMPT 1 12 "Codice Pagamento "
  FIELD CODPAG
  FLAGS "U#"
  USE %CPG
  INPUT CODTAB F_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  OUTPUT F_DESPAG S0
  CHECKTYPE NORMAL
  ADD RUN ba3 -6
  WARNING "Codice pagamento assente"
END

STRING F_DESPAG 50
BEGIN
  PROMPT 25 12 ""
  USE %CPG KEY 2
  INPUT S0 F_DESPAG
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODPAG
  ADD RUN ba3 -6
END

// Campi per Invio dati rilevanti (FE)

LIST F_CLIFO 1 10
BEGIN
  PROMPT 1 13 "Tipo "
  ITEM "|Conto"
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FIELD TIPO
  FLAGS "H"
END

NUMBER F_BOLLACODCLI 6
BEGIN
  PROMPT 1 13 "Forn. collegato  "
  FIELD CFBOLLADOG
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_BOLLACODCLI
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT F_BOLLACODCLI CODCF
  OUTPUT F_BOLLARAGCLI RAGSOC
  CHECKTYPE NORMAL
  WARNING "Fornitore associato a bolla doganale assente"
  ADD RUN cg0 -1
  FLAGS ""
END

STRING F_BOLLARAGCLI 50 47
BEGIN
  PROMPT 28 13 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_BOLLARAGCLI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  OUTPUT F_BOLLACODCLI CODCF
  OUTPUT F_BOLLARAGCLI RAGSOC
  CHECKTYPE NORMAL
  ADD RUN cg0 -1
  FLAGS ""
END

// Campi per saldaconto in valuta

STRING SK_VALUTA 3
BEGIN
  PROMPT 1 14 "Valuta "
  FIELD CODVAL
  FLAGS "UZ"
  GROUP 3
  USE %VAL
  INPUT CODTAB SK_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT SK_VALUTA CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice valuta assente"
END

DATE SK_DATACAMBIO
BEGIN
  PROMPT 18 14 "Data cambio "
  FIELD DATACAM
  FLAGS "R"
  USE CAM
  JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
  INPUT CODTAB[1,3] SK_VALUTA SELECT
  INPUT CODTAB[4,11] SK_DATACAMBIO
  DISPLAY "Cod" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@18R" S4
  DISPLAY "Valuta@50" 104@->S0
  OUTPUT SK_DATACAMBIO D0
  OUTPUT SK_CAMBIO S4
  GROUP 3
  CHECKTYPE SEARCH
END

NUMBER SK_CAMBIO 15 6
BEGIN
  PROMPT 44 14 "Cambio "
  FIELD CAMBIO
  FLAGS "RU"
  GROUP 3
  PICTURE ".6"
  CHECKTYPE REQUIRED  
  WARNING "Inserire il cambio o eliminare il codice valuta"
END

CURRENCY F_TOTALE 18
BEGIN
  PROMPT 1 15 "Totale documento "
  FIELD TOTDOC
END

CURRENCY SK_TOTDOCVAL 18
BEGIN
  PROMPT 38 15 "in valuta "
  FIELD TOTDOCVAL
  GROUP 3
  VALIDATE REQIF_FUNC 1 F_TOTALE
  DRIVENBY SK_VALUTA
END

STRING F_CODIVA 4
BEGIN
  PROMPT 67 15 "IVA "
  FLAGS "U"
  USE %IVA
  INPUT CODTAB F_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "%@6" R0
  DISPLAY "Tipo" S1
  OUTPUT F_CODIVA CODTAB
  CHECKTYPE NORMAL
  VALIDATE ZEROFILL_FUNC 2
  WARNING "Codice IVA assente"
END

CURRENCY F_RITFIS 18
BEGIN
  PROMPT 1 16 "Ritenute fiscali "
  FIELD RITFIS
END

CURRENCY F_RITSOC 18
BEGIN
  PROMPT 1 17 "Ritenute sociali "
  FIELD RITSOC
END

CURRENCY F_REVCHARGE 18
BEGIN
  PROMPT 1 18 "Reverse charge   "
  FIELD REVCHARGE
END

NUMBER F_MOVCOLL 7
BEGIN
  PROMPT 40 18 "Mov.collegato"
  WARNING "Movimento collegato reverse charge"
  FIELD MOVCOLL
  FLAGS "HDG"
END

BUTTON F_GOCOLL 10 1
BEGIN
	PROMPT 64 18 "Mov.Coll."
  FLAGS "HDG"
END

DATE F_DATA74TER
BEGIN
  PROMPT 52 16 "Data 74/ter  "
  WARNING "E' richiesta la data del 74/ter"
  CHECKTYPE REQUIRED
  FIELD DATA74TER
END

NUMBER F_ANNORIF 4
BEGIN
  PROMPT 48 17 "Rif.partita "
  FIELD LF_PARTITE->ANNO
  FLAGS "U"
END

STRING F_NUMRIF 7
BEGIN
  PROMPT 66 17 "/ "
  FIELD LF_PARTITE->NUMPART
  FLAGS "U#"
END

BOOLEAN F_COLFPPRO
BEGIN
	PROMPT 1 19 "Registrazione collegata a FPPRO"
	FLAGS "D"
END

STRING F_PROKEY 80
BEGIN
  PROMPT 1 19 "db key"
  HELP "Chiave database"
  FIELD KEYFPPRO
  FLAGS "H"
END

BOOLEAN F_IVAXCASSA
BEGIN
  PROMPT 1 20 "IVA per cassa"
  FIELD IVAXCASSA
  MODULE IC
END

BOOLEAN F_LIQDIFF
BEGIN
  PROMPT 25 20 "Liquidazione differita"
  WARNING "Data di incasso per liquidazione differita"
  FIELD LIQDIFF
  MESSAGE FALSE CLEAR,F_DATAINC
  MESSAGE TRUE ENABLE,F_DATAINC
  FLAGS "HG"
END

DATE F_DATAINC
BEGIN
  PROMPT 52 20 "Data incasso "
  WARNING "Data di incasso per liquidazione differita"
  FIELD DATAINC
END

LIST F_SPLITPAY 1 2
BEGIN
  PROMPT 51 21 "Scissione pagamenti "
  FIELD SPLITPAY
  ITEM "| "
  ITEM "S|Si"
  ITEM "N|No"
END

STRING F_VALUTAINTRA 3
BEGIN
  PROMPT 1 22 "Cambio intracom. "
  FIELD CODVALI
  FLAGS "UZ"
  GROUP 4
  USE %VAL
  INPUT CODTAB F_VALUTAINTRA
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  DISPLAY "Cambio@15" S4
  DISPLAY "Ultimo aggiornamento" D0
  OUTPUT F_VALUTAINTRA CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice valuta assente"
  VALIDATE REQIF_FUNC 1 F_CORRVALUTA
END

NUMBER F_CAMBIOINTRA 15 6
BEGIN
  PROMPT 25 21 ""
  FIELD CAMBIOI
  FLAGS "U"
  GROUP 4
  PICTURE ".6"
END

DATE F_DATAINTRA
BEGIN
  PROMPT 43 22 "Data competenza intra "
  FIELD DATACOMPI
END

CURRENCY F_CORRISPETTIVO 18
BEGIN
  PROMPT 1 23 "Corrispettivo    "
  FIELD CORRLIRE
  GROUP 4
END

CURRENCY F_CORRVALUTA 18
BEGIN
  PROMPT 39 23 "Corrispet. valuta "
  FIELD CORRVALUTA
  GROUP 4
  VALIDATE REQIF_FUNC 1 F_VALUTAINTRA
  DRIVENBY F_VALUTAINTRA
END

BOOLEAN F_RITFATT
BEGIN
  PROMPT 1 24 "Fattura in ritardo "
	FIELD RITFATT
END

STRING NP_CONTSEP 6
BEGIN
  PROMPT 1 24 "Cont. separata "
  USE &NPENT
  INPUT CODTAB NP_CONTSEP
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT NP_CONTSEP CODTAB
  OUTPUT NP_DESCONTSEP S0
  CHECKTYPE NORMAL
  FIELD CONTSEP
END

STRING NP_DESCONTSEP 50
BEGIN
  PROMPT 25 24 ""
  USE &NPENT KEY 2
  INPUT S0 NP_DESCONTSEP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@6" CODTAB
  COPY OUTPUT NP_CONTSEP
  CHECKTYPE NORMAL
END

#ifdef PRORATA100    
BUTTON F_ADJUST_PRORATA 40
BEGIN
  PROMPT 1 -1 "Corre~zione automatica righe contabili"
  FLAGS "H"
END
#endif

ENDPAGE

PAGE "IVA" -1 -1 77 20

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 "@BRighe movimento IVA"
END

NUMBER H_NUMREG 7
BEGIN
  PROMPT 2 1 "Operazione n.  "
  FLAGS "D"
END

DATE H_DATAREG
BEGIN
  PROMPT 32 1 "Data "
  FLAGS "D"
END

NUMBER H_ANNOES 4
BEGIN
  PROMPT 54 1 "Codice esercizio "
  FLAGS "DZ"
END

STRING H_CODCAUS 3
BEGIN
  PROMPT 2 2 "Causale        "
  FLAGS "D"
END

STRING H_DESCRCAUS 50
BEGIN
  PROMPT 25 2 ""
  FLAGS "D"
END

BUTTON F_ADJUST_IVA 10 2
BEGIN
  PROMPT -1 1 "Quadratura"
END

SPREADSHEET F_SHEETIVA 0 5
BEGIN
  PROMPT 0 4 ""
  ITEM "Imponibile@15"
  ITEM "Iva@5"
  ITEM "Det@2"
  ITEM "Imposta@15"
  ITEM "CR@1"
  ITEM "CF@1"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sottoc.@6"
  ITEM "Descrizione Conto@50"
  ITEM "%IVA@5"
  ITEM "Natura@5"
  ITEM "Nota.Var.@9"
  ITEM "Reverse Charge@13"
END

CURRENCY F_IMPONIBILI 18
BEGIN
  PROMPT 1 10 "Totale imponibili "
  FLAGS "D"
END

CURRENCY F_IMPOSTE 18
BEGIN
  PROMPT 41 10 "Totale imposte   "
  FLAGS "D"
END

SPREADSHEET F_SHEETCG 0 -3
BEGIN
  PROMPT 0 11 ""
  ITEM "Dare@15F"
  ITEM "Avere@15F"
  ITEM "C/F@1"
  ITEM "Gr."
  ITEM "Co."
  ITEM "Sott.@6"
  ITEM "Descrizione conto@30"
  ITEM "Codice"
  ITEM "Descrizione riga@30"
  ITEM "C/F@1"
  ITEM "Gr./c@3"
  ITEM "Co./c@3"
  ITEM "Sott./c@6"
  ITEM "Descrizione contropartita@30"
  ITEM "CUP@15"
  ITEM "Descrizione CUP@50"
  ITEM "CIG@10"
  ITEM "Descrizione CIG@50"  
  ITEM "Tipo@4"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 1 -2 "Conto riga corrente "
  FLAGS "D"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 26 -2 ""
  FLAGS "D"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 31 -2 ""
  FLAGS "D"
END

BUTTON F_MASTRINO 8
BEGIN
  PROMPT 39 -2 "Mastrino"
END

STRING F_SALDOCONTO 20
BEGIN
  PROMPT 51 -2 "Saldo  "
  FLAGS "DR"
END

CURRENCY F_DARE 18
BEGIN
  PROMPT 1 -1 "Sbilancio Dare    "
  FLAGS "D"
END

CURRENCY F_AVERE 18
BEGIN
  PROMPT 41 -1 "Sbilancio Avere  "
  FLAGS "D"
END

ENDPAGE

#include "cg21sld.uml"

ENDMASK

#include "cg21iva.uml"
#include "cg21cg.uml"
#include "cg21rata.uml"

ENDMASK