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

Aggiunte ricerche per descrizione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@808 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-01-02 09:29:29 +00:00
parent 4fbe28d0b7
commit f62c380327
10 changed files with 50 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba0.cpp
View File

@ -55,7 +55,7 @@ void TPicture_mask::set_picture(short id)
_id = id; _id = id;
#if XVT_OS == XVT_OS_WIN #if XVT_OS == XVT_OS_WIN
if (_picture) picture_free(_picture); if (_picture) picture_free(_picture);
_picture = cpb_picture_load(id); _picture = xvt_picture_load(id, TRUE);
#endif #endif
} }
} }

16
ba/ba2100.cpp
View File

@ -44,21 +44,19 @@ bool TForm_editor::create()
TFilename form(argv(2)); form.ext("frm"); TFilename form(argv(2)); form.ext("frm");
const char mode = argc() > 3 ? toupper(argv(3)[1]) : 'M'; if (!fexist(form))
const bool crea = (mode == 'C') || !fexist(form);
if (crea)
{ {
TFilename base(form.left(3)); base.ext("frm"); TFilename base(form.left(3)); base.ext("frm");
if (!fexist(base)) if (!fexist(base))
return error_box("Non esiste il file %s", (const char*)base); return error_box("Non esiste il profilo campione %s", (const char*)base);
if (!yesno_box("Si desidera creare un nuovo profilo %s", (const char*)form))
return FALSE;
if (!fcopy(base, form)) if (!fcopy(base, form))
return error_box("Impossibile copiare %s in %s", (const char*)base, (const char*)form); return error_box("Impossibile copiare %s in %s", (const char*)base, (const char*)form);
} }
if (!fexist(form))
return error_box("Non esiste il file %s", (const char*)form);
_form = new TForm(form); _form = new TForm(form);
enable_menu_item(M_FILE_PRINT); enable_menu_item(M_FILE_PRINT);
@ -68,7 +66,7 @@ bool TForm_editor::create()
bool TForm_editor::destroy() bool TForm_editor::destroy()
{ {
delete _form; if (_form) delete _form;
return TApplication::destroy(); return TApplication::destroy();
} }

2
ba/ba2100f.uml
View File

@ -24,12 +24,14 @@ BEGIN
ITEM "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS ITEM "NUMERO|Numero" MESSAGE SHOW,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "DATA|Data" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS ITEM "DATA|Data" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
ITEM "LISTA|Lista" MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS ITEM "LISTA|Lista" MESSAGE HIDE,2@|HIDE,F_HEIGHT|SHOW,F_ITEMS
ITEM "GRUPPO|Gruppo" MESSAGE HIDE,2@|HIDE,F_HEIGHT|HIDE,F_ITEMS
END END
STRING F_KEY 80 60 STRING F_KEY 80 60
BEGIN BEGIN
PROMPT 1 2 "Descrizione " PROMPT 1 2 "Descrizione "
HELP "Descrizione del campo da configurare" HELP "Descrizione del campo da configurare"
CHECKTYPE REQUIRED
END END
NUMBER F_Y 3 NUMBER F_Y 3

13
ba/ba3500a.uml
View File

