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

Continua senza sosta lo sviluppo del saldaconto

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1174 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-03-27 14:35:06 +00:00
parent ab49a4f5d7
commit 350fc53821
6 changed files with 598 additions and 451 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cg/cg0200a.uml
View File

@ -1025,9 +1025,15 @@ END
STRING F_CODAG 5 STRING F_CODAG 5
BEGIN BEGIN
PROMPT 46 15 "Codice agente " PROMPT 44 15 "Codice agente "
FLAGS "UZ" FLAGS "UZ"
FIELD LF_CFVEN->CODAG FIELD LF_CFVEN->CODAG
USE AGE
INPUT CODTAB F_CODAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODAG CODTAB
CHECKTYPE NORMAL
GROUP 7 GROUP 7
HELP "Codice dell'agente di cui si serve il cliente" HELP "Codice dell'agente di cui si serve il cliente"
END END

65
cg/cg2100.h
View File

@ -131,37 +131,38 @@
#define S_ANNO 101 #define S_ANNO 101
#define S_NUM 102 #define S_NUM 102
#define S_DATADOC 103 #define S_RIGA 103
#define S_NUMPROT 104 #define S_DATADOC 104
#define S_NUMDOC 105 #define S_NUMPROT 105
#define S_DESCR 106 #define S_NUMDOC 106
#define S_RATA 107 #define S_DESCR 107
#define S_DATASCAD 108 #define S_RATA 108
#define S_IMPORTO 109 #define S_DATASCAD 109
#define S_IMPORTOVAL 110 #define S_IMPORTO 110
#define S_SEZIONE 111 #define S_IMPORTOVAL 111
#define S_IMPORTOPAG 112 #define S_SEZIONE 112
#define S_RITENUTE 113 #define S_IMPORTOPAG 113
#define S_SEZRITENUTE 114 #define S_RITENUTE 114
#define S_SALDOACC 115 #define S_SEZRITENUTE 115
#define S_RESIDUO 116 #define S_SALDOACC 116
#define S_DATAPAG 117 #define S_RESIDUO 117
#define S_CODPAG 118 #define S_DATAPAG 118
#define S_TIPOPAG 119 #define S_CODPAG 119
#define S_TIPO 120 #define S_TIPOPAG 120
#define S_GRUPPO 121 #define S_TIPO 121
#define S_CONTO 122 #define S_GRUPPO 122
#define S_SOTTOCONTO 123 #define S_CONTO 123
#define S_DESCRCONTO 124 #define S_SOTTOCONTO 124
#define S_DESCAGG 125 #define S_DESCRCONTO 125
#define S_VSABI 126 #define S_DESCAGG 126
#define S_VSCAB 127 #define S_VSABI 127
#define S_DESCVSABI 128 #define S_VSCAB 128
#define S_AGENTE 129 #define S_DESCVSABI 129
#define S_DESCAGENTE 130 #define S_AGENTE 130
#define S_NSABI 131 #define S_DESCAGENTE 131
#define S_NSCAB 132 #define S_NSABI 132
#define S_DESCNSABI 133 #define S_NSCAB 133
#define S_DESPAG 134 #define S_DESCNSABI 134
#define S_DESPAG 135
#endif #endif

145
cg/cg2100s.uml
View File

