Patch level :10.0
Files correlati : Ricompilazione Demo : [ ] Commento : tolto il programma lv2300 (stampa dei giri) perchè non veniva utilizzato (veniva sempre lanciato lv0200 per la stampa dei giri), e modificato il nome della maschera da lv2300a.uml a lv2200c.uml e del report da lv2300a.rep a lv2200c.rep in modo che richiami il programma di gestione dei giri, e cioè lv2200.cpp. Modificato anche il menu in modo che venga richiamato il report giusto git-svn-id: svn://10.65.10.50/trunk@17769 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83
parent
6170d5c1c3
commit
afca5aeaec
@ -9,7 +9,7 @@ int main(int argc, char** argv)
|
||||
{
|
||||
case 0: lv2100(argc, argv); break; //generazione automatica del planning
|
||||
case 1: lv2200(argc, argv); break; //manipolazione e stampa del planning
|
||||
case 2: lv2300(argc, argv); break; //stampe planning
|
||||
//case 2: lv2300(argc, argv); break; //POSTO LIBERO
|
||||
case 3: lv2400(argc, argv); break; //generazione automatica bolle di consegna
|
||||
case 4: lv2600(argc, argv); break; //acquisizione bolle di rientro
|
||||
default: lv2100(argc, argv); break; //generazione automatica del planning
|
||||
|
||||
173
lv/lv2200c.uml
Executable file
173
lv/lv2200c.uml
Executable file
@ -0,0 +1,173 @@
|
||||
#include "lv2200c.h"
|
||||
|
||||
TOOLBAR "topbar" 0 0 0 2
|
||||
#include "printbar.h"
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Stampa Giri" -1 -1 40 5
|
||||
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bParametri Data"
|
||||
END
|
||||
|
||||
DATE F_DATA_FROM
|
||||
BEGIN
|
||||
PROMPT 2 2 "Dal "
|
||||
FIELD #FROM_DATA
|
||||
GROUP 1
|
||||
CHECKTYPE REQUIRED
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
DATE F_DATA_TO
|
||||
BEGIN
|
||||
PROMPT 25 2 "Al "
|
||||
FIELD #TO_DATA
|
||||
FLAGS "A"
|
||||
GROUP 2
|
||||
CHECKTYPE REQUIRED
|
||||
VALITATE DATE_CMP_FUNC >= F_DATA_FROM
|
||||
WARNING "La data finale deve essere successiva a quella iniziale"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "@bParametri Itinerario"
|
||||
END
|
||||
|
||||
NUMBER F_CODITI_FROM 3
|
||||
BEGIN
|
||||
PROMPT 2 5 "Da Itinerario"
|
||||
FLAGS "UZ"
|
||||
USE &ITI
|
||||
INPUT CODTAB F_CODITI_FROM
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODITI_FROM CODTAB
|
||||
OUTPUT F_DESITI_FROM S0
|
||||
CHECKTYPE SEARCH
|
||||
FIELD #FROM_CODITI
|
||||
END
|
||||
|
||||
STRING F_DESITI_FROM 50
|
||||
BEGIN
|
||||
PROMPT 25 5 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CODITI_TO 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "A Itinerario "
|
||||
FLAGS "UZ"
|
||||
USE &ITI
|
||||
INPUT CODTAB F_CODITI_TO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODITI_TO CODTAB
|
||||
OUTPUT F_DESITI_TO S0
|
||||
CHECKTYPE SEARCH
|
||||
FIELD #TO_CODITI
|
||||
END
|
||||
|
||||
STRING F_DESITI_TO 50
|
||||
BEGIN
|
||||
PROMPT 25 6 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 8 "@bParametri Autista"
|
||||
END
|
||||
|
||||
STRING F_CODAUT_FROM 6
|
||||
BEGIN
|
||||
PROMPT 2 9 "Da Autista "
|
||||
FLAGS "U"
|
||||
USE &AUT
|
||||
INPUT CODTAB F_CODAUT_FROM
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODAUT_FROM CODTAB
|
||||
OUTPUT F_DESAUT_FROM S0
|
||||
CHECKTYPE SEARCH
|
||||
FIELD #FROM_CODAUT
|
||||
END
|
||||
|
||||
STRING F_DESAUT_FROM 50
|
||||
BEGIN
|
||||
PROMPT 25 9 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CODAUT_TO 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Ad Autista "
|
||||
FLAGS "U"
|
||||
USE &AUT
|
||||
INPUT CODTAB F_CODAUT_TO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODAUT_TO CODTAB
|
||||
OUTPUT F_DESAUT_TO S0
|
||||
CHECKTYPE SEARCH
|
||||
FIELD #TO_CODAUT
|
||||
END
|
||||
|
||||
STRING F_DESAUT_TO 50
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 4
|
||||
BEGIN
|
||||
PROMPT 1 12 "@bParametri Cliente"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF_FROM 6
|
||||
BEGIN
|
||||
PROMPT 2 13 "Da Cliente "
|
||||
FLAGS "U"
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCF_FROM
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF_FROM CODCF
|
||||
OUTPUT F_RAGSOCCF_FROM RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FIELD #FROM_CODCF
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCF_FROM 50
|
||||
BEGIN
|
||||
PROMPT 25 13 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF_TO 6
|
||||
BEGIN
|
||||
PROMPT 2 14 "A Cliente "
|
||||
FLAGS "U"
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCF_TO
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF_TO CODCF
|
||||
OUTPUT F_RAGSOCCF_TO RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
FIELD #TO_CODCF
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCF_TO 50
|
||||
BEGIN
|
||||
PROMPT 25 14 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
@ -1,93 +1,9 @@
|
||||
#include "lv0.h"
|
||||
//#include "lv2300a.h"
|
||||
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <modaut.h>
|
||||
#include <progind.h>
|
||||
#include <recarray.h>
|
||||
#include <relation.h>
|
||||
#include <reprint.h>
|
||||
#include <tabutil.h>
|
||||
#include <textset.h>
|
||||
|
||||
|
||||
|
||||
class TStampe_planning_mask : public TAutomask
|
||||
{
|
||||
|
||||
private:
|
||||
|
||||
|
||||
public:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
TStampe_planning_mask (const char* name) : TAutomask(name) {}
|
||||
};
|
||||
|
||||
bool TStampe_planning_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
class TStampe_planning_app : public TSkeleton_application
|
||||
{
|
||||
TStampe_planning_mask* _msk;
|
||||
|
||||
protected:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
|
||||
public:
|
||||
bool transfer();
|
||||
virtual void main_loop();
|
||||
};
|
||||
|
||||
bool TStampe_planning_app::create()
|
||||
{
|
||||
_msk = new TStampe_planning_mask("lv2300a");
|
||||
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
bool TStampe_planning_app::destroy()
|
||||
{
|
||||
delete _msk;
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
|
||||
void TStampe_planning_app::main_loop()
|
||||
{
|
||||
TStampe_planning_app app;
|
||||
|
||||
// Costruisce il nome del report in base alla riga di comando
|
||||
TFilename rep;
|
||||
if (argc() > 2)
|
||||
{
|
||||
rep = argv(2);
|
||||
rep.ext("rep");
|
||||
}
|
||||
|
||||
TReport r;
|
||||
bool ok = r.load(rep); // Controlla l'effettiva esistenza del report
|
||||
while (ok)
|
||||
{
|
||||
TReport_book b;
|
||||
ok = b.add(r); // Richiede parametri di stampa in base alla maschera omonima
|
||||
if (ok)
|
||||
{
|
||||
if (b.pages() > 0)
|
||||
{
|
||||
b.print_or_preview(); // Stampa effettivamente
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
int lv2300(int argc, char* argv[])
|
||||
{
|
||||
TStampe_planning_app app;
|
||||
app.run(argc, argv, "Stampe Planning");
|
||||
/*POSTO LIBERO*/
|
||||
//TStampe_planning_app app;
|
||||
//app.run(argc, argv, "Stampe Planning");
|
||||
return 0;
|
||||
}
|
||||
@ -82,7 +82,7 @@ Caption = "Stampe Giri"
|
||||
Picture = <ba03>
|
||||
Module = 41
|
||||
Flags = ""
|
||||
Item_01 = "Stampa Giri", "lv0 -1 lv2300a", "F"
|
||||
Item_01 = "Stampa Giri", "lv0 -1 lv2200c", "F"
|
||||
|
||||
[LVMENU_055]
|
||||
Caption = "Documenti"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user