root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Corretta gestione delle causali contabili.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@25 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-17 14:05:45 +00:00
parent 10852c6b02
commit fe15049eab
5 changed files with 4050 additions and 4034 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

395
cg/cg2100c.uml
View File

@ -10,186 +10,186 @@ PAGE "OPERAZIONE DI PRIMA NOTA" -1 -1 77 20
NUMBER F_GRUPPOCLIFO 3 NUMBER F_GRUPPOCLIFO 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_CONTOCLIFO 3 NUMBER F_CONTOCLIFO 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_GRUPPORIC 3 NUMBER F_GRUPPORIC 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_CONTORIC 3 NUMBER F_CONTORIC 3
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
NUMBER F_SOTTOCONTORIC 6 NUMBER F_SOTTOCONTORIC 6
BEGIN BEGIN
FLAGS "H" FLAGS "H"
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "@BMovimento IVA" PROMPT 1 0 "@BMovimento IVA"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FGRD" FLAGS "FGRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "DG" FLAGS "DG"
END END
DATE F_DATAREG DATE F_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data operazione " PROMPT 1 3 "Data operazione "
FIELD LF_MOV->DATAREG FIELD LF_MOV->DATAREG
MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER MESSAGE COPY,H_DATAREG|COPY,F_DATA74TER
END END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 1 4 "Data competenza " PROMPT 1 4 "Data competenza "
FIELD LF_MOV->DATACOMP FIELD LF_MOV->DATACOMP
END END
DATE F_DATADOC DATE F_DATADOC
BEGIN BEGIN
PROMPT 1 5 "Data documento " PROMPT 1 5 "Data documento "
FIELD LF_MOV->DATADOC FIELD LF_MOV->DATADOC
HELP "Specificare la data del documento (non superiore alla data dell'operazione)" HELP "Specificare la data del documento (non superiore alla data dell'operazione)"
WARNING "Inserire una data documento non superiore alla data dell'operazione" WARNING "Inserire una data documento non superiore alla data dell'operazione"
VALIDATE DATE_CMP_FUNC <= F_DATAREG VALIDATE DATE_CMP_FUNC <= F_DATAREG
END END
NUMBER F_ANNOIVA 4 NUMBER F_ANNOIVA 4
BEGIN BEGIN
PROMPT 32 3 "Anno IVA " PROMPT 32 3 "Anno IVA "
FIELD LF_MOV->ANNOIVA FIELD LF_MOV->ANNOIVA
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANNOES 4 NUMBER F_ANNOES 4
BEGIN BEGIN
PROMPT 32 4 "Anno esercizio " PROMPT 32 4 "Anno esercizio "
FIELD LF_MOV->ANNOES FIELD LF_MOV->ANNOES
FLAGS "DG" FLAGS "DG"
MESSAGE COPY,H_ANNOES MESSAGE COPY,H_ANNOES
END END
STRING F_TIPODOC 2 STRING F_TIPODOC 2
BEGIN BEGIN
PROMPT 32 5 "Tipo documento " PROMPT 32 5 "Tipo documento "
FIELD LF_MOV->TIPODOC FIELD LF_MOV->TIPODOC
FLAGS "D" FLAGS "D"
END END
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 57 3 "Operazione n. " PROMPT 57 3 "Operazione n. "
FIELD LF_MOV->NUMREG FIELD LF_MOV->NUMREG
FLAGS "DG" FLAGS "DG"
KEY 1 KEY 1
MESSAGE COPY,H_NUMREG MESSAGE COPY,H_NUMREG
END END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 57 5 "Documento n. " PROMPT 57 5 "Documento n. "
FIELD LF_MOV->NUMDOC FIELD LF_MOV->NUMDOC
WARNING "La causale impone di specificare il numero documento" WARNING "La causale impone di specificare il numero documento"
END END
STRING F_DESCAGG 5 STRING F_DESCAGG 5
BEGIN BEGIN
PROMPT 1 6 "Descrizione " PROMPT 1 6 "Descrizione "
FLAGS "U" FLAGS "U"
USE %DPN USE %DPN
INPUT CODTAB F_DESCAGG INPUT CODTAB F_DESCAGG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_DESCAGG CODTAB OUTPUT F_DESCAGG CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 25 6 "" PROMPT 25 6 ""
FIELD LF_MOV->DESCR FIELD LF_MOV->DESCR
USE %DPN KEY 2 USE %DPN KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT F_DESCAGG COPY OUTPUT F_DESCAGG
END END
LIST F_PROVVISORIO 1 25 LIST F_PROVVISORIO 1 25
BEGIN BEGIN
PROMPT 1 7 "Movimento provvisorio " PROMPT 1 7 "Movimento provvisorio "
FIELD PROVVIS FIELD PROVVIS
ITEM " |No (movimento normale)" ITEM " |No (movimento normale)"
ITEM "P|Si (cancellabile)" ITEM "P|Si (cancellabile)"
ITEM "N|Si (non cancellabile)" ITEM "N|Si (non cancellabile)"
END END
BOOLEAN F_SOLAIVA BOOLEAN F_SOLAIVA
BEGIN BEGIN
PROMPT 54 7 "Movimento di sola IVA" PROMPT 54 7 "Movimento di sola IVA"
END END
STRING F_CODCAUS 3 STRING F_CODCAUS 3
BEGIN BEGIN
PROMPT 1 8 "Causale " PROMPT 1 8 "Causale "
FLAGS "U" FLAGS "U"
FIELD LF_MOV->CODCAUS FIELD LF_MOV->CODCAUS
USE LF_CAUSALI KEY 1 USE LF_CAUSALI KEY 1
INPUT CODCAUS F_CODCAUS INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Registro" REG DISPLAY "Registro" REG
DISPLAY "Tipo" TIPODOC DISPLAY "Tipo" TIPODOC
OUTPUT F_CODCAUS CODCAUS OUTPUT F_CODCAUS CODCAUS
OUTPUT F_DESCRCAUS DESCR OUTPUT F_DESCRCAUS DESCR
OUTPUT F_CODREG REG OUTPUT F_CODREG REG
OUTPUT F_TIPODOC TIPODOC OUTPUT F_TIPODOC TIPODOC
MESSAGE COPY,H_CODCAUS MESSAGE COPY,H_CODCAUS
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
USE LF_CAUSALI KEY 2 USE LF_CAUSALI KEY 2
INPUT DESCR F_DESCRCAUS INPUT DESCR F_DESCRCAUS
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS COPY OUTPUT F_CODCAUS
MESSAGE COPY,H_DESCRCAUS MESSAGE COPY,H_DESCRCAUS
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
STRING F_CODREG 3 STRING F_CODREG 3
BEGIN BEGIN
PROMPT 1 9 "Registro IVA " PROMPT 1 9 "Registro IVA "
FLAGS "DG" FLAGS "DG"
FIELD LF_MOV->REG FIELD LF_MOV->REG
/* /*
USE REG SELECT I0 < 3 USE REG SELECT I0 < 3
INPUT CODTAB[1,4] F_ANNOIVA SELECT INPUT CODTAB[1,4] F_ANNOIVA SELECT
@ -200,32 +200,32 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODREG CODTAB[5,7] OUTPUT F_CODREG CODTAB[5,7]
CHECKTYPE NORMAL CHECKTYPE NORMAL
*/ */
END END
NUMBER F_PROTIVA 5 NUMBER F_PROTIVA 5
BEGIN BEGIN
PROMPT 27 9 "Protocollo IVA " PROMPT 27 9 "Protocollo IVA "
FIELD LF_MOV->PROTIVA FIELD LF_MOV->PROTIVA
END END
NUMBER F_RIEPILOGO 5 NUMBER F_RIEPILOGO 5
BEGIN BEGIN
PROMPT 51 9 "Riepilogo fino al n. " PROMPT 51 9 "Riepilogo fino al n. "
FIELD LF_MOV->UPROTIVA FIELD LF_MOV->UPROTIVA
NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA) NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
WARNING "Il riepilogo non puo' essere inferiore al protocollo IVA" WARNING "Il riepilogo non puo' essere inferiore al protocollo IVA"
END END
STRING F_CLIFO 1 STRING F_CLIFO 1
BEGIN BEGIN
PROMPT 0 10 "" PROMPT 0 10 ""
FIELD LF_MOV->TIPO FIELD LF_MOV->TIPO
FLAGS "H" FLAGS "H"
END END
NUMBER F_CLIENTE 6 NUMBER F_CLIENTE 6
BEGIN BEGIN
PROMPT 1 10 "Cliente " PROMPT 1 10 "Cliente "
FIELD LF_MOV->CODCF FIELD LF_MOV->CODCF
GROUP 1 GROUP 1
@ -250,10 +250,10 @@ BEGIN
MESSAGE COPY,F_FORNITORE MESSAGE COPY,F_FORNITORE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
NUMBER F_FORNITORE 6 NUMBER F_FORNITORE 6
BEGIN BEGIN
PROMPT 1 10 "Fornitore " PROMPT 1 10 "Fornitore "
FIELD LF_MOV->CODCF FIELD LF_MOV->CODCF
GROUP 2 GROUP 2
@ -278,10 +278,10 @@ BEGIN
MESSAGE COPY,F_CLIENTE MESSAGE COPY,F_CLIENTE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_RAGSOCFORNITORE 50 STRING F_RAGSOCFORNITORE 50
BEGIN BEGIN
PROMPT 25 10 "" PROMPT 25 10 ""
GROUP 2 GROUP 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
@ -292,10 +292,10 @@ BEGIN
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_FORNITORE COPY OUTPUT F_FORNITORE
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_RAGSOCCLIENTE 50 STRING F_RAGSOCCLIENTE 50
BEGIN BEGIN
PROMPT 25 10 "" PROMPT 25 10 ""
GROUP 1 GROUP 1
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
@ -306,10 +306,10 @@ BEGIN
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE COPY OUTPUT F_CLIENTE
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_PIVACLIENTE 14 STRING F_PIVACLIENTE 14
BEGIN BEGIN
PROMPT 1 11 "Partita IVA " PROMPT 1 11 "Partita IVA "
GROUP 1 GROUP 1
USE LF_CLIFO KEY 3 USE LF_CLIFO KEY 3
@ -321,10 +321,10 @@ BEGIN
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE COPY OUTPUT F_CLIENTE
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
STRING F_PIVAFORNITORE 14 STRING F_PIVAFORNITORE 14
BEGIN BEGIN
PROMPT 1 11 "Partita IVA " PROMPT 1 11 "Partita IVA "
GROUP 2 GROUP 2
USE LF_CLIFO KEY 3 USE LF_CLIFO KEY 3
@ -334,10 +334,10 @@ BEGIN
COPY DISPLAY F_PIVACLIENTE COPY DISPLAY F_PIVACLIENTE
COPY OUTPUT F_FORNITORE COPY OUTPUT F_FORNITORE
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
LIST F_STATOPAIV 18 LIST F_STATOPAIV 18
BEGIN BEGIN
PROMPT 32 11 "Stato " PROMPT 32 11 "Stato "
HELP "Codice ISO dello stato per la partita IVA" HELP "Codice ISO dello stato per la partita IVA"
ITEM " |Italia o extra CEE" ITEM " |Italia o extra CEE"
@ -353,24 +353,24 @@ BEGIN
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
END END
BUTTON F_OCCASEDIT 20 BUTTON F_OCCASEDIT 20
BEGIN BEGIN
PROMPT 34 11 "Dati anagrafici" PROMPT 34 11 "Dati anagrafici"
FLAGS "H" FLAGS "H"
END END
BOOLEAN F_OCCASIONALE BOOLEAN F_OCCASIONALE
BEGIN BEGIN
PROMPT 64 11 "Occasionale" PROMPT 64 11 "Occasionale"
MESSAGE FALSE HIDE,F_OCCASEDIT MESSAGE FALSE HIDE,F_OCCASEDIT
MESSAGE TRUE SHOW,F_OCCASEDIT|PUSH,F_OCCASEDIT MESSAGE TRUE SHOW,F_OCCASEDIT|PUSH,F_OCCASEDIT
FLAGS "GH" FLAGS "GH"
END END
STRING F_CODPAG 4 STRING F_CODPAG 4
BEGIN BEGIN
PROMPT 61 11 "Pagamento " PROMPT 61 11 "Pagamento "
USE %CPG USE %CPG
INPUT CODTAB F_CODPAG INPUT CODTAB F_CODPAG
@ -378,11 +378,12 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODPAG CODTAB OUTPUT F_CODPAG CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING F_CODIVA 4 STRING F_CODIVA 4
BEGIN BEGIN
PROMPT 1 12 "Codice IVA " PROMPT 1 12 "Codice IVA "
FLAGS "U"
USE %IVA USE %IVA
INPUT CODTAB F_CODIVA INPUT CODTAB F_CODIVA
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -391,72 +392,72 @@ BEGIN
DISPLAY "Tipo" S1 DISPLAY "Tipo" S1
OUTPUT F_CODIVA CODTAB OUTPUT F_CODIVA CODTAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
DATE F_DATA74TER DATE F_DATA74TER
BEGIN BEGIN
PROMPT 1 13 "Data 74/ter " PROMPT 1 13 "Data 74/ter "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD DATA74TER FIELD DATA74TER
END END
NUMBER F_TOTALE 15 NUMBER F_TOTALE 15
BEGIN BEGIN
PROMPT 45 12 "Totale documento " PROMPT 45 12 "Totale documento "
FIELD TOTDOC FIELD TOTDOC
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER F_RITFIS 15 NUMBER F_RITFIS 15
BEGIN BEGIN
PROMPT 45 13 "Ritenute fiscali " PROMPT 45 13 "Ritenute fiscali "
FIELD RITFIS FIELD RITFIS
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER F_RITSOC 15 NUMBER F_RITSOC 15
BEGIN BEGIN
PROMPT 45 14 "Ritenute sociali " PROMPT 45 14 "Ritenute sociali "
FIELD LF_MOV->RITSOC FIELD LF_MOV->RITSOC
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER F_ANNORIF 4 NUMBER F_ANNORIF 4
BEGIN BEGIN
PROMPT 1 14 "Rif.partita " PROMPT 1 14 "Rif.partita "
FLAGS "A" FLAGS "A"
HELP "Anno di riferimento partita" HELP "Anno di riferimento partita"
END END
NUMBER F_NUMRIF 7 NUMBER F_NUMRIF 7
BEGIN BEGIN
PROMPT 20 14 "/" PROMPT 20 14 "/"
HELP "Numero documento (o protocollo IVA) di riferimento" HELP "Numero documento (o protocollo IVA) di riferimento"
END END
NUMBER F_CORRLIRE 15 NUMBER F_CORRLIRE 15
BEGIN BEGIN
PROMPT 1 15 "Corrispettivo Lire " PROMPT 1 15 "Corrispettivo Lire "
FIELD LF_MOV->CORRLIRE FIELD LF_MOV->CORRLIRE
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
END END
NUMBER F_CORRVALUTA 15 NUMBER F_CORRVALUTA 15
BEGIN BEGIN
PROMPT 45 15 "Corrisp. valuta " PROMPT 45 15 "Corrisp. valuta "
FIELD LF_MOV->CORRVALUTA FIELD LF_MOV->CORRVALUTA
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
END END
STRING F_VALUTA 3 STRING F_VALUTA 3
BEGIN BEGIN
PROMPT 1 16 "Valuta " PROMPT 1 16 "Valuta "
FIELD LF_MOV->CODVAL FIELD LF_MOV->CODVAL
FLAGS "U" FLAGS "U"
@ -470,80 +471,80 @@ BEGIN
OUTPUT F_VALUTA CODTAB OUTPUT F_VALUTA CODTAB
OUTPUT F_CAMBIO R10 OUTPUT F_CAMBIO R10
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
NUMBER F_CAMBIO 15 5 NUMBER F_CAMBIO 15 5
BEGIN BEGIN
PROMPT 20 16 "Cambio " PROMPT 20 16 "Cambio "
FIELD LF_MOV->CAMBIO FIELD LF_MOV->CAMBIO
FLAGS "RU" FLAGS "RU"
GROUP 3 GROUP 3
PICTURE ".5" PICTURE ".5"
END END
BOOLEAN F_VISVAL BOOLEAN F_VISVAL
BEGIN BEGIN
PROMPT 47 16 "Visualizza importi in valuta" PROMPT 47 16 "Visualizza importi in valuta"
GROUP 3 GROUP 3
END END
ENDPAGE ENDPAGE
PAGE "IVA" -1 -1 77 20 PAGE "IVA" -1 -1 77 20
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 0 "@BMovimento IVA - Sezione IVA" PROMPT 1 0 "@BMovimento IVA - Sezione IVA"
END END
NUMBER H_NUMREG 6 NUMBER H_NUMREG 6
BEGIN BEGIN
PROMPT 2 1 "Operazione n. " PROMPT 2 1 "Operazione n. "
FLAGS "D" FLAGS "D"
END END
DATE H_DATAREG DATE H_DATAREG
BEGIN BEGIN
PROMPT 32 1 "Data " PROMPT 32 1 "Data "
FLAGS "D" FLAGS "D"
END END
NUMBER H_ANNOES 4 NUMBER H_ANNOES 4
BEGIN BEGIN
PROMPT 61 1 "Esercizio " PROMPT 61 1 "Esercizio "
FLAGS "D" FLAGS "D"
END END
STRING H_CODCAUS 3 STRING H_CODCAUS 3
BEGIN BEGIN
PROMPT 2 2 "Causale " PROMPT 2 2 "Causale "
FLAGS "D" FLAGS "D"
END END
STRING H_DESCRCAUS 50 STRING H_DESCRCAUS 50
BEGIN BEGIN
PROMPT 25 2 "" PROMPT 25 2 ""
FLAGS "D" FLAGS "D"
END END
SPREADSHEET F_SHEETIVA 0 7 SPREADSHEET F_SHEETIVA 0 7
BEGIN BEGIN
PROMPT 3 4 "" PROMPT 3 4 ""
ITEM "Imponibile@14" ITEM "Imponibile@14"
ITEM "Iva@4" ITEM "Iva@4"
ITEM "Det@1"
ITEM "Imposta@14" ITEM "Imposta@14"
ITEM "C/R@1" ITEM "C/R@1"
ITEM "Det@1"
ITEM " @1" ITEM " @1"
ITEM "Gr." ITEM "Gr."
ITEM "Co." ITEM "Co."
ITEM "Sottoc." ITEM "Sottoc."
ITEM "Descrizione Conto@50" ITEM "Descrizione Conto@50"
END END
SPREADSHEET F_SHEETCG SPREADSHEET F_SHEETCG
BEGIN BEGIN
PROMPT 3 11 "" PROMPT 3 11 ""
ITEM "Dare@17" ITEM "Dare@17"
ITEM "Avere@17" ITEM "Avere@17"
@ -560,11 +561,11 @@ BEGIN
ITEM "Sottoc./c" ITEM "Sottoc./c"
ITEM "Descrizione contropartita@50" ITEM "Descrizione contropartita@50"
ITEM " @1" ITEM " @1"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
#include "cg21iva.uml" #include "cg21iva.uml"
#include "cg21cg.uml" #include "cg21cg.uml"

