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

Corretta gestione clifo occasionali

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@93 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-30 08:06:09 +00:00
parent 4584da5e26
commit 3067a41d90
3 changed files with 589 additions and 588 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
cg/cg2100c.uml
View File

@ -244,10 +244,10 @@ BEGIN
OUTPUT F_GRUPPORIC GRUPPORIC
OUTPUT F_CONTORIC CONTORIC
OUTPUT F_SOTTOCONTORIC SOTTOCRIC
OUTPUT F_OCCASIONALE OCCAS
OUTPUT F_CODPAG CODPAG
OUTPUT F_STATOPAIV STATOPAIV
OUTPUT F_PIVACLIENTE PAIV
OUTPUT F_OCCASIONALE OCCAS
MESSAGE COPY,F_FORNITORE
CHECKTYPE REQUIRED
ADD RUN cg0 -1
@ -360,17 +360,16 @@ BEGIN
ITEM "PT|Portogallo"
END
BUTTON F_OCCASEDIT 20
BUTTON F_OCCASEDIT 18
BEGIN
PROMPT 34 11 "Dati anagrafici"
PROMPT 32 11 "Dati anagrafici"
FLAGS "H"
END
BOOLEAN F_OCCASIONALE
BEGIN
PROMPT 64 11 "Occasionale"
MESSAGE FALSE HIDE,F_OCCASEDIT
MESSAGE TRUE SHOW,F_OCCASEDIT|PUSH,F_OCCASEDIT
MESSAGE FALSE HIDE,F_OCCASEDIT|ENABLE,F_PIVACLIENTE|ENABLE,F_PIVAFORNITORE|SHOW,F_STATOPAIV
MESSAGE TRUE SHOW,F_OCCASEDIT|DISABLE,F_PIVACLIENTE|DISABLE,F_PIVAFORNITORE|HIDE,F_STATOPAIV|PUSH,F_OCCASEDIT
FLAGS "GH"
END
@ -399,13 +398,6 @@ BEGIN
CHECKTYPE NORMAL
END
DATE F_DATA74TER
BEGIN
PROMPT 1 13 "Data 74/ter "
CHECKTYPE REQUIRED
FIELD DATA74TER
END
NUMBER F_TOTALE 15
BEGIN
PROMPT 45 12 "Totale documento "
@ -430,6 +422,14 @@ BEGIN
PICTURE "."
END
DATE F_DATA74TER
BEGIN
PROMPT 1 13 "Data 74/ter "
CHECKTYPE REQUIRED
FIELD DATA74TER
END
NUMBER F_ANNORIF 4
BEGIN
PROMPT 1 14 "Rif.partita "

9
cg/cg2100o.uml
View File

@ -11,7 +11,6 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT O_CODICE CFPI
OUTPUT O_RAGSOC RAGSOC
CHECKTYPE REQUIRED
WARNING "Codice obbligatorio"
HELP "Codice fiscale o Partita IVA o altro codice che identifichi univocamente la persona"
FIELD CFPI
@ -27,7 +26,6 @@ BEGIN
DISPLAY "Codice@16" CFPI
OUTPUT O_CODICE CFPI
OUTPUT O_RAGSOC RAGSOC
CHECKTYPE REQUIRED
HELP "Ragione sociale o Nome della persona"
WARNING "Ragione sociale obbligatoria"
END
@ -151,12 +149,7 @@ END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 "Conferma"
END
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT -22 -1 "Annulla"
PROMPT -11 -1 "Conferma"
END
ENDPAGE

12
cg/cg2102.cpp
View File

@ -838,10 +838,18 @@ bool TPrimanota_application::occas_code_handler(TMask_field& f, KEY key)
if (occas.read() == NOERR)
{
f.mask().autoload(&occas);
f.mask().send_key(K_TAB, O_COMUNE);
f.mask().send_key(K_TAB, O_COMUNE); // Forza decodifica comuni
f.mask().send_key(K_TAB, O_COMUNENAS);
}
}
} else
if (key == K_ENTER)
{
const TFixed_string codice(f.get());
if (codice.not_empty())
app().mask().set(app().iva() == iva_vendite ? F_PIVACLIENTE : F_PIVAFORNITORE, codice);
else
return f.error_box("Il codice e' obbligatorio");
}
return TRUE;
}
@ -852,6 +860,7 @@ bool TPrimanota_application::occas_handler(TMask_field& f, KEY key)
{
TMask& om = app().occas_mask();
om.run();
f.set_focus();
}
return TRUE;
}
@ -872,7 +881,6 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
TConto bill; _causale.bill(1, bill);
gruppo = bill.gruppo(); m.set(F_GRUPPOCLIFO, gruppo);
conto = bill.conto(); m.set(F_CONTOCLIFO, conto);
codice = bill.sottoconto(); m.set(tipo == 'F' ? F_FORNITORE : F_CLIENTE, codice);
}
if (tipo == 'C' && causale().reg().corrispettivi())