@ -17,99 +17,138 @@ ENDPAGE
PAGE "Pagamento" -1 -1 77 20 PAGE "Pagamento" -1 -1 77 20
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 78 7
BEGIN BEGIN
PROMPT 1 0 "@BPartita" PROMPT 1 0 "@BPartita"
END END
NUMBER S_ANNO 4 NUMBER S_ANNO 4
BEGIN BEGIN
PROMPT 2 1 "Anno partita " PROMPT 2 1 "Anno "
FLAGS "RD" FLAGS "D"
FIELD ANNO
END END
STRING S_NUM 7 STRING S_NUM 7
BEGIN BEGIN
PROMPT 38 1 "Numero partita " PROMPT 19 1 "Numero "
FLAGS "DR"
FIELD NUMPART
END
STRING S_RIGA 4
BEGIN
PROMPT 40 1 "Riga "
FLAGS "DR"
FIELD NRIGA
END
STRING S_NUMDOC 7
BEGIN
PROMPT 2 2 "Numero Documento "
FLAGS "D" FLAGS "D"
END END
DATE S_DATADOC
BEGIN
PROMPT 28 2 "Data documento "
FLAGS "D"
END
NUMBER S_NUMPROT 5
BEGIN
PROMPT 56 2 "Protocollo IVA "
FLAGS "DR"
END
STRING S_DESCR 50 STRING S_DESCR 50
BEGIN BEGIN
PROMPT 2 2 "Descrizione " PROMPT 2 3 "Descrizione "
FLAGS "D" FLAGS "D"
END END
NUMBER S_RATA 4 NUMBER S_RATA 4
BEGIN BEGIN
PROMPT 2 3 "Rata " PROMPT 2 4 "Rata "
FLAGS "D" FLAGS "DR"
END END
DATE S_DATASCAD DATE S_DATASCAD
BEGIN BEGIN
PROMPT 20 3 "Data " PROMPT 21 4 "Data "
FLAGS "D" FLAGS "D"
END END
NUMBER S_RESIDUO 15 NUMBER S_RESIDUO 15
BEGIN BEGIN
PROMPT 44 3 "Residuo " PROMPT 44 4 "Residuo "
PICTURE "." PICTURE "."
FLAGS "D" FLAGS "DR"
END END
NUMBER S_IMPORTOVAL 15 3 NUMBER S_IMPORTOVAL 15 2
BEGIN BEGIN
PROMPT 2 4 "Importo in valuta " PROMPT 2 5 "Importo in valuta "
PICTURE ".3" PICTURE ".2"
FLAGS "D" FLAGS "DR"
END END
NUMBER S_IMPORTO 15 NUMBER S_IMPORTO 15
BEGIN BEGIN
PROMPT 44 4 "Importo in lire " PROMPT 38 5 "Importo "
PICTURE "." PICTURE "."
FLAGS "DR"
END
LIST S_SEZIONE 6
BEGIN
PROMPT 68 5 ""
ITEM "A|Avere"
ITEM "D|Dare"
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 78 13
GROUPBOX DLG_NULL 78 12
BEGIN BEGIN
PROMPT 1 6 "@BPagamento" PROMPT 1 7 "@BPagamento"
END END
NUMBER S_IMPORTOPAG 15 NUMBER S_IMPORTOPAG 15
BEGIN BEGIN
PROMPT 2 7 "Importo pagamento " PROMPT 2 8 "Importo pagamento "
PICTURE "." PICTURE "."
FIELD IMPORTOPAG FIELD IMPORTO
FLAGS "UR"
WARNING "Inserire un importo inferiore al residuo"
END END
NUMBER S_IMPORTOPAG 15 NUMBER S_IMPORTOPAG 15
BEGIN BEGIN
PROMPT 38 7 "Ritenute professionali " PROMPT 38 8 "Ritenute professionali "
PICTURE "." PICTURE "."
FLAGS "UR"
FIELD RITENUTE FIELD RITENUTE
END END
BOOLEAN S_SALDOACC BOOLEAN S_SALDOACC
BEGIN BEGIN
PROMPT 2 8 "Saldo " PROMPT 2 9 "Saldo "
FIELD SALDOACC FIELD SALACC
END END
DATE S_DATAPAG DATE S_DATAPAG
BEGIN BEGIN
PROMPT 38 8 "Data pagamento " PROMPT 38 9 "Data pagamento "
FIELD DATAPAG FIELD DATAREG
END END
STRING S_CODPAG 4 STRING S_CODPAG 4
BEGIN BEGIN
PROMPT 2 9 "Pagamento " PROMPT 2 10 "Pagamento "
FLAGS "UZ" FLAGS "UZ"
USE CPG USE %CPG
INPUT CODTAB S_CODPAG INPUT CODTAB S_CODPAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -118,22 +157,24 @@ BEGIN
OUTPUT S_DESPAG S0 OUTPUT S_DESPAG S0
OUTPUT S_TIPOPAG I0 OUTPUT S_TIPOPAG I0
FIELD CODPAG FIELD CODPAG
CHECKTYPE REQUIRED
END END
STRING S_DESPAG 50 STRING S_DESPAG 50
BEGIN BEGIN
PROMPT 24 9 "" PROMPT 24 10 ""
USE CPG KEY 2 USE CPG KEY 2
INPUT S0 S_DESPAG INPUT S0 S_DESPAG
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Tipo" I0 DISPLAY "Tipo" I0
COPY OUTPUT S_CODPAG COPY OUTPUT S_CODPAG
CHECKTYPE REQUIRED
END END
LIST S_TIPOPAG 2 40 LIST S_TIPOPAG 2 35
BEGIN BEGIN
PROMPT 2 10 "Tipo pagamento " PROMPT 2 11 "Tipo pagamento "
ITEM "1|Rimessa Diretta" ITEM "1|Rimessa Diretta"
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria" ITEM "3|Ricevuta Bancaria"
@ -149,7 +190,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 11 "@bConto di contropartita" PROMPT 2 12 "@bConto di contropartita"
END END
LIST S_TIPO 1 12 LIST S_TIPO 1 12
@ -164,21 +205,23 @@ END
NUMBER S_GRUPPO 3 NUMBER S_GRUPPO 3
BEGIN BEGIN
PROMPT 28 11 "Gruppo " PROMPT 24 12 "Gruppo "
FIELD GRUPPO FIELD GRUPPO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "R"
END END
NUMBER S_CONTO 3 NUMBER S_CONTO 3
BEGIN BEGIN
PROMPT 44 11 "Conto " PROMPT 42 12 "Conto "
FIELD CONTO FIELD CONTO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "R"
END END
NUMBER S_SOTTOCONTO 6 NUMBER S_SOTTOCONTO 6
BEGIN BEGIN
PROMPT 58 11 "Sottoconto " PROMPT 57 12 "Sottoconto "
FIELD SOTTOCONTO FIELD SOTTOCONTO
USE LF_PCON USE LF_PCON
INPUT GRUPPO S_GRUPPO INPUT GRUPPO S_GRUPPO
@ -193,11 +236,12 @@ BEGIN
OUTPUT S_SOTTOCONTO SOTTOCONTO OUTPUT S_SOTTOCONTO SOTTOCONTO
OUTPUT S_DESCRCONTO DESCR OUTPUT S_DESCRCONTO DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "R"
END END
STRING S_DESCRCONTO 50 STRING S_DESCRCONTO 50
BEGIN BEGIN
PROMPT 2 12 "Descrizione conto " PROMPT 2 13 "Descrizione conto "
USE LF_PCON KEY 2 USE LF_PCON KEY 2
INPUT DESCR S_DESCRCONTO INPUT DESCR S_DESCRCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -210,13 +254,13 @@ END
STRING S_DESCAGG 50 STRING S_DESCAGG 50
BEGIN BEGIN
PROMPT 2 14 "Descrizione aggiuntiva " PROMPT 2 14 "Descrizione agg. "
FIELD DESCAGG FIELD DESCR
END END
NUMBER S_VSABI 5 NUMBER S_VSABI 5
BEGIN BEGIN
PROMPT 2 15 "Vostra Banca - ABI " PROMPT 2 15 "Vs. Banca ABI "
FLAGS "Z" FLAGS "Z"
USE %BAN USE %BAN
INPUT CODTAB[1,5] S_VSABI INPUT CODTAB[1,5] S_VSABI
@ -228,21 +272,21 @@ BEGIN
OUTPUT S_VSCAB CODTAB[6,10] OUTPUT S_VSCAB CODTAB[6,10]
OUTPUT S_DESCVSABI S0 OUTPUT S_DESCVSABI S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD VSABI FIELD CODABI
END END
NUMBER S_VSCAB 5 NUMBER S_VSCAB 5
BEGIN BEGIN
PROMPT 30 15 "CAB " PROMPT 25 15 "CAB "
FLAGS "Z" FLAGS "Z"
COPY ALL S_VSABI COPY ALL S_VSABI
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FIELD VSCAB FIELD CODCAB
END END
STRING S_DESCVSABI 50 32 STRING S_DESCVSABI 50 37
BEGIN BEGIN
PROMPT 42 15 "" PROMPT 37 15 ""
USE %BAN KEY 2 USE %BAN KEY 2
INPUT S0 S_DESCVSABI INPUT S0 S_DESCVSABI
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
@ -263,7 +307,7 @@ BEGIN
OUTPUT S_AGENTE CODTAB OUTPUT S_AGENTE CODTAB
OUTPUT S_DESCAGENTE S0 OUTPUT S_DESCAGENTE S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
FIELD AGENTE FIELD CODAG
END END
STRING S_DESCAGENTE 50 STRING S_DESCAGENTE 50
@ -280,7 +324,7 @@ END
NUMBER S_NSABI 5 NUMBER S_NSABI 5
BEGIN BEGIN
PROMPT 2 17 "Nostra Banca - ABI " PROMPT 2 17 "Ns. Banca ABI "
FLAGS "Z" FLAGS "Z"
COPY USE S_VSABI COPY USE S_VSABI
INPUT CODTAB[1,5] S_NSABI INPUT CODTAB[1,5] S_NSABI
@ -288,22 +332,23 @@ BEGIN
COPY DISPLAY S_VSABI COPY DISPLAY S_VSABI
OUTPUT S_NSABI CODTAB[1,5] OUTPUT S_NSABI CODTAB[1,5]
OUTPUT S_NSCAB CODTAB[6,10] OUTPUT S_NSCAB CODTAB[6,10]
FIELD NSABI OUTPUT S_DESCNSABI S0
FIELD CODABIPR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER S_VSCAB 5 NUMBER S_NSCAB 5
BEGIN BEGIN
PROMPT 30 17 "CAB " PROMPT 25 17 "CAB "
FLAGS "Z" FLAGS "Z"
COPY ALL S_NSABI COPY ALL S_NSABI
FIELD NSCAB FIELD CODCABPR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING S_DESCNSABI 50 32 STRING S_DESCNSABI 50 37
BEGIN BEGIN
PROMPT 42 15 "" PROMPT 37 17 ""
COPY USE S_DESCVSABI COPY USE S_DESCVSABI
INPUT S0 S_DESCNSABI INPUT S0 S_DESCNSABI
COPY DISPLAY S_DESCVSABI COPY DISPLAY S_DESCVSABI