30
cg/cg2103.cpp
View File

@ -40,20 +40,19 @@ bool TRegistro::read(const char* cod, int year)
int err = ~NOERR; int err = ~NOERR;
TTable reg("REG");
if (cod && *cod > ' ') if (cod && *cod > ' ')
{ {
TTable reg("REG");
TString16 chiave; TString16 chiave;
chiave << year << cod; chiave << year << cod;
reg.put("CODTAB", chiave); reg.put("CODTAB", chiave);
err = reg.read(); err = reg.read();
if (err == NOERR)
_rec = reg.curr();
} }
_rec = reg.curr();
if (_att.ok()) if (_att.ok())
_att.zero(); _att.zero();
if (err != NOERR && _rec.ok()) if (err != NOERR)
_rec.zero(); _rec.zero();
return err == NOERR; return err == NOERR;
} }
@ -84,8 +83,8 @@ TipoIVA TRegistro::iva() const
TipoIVA i = (TipoIVA)tipo(); TipoIVA i = (TipoIVA)tipo();
if (i != nessuna_iva && i != iva_vendite && i != iva_acquisti) if (i != nessuna_iva && i != iva_vendite && i != iva_acquisti)
{ {
error_box("Il registro '%s' non e' un registro iva, tipo: %d", error_box("Il registro '%s' non e' un registro IVA o contabile: tipo %d",
(const char*)_rec.get("CODTAB"), i); (const char*)name(), i);
i = nessuna_iva; i = nessuna_iva;
} }
return i; return i;
@ -96,12 +95,11 @@ bool TRegistro::read_att()
if (!_att.empty()) if (!_att.empty())
return TRUE; return TRUE;
TLocalisamfile attivita(LF_ATTIV); TLocalisamfile attiv(LF_ATTIV);
attivita.put("CODDITTA", MainApp()->get_firm()); attiv.put("CODDITTA", MainApp()->get_firm());
const char* a = _rec.get("S8"); attiv.put("CODATT", attivita());
attivita.put("CODATT", a); const int err = attiv.read();
const int err = attivita.read(); _att = attiv.curr();
_att = attivita.curr();
if (err != NOERR) if (err != NOERR)
_att.zero(); _att.zero();
@ -141,7 +139,6 @@ bool TRegistro::update(long protiva, const TDate& datareg)
_rec.put("D2", datareg); _rec.put("D2", datareg);
updated = FALSE; updated = FALSE;
} }
if (!updated) if (!updated)
{ {
TTable reg("REG"); TTable reg("REG");
@ -164,13 +161,12 @@ bool TLibro_giornale::read(int y)
y = oggi.year(); y = oggi.year();
} }
// if (ok() && y == year()) return TRUE; // Gia' letto!
TTable reg("REG"); TTable reg("REG");
bool found = FALSE; bool found = FALSE;
TString16 anno; anno.format("%4d", y); TString16 anno; anno.format("%4d", y);
reg.setkey(1);
reg.put("CODTAB", anno); // Cerca il primo registro dell'anno y reg.put("CODTAB", anno); // Cerca il primo registro dell'anno y
for (int err = reg.read(_isgteq); err == NOERR; err = reg.next()) 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) 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); if (*cod) read(cod, year);
} }
@ -246,7 +242,7 @@ bool TCausale::read(const char* cod, int year)
{ {
TString16 codreg(caus.get("REG")); TString16 codreg(caus.get("REG"));
const bool ok = _reg.read(codreg, year); // Read register 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", return error_box("Non esiste il registro '%s' per l'anno %d",
(const char*)codreg, year); (const char*)codreg, year);
} }