@ -25,13 +25,14 @@ END
STRING F_CODLIB 3 STRING F_CODLIB 3
BEGIN BEGIN
PROMPT 4 2 "Codice libro unico " PROMPT 4 2 "Codice libro unico "
FLAGS "U"
FIELD %LBU->CODTAB[5,7] FIELD %LBU->CODTAB[5,7]
KEY 1 KEY 1
COPY USE F_ANNO COPY USE F_ANNO
CHECKTYPE REQUIRED
INPUT CODTAB[5,7] F_CODLIB INPUT CODTAB[5,7] F_CODLIB
COPY DISPLAY F_ANNO COPY DISPLAY F_ANNO
COPY OUTPUT F_ANNO COPY OUTPUT F_ANNO
CHECKTYPE REQUIRED
END END
LIST F_ULT_MESE_STAMP 2 10 LIST F_ULT_MESE_STAMP 2 10
@ -94,19 +95,21 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_TIPOA TIPOA OUTPUT F_TIPOA TIPOA
OUTPUT F_TIPOANAGR RAGSOC OUTPUT F_TIPOANAGR RAGSOC
CHECKTYPE NORMAL
END END
NUMBER F_CODTABLIB 2 NUMBER F_CODTABLIB 2
BEGIN BEGIN
PROMPT 3 3 "Codice libro " PROMPT 3 3 "Codice libro "
FIELD %LBU->I3 FIELD %LBU->I3
FLAGS "U" FLAGS "Z"
USE %ITL USE %ITL
INPUT CODTAB F_CODTABLIB INPUT CODTAB F_CODTABLIB
DISPLAY "Codice libro" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODTABLIB CODTAB OUTPUT F_CODTABLIB CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
CHECKTYPE NORMAL
HELP "Inserire il codice del libro" HELP "Inserire il codice del libro"
END END
@ -218,6 +221,7 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT 105 CODDITTA OUTPUT 105 CODDITTA
OUTPUT 112 RAGSOC OUTPUT 112 RAGSOC
CHECKTYPE NORMAL
END END
STRING 112 50 50 STRING 112 50 50
@ -237,6 +241,7 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT 106 CODTAB[5,7] OUTPUT 106 CODTAB[5,7]
OUTPUT 113 S0 OUTPUT 113 S0
CHECKTYPE NORMAL
END END
STRING 113 50 50 STRING 113 50 50

22
ba/ba4300a.uml
View File

@ -31,12 +31,6 @@ ENDPAGE
PAGE "Ditte 1/4" -1 -1 77 18 PAGE "Ditte 1/4" -1 -1 77 18
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
NUMBER FLD_GD1_CODDITTA 5 NUMBER FLD_GD1_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Codice " PROMPT 1 1 "Codice "
@ -83,8 +77,8 @@ BEGIN
DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
COPY OUTPUT FLD_GD1_CODDITTA COPY OUTPUT FLD_GD1_CODDITTA
HELP "Ragione sociale della ditta" HELP "Ragione sociale della ditta"
WARNING "La ragione sociale e' obbligatoria" WARNING "La ragione sociale e' obbligatoria"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "G" FLAGS "G"
MESSAGE COPY,2@|COPY,FLD_GD1_RAGSOCH MESSAGE COPY,2@|COPY,FLD_GD1_RAGSOCH
@ -99,13 +93,19 @@ BEGIN
COPY INPUT FLD_GD1_RAGSOC COPY INPUT FLD_GD1_RAGSOC
COPY DISPLAY FLD_GD1_RAGSOC COPY DISPLAY FLD_GD1_RAGSOC
COPY OUTPUT FLD_GD1_RAGSOC COPY OUTPUT FLD_GD1_RAGSOC
HELP "Ragione sociale della ditta" HELP "Ragione sociale della ditta"
WARNING "La ragione sociale e' obbligatoria" WARNING "La ragione sociale e' obbligatoria"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,2@|COPY,FLD_GD1_RAGSOC MESSAGE COPY,2@|COPY,FLD_GD1_RAGSOC
FLAGS "HG" FLAGS "HG"
END END
GROUPBOX DLG_NULL 76 4
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
PROMPT 0 4 "Anagrafica" PROMPT 0 4 "Anagrafica"

8
ba/batbban.uml
View File

@ -1,7 +1,13 @@
#include "ba3100.h" #include "ba3100.h"
#include "batbban.h" #include "batbban.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 18 0 3
BUTTON DLG_NULL 8
BEGIN
PROMPT -16 -3 "~Delega"
MESSAGE RUN,ba2,-0,del#F_CODICEABI
END
#include <toolbar.h> #include <toolbar.h>

2
ba/batbclr.uml
View File