5
cg/cg2103.cpp
View File

@ -380,8 +380,11 @@ const char* TCausale::causale_inc_imm() const
const char* TCausale::tipo_doc() const const char* TCausale::tipo_doc() const
{ return _rec.get("TIPODOC"); } { return _rec.get("TIPODOC"); }
int TCausale::tipomov() const
{ return _rec.get_int("TIPOMOV"); }
bool TCausale::saldaconto() const bool TCausale::saldaconto() const
{ return _rec.get_int("TIPOMOV") > 0; } { return tipomov() > 0; }
bool TCausale::ok() const bool TCausale::ok() const
{ {

1
cg/cg2103.h
View File

@ -114,6 +114,7 @@ public:
TRegistro& reg() const { return (TRegistro&)_reg; } TRegistro& reg() const { return (TRegistro&)_reg; }
TipoIVA iva() const { return _iva; } TipoIVA iva() const { return _iva; }
bool corrispettivi() const { return _corrisp; } bool corrispettivi() const { return _corrisp; }
int tipomov() const;
bool saldaconto() const; bool saldaconto() const;
virtual bool ok() const; virtual bool ok() const;

279
cg/cg2104.cpp
View File

@ -355,19 +355,19 @@ void TPrimanota_application::write_scadenze(const TMask& m)
TRectype& r = _rel->lfile().curr(); TRectype& r = _rel->lfile().curr();
TString nreg(r.get("NUMREG")); const long nreg = r.get_long("NUMREG");
TString ndoc(r.get("NUMDOC")); const TString16 ndoc(r.get("NUMDOC"));
TString tmov(r.get("TIPOMOV")); const int tmov = r.get_int("TIPOMOV");
TDate ddoc(r.get_date("DATADOC")); const TDate ddoc(r.get_date("DATADOC"));
TDate dreg(r.get_date("DATAREG")); const TDate dreg(r.get_date("DATAREG"));
TString reg (r.get("REG")); const TString16 reg (r.get("REG"));
TString desc(r.get("DESCR")); const TString80 desc(r.get("DESCR"));
TString protiva(r.get("PROTIVA")); const int protiva = r.get_int("PROTIVA");
TString codcaus(r.get("CODCAUS")); const TString16 codcaus(r.get("CODCAUS"));
TString codval (r.get("CODVAL")); const TString16 codval (r.get("CODVAL"));
TString cambio (r.get("CAMBIO")); const real cambio (r.get("CAMBIO"));
TString numpart = m.get(F_NUMRIF); const TString16 numpart = m.get(F_NUMRIF);
const int anno = m.get_int(F_ANNORIF); const int anno = m.get_int(F_ANNORIF);
char sezione = _rel->cg(0).get_char("SEZIONE"); // Dare/Avere char sezione = _rel->cg(0).get_char("SEZIONE"); // Dare/Avere
@ -416,6 +416,7 @@ void TPrimanota_application::write_scadenze(const TMask& m)
partita.put("NREG", nreg); partita.put("NREG", nreg);
partita.put("DATAREG",dreg); partita.put("DATAREG",dreg);
partita.put("DATADOC",ddoc); partita.put("DATADOC",ddoc);
partita.put("NUMDOC", ndoc);
partita.put("REG", reg); partita.put("REG", reg);
partita.put("DESCR", desc); partita.put("DESCR", desc);
partita.put("PROTIVA",protiva); partita.put("PROTIVA",protiva);
@ -651,6 +652,8 @@ bool TPrimanota_application::edit_scadenze(int currig, const TBill& b, int anno,
while (k == K_ENTER) while (k == K_ENTER)
{ {
k = a.run(); k = a.run();
long pos;
if (k == K_ENTER) if (k == K_ENTER)
{ {
const int rata = a.row().get_int(0); const int rata = a.row().get_int(0);
@ -661,93 +664,80 @@ bool TPrimanota_application::edit_scadenze(int currig, const TBill& b, int anno,
err = scadenza.read(); err = scadenza.read();
CHECKD(err == NOERR, "Non ritrovo piu' la rata ", rata); CHECKD(err == NOERR, "Non ritrovo piu' la rata ", rata);
int urig = 1;
int nrig = a.row().get_int(4); int nrig = a.row().get_int(4);
if (nrig == 0) // Ho cliccato su una scadenza if (nrig == 0) // Ho cliccato su una scadenza
{ {
for (long i = a.selected()+1; i < a.items(); i++) // Cerca pagamento for (pos = a.selected()+1; pos < a.items(); pos++) // Cerca pagamento
{ {
const int r = a.row(i).get_int(4); const int nr = a.row(pos).get_int(4);
if (r == 0 || a.enabled(i)) if (nr) urig = nr;
if (nr == 0 || a.enabled(pos))
{ {
nrig = r; nrig = nr;
break; break;
} }
} }
} }
const bool nuovo = nrig == 0;
TRectype part(parbas); TRectype part(parbas);
if (nrig == 0) // Inserimento di un nuovo pagamento if (nuovo) // Inserimento di un nuovo pagamento
part.zero();
else
{ {
} // PART_ANNO viene preso dalla partita base
// PART_NUMPART viene preso dalla partita base
if (edit_pagamento(parbas, scadenza.curr(), part)) nrig = urig+1;
{ part.put(PART_NRIGA, nrig); // Riga di partita
err = (nrig == 0) ? partita.write(part) : partita.rewrite(part);
}
}
}
return TRUE; part.put(PART_TIPOMOV, causale().tipomov()); // Dati causale corrente
} part.put(PART_CODCAUS, causale().codice());
bool TPrimanota_application::edit_pagamento(const TRectype& parbas, part.put(PART_NUMRIG, currig); // Riga su cui ho cliccato
const TRectype& scaden,
TRectype& part)
{
TMask m("cg2100s");
TRelation rel(LF_PARTITE); // Working relation // Copia dati movimento corrente
part.put(PART_DATAREG, curr_mask().get(F_DATAREG));
part.put(PART_DATADOC, curr_mask().get(F_DATADOC));
part.put(PART_NUMDOC, curr_mask().get(F_NUMDOC));
part.put(PART_DESCR, curr_mask().get(F_DESCR));
rel.lfile().curr() = part; part.zero(PART_REG);
part.zero(PART_PROTIVA);
const real importo(scaden.get(SCAD_IMPORTO)); TImporto imp; imp = cgs().row(currig);
const real importopag(part.get(SCAD_IMPORTO)); part.put(PART_SEZ, imp.sezione()); // Sezione della riga cliccata
const real ritenute(part.get(PART_RITENUTE));
const real residuo = importo - importopag;
m.set(S_RESIDUO, residuo.string()); part.zero(PART_IMPOSTA);
m.set(S_DATADOC, parbas.get(PART_DATADOC)); part.zero(PART_IMPORTO);
m.set(S_NUMPROT, parbas.get(PART_PROTIVA)); part.zero(PART_SPESE);
m.set(S_NUMDOC, parbas.get(PART_NUMDOC));
m.set(S_DESCR, parbas.get(PART_DESCR));
m.set(S_RATA, scaden.get(SCAD_NRATA));
m.set(S_DATASCAD, scaden.get(SCAD_DATASCAD));
m.set(S_IMPORTO, scaden.get(SCAD_IMPORTO));
m.set(S_IMPORTOVAL, scaden.get(SCAD_IMPORTOVAL));
m.set(S_SEZIONE, parbas.get(PART_SEZ));
m.set(S_IMPORTOPAG, importopag.string());
if (part.empty()) // Insert mode
{
TString80 tmp; TString80 tmp;
tmp = curr_mask().get(F_DATAREG); tmp = scadenza.get(SCAD_CODPAG);
m.set(S_DATAPAG, tmp); part.put(PART_CODPAG, tmp);
tmp = scaden.get(SCAD_CODPAG); tmp = scadenza.get(SCAD_TIPOPAG);
m.set(S_CODPAG, tmp); part.put(PART_TIPOPAG, tmp);
tmp = scaden.get(SCAD_TIPOPAG); part.zero(PART_CODVAL);
m.set(S_TIPOPAG, tmp); part.zero(PART_CAMBIO);
part.zero(PART_IMPORTOVAL);
part.zero(PART_DATACAM);
int caus = 2; // Calcola riga causale int caus = 2; // Calcola riga causale per la contropartita
switch (atoi(tmp)) switch (atoi(tmp))
{ {
case 2: case 2: // Tratta
caus = 3; break; // Tratta case 7: // Tratta accettata
case 3: caus = 3; break;
caus = 4; break; // Ricevuta bancaria case 3: // Ricevuta bancaria
case 4: caus = 4; break;
caus = 5; break; // Cessione case 4: // Cessione
case 5: caus = 5; break;
caus = 6; break; // Paghero' case 5: // Paghero'
case 6: caus = 6; break;
caus = 7; break; // Fattura di credito case 6: // Fattura di credito
case 7: caus = 7; break;
caus = 3; break; // Tratta accettata
case 1: // Rimessa case 1: // Rimessa
case 8: // Rapporti interbancari diretti case 8: // Rapporti interbancari diretti
case 9: // Bonifico case 9: // Bonifico
@ -756,38 +746,139 @@ bool TPrimanota_application::edit_pagamento(const TRectype& parbas,
} }
TBill bill; causale().bill(caus, bill); TBill bill; causale().bill(caus, bill);
m.set(S_TIPO, bill.tipo()); if (bill.empty()) causale().bill(caus = 1, bill);
m.set(S_GRUPPO, bill.gruppo()); bill.put(part);
m.set(S_CONTO, bill.conto());
m.set(S_SOTTOCONTO, bill.sottoconto());
tmp = curr_mask().get(F_DESCR); if (b.tipo() > ' ') // Se cliente o fornitore cerca sua banca
m.set(S_DESCR, tmp);
bill.get(parbas);
if (bill.tipo() > ' ')
{ {
TLocalisamfile clifo(LF_CLIFO); TRelation cliforel(LF_CLIFO);
clifo.put(CLI_TIPOCF, bill.tipo()); cliforel.add(LF_CFVEN, "TIPOCF=TIPOCF|CODCF=CODCF");
clifo.put(CLI_CODCF, bill.codclifo()); TRectype& clifo = cliforel.lfile().curr();
clifo.put(CLI_TIPOCF, b.tipo());
clifo.put(CLI_CODCF, b.codclifo());
const int err = cliforel.read();
CHECK(err == NOERR, "Chiss'e' fregato il clifo");
tmp = clifo.get(CLI_CODABI); tmp = clifo.get(CLI_CODABI);
m.set(S_VSABI, tmp); part.put(PART_CODABI, tmp);
tmp = clifo.get(CLI_CODBAN); tmp = clifo.get(CLI_CODCAB);
m.set(S_VSCAB, tmp); part.put(PART_CODCAB, tmp);
tmp = clifo.get(CLI_CODAG); tmp = cliforel.lfile(LF_CFVEN).get(CLI_CODAG);
m.set(S_AGENTE, tmp); part.put(PART_CODAG, tmp);
} }
tmp = scaden.get(SCAD_CODABIPR); else
m.set(S_NSABI, tmp); {
tmp = scaden.get(SCAD_CODCABPR); part.zero(PART_CODABI);
m.set(S_NSCAB, tmp); part.zero(PART_CODCAB);
part.zero(PART_CODAG);
} }
part.zero(PART_IMPTOTPAG);
part.zero(PART_RITENUTE);
part.zero(PART_DATARIFPAG);
part.zero(PART_NUMRIFPAG);
part.zero(PART_CHIUSA);
tmp = scadenza.get(SCAD_NRATA);
part.put(PART_NRATA, tmp);
tmp = scadenza.get(SCAD_CODABIPR);
part.put(PART_CODABIPR, tmp);
tmp = scadenza.get(SCAD_CODCABPR);
part.put(PART_CODCABPR, tmp);
}
else
{
}
if (edit_pagamento(parbas, scadenza.curr(), part))
{
err = nuovo ? partita.write(part) : partita.rewrite(part);
if (nuovo && err == NOERR)
{
r.cut(0);
r.add(part.get(PART_NRATA));
r.add(part.get(PART_DATADOC));
r.add(part.get(PART_IMPORTO));
r.add(part.get(PART_DESCR));
r.add(part.get(PART_NRIGA));
a.insert(r, pos);
}
}
}
}
return TRUE;
}
static bool importopag_handler(TMask_field& f, KEY k)
{
if (f.to_check(k))
{
TMask& m = f.mask();
const real r(m.get(S_RESIDUO));
real i(f.get());
if (i > r)
{
warning_box("Non e' possibile inserire un importo superiore al residuo");
i = r;
f.set(i.string());
}
if (i == r)
{
m.set(S_SALDOACC, "X");
m.disable(S_SALDOACC);
}
else
m.enable(S_SALDOACC);
}
return TRUE;
}
bool TPrimanota_application::edit_pagamento(const TRectype& parbas, const TRectype& scaden, TRectype& part)
{
TMask m("cg2100s");
m.set_handler(S_IMPORTOPAG, importopag_handler);
TRelation rel(LF_PARTITE); // Working relation
TLocalisamfile& partita = rel.lfile();
partita.curr() = part;
m.autoload(&rel); // Load current record on mask
const real importo(scaden.get(SCAD_IMPORTO));
const real importopag(part.get(SCAD_IMPORTO));
const real ritenute(part.get(PART_RITENUTE));
const real residuo = importo - importopag;
// Dati del documento (fattura) che ha generato la scadenza
m.set(S_NUMDOC, parbas.get(PART_NUMDOC)); // Numero documento
m.set(S_DATADOC, parbas.get(PART_DATADOC)); // Data documento
m.set(S_NUMPROT, parbas.get(PART_PROTIVA)); // Protocollo IVA
m.set(S_DESCR, parbas.get(PART_DESCR)); // Descrizione documento
// Dati della scadenza che ha generato la partita
m.set(S_RESIDUO, residuo.string()); // Residuo da pagare
m.set(S_DATASCAD, scaden.get(SCAD_DATASCAD)); // Data della scadenza
m.set(S_IMPORTO, scaden.get(SCAD_IMPORTO)); // Importo della rata
m.set(S_IMPORTOVAL, scaden.get(SCAD_IMPORTOVAL)); // " in valuta
m.set(S_RATA, scaden.get(SCAD_NRATA));
if (importopag.is_zero())
m.set(S_IMPORTOPAG, residuo.string());
const KEY key = m.run(); const KEY key = m.run();
if (key == K_ENTER) if (key == K_ENTER)
{ {
m.autosave(&rel); m.autosave(&rel);
part = rel.lfile().curr(); part = partita.curr();
} }
return key == K_ENTER; return key == K_ENTER;