Corretta ricerca per codice fiscale
git-svn-id: svn://10.65.10.50/trunk@3551 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
7bd695ee32
commit
3ac9ee15f7
@ -25,7 +25,7 @@ BEGIN
|
|||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50 52
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 17 1 "Ragione "
|
PROMPT 17 1 "Ragione "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
@ -60,7 +60,7 @@ END
|
|||||||
|
|
||||||
NUMBER F_ANNOES 4
|
NUMBER F_ANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 54 4 "Codice esercizio "
|
PROMPT 56 4 "Codice esercizio "
|
||||||
FIELD ANNOES
|
FIELD ANNOES
|
||||||
MESSAGE COPY,K_ANNOES
|
MESSAGE COPY,K_ANNOES
|
||||||
FLAGS "DGZ"
|
FLAGS "DGZ"
|
||||||
@ -250,7 +250,7 @@ BEGIN
|
|||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING K_RAGSOC 50
|
STRING K_RAGSOC 50 52
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 17 1 "Ragione "
|
PROMPT 17 1 "Ragione "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
@ -276,7 +276,7 @@ END
|
|||||||
|
|
||||||
NUMBER K_ANNOES 4
|
NUMBER K_ANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 56 4 "Esercizio "
|
PROMPT 56 4 "Codice esercizio "
|
||||||
FLAGS "DZ"
|
FLAGS "DZ"
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -304,7 +304,7 @@ BEGIN
|
|||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING K_DESCRCAUS 50
|
STRING K_DESCRCAUS 50 52
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 25 6 ""
|
PROMPT 25 6 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
|
@ -144,9 +144,11 @@ BEGIN
|
|||||||
WARNING "La causale o il saldaconto richiedono il numero documento"
|
WARNING "La causale o il saldaconto richiedono il numero documento"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_SOLAIVA
|
LIST F_SOLAIVA 1 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 7 "Movimento di sola IVA"
|
PROMPT 1 7 "Movimento di sola IVA "
|
||||||
|
ITEM " |No"
|
||||||
|
ITEM "X|Si"
|
||||||
END
|
END
|
||||||
|
|
||||||
LIST F_PROVVISORIO 1 22
|
LIST F_PROVVISORIO 1 22
|
||||||
@ -207,8 +209,9 @@ BEGIN
|
|||||||
INPUT CODCF F_CLIENTE
|
INPUT CODCF F_CLIENTE
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||||
DISPLAY "Partita IVA@12" PAIV
|
|
||||||
DISPLAY "Sospeso" SOSPESO
|
DISPLAY "Sospeso" SOSPESO
|
||||||
|
DISPLAY "Partita IVA@12" PAIV
|
||||||
|
DISPLAY "Codice Fiscale@16" COFI
|
||||||
OUTPUT F_CLIENTE CODCF
|
OUTPUT F_CLIENTE CODCF
|
||||||
OUTPUT F_RAGSOCCLIENTE RAGSOC
|
OUTPUT F_RAGSOCCLIENTE RAGSOC
|
||||||
OUTPUT F_STATOPAIV STATOPAIV
|
OUTPUT F_STATOPAIV STATOPAIV
|
||||||
@ -230,8 +233,9 @@ BEGIN
|
|||||||
INPUT CODCF F_FORNITORE
|
INPUT CODCF F_FORNITORE
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||||
DISPLAY "Partita IVA@12" PAIV
|
|
||||||
DISPLAY "Sospeso" SOSPESO
|
DISPLAY "Sospeso" SOSPESO
|
||||||
|
DISPLAY "Partita IVA@12" PAIV
|
||||||
|
DISPLAY "Codice Fiscale@16" COFI
|
||||||
OUTPUT F_FORNITORE CODCF
|
OUTPUT F_FORNITORE CODCF
|
||||||
OUTPUT F_RAGSOCFORNITORE RAGSOC
|
OUTPUT F_RAGSOCFORNITORE RAGSOC
|
||||||
OUTPUT F_STATOPAIV STATOPAIV
|
OUTPUT F_STATOPAIV STATOPAIV
|
||||||
@ -251,9 +255,10 @@ BEGIN
|
|||||||
INPUT TIPOCF "F"
|
INPUT TIPOCF "F"
|
||||||
INPUT RAGSOC F_RAGSOCFORNITORE
|
INPUT RAGSOC F_RAGSOCFORNITORE
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||||
DISPLAY "Partita IVA@12" PAIV
|
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Sospeso" SOSPESO
|
DISPLAY "Sospeso" SOSPESO
|
||||||
|
DISPLAY "Partita IVA@12" PAIV
|
||||||
|
DISPLAY "Codice Fiscale@16" COFI
|
||||||
COPY OUTPUT F_FORNITORE
|
COPY OUTPUT F_FORNITORE
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
ADD RUN cg0 -1 F
|
ADD RUN cg0 -1 F
|
||||||
@ -266,9 +271,7 @@ BEGIN
|
|||||||
USE LF_CLIFO KEY 2
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF "C"
|
INPUT TIPOCF "C"
|
||||||
INPUT RAGSOC F_RAGSOCCLIENTE
|
INPUT RAGSOC F_RAGSOCCLIENTE
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
COPY DISPLAY F_RAGSOCFORNITORE
|
||||||
DISPLAY "Partita IVA@12" PAIV
|
|
||||||
DISPLAY "Codice" CODCF
|
|
||||||
COPY OUTPUT F_CLIENTE
|
COPY OUTPUT F_CLIENTE
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
ADD RUN cg0 -1 C
|
ADD RUN cg0 -1 C
|
||||||
@ -284,6 +287,8 @@ BEGIN
|
|||||||
DISPLAY "Codice fiscale@16" COFI
|
DISPLAY "Codice fiscale@16" COFI
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
|
DISPLAY "Sospeso" SOSPESO
|
||||||
|
DISPLAY "Partita IVA@12" PAIV
|
||||||
COPY OUTPUT F_CLIENTE
|
COPY OUTPUT F_CLIENTE
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
ADD RUN cg0 -1 C
|
ADD RUN cg0 -1 C
|
||||||
@ -313,6 +318,8 @@ BEGIN
|
|||||||
DISPLAY "Partita IVA@12" PAIV
|
DISPLAY "Partita IVA@12" PAIV
|
||||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
|
DISPLAY "Sospeso" SOSPESO
|
||||||
|
DISPLAY "Codice Fiscale@16" COFI
|
||||||
COPY OUTPUT F_CLIENTE
|
COPY OUTPUT F_CLIENTE
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
ADD RUN cg0 -1 C
|
ADD RUN cg0 -1 C
|
||||||
|
@ -1480,8 +1480,8 @@ bool TPrimanota_application::iva_sottoconto_handler(TMask_field& f, KEY key)
|
|||||||
if (key == K_TAB && f.dirty())
|
if (key == K_TAB && f.dirty())
|
||||||
{
|
{
|
||||||
TMask& m = f.mask();
|
TMask& m = f.mask();
|
||||||
const TEdit_field& sotto = m.efield(109);
|
const TEdit_field& e = (const TEdit_field&)f;
|
||||||
const TRectype& piano = sotto.browse()->cursor()->curr();
|
const TRectype& piano = e.browse()->cursor()->curr();
|
||||||
const TCausale& caus = app().causale();
|
const TCausale& caus = app().causale();
|
||||||
int spric = piano.get_int("TIPOSPRIC");
|
int spric = piano.get_int("TIPOSPRIC");
|
||||||
if ((spric == 2 || spric == 3) && !caus.corrispettivi())
|
if ((spric == 2 || spric == 3) && !caus.corrispettivi())
|
||||||
@ -2404,8 +2404,7 @@ bool TPrimanota_application::corrvaluta_handler(TMask_field& f, KEY key)
|
|||||||
|
|
||||||
bool TPrimanota_application::activate_numrif(bool init_pag)
|
bool TPrimanota_application::activate_numrif(bool init_pag)
|
||||||
{
|
{
|
||||||
CHECK(_msk[2] != NULL, "Null saldaconto mask");
|
TMask& m = curr_mask();
|
||||||
TMask& m = *_msk[2];
|
|
||||||
|
|
||||||
bool shown = is_saldaconto(); // Il numero riferimento esiste
|
bool shown = is_saldaconto(); // Il numero riferimento esiste
|
||||||
|
|
||||||
@ -2458,7 +2457,7 @@ bool TPrimanota_application::activate_numrif(bool init_pag)
|
|||||||
// Handler del checkbox di movimento di sola IVA
|
// Handler del checkbox di movimento di sola IVA
|
||||||
bool TPrimanota_application::solaiva_handler(TMask_field& f, KEY key)
|
bool TPrimanota_application::solaiva_handler(TMask_field& f, KEY key)
|
||||||
{
|
{
|
||||||
if (key == K_SPACE)
|
if (key == K_TAB && f.dirty())
|
||||||
{
|
{
|
||||||
TMask& m = f.mask();
|
TMask& m = f.mask();
|
||||||
TPrimanota_application& a = app();
|
TPrimanota_application& a = app();
|
||||||
|
@ -48,25 +48,25 @@ BEGIN
|
|||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
NUMBER FS_NRATE 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 38 4 "Numero di rate "
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
FLAGS "U"
|
||||||
|
END
|
||||||
|
|
||||||
BOOLEAN FS_MCOMM
|
BOOLEAN FS_MCOMM
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 38 4 "Mese commerciale"
|
PROMPT 38 5 "Mese commerciale"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN FS_RECALC
|
BOOLEAN FS_RECALC
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 38 5 "Ricalcolo automatico"
|
PROMPT 38 6 "Ricalcolo automatico"
|
||||||
MESSAGE TRUE ENABLE,FS_RDIFFER|ENABLE,FS_MCOMM|K_SPACE,FS_RDIFFER
|
MESSAGE TRUE ENABLE,FS_RDIFFER|ENABLE,FS_MCOMM|PUSH,FS_RDIFFER
|
||||||
MESSAGE FALSE DISABLE,FS_RDIFFER|DISABLE,FS_MCOMM|DISABLE,FS_NRATE
|
MESSAGE FALSE DISABLE,FS_RDIFFER|DISABLE,FS_MCOMM|DISABLE,FS_NRATE
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER FS_NRATE 3
|
|
||||||
BEGIN
|
|
||||||
PROMPT 38 6 "Numero di rate "
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
FLAGS "U"
|
|
||||||
END
|
|
||||||
|
|
||||||
STRING FS_VALUTA 3
|
STRING FS_VALUTA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 67 6 "Valuta "
|
PROMPT 67 6 "Valuta "
|
||||||
|
@ -271,31 +271,42 @@ bool TProvvisori_app::menu(MENU_TAG)
|
|||||||
TRectype from(LF_MOV);
|
TRectype from(LF_MOV);
|
||||||
TRectype to(LF_MOV);
|
TRectype to(LF_MOV);
|
||||||
|
|
||||||
const char* s = m.get(F_FROMDATE);
|
TString16 from_d = m.get(F_FROMDATE);
|
||||||
|
TString16 to_d = m.get(F_TODATE);
|
||||||
|
|
||||||
|
if (from_d.empty() && to_d.empty())
|
||||||
|
{
|
||||||
|
error_box("E' nessario specificare almeno una data.");
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
if (key == K_ENTER)
|
if (key == K_ENTER)
|
||||||
{
|
{
|
||||||
const TDate da(s);
|
const TDate da(from_d);
|
||||||
const TLibro_giornale lg(da.year());
|
const TLibro_giornale lg(da.year());
|
||||||
const TDate lp(lg.last_print());
|
const TDate lp(lg.last_print());
|
||||||
if (da < lp)
|
if (da < lp)
|
||||||
{
|
{
|
||||||
s = lp.string();
|
from_d = lp.string();
|
||||||
const bool ok = yesno_box("Il libro giornale e stato stampato il %s:\n",
|
const bool ok = yesno_box("Il libro giornale e stato stampato il %s:\n"
|
||||||
"Si desidera modificare la data iniziale?", s);
|
"Si desidera modificare la data iniziale?",
|
||||||
|
(const char*)from_d);
|
||||||
if (!ok) continue;
|
if (!ok) continue;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if (*s) from.put(MOV_DATAREG, s);
|
if (from_d.not_empty()) from.put(MOV_DATAREG, from_d);
|
||||||
s = m.get(F_FROMREG);
|
|
||||||
if (*s) from.put(MOV_NUMREG, s);
|
const TString& from_r = m.get(F_FROMREG);
|
||||||
|
if (from_r.not_empty()) from.put(MOV_NUMREG, from_r);
|
||||||
|
|
||||||
_from_caus = m.get(F_FROMCAUS);
|
_from_caus = m.get(F_FROMCAUS);
|
||||||
|
|
||||||
s = m.get(F_TODATE);
|
if (to_d.not_empty()) to.put(MOV_DATAREG, to_d);
|
||||||
if (*s) to.put(MOV_DATAREG, s);
|
|
||||||
s = m.get(F_TOREG);
|
const TString& to_r = m.get(F_TOREG);
|
||||||
if (*s) to.put(MOV_NUMREG, s);
|
if (to_r.not_empty()) to.put(MOV_NUMREG, to_r);
|
||||||
|
|
||||||
_to_caus = m.get(F_TOCAUS);
|
_to_caus = m.get(F_TOCAUS);
|
||||||
|
|
||||||
cur.setregion(from, to);
|
cur.setregion(from, to);
|
||||||
@ -303,10 +314,10 @@ bool TProvvisori_app::menu(MENU_TAG)
|
|||||||
|
|
||||||
const TRecnotype total = cur.items();
|
const TRecnotype total = cur.items();
|
||||||
|
|
||||||
TString80 action(key == K_ENTER ? "conferma" : "cancellazione");
|
TString action(key == K_ENTER ? "conferma" : "cancellazione");
|
||||||
action << " di "; add_plural(action, total, "movimento");
|
action << " di "; add_plural(action, total, "movimento");
|
||||||
|
|
||||||
TString256 caption("E' stata richiesta la ");
|
TString caption("E' stata richiesta la ");
|
||||||
caption << action << '.';
|
caption << action << '.';
|
||||||
|
|
||||||
if (total > 0)
|
if (total > 0)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user