1
cg/cg2103.h
View File

@ -41,6 +41,7 @@ public:
TDate last_reg() const { return _rec.get_date("D2"); } TDate last_reg() const { return _rec.get_date("D2"); }
TDate last_print() const { return _rec.get_date("D3"); } TDate last_print() const { return _rec.get_date("D3"); }
long protocol() const { return _rec.get_long("I5"); } long protocol() const { return _rec.get_long("I5"); }
const TString& attivita() const { return _rec.get("S8"); }
bool agenzia_viaggi(); bool agenzia_viaggi();
const TString& tipo_attivita(); const TString& tipo_attivita();

147
cg/cg21iva.uml
View File

@ -2,33 +2,33 @@ PAGE "RIGA IVA" -1 -1 70 15
GROUPBOX DLG_NULL 67 4 GROUPBOX DLG_NULL 67 4
BEGIN BEGIN
PROMPT 1 1 "Conto" PROMPT 1 1 "Conto"
END END
LIST 106 1 12 LIST 106 1 12
BEGIN BEGIN
PROMPT 2 2 "Tipo " PROMPT 2 2 "Tipo "
FIELD TMCF FIELD TMCF
ITEM " |Conto" ITEM " |Conto"
MESSAGE SHOW,109|HIDE,209|HIDE,309 MESSAGE SHOW,109|HIDE,209|HIDE,309
ITEM "C|Cliente" ITEM "C|Cliente"
MESSAGE SHOW,209|HIDE,109|HIDE,309 MESSAGE SHOW,209|HIDE,109|HIDE,309
ITEM "F|Fornitore" ITEM "F|Fornitore"
MESSAGE SHOW,309|HIDE,109|HIDE,209 MESSAGE SHOW,309|HIDE,109|HIDE,209
FLAGS "U" FLAGS "U"
END END
NUMBER 107 3 NUMBER 107 3
BEGIN BEGIN
PROMPT 21 2 "Gruppo " PROMPT 21 2 "Gruppo "
FIELD GRUPPO FIELD GRUPPO
END END
NUMBER 108 3 NUMBER 108 3
BEGIN BEGIN
PROMPT 33 2 "Conto " PROMPT 33 2 "Conto "
FIELD CONTO FIELD CONTO
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO 107 INPUT GRUPPO 107
INPUT CONTO 108 INPUT CONTO 108
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -43,11 +43,11 @@ BEGIN
ADD RUN cg0 -0 ADD RUN cg0 -0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Conto inesistente nella riga IVA" WARNING "Conto inesistente nella riga IVA"
END END
NUMBER 109 6 NUMBER 109 6
BEGIN BEGIN
PROMPT 46 2 "Sottoconto " PROMPT 46 2 "Sottoconto "
FIELD SOTTOCONTO FIELD SOTTOCONTO
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
@ -66,11 +66,11 @@ BEGIN
ADD RUN cg0 -0 ADD RUN cg0 -0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Sottoconto inesistente nella riga IVA" WARNING "Sottoconto inesistente nella riga IVA"
END END
NUMBER 209 6 NUMBER 209 6
BEGIN BEGIN
PROMPT 46 2 "Cliente " PROMPT 46 2 "Cliente "
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -85,10 +85,10 @@ BEGIN
ADD RUN cg0 -1 ADD RUN cg0 -1
FLAGS "G" FLAGS "G"
MESSAGE COPY,109|RESET,104 MESSAGE COPY,109|RESET,104
END END
NUMBER 309 6 NUMBER 309 6
BEGIN BEGIN
PROMPT 46 2 "Fornitore " PROMPT 46 2 "Fornitore "
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -103,22 +103,23 @@ BEGIN
ADD RUN cg0 -1 ADD RUN cg0 -1
FLAGS "G" FLAGS "G"
MESSAGE COPY,109|RESET,104 MESSAGE COPY,109|RESET,104
END END
STRING 110 50 STRING 110 50
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 67 5 GROUPBOX DLG_NULL 67 5
BEGIN BEGIN
PROMPT 1 5 "Imposta" PROMPT 1 5 "Imposta"
END END
STRING 102 4 STRING 102 4
BEGIN BEGIN
PROMPT 2 6 "IVA " PROMPT 2 6 "IVA "
FLAGS "U"
USE %IVA USE %IVA
INPUT CODTAB 102 INPUT CODTAB 102
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -128,61 +129,61 @@ BEGIN
OUTPUT 102 CODTAB OUTPUT 102 CODTAB
OUTPUT 211 S0 OUTPUT 211 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING 211 50 STRING 211 50
BEGIN BEGIN
PROMPT 15 6 "" PROMPT 15 6 ""
FLAGS "D" FLAGS "D"
END END
NUMBER 105 1 NUMBER 103 1
BEGIN BEGIN
PROMPT 2 7 "Detraz. " PROMPT 2 7 "Detraz. "
SHEET "Codice|Descrizione@60" SHEET "Codice|Descrizione@60"
INPUT 105 INPUT 103
ITEM " |Regime normale" ITEM " |Regime normale"
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti" ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
ITEM "3|IVA indicata per il solo calcolo di ventilazione" ITEM "3|IVA indicata per il solo calcolo di ventilazione"
ITEM "9|IVA non detraibile per l'articolo 19" ITEM "9|IVA non detraibile per l'articolo 19"
OUTPUT 105 OUTPUT 103
OUTPUT 213 OUTPUT 213
END END
STRING 213 50 STRING 213 50
BEGIN BEGIN
PROMPT 15 7 "" PROMPT 15 7 ""
FLAGS "D" FLAGS "D"
END END
NUMBER 101 14 NUMBER 101 14
BEGIN BEGIN
PROMPT 2 8 "Imponibile " PROMPT 2 8 "Imponibile "
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER 103 14 NUMBER 104 14
BEGIN BEGIN
PROMPT 41 8 "Imposta " PROMPT 41 8 "Imposta "
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 67 3 GROUPBOX DLG_NULL 67 3
BEGIN BEGIN
PROMPT 1 10 "Costo/Ricavo" PROMPT 1 10 "Costo/Ricavo"
END END
STRING 104 1 STRING 105 1
BEGIN BEGIN
PROMPT 2 11 "Tipo " PROMPT 2 11 "Tipo "
FLAGS "D" FLAGS "D"
HELP "Specifica il tipo Costo/Ricavo" HELP "Specifica il tipo Costo/Ricavo"
SHEET "Codice|Descrizione@50" SHEET "Codice|Descrizione@50"
INPUT 104 INPUT 105
ITEM " |Acquisti o vendite in genere" ITEM " |Acquisti o vendite in genere"
ITEM "1|Acquisti beni per rivendita" ITEM "1|Acquisti beni per rivendita"
ITEM "2|Acquisti beni ammortizzabili" ITEM "2|Acquisti beni ammortizzabili"
@ -190,32 +191,32 @@ BEGIN
ITEM "4|Vendita beni strumentali art. 17" ITEM "4|Vendita beni strumentali art. 17"
ITEM "5|Beni per rivendita da non ventilare" ITEM "5|Beni per rivendita da non ventilare"
ITEM "8|Altri beni strumentali acquistati in leasing" ITEM "8|Altri beni strumentali acquistati in leasing"
OUTPUT 104 OUTPUT 105
OUTPUT 212 OUTPUT 212
END END
STRING 212 50 STRING 212 50
BEGIN BEGIN
PROMPT 15 11 "" PROMPT 15 11 ""
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_DELREC 9 2 BUTTON DLG_DELREC 9 2
BEGIN BEGIN
PROMPT -33 -1 "Elimina" PROMPT -33 -1 "Elimina"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

