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

ba110?.cpp Massimizzata finestra browse

Browse Source 
ba883.cpp    Aggiunto nome della maschera in apertura
batbdel.uml  Corretta ricerca ditta per ragione sociale


git-svn-id: svn://10.65.10.50/trunk@1797 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-09-08 10:56:05 +00:00
parent 2b7231bb6c
commit ddad33ee19
4 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ba/ba1101.cpp
View File

@ -202,7 +202,7 @@ void TRec_sheet::save()
{
if ((*_rec == *_rec_old && !_descr) ||
!yesnocancel_box("Devo salvare le modifiche")) return;
!yesnocancel_box("Salvare le modifiche")) return;
TSystemisamfile f(_rec->num());
if (_descr)

1
ba/ba1102.cpp
View File

@ -101,6 +101,7 @@ bool TEdit_file::browse(int logicnum, const char* name)
KEY ch;
TCursor_sheet sheet(&cursor, trac, name, head, superprassi ? 6 : 0);
sheet.maximize();
while ((ch = sheet.run()) != K_ESC)
{

28
ba/ba883.cpp
View File

@ -99,21 +99,21 @@ bool TTest_application::menu(MENU_TAG)
int main(int argc, char** argv)
{
TApplication::check_parameters(argc, argv);
TFilename mask;
if (argc > 1)
mask = argv[1];
if (argc < 3)
if (argc > 1)
{
TTest_application a(mask);
a.run(argc, argv, "Test Mask");
}
else
{
TTestrel_application a(mask, argv[2]);
a.run(argc, argv, "Test Relation Application");
}
if (argc < 3)
{
TTest_application a(argv[1]);
TString80 title("Test Mask "); title << argv[1];
a.run(argc, argv, title);
}
else
{
TTestrel_application a(argv[1], argv[2]);
a.run(argc, argv, "Test Relation Application");
}
}
return 0;
}

5
ba/batbdel.uml
View File

@ -31,12 +31,13 @@ BEGIN
HELP "Ragione sociale ditta a cui si riferisce la delega"
KEY 1
USE LF_NDITTE KEY 2
INPUT CODDITTA F_CODDITTA
DISPLAY "Ditta" CODDITTA
INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Ditta" CODDITTA
OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC
WARNING "Ditta assente"
CHECKTYPE NORMAL
END
LIST F_TIPO 20