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

Correzione alla stampa fogli libro bollato:

Browse Source 
se la ditta non esiste va leggere LF_TABREG


git-svn-id: svn://10.65.10.50/trunk@4145 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-02-21 09:51:34 +00:00
parent dcd95cc9b8
commit 1224ad9565
3 changed files with 660 additions and 631 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ba/ba3300.cpp
View File

@ -229,15 +229,18 @@ static bool codditta_handler(TMask_field& field, KEY key)
nditte.read();
if (nditte.bad())
return error_box("Il codice ditta %d non esiste", codditta);
if (prefix().exist(codditta))
const bool exist_firm = prefix().exist(codditta);
if (exist_firm)
app().set_firm(codditta);
else
{
m.field(F_ANNO).hide();
m.field(F_CODICE).hide();
m.field(F_ANNOREG).shown();
m.field(F_CODICEREG).shown();
}
m.hide(exist_firm ? -4 : -3);
m.show(exist_firm ? -3 : -4);
//else
//{
//m.field(F_ANNO).hide();
//m.field(F_CODICE).hide();
//m.field(F_ANNOREG).show();
//m.field(F_CODICEREG).show();
//}
app()._ragsoc = "SOCIETA' ";
app()._ragsoc << nditte.get(N_RAGSOC);
m.set(F_RAGSOC,app()._ragsoc);

1
ba/ba3300.h
View File

@ -37,5 +37,6 @@
#define F_NPAGFI 119
#define F_PRIMO 120
#define F_ANNOSTAMPA 121
#define F_TIPOREGCOM 122
#endif // __BA3300_H

33
ba/ba3300a.uml
View File

@ -24,7 +24,7 @@ BEGIN
MESSAGE EMPTY DISABLE,3@
END
STRING F_RAGSOC 50 60
STRING F_RAGSOC 60 50
BEGIN
PROMPT 2 3 "Rag. Soc. "
USE LF_NDITTE KEY 2
@ -72,7 +72,7 @@ BEGIN
HELP "Codice del comune dell'intestatario"
END
STRING F_COM 28
STRING F_COM 50 28
BEGIN
PROMPT 35 5 ""
USE LF_COMUNI KEY 2
@ -153,6 +153,31 @@ BEGIN
GROUP 3
END
LIST F_TIPOREGCOM 1 25
BEGIN
PROMPT 2 11 "Tipo "
FLAGS "H"
HELP "Tipo registro da stampare"
ITEM "1|Vendite"
MESSAGE HIDE,1@|SHOW,2@
ITEM "2|Acquisti"
MESSAGE HIDE,1@|SHOW,2@
ITEM "3|Libro IVA riepilogativo"
MESSAGE HIDE,1@|SHOW,2@
// ITEM "4|Libro incassi e pagamenti"
ITEM "5|Libro giornale"
MESSAGE HIDE,1@|SHOW,2@
ITEM "6|Libri sociali"
MESSAGE HIDE,1@|SHOW,2@
ITEM "7|Libro cespiti"
MESSAGE HIDE,1@|SHOW,2@
ITEM "8|Libro inventari"
MESSAGE HIDE,1@|SHOW,2@
ITEM "9|Libro procedure"
MESSAGE HIDE,1@|SHOW,2@
GROUP 4
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 12 "Anno rifer. "
@ -199,7 +224,7 @@ BEGIN
OUTPUT F_REGISTRO DESCR
FLAGS "ZH"
CHECKTYPE SEARCH
GROUP 2 3
GROUP 2 4
END
@ -211,7 +236,7 @@ BEGIN
COPY ALL F_ANNOREG
CHECKTYPE NORMAL
WARNING "Registro assente"
GROUP 2 3
GROUP 2 4
END
STRING F_REGISTRO 50