63
include/maskfld.cpp
View File

@ -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 <xvt.h>
#include <applicat.h> #include <applicat.h>
@ -75,7 +75,7 @@ int TMask_field::_width;
TFixed_string TMask_field::_prompt(__fpark, MAXSTR); // Prompt of the field TFixed_string TMask_field::_prompt(__fpark, MAXSTR); // Prompt of the field
TMask_field::TMask_field(TMask* m) 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), _keys(0), _groups(0), _help(0), _handler(NULL),
_validate_func(-1), _validate_parms(1), _field(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 bool TMask_field::error_box(const char* fmt, ...) const
{ {
set_focus();
build_msg(); build_msg();
if (mask().is_running())
{
set_focus();
::error_box("%s", _msg); ::error_box("%s", _msg);
set_focus(); set_focus();
}
else
{
xvt_statbar_set(_msg);
beep();
}
return FALSE; return FALSE;
} }
@ -703,10 +711,19 @@ bool TMask_field::message_box(const char* fmt, ...) const
bool TMask_field::warning_box(const char* fmt, ...) const bool TMask_field::warning_box(const char* fmt, ...) const
{ {
set_focus();
build_msg(); build_msg();
if (mask().is_running())
{
set_focus();
::warning_box("%s", _msg); ::warning_box("%s", _msg);
set_focus(); set_focus();
}
else
{
xvt_statbar_set(_msg);
beep();
}
return FALSE; return FALSE;
} }
@ -765,7 +782,7 @@ public:
// Certified 100% // Certified 100%
TList_sheet::TList_sheet(TEdit_field* f, const char* caption, const char* head) 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% // Certified 100%
TBrowse::TBrowse(TEdit_field* f, TRelation* r, int key, const char* filter) 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), _fld(f), _filter(filter), _secondary(FALSE),
_checked(FALSE) _checked(FALSE)
{} {}
@ -906,7 +923,7 @@ TBrowse::TBrowse(TEdit_field* f, TRelation* r, int key, const char* filter)
// Certified 100% // Certified 100%
TBrowse::TBrowse(TEdit_field* f, TCursor* c) 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 siblings; create_siblings(siblings);
{ {
TToken_string* sib = siblings.empty() ? NULL : &siblings; TToken_string* sib = siblings.empty() ? NULL : &siblings;
const byte buttons = _insert.empty() ? 0 : 1; const byte buttons = _insert.empty() ? 0 : 1;
TBrowse_sheet s(_cursor, _items, caption, _head, buttons, _fld, sib); TBrowse_sheet s(_cursor, _items, caption, _head, buttons, _fld, sib);
k = s.run(); k = s.run();
selected = s.selected(); selected = s.selected();
} }
switch (k) switch (k)
{ {
case K_INS: case K_INS:
k = do_insert() ? K_ENTER : K_ESC; k = do_insert() ? K_ENTER : K_ESC;
break; break;
@ -1314,7 +1331,7 @@ KEY TBrowse::run()
*_cursor = selected; *_cursor = selected;
do_output(); do_output();
break; break;
default: default:
if (k >= K_CTRL) if (k >= K_CTRL)
{ {
const short id = siblings.get_int((k - K_CTRL) << 1); 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); ef.mask().send_key(k = K_F9, 0);
} }
break; break;
} }
return k; return k;
} }
bool TBrowse::check(CheckTime t) bool TBrowse::check(CheckTime t)
@ -1335,9 +1352,9 @@ bool TBrowse::check(CheckTime t)
if (_secondary && t != RUNNING_CHECK) if (_secondary && t != RUNNING_CHECK)
return TRUE; return TRUE;
// if (_checked && t == FINAL_CHECK) // if (_checked && t == FINAL_CHECK)
// return TRUE; // return TRUE;
// _checked = TRUE; // _checked = TRUE;
if (_fld->check_type() != CHECK_NONE) if (_fld->check_type() != CHECK_NONE)
{ {
const TMaskmode mode = (TMaskmode)field().mask().mode(); const TMaskmode mode = (TMaskmode)field().mask().mode();
@ -1365,7 +1382,7 @@ bool TBrowse::check(CheckTime t)
else else
if (t != FINAL_CHECK) do_clear(); if (t != FINAL_CHECK) do_clear();
} }
// _checked = passed; // _checked = passed;
return passed; return passed;
} }
@ -1387,7 +1404,7 @@ bool TBrowse::empty_check()
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TEdit_field::TEdit_field(TMask* mask) 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), _buttonwin(NULL_WIN), _check(CHECK_NONE), _check_enabled(TRUE),
_forced(FALSE) _forced(FALSE)
{} {}
@ -1908,7 +1925,7 @@ void TEdit_field::enable_check(bool on)
TBoolean_field::TBoolean_field(TMask* m) 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) TButton_field::TButton_field(TMask* m)
: TMask_field(m) : TMask_field(m)
{ {
_flags.persistent = TRUE; _flags.persistent = TRUE;
} }
@ -2154,7 +2171,7 @@ bool TDate_field::on_key(KEY key)
TDate d(data); TDate d(data);
if (!d.ok()) 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"); error_box("Data errata o formato non valido");
return FALSE; return FALSE;
} }
@ -2639,7 +2656,7 @@ bool TList_field::on_key(KEY key)
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
TRadio_field::TRadio_field(TMask* mask) TRadio_field::TRadio_field(TMask* mask)
: TList_field(mask), _nitems(0), _active_item(0) : TList_field(mask), _nitems(0), _active_item(0)
{} {}