Corretta gestione delle causali contabili.
git-svn-id: svn://10.65.10.50/trunk@25 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
10852c6b02
commit
fe15049eab
395
cg/cg2100c.uml
395
cg/cg2100c.uml
@ -10,186 +10,186 @@ PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20
|
||||
|
||||
NUMBER F_GRUPPOCLIFO 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_CONTOCLIFO 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPORIC 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_CONTORIC 3
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTORIC 6
|
||||
BEGIN
|
||||
FLAGS "H"
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento IVA"
|
||||
PROMPT 1 0 "@BMovimento IVA"
|
||||
END
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FGRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 3 1 "Ditta "
|
||||
FLAGS "FGRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "DG"
|
||||
PROMPT 17 1 "Ragione "
|
||||
FLAGS "DG"
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 1 3 "Data operazione "
|
||||
FIELD LF_MOV->DATAREG
|
||||
MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER
|
||||
PROMPT 1 3 "Data operazione "
|
||||
FIELD LF_MOV->DATAREG
|
||||
MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER
|
||||
END
|
||||
|
||||
DATE F_DATACOMP
|
||||
BEGIN
|
||||
PROMPT 1 4 "Data competenza "
|
||||
FIELD LF_MOV->DATACOMP
|
||||
PROMPT 1 4 "Data competenza "
|
||||
FIELD LF_MOV->DATACOMP
|
||||
END
|
||||
|
||||
DATE F_DATADOC
|
||||
BEGIN
|
||||
PROMPT 1 5 "Data documento "
|
||||
FIELD LF_MOV->DATADOC
|
||||
HELP "Specificare la data del documento (non superiore alla data dell'operazione)"
|
||||
WARNING "Inserire una data documento non superiore alla data dell'operazione"
|
||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||
PROMPT 1 5 "Data documento "
|
||||
FIELD LF_MOV->DATADOC
|
||||
HELP "Specificare la data del documento (non superiore alla data dell'operazione)"
|
||||
WARNING "Inserire una data documento non superiore alla data dell'operazione"
|
||||
VALIDATE DATE_CMP_FUNC <= F_DATAREG
|
||||
END
|
||||
|
||||
NUMBER F_ANNOIVA 4
|
||||
BEGIN
|
||||
PROMPT 32 3 "Anno IVA "
|
||||
FIELD LF_MOV->ANNOIVA
|
||||
FLAGS "D"
|
||||
PROMPT 32 3 "Anno IVA "
|
||||
FIELD LF_MOV->ANNOIVA
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 32 4 "Anno esercizio "
|
||||
FIELD LF_MOV->ANNOES
|
||||
FLAGS "DG"
|
||||
MESSAGE COPY,H_ANNOES
|
||||
PROMPT 32 4 "Anno esercizio "
|
||||
FIELD LF_MOV->ANNOES
|
||||
FLAGS "DG"
|
||||
MESSAGE COPY,H_ANNOES
|
||||
END
|
||||
|
||||
STRING F_TIPODOC 2
|
||||
BEGIN
|
||||
PROMPT 32 5 "Tipo documento "
|
||||
FIELD LF_MOV->TIPODOC
|
||||
FLAGS "D"
|
||||
PROMPT 32 5 "Tipo documento "
|
||||
FIELD LF_MOV->TIPODOC
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 57 3 "Operazione n. "
|
||||
FIELD LF_MOV->NUMREG
|
||||
FLAGS "DG"
|
||||
KEY 1
|
||||
MESSAGE COPY,H_NUMREG
|
||||
PROMPT 57 3 "Operazione n. "
|
||||
FIELD LF_MOV->NUMREG
|
||||
FLAGS "DG"
|
||||
KEY 1
|
||||
MESSAGE COPY,H_NUMREG
|
||||
END
|
||||
|
||||
STRING F_NUMDOC 7
|
||||
BEGIN
|
||||
PROMPT 57 5 "Documento n. "
|
||||
FIELD LF_MOV->NUMDOC
|
||||
WARNING "La causale impone di specificare il numero documento"
|
||||
PROMPT 57 5 "Documento n. "
|
||||
FIELD LF_MOV->NUMDOC
|
||||
WARNING "La causale impone di specificare il numero documento"
|
||||
END
|
||||
|
||||
STRING F_DESCAGG 5
|
||||
BEGIN
|
||||
PROMPT 1 6 "Descrizione "
|
||||
FLAGS "U"
|
||||
USE %DPN
|
||||
INPUT CODTAB F_DESCAGG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_DESCAGG CODTAB
|
||||
OUTPUT F_DESCR S0
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 1 6 "Descrizione "
|
||||
FLAGS "U"
|
||||
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 6 ""
|
||||
FIELD LF_MOV->DESCR
|
||||
USE %DPN KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_DESCAGG
|
||||
PROMPT 25 6 ""
|
||||
FIELD LF_MOV->DESCR
|
||||
USE %DPN KEY 2
|
||||
INPUT S0 F_DESCR
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_DESCAGG
|
||||
END
|
||||
|
||||
LIST F_PROVVISORIO 1 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Movimento provvisorio "
|
||||
FIELD PROVVIS
|
||||
ITEM " |No (movimento normale)"
|
||||
ITEM "P|Si (cancellabile)"
|
||||
ITEM "N|Si (non cancellabile)"
|
||||
PROMPT 1 7 "Movimento provvisorio "
|
||||
FIELD PROVVIS
|
||||
ITEM " |No (movimento normale)"
|
||||
ITEM "P|Si (cancellabile)"
|
||||
ITEM "N|Si (non cancellabile)"
|
||||
END
|
||||
|
||||
BOOLEAN F_SOLAIVA
|
||||
BEGIN
|
||||
PROMPT 54 7 "Movimento di sola IVA"
|
||||
PROMPT 54 7 "Movimento di sola IVA"
|
||||
END
|
||||
|
||||
STRING F_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 1 8 "Causale "
|
||||
FLAGS "U"
|
||||
FIELD LF_MOV->CODCAUS
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CODCAUS
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
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
|
||||
PROMPT 1 8 "Causale "
|
||||
FLAGS "U"
|
||||
FIELD LF_MOV->CODCAUS
|
||||
USE LF_CAUSALI KEY 1
|
||||
INPUT CODCAUS F_CODCAUS
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Registro" REG
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
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 8 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCRCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_CODCAUS
|
||||
MESSAGE COPY,H_DESCRCAUS
|
||||
ADD RUN cg0 -4
|
||||
PROMPT 25 8 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DESCRCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_CODCAUS
|
||||
MESSAGE COPY,H_DESCRCAUS
|
||||
ADD RUN cg0 -4
|
||||
END
|
||||
|
||||
STRING F_CODREG 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "Registro IVA "
|
||||
FLAGS "DG"
|
||||
FIELD LF_MOV->REG
|
||||
PROMPT 1 9 "Registro IVA "
|
||||
FLAGS "DG"
|
||||
FIELD LF_MOV->REG
|
||||
/*
|
||||
USE REG SELECT I0 < 3
|
||||
INPUT CODTAB[1,4] F_ANNOIVA SELECT
|
||||
@ -200,32 +200,32 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODREG CODTAB[5,7]
|
||||
CHECKTYPE NORMAL
|
||||
*/
|
||||
*/
|
||||
END
|
||||
|
||||
NUMBER F_PROTIVA 5
|
||||
BEGIN
|
||||
PROMPT 27 9 "Protocollo IVA "
|
||||
FIELD LF_MOV->PROTIVA
|
||||
PROMPT 27 9 "Protocollo IVA "
|
||||
FIELD LF_MOV->PROTIVA
|
||||
END
|
||||
|
||||
NUMBER F_RIEPILOGO 5
|
||||
BEGIN
|
||||
PROMPT 51 9 "Riepilogo fino al n. "
|
||||
FIELD LF_MOV->UPROTIVA
|
||||
NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
|
||||
PROMPT 51 9 "Riepilogo fino al n. "
|
||||
FIELD LF_MOV->UPROTIVA
|
||||
NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
|
||||
WARNING "Il riepilogo non puo' essere inferiore al protocollo IVA"
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_CLIFO 1
|
||||
BEGIN
|
||||
STRING F_CLIFO 1
|
||||
BEGIN
|
||||
PROMPT 0 10 ""
|
||||
FIELD LF_MOV->TIPO
|
||||
FLAGS "H"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_CLIENTE 6
|
||||
BEGIN
|
||||
NUMBER F_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Cliente "
|
||||
FIELD LF_MOV->CODCF
|
||||
GROUP 1
|
||||
@ -250,10 +250,10 @@ BEGIN
|
||||
MESSAGE COPY,F_FORNITORE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
NUMBER F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 1 10 "Fornitore "
|
||||
FIELD LF_MOV->CODCF
|
||||
GROUP 2
|
||||
@ -278,10 +278,10 @@ BEGIN
|
||||
MESSAGE COPY,F_CLIENTE
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_RAGSOCFORNITORE 50
|
||||
BEGIN
|
||||
STRING F_RAGSOCFORNITORE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 2
|
||||
@ -292,10 +292,10 @@ BEGIN
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_FORNITORE
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCLIENTE 50
|
||||
BEGIN
|
||||
STRING F_RAGSOCCLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 2
|
||||
@ -306,10 +306,10 @@ BEGIN
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_PIVACLIENTE 14
|
||||
BEGIN
|
||||
STRING F_PIVACLIENTE 14
|
||||
BEGIN
|
||||
PROMPT 1 11 "Partita IVA "
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 3
|
||||
@ -321,10 +321,10 @@ BEGIN
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_PIVAFORNITORE 14
|
||||
BEGIN
|
||||
STRING F_PIVAFORNITORE 14
|
||||
BEGIN
|
||||
PROMPT 1 11 "Partita IVA "
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 3
|
||||
@ -334,10 +334,10 @@ BEGIN
|
||||
COPY DISPLAY F_PIVACLIENTE
|
||||
COPY OUTPUT F_FORNITORE
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
END
|
||||
|
||||
LIST F_STATOPAIV 18
|
||||
BEGIN
|
||||
LIST F_STATOPAIV 18
|
||||
BEGIN
|
||||
PROMPT 32 11 "Stato "
|
||||
HELP "Codice ISO dello stato per la partita IVA"
|
||||
ITEM " |Italia o extra CEE"
|
||||
@ -353,24 +353,24 @@ BEGIN
|
||||
ITEM "LU|Lussemburgo"
|
||||
ITEM "NL|Olanda"
|
||||
ITEM "PT|Portogallo"
|
||||
END
|
||||
END
|
||||
|
||||
BUTTON F_OCCASEDIT 20
|
||||
BEGIN
|
||||
BUTTON F_OCCASEDIT 20
|
||||
BEGIN
|
||||
PROMPT 34 11 "Dati anagrafici"
|
||||
FLAGS "H"
|
||||
END
|
||||
END
|
||||
|
||||
BOOLEAN F_OCCASIONALE
|
||||
BEGIN
|
||||
BOOLEAN F_OCCASIONALE
|
||||
BEGIN
|
||||
PROMPT 64 11 "Occasionale"
|
||||
MESSAGE FALSE HIDE,F_OCCASEDIT
|
||||
MESSAGE TRUE SHOW,F_OCCASEDIT|PUSH,F_OCCASEDIT
|
||||
FLAGS "GH"
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_CODPAG 4
|
||||
BEGIN
|
||||
STRING F_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 61 11 "Pagamento "
|
||||
USE %CPG
|
||||
INPUT CODTAB F_CODPAG
|
||||
@ -378,11 +378,12 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODPAG CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
END
|
||||
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 1 12 "Codice IVA "
|
||||
FLAGS "U"
|
||||
USE %IVA
|
||||
INPUT CODTAB F_CODIVA
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -391,72 +392,72 @@ BEGIN
|
||||
DISPLAY "Tipo" S1
|
||||
OUTPUT F_CODIVA CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
END
|
||||
|
||||
DATE F_DATA74TER
|
||||
BEGIN
|
||||
DATE F_DATA74TER
|
||||
BEGIN
|
||||
PROMPT 1 13 "Data 74/ter "
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD DATA74TER
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_TOTALE 15
|
||||
BEGIN
|
||||
NUMBER F_TOTALE 15
|
||||
BEGIN
|
||||
PROMPT 45 12 "Totale documento "
|
||||
FIELD TOTDOC
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_RITFIS 15
|
||||
BEGIN
|
||||
NUMBER F_RITFIS 15
|
||||
BEGIN
|
||||
PROMPT 45 13 "Ritenute fiscali "
|
||||
FIELD RITFIS
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_RITSOC 15
|
||||
BEGIN
|
||||
NUMBER F_RITSOC 15
|
||||
BEGIN
|
||||
PROMPT 45 14 "Ritenute sociali "
|
||||
FIELD LF_MOV->RITSOC
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_ANNORIF 4
|
||||
BEGIN
|
||||
NUMBER F_ANNORIF 4
|
||||
BEGIN
|
||||
PROMPT 1 14 "Rif.partita "
|
||||
FLAGS "A"
|
||||
HELP "Anno di riferimento partita"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_NUMRIF 7
|
||||
BEGIN
|
||||
NUMBER F_NUMRIF 7
|
||||
BEGIN
|
||||
PROMPT 20 14 "/"
|
||||
HELP "Numero documento (o protocollo IVA) di riferimento"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_CORRLIRE 15
|
||||
BEGIN
|
||||
NUMBER F_CORRLIRE 15
|
||||
BEGIN
|
||||
PROMPT 1 15 "Corrispettivo Lire "
|
||||
FIELD LF_MOV->CORRLIRE
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_CORRVALUTA 15
|
||||
BEGIN
|
||||
NUMBER F_CORRVALUTA 15
|
||||
BEGIN
|
||||
PROMPT 45 15 "Corrisp. valuta "
|
||||
FIELD LF_MOV->CORRVALUTA
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
|
||||
STRING F_VALUTA 3
|
||||
BEGIN
|
||||
STRING F_VALUTA 3
|
||||
BEGIN
|
||||
PROMPT 1 16 "Valuta "
|
||||
FIELD LF_MOV->CODVAL
|
||||
FLAGS "U"
|
||||
@ -470,80 +471,80 @@ BEGIN
|
||||
OUTPUT F_VALUTA CODTAB
|
||||
OUTPUT F_CAMBIO R10
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER F_CAMBIO 15 5
|
||||
BEGIN
|
||||
NUMBER F_CAMBIO 15 5
|
||||
BEGIN
|
||||
PROMPT 20 16 "Cambio "
|
||||
FIELD LF_MOV->CAMBIO
|
||||
FLAGS "RU"
|
||||
GROUP 3
|
||||
PICTURE ".5"
|
||||
END
|
||||
END
|
||||
|
||||
BOOLEAN F_VISVAL
|
||||
BEGIN
|
||||
BOOLEAN F_VISVAL
|
||||
BEGIN
|
||||
PROMPT 47 16 "Visualizza importi in valuta"
|
||||
GROUP 3
|
||||
END
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDPAGE
|
||||
|
||||
PAGE "IVA" -1 -1 77 20
|
||||
PAGE "IVA" -1 -1 77 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 0 "@BMovimento IVA - Sezione IVA"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER H_NUMREG 6
|
||||
BEGIN
|
||||
NUMBER H_NUMREG 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Operazione n. "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
DATE H_DATAREG
|
||||
BEGIN
|
||||
DATE H_DATAREG
|
||||
BEGIN
|
||||
PROMPT 32 1 "Data "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER H_ANNOES 4
|
||||
BEGIN
|
||||
NUMBER H_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 61 1 "Esercizio "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
STRING H_CODCAUS 3
|
||||
BEGIN
|
||||
STRING H_CODCAUS 3
|
||||
BEGIN
|
||||
PROMPT 2 2 "Causale "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
STRING H_DESCRCAUS 50
|
||||
BEGIN
|
||||
STRING H_DESCRCAUS 50
|
||||
BEGIN
|
||||
PROMPT 25 2 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETIVA 0 7
|
||||
BEGIN
|
||||
SPREADSHEET F_SHEETIVA 0 7
|
||||
BEGIN
|
||||
PROMPT 3 4 ""
|
||||
ITEM "Imponibile@14"
|
||||
ITEM "Iva@4"
|
||||
ITEM "Det@1"
|
||||
ITEM "Imposta@14"
|
||||
ITEM "C/R@1"
|
||||
ITEM "Det@1"
|
||||
ITEM " @1"
|
||||
ITEM "Gr."
|
||||
ITEM "Co."
|
||||
ITEM "Sottoc."
|
||||
ITEM "Descrizione Conto@50"
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
SPREADSHEET F_SHEETCG
|
||||
BEGIN
|
||||
SPREADSHEET F_SHEETCG
|
||||
BEGIN
|
||||
PROMPT 3 11 ""
|
||||
ITEM "Dare@17"
|
||||
ITEM "Avere@17"
|
||||
@ -560,11 +561,11 @@ BEGIN
|
||||
ITEM "Sottoc./c"
|
||||
ITEM "Descrizione contropartita@50"
|
||||
ITEM " @1"
|
||||
END
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
ENDMASK
|
||||
|
||||
#include "cg21iva.uml"
|
||||
#include "cg21cg.uml"
|
||||
|
||||
@ -40,20 +40,19 @@ bool TRegistro::read(const char* cod, int year)
|
||||
|
||||
int err = ~NOERR;
|
||||
|
||||
TTable reg("REG");
|
||||
if (cod && *cod > ' ')
|
||||
{
|
||||
TTable reg("REG");
|
||||
TString16 chiave;
|
||||
chiave << year << cod;
|
||||
reg.put("CODTAB", chiave);
|
||||
err = reg.read();
|
||||
if (err == NOERR)
|
||||
_rec = reg.curr();
|
||||
}
|
||||
_rec = reg.curr();
|
||||
|
||||
if (_att.ok())
|
||||
_att.zero();
|
||||
if (err != NOERR && _rec.ok())
|
||||
if (err != NOERR)
|
||||
_rec.zero();
|
||||
return err == NOERR;
|
||||
}
|
||||
@ -84,8 +83,8 @@ TipoIVA TRegistro::iva() const
|
||||
TipoIVA i = (TipoIVA)tipo();
|
||||
if (i != nessuna_iva && i != iva_vendite && i != iva_acquisti)
|
||||
{
|
||||
error_box("Il registro '%s' non e' un registro iva, tipo: %d",
|
||||
(const char*)_rec.get("CODTAB"), i);
|
||||
error_box("Il registro '%s' non e' un registro IVA o contabile: tipo %d",
|
||||
(const char*)name(), i);
|
||||
i = nessuna_iva;
|
||||
}
|
||||
return i;
|
||||
@ -96,12 +95,11 @@ bool TRegistro::read_att()
|
||||
if (!_att.empty())
|
||||
return TRUE;
|
||||
|
||||
TLocalisamfile attivita(LF_ATTIV);
|
||||
attivita.put("CODDITTA", MainApp()->get_firm());
|
||||
const char* a = _rec.get("S8");
|
||||
attivita.put("CODATT", a);
|
||||
const int err = attivita.read();
|
||||
_att = attivita.curr();
|
||||
TLocalisamfile attiv(LF_ATTIV);
|
||||
attiv.put("CODDITTA", MainApp()->get_firm());
|
||||
attiv.put("CODATT", attivita());
|
||||
const int err = attiv.read();
|
||||
_att = attiv.curr();
|
||||
if (err != NOERR)
|
||||
_att.zero();
|
||||
|
||||
@ -141,7 +139,6 @@ bool TRegistro::update(long protiva, const TDate& datareg)
|
||||
_rec.put("D2", datareg);
|
||||
updated = FALSE;
|
||||
}
|
||||
|
||||
if (!updated)
|
||||
{
|
||||
TTable reg("REG");
|
||||
@ -164,13 +161,12 @@ bool TLibro_giornale::read(int y)
|
||||
y = oggi.year();
|
||||
}
|
||||
|
||||
// if (ok() && y == year()) return TRUE; // Gia' letto!
|
||||
|
||||
TTable reg("REG");
|
||||
bool found = FALSE;
|
||||
|
||||
TString16 anno; anno.format("%4d", y);
|
||||
|
||||
reg.setkey(1);
|
||||
reg.put("CODTAB", anno); // Cerca il primo registro dell'anno y
|
||||
|
||||
for (int err = reg.read(_isgteq); err == NOERR; err = reg.next())
|
||||
@ -199,7 +195,7 @@ TLibro_giornale::TLibro_giornale(int y)
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TCausale::TCausale(const char* cod, int year)
|
||||
: TArray(12), _rec(LF_CAUSALI), _iva(iva_errata)
|
||||
: TArray(12), _rec(LF_CAUSALI), _iva(iva_errata)
|
||||
{
|
||||
if (*cod) read(cod, year);
|
||||
}
|
||||
@ -246,7 +242,7 @@ bool TCausale::read(const char* cod, int year)
|
||||
{
|
||||
TString16 codreg(caus.get("REG"));
|
||||
const bool ok = _reg.read(codreg, year); // Read register
|
||||
if (!ok)
|
||||
if (!ok && codreg.not_empty())
|
||||
return error_box("Non esiste il registro '%s' per l'anno %d",
|
||||
(const char*)codreg, year);
|
||||
}
|
||||
|
||||
@ -41,6 +41,7 @@ public:
|
||||
TDate last_reg() const { return _rec.get_date("D2"); }
|
||||
TDate last_print() const { return _rec.get_date("D3"); }
|
||||
long protocol() const { return _rec.get_long("I5"); }
|
||||
const TString& attivita() const { return _rec.get("S8"); }
|
||||
|
||||
bool agenzia_viaggi();
|
||||
const TString& tipo_attivita();
|
||||
|
||||
147
cg/cg21iva.uml
147
cg/cg21iva.uml
@ -2,33 +2,33 @@ PAGE "RIGA IVA" -1 -1 70 15
|
||||
|
||||
GROUPBOX DLG_NULL 67 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Conto"
|
||||
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"
|
||||
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
|
||||
PROMPT 21 2 "Gruppo "
|
||||
FIELD GRUPPO
|
||||
END
|
||||
|
||||
NUMBER 108 3
|
||||
BEGIN
|
||||
PROMPT 33 2 "Conto "
|
||||
FIELD CONTO
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||
PROMPT 33 2 "Conto "
|
||||
FIELD CONTO
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
||||
INPUT GRUPPO 107
|
||||
INPUT CONTO 108
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
@ -43,11 +43,11 @@ BEGIN
|
||||
ADD RUN cg0 -0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Conto inesistente nella riga IVA"
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
NUMBER 109 6
|
||||
BEGIN
|
||||
NUMBER 109 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Sottoconto "
|
||||
FIELD SOTTOCONTO
|
||||
USE LF_PCON SELECT SOTTOCONTO!=""
|
||||
@ -66,11 +66,11 @@ BEGIN
|
||||
ADD RUN cg0 -0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Sottoconto inesistente nella riga IVA"
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
NUMBER 209 6
|
||||
BEGIN
|
||||
NUMBER 209 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Cliente "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
@ -85,10 +85,10 @@ BEGIN
|
||||
ADD RUN cg0 -1
|
||||
FLAGS "G"
|
||||
MESSAGE COPY,109|RESET,104
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER 309 6
|
||||
BEGIN
|
||||
NUMBER 309 6
|
||||
BEGIN
|
||||
PROMPT 46 2 "Fornitore "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
@ -103,22 +103,23 @@ BEGIN
|
||||
ADD RUN cg0 -1
|
||||
FLAGS "G"
|
||||
MESSAGE COPY,109|RESET,104
|
||||
END
|
||||
END
|
||||
|
||||
STRING 110 50
|
||||
BEGIN
|
||||
STRING 110 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Descrizione "
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 67 5
|
||||
BEGIN
|
||||
GROUPBOX DLG_NULL 67 5
|
||||
BEGIN
|
||||
PROMPT 1 5 "Imposta"
|
||||
END
|
||||
END
|
||||
|
||||
STRING 102 4
|
||||
BEGIN
|
||||
STRING 102 4
|
||||
BEGIN
|
||||
PROMPT 2 6 "IVA "
|
||||
FLAGS "U"
|
||||
USE %IVA
|
||||
INPUT CODTAB 102
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -128,61 +129,61 @@ BEGIN
|
||||
OUTPUT 102 CODTAB
|
||||
OUTPUT 211 S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
END
|
||||
|
||||
STRING 211 50
|
||||
BEGIN
|
||||
STRING 211 50
|
||||
BEGIN
|
||||
PROMPT 15 6 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER 105 1
|
||||
BEGIN
|
||||
NUMBER 103 1
|
||||
BEGIN
|
||||
PROMPT 2 7 "Detraz. "
|
||||
SHEET "Codice|Descrizione@60"
|
||||
INPUT 105
|
||||
INPUT 103
|
||||
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 103
|
||||
OUTPUT 213
|
||||
END
|
||||
END
|
||||
|
||||
STRING 213 50
|
||||
BEGIN
|
||||
STRING 213 50
|
||||
BEGIN
|
||||
PROMPT 15 7 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
NUMBER 101 14
|
||||
BEGIN
|
||||
NUMBER 101 14
|
||||
BEGIN
|
||||
PROMPT 2 8 "Imponibile "
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
NUMBER 103 14
|
||||
BEGIN
|
||||
NUMBER 104 14
|
||||
BEGIN
|
||||
PROMPT 41 8 "Imposta "
|
||||
FLAGS "RV"
|
||||
PICTURE "."
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 67 3
|
||||
BEGIN
|
||||
GROUPBOX DLG_NULL 67 3
|
||||
BEGIN
|
||||
PROMPT 1 10 "Costo/Ricavo"
|
||||
END
|
||||
END
|
||||
|
||||
STRING 104 1
|
||||
BEGIN
|
||||
STRING 105 1
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo "
|
||||
FLAGS "D"
|
||||
HELP "Specifica il tipo Costo/Ricavo"
|
||||
SHEET "Codice|Descrizione@50"
|
||||
INPUT 104
|
||||
INPUT 105
|
||||
ITEM " |Acquisti o vendite in genere"
|
||||
ITEM "1|Acquisti beni per rivendita"
|
||||
ITEM "2|Acquisti beni ammortizzabili"
|
||||
@ -190,32 +191,32 @@ BEGIN
|
||||
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 105
|
||||
OUTPUT 212
|
||||
END
|
||||
END
|
||||
|
||||
STRING 212 50
|
||||
BEGIN
|
||||
STRING 212 50
|
||||
BEGIN
|
||||
PROMPT 15 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
END
|
||||
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BEGIN
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Elimina"
|
||||
END
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
ENDMASK
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
// $Id: maskfld.cpp,v 1.1.1.1 1994-08-12 10:52:00 alex Exp $
|
||||
// $Id: maskfld.cpp,v 1.2 1994-08-17 14:05:45 guy Exp $
|
||||
#include <xvt.h>
|
||||
|
||||
#include <applicat.h>
|
||||
@ -75,7 +75,7 @@ int TMask_field::_width;
|
||||
TFixed_string TMask_field::_prompt(__fpark, MAXSTR); // Prompt of the field
|
||||
|
||||
TMask_field::TMask_field(TMask* m)
|
||||
: _mask(m), _win(NULL_WIN), _promptwin(NULL_WIN), _dlg(0),
|
||||
: _mask(m), _win(NULL_WIN), _promptwin(NULL_WIN), _dlg(0),
|
||||
_keys(0), _groups(0), _help(0), _handler(NULL),
|
||||
_validate_func(-1), _validate_parms(1), _field(NULL)
|
||||
{}
|
||||
@ -685,10 +685,18 @@ HIDDEN char* const _msg = &__tmp_string[512];
|
||||
|
||||
bool TMask_field::error_box(const char* fmt, ...) const
|
||||
{
|
||||
set_focus();
|
||||
build_msg();
|
||||
if (mask().is_running())
|
||||
{
|
||||
set_focus();
|
||||
::error_box("%s", _msg);
|
||||
set_focus();
|
||||
}
|
||||
else
|
||||
{
|
||||
xvt_statbar_set(_msg);
|
||||
beep();
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
@ -703,10 +711,19 @@ bool TMask_field::message_box(const char* fmt, ...) const
|
||||
|
||||
bool TMask_field::warning_box(const char* fmt, ...) const
|
||||
{
|
||||
set_focus();
|
||||
build_msg();
|
||||
|
||||
if (mask().is_running())
|
||||
{
|
||||
set_focus();
|
||||
::warning_box("%s", _msg);
|
||||
set_focus();
|
||||
}
|
||||
else
|
||||
{
|
||||
xvt_statbar_set(_msg);
|
||||
beep();
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
@ -765,7 +782,7 @@ public:
|
||||
|
||||
// Certified 100%
|
||||
TList_sheet::TList_sheet(TEdit_field* f, const char* caption, const char* head)
|
||||
: _fld(f), _sheet(-1, -1, 0, 0, caption, head), _row(-1)
|
||||
: _fld(f), _sheet(-1, -1, 0, 0, caption, head), _row(-1)
|
||||
{}
|
||||
|
||||
|
||||
@ -898,7 +915,7 @@ bool TList_sheet::check(CheckTime t)
|
||||
|
||||
// Certified 100%
|
||||
TBrowse::TBrowse(TEdit_field* f, TRelation* r, int key, const char* filter)
|
||||
: _relation(r), _cursor(new TCursor (r, filter, key)),
|
||||
: _relation(r), _cursor(new TCursor (r, filter, key)),
|
||||
_fld(f), _filter(filter), _secondary(FALSE),
|
||||
_checked(FALSE)
|
||||
{}
|
||||
@ -906,7 +923,7 @@ TBrowse::TBrowse(TEdit_field* f, TRelation* r, int key, const char* filter)
|
||||
|
||||
// Certified 100%
|
||||
TBrowse::TBrowse(TEdit_field* f, TCursor* c)
|
||||
: _relation(NULL), _cursor(c), _fld(f)
|
||||
: _relation(NULL), _cursor(c), _fld(f)
|
||||
{}
|
||||
|
||||
|
||||
@ -1297,16 +1314,16 @@ KEY TBrowse::run()
|
||||
|
||||
TToken_string siblings; create_siblings(siblings);
|
||||
|
||||
{
|
||||
{
|
||||
TToken_string* sib = siblings.empty() ? NULL : &siblings;
|
||||
const byte buttons = _insert.empty() ? 0 : 1;
|
||||
TBrowse_sheet s(_cursor, _items, caption, _head, buttons, _fld, sib);
|
||||
k = s.run();
|
||||
selected = s.selected();
|
||||
}
|
||||
}
|
||||
|
||||
switch (k)
|
||||
{
|
||||
switch (k)
|
||||
{
|
||||
case K_INS:
|
||||
k = do_insert() ? K_ENTER : K_ESC;
|
||||
break;
|
||||
@ -1314,7 +1331,7 @@ KEY TBrowse::run()
|
||||
*_cursor = selected;
|
||||
do_output();
|
||||
break;
|
||||
default:
|
||||
default:
|
||||
if (k >= K_CTRL)
|
||||
{
|
||||
const short id = siblings.get_int((k - K_CTRL) << 1);
|
||||
@ -1324,9 +1341,9 @@ KEY TBrowse::run()
|
||||
ef.mask().send_key(k = K_F9, 0);
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
return k;
|
||||
return k;
|
||||
}
|
||||
|
||||
bool TBrowse::check(CheckTime t)
|
||||
@ -1335,9 +1352,9 @@ bool TBrowse::check(CheckTime t)
|
||||
|
||||
if (_secondary && t != RUNNING_CHECK)
|
||||
return TRUE;
|
||||
// if (_checked && t == FINAL_CHECK)
|
||||
// return TRUE;
|
||||
// _checked = TRUE;
|
||||
// if (_checked && t == FINAL_CHECK)
|
||||
// return TRUE;
|
||||
// _checked = TRUE;
|
||||
if (_fld->check_type() != CHECK_NONE)
|
||||
{
|
||||
const TMaskmode mode = (TMaskmode)field().mask().mode();
|
||||
@ -1365,7 +1382,7 @@ bool TBrowse::check(CheckTime t)
|
||||
else
|
||||
if (t != FINAL_CHECK) do_clear();
|
||||
}
|
||||
// _checked = passed;
|
||||
// _checked = passed;
|
||||
return passed;
|
||||
}
|
||||
|
||||
@ -1387,7 +1404,7 @@ bool TBrowse::empty_check()
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TEdit_field::TEdit_field(TMask* mask)
|
||||
: TMask_field(mask), _browse(NULL), _sheet(NULL),
|
||||
: TMask_field(mask), _browse(NULL), _sheet(NULL),
|
||||
_buttonwin(NULL_WIN), _check(CHECK_NONE), _check_enabled(TRUE),
|
||||
_forced(FALSE)
|
||||
{}
|
||||
@ -1908,7 +1925,7 @@ void TEdit_field::enable_check(bool on)
|
||||
|
||||
|
||||
TBoolean_field::TBoolean_field(TMask* m)
|
||||
: TMask_field(m), _on(FALSE)
|
||||
: TMask_field(m), _on(FALSE)
|
||||
{}
|
||||
|
||||
|
||||
@ -2008,7 +2025,7 @@ bool TBoolean_field::on_key(KEY key)
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TButton_field::TButton_field(TMask* m)
|
||||
: TMask_field(m)
|
||||
: TMask_field(m)
|
||||
{
|
||||
_flags.persistent = TRUE;
|
||||
}
|
||||
@ -2154,7 +2171,7 @@ bool TDate_field::on_key(KEY key)
|
||||
TDate d(data);
|
||||
if (!d.ok())
|
||||
{
|
||||
// error_box("La data deve essere nel formato gg-mm-aaaa");
|
||||
// error_box("La data deve essere nel formato gg-mm-aaaa");
|
||||
error_box("Data errata o formato non valido");
|
||||
return FALSE;
|
||||
}
|
||||
@ -2639,7 +2656,7 @@ bool TList_field::on_key(KEY key)
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TRadio_field::TRadio_field(TMask* mask)
|
||||
: TList_field(mask), _nitems(0), _active_item(0)
|
||||
: TList_field(mask), _nitems(0), _active_item(0)
|
||||
{}
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user