@ -49,7 +49,7 @@ STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 3 "Descrizione " PROMPT 4 3 "Descrizione "
FIELD %CLR->S0 FIELD %CLR->S0
USE %CLR USE %CLR KEY 2
INPUT S0 F_DESCR INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Tipo pagamento" CODTAB[1,1] DISPLAY "Tipo pagamento" CODTAB[1,1]

10
ba/batbitl.uml
View File

@ -14,12 +14,12 @@ BEGIN
USE %ITL USE %ITL
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABITL_CODTAB INPUT CODTAB FLD_TABITL_CODTAB
DISPLAY "Codice@R" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT FLD_TABITL_CODTAB CODTAB OUTPUT FLD_TABITL_CODTAB CODTAB
OUTPUT FLD_TABITL_S0 S0 OUTPUT FLD_TABITL_S0 S0
KEY 1 KEY 1
FLAGS "R" FLAGS "Z"
END END
STRING FLD_TABITL_S0 50 STRING FLD_TABITL_S0 50
@ -29,14 +29,14 @@ BEGIN
HELP "Nome del libro sociale" HELP "Nome del libro sociale"
USE %ITL KEY 2 USE %ITL KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Manca la descrizione" WARNING "Manca la descrizione"
INPUT S0 FLD_TABITL_S0 INPUT S0 FLD_TABITL_S0
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice@R" CODTAB DISPLAY "Codice" CODTAB
COPY OUTPUT FLD_TABITL_CODTAB COPY OUTPUT FLD_TABITL_CODTAB
KEY 2 KEY 2
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

1
ba/batbivd.uml
View File

@ -36,6 +36,7 @@ BEGIN
OUTPUT F_LETT CODTAB[2,2] OUTPUT F_LETT CODTAB[2,2]
OUTPUT F_DESCR_LETT S0 OUTPUT F_DESCR_LETT S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
VALIDATE ALPHA_FUNC
HELP "Lettera secondo la IV dir. CEE" HELP "Lettera secondo la IV dir. CEE"
GROUP GR_SEARCH GROUP GR_SEARCH
END END

12
ba/batbreg.uml
View File

@ -58,10 +58,10 @@ BEGIN
PROMPT 49 2 "Codice registro " PROMPT 49 2 "Codice registro "
Help "Codice del registro" Help "Codice del registro"
FIELD CODTAB[5,7] FIELD CODTAB[5,7]
COPY ALL F_ANNO
FLAGS "UZ" FLAGS "UZ"
KEY 1 KEY 1
GROUP 1 GROUP 1
COPY ALL F_ANNO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,21@ MESSAGE COPY,21@
END END
@ -78,22 +78,22 @@ BEGIN
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Tipo" I0 DISPLAY "Tipo" I0
COPY OUTPUT F_ANNO COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,22@ MESSAGE COPY,22@
HELP "Descrizione del registro" HELP "Descrizione del registro"
WARNING "La descrizione e' obbligatoria" WARNING "La descrizione e' obbligatoria"
END END
STRING F_CODLIB 2 NUMBER F_CODLIB 2
BEGIN BEGIN
PROMPT 1 5 "Codice libro " PROMPT 1 5 "Codice libro "
FIELD S7 FIELD S7
FLAGS "R" FLAGS "Z"
GROUP 1 GROUP 1
USE %ITL USE %ITL
INPUT CODTAB F_CODLIB INPUT CODTAB F_CODLIB
DISPLAY "Codice libro@R" CODTAB DISPLAY "Codice libro" CODTAB
DISPLAY "Descrizione @50" S0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODLIB CODTAB OUTPUT F_CODLIB CODTAB
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
@ -215,7 +215,7 @@ BEGIN
GROUP 2 3 4 GROUP 2 3 4
FIELD S6 FIELD S6
USE %LBU USE %LBU
INPUT CODTAB[1,4] F_ANNO SELECT INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODLBU INPUT CODTAB[5,7] F_CODLBU
DISPLAY "Anno" CODTAB[1,4] DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7] DISPLAY "Codice" CODTAB[5,7]