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

Aggiustate maschere e gestione note di credito

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2823 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1996-05-15 10:22:59 +00:00
parent 5a790dd12c
commit b619a73636
4 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cg/cg2100a.uml
View File

@ -15,7 +15,7 @@ NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
USE LF_NDITTE
CHECKTYPE NORMAL
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
@ -77,7 +77,7 @@ BEGIN
PROMPT 1 9 "Causale "
FLAGS "UZ"
FIELD CODCAUS
USE LF_CAUSALI KEY 1
USE LF_CAUSALI
INPUT CODCAUS F_CODCAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR

4
cg/cg2100c.uml
View File

@ -575,7 +575,7 @@ BEGIN
FLAGS "D"
END
SPREADSHEET F_SHEETIVA 0 7
SPREADSHEET F_SHEETIVA 0 6
BEGIN
PROMPT 0 4 ""
ITEM "Imponibile@15"
@ -604,7 +604,7 @@ BEGIN
PICTURE "."
END
SPREADSHEET F_SHEETCG
SPREADSHEET F_SHEETCG 0 -2
BEGIN
PROMPT 0 12 ""
ITEM "Dare@15F"

11
cg/cg2104.cpp
View File

@ -506,12 +506,13 @@ bool TPrimanota_application::reset_handler(TMask_field& f, KEY key)
}
bool TPrimanota_application::recalc_handler(TMask_field& f, KEY key)
{
if (key == K_SPACE)
{
TPrimanota_application& a = app();
if (key == K_SPACE && a.is_fattura())
{
TMask& m = f.mask();
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);
TPagamento& pag = app().pagamento();
TPagamento& pag = a.pagamento();
const bool recalc_aut = f.get().not_empty();
@ -537,8 +538,8 @@ bool TPrimanota_application::recalc_handler(TMask_field& f, KEY key)
{
pag.set_tipo_prima_rata(pag.tipo_prima_rata() + 3);
m.set(FS_TIPOPR, pag.desc_tpr());
app().reset_pagamento();
app().set_scadenze(m);
a.reset_pagamento();
a.set_scadenze(m);
}
else warning_box("Il tipo prima rata e' stato modificato in \"%s\" per "
"poter mantenere la rateazione scelta e la possibilita' di "

2
cg/cg21sld.uml
View File

@ -200,7 +200,7 @@ BEGIN
CHECKTYPE NORMAL
END
SPREADSHEET FS_RATESHEET 0 -1
SPREADSHEET FS_RATESHEET 0 -2
BEGIN
PROMPT 1 11 "Rate"
ITEM "Scadenza@10"