Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@16996 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
1ee36984f0
commit
4376d3d92d
130
lv/lv2100.cpp
130
lv/lv2100.cpp
@ -1,88 +1,102 @@
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <defmask.h>
|
||||
#include <relapp.h>
|
||||
#include <tabutil.h>
|
||||
#include <progind.h>
|
||||
#include <recarray.h>
|
||||
#include <relation.h>
|
||||
#include <textset.h>
|
||||
|
||||
#include "lv0.h"
|
||||
#include "lv0700a.h"
|
||||
#include <mov.h>
|
||||
#include <rmoviva.h>
|
||||
|
||||
//-------------------------------------------------------------------
|
||||
// MASCHERA (lv0700a)
|
||||
//-------------------------------------------------------------------
|
||||
class TPlan_cons_mask : public TAutomask
|
||||
{
|
||||
protected:
|
||||
#include "../cg/cgsaldac.h"
|
||||
|
||||
#include "lv2.h"
|
||||
#include "lv2100a.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TGenera_planning maschera
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TGenera_planning_mask : public TAutomask
|
||||
{
|
||||
public:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
|
||||
TGenera_planning_mask (const char* name) : TAutomask(name) {}
|
||||
};
|
||||
|
||||
bool TGenera_planning_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
return true;
|
||||
}
|
||||
/*
|
||||
/////////////////////////////////////////////////////////////
|
||||
// TGenera_planning recordset
|
||||
/////////////////////////////////////////////////////////////
|
||||
|
||||
class TGenera_planning_recordset : public TCSV_recordset
|
||||
{
|
||||
public:
|
||||
TPlan_cons_mask();
|
||||
TEsporta_ps0713_recordset();
|
||||
};
|
||||
|
||||
|
||||
|
||||
bool TPlan_cons_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
/* switch (o.dlg())
|
||||
{
|
||||
case F_ANNO:
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
} */
|
||||
return true;
|
||||
}
|
||||
|
||||
TPlan_cons_mask::TPlan_cons_mask() : TAutomask("lv0700a")
|
||||
TGenera_planning_recordset::TEsporta_ps0713_recordset()
|
||||
: TCSV_recordset("CSV(\"\t\")")
|
||||
{
|
||||
}
|
||||
*/
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TGenera_planning applicazione
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
//--------------------------------------------------------------
|
||||
// APPLICAZIONE
|
||||
//--------------------------------------------------------------
|
||||
class TPlan_cons : public TRelation_application
|
||||
{
|
||||
TPlan_cons_mask* _mask;
|
||||
TRelation* _rel;
|
||||
class TGenera_planning_app : public TSkeleton_application
|
||||
{
|
||||
|
||||
TGenera_planning_mask* _msk;
|
||||
|
||||
protected:
|
||||
bool user_create();
|
||||
bool user_destroy();
|
||||
virtual TMask* get_mask(int mode) { return _mask; }
|
||||
virtual bool changing_mask(int mode) { return false; }
|
||||
virtual void init_modify_mode(TMask& m);
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
|
||||
public:
|
||||
// @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
|
||||
virtual bool check_autorization() const {return true;}
|
||||
|
||||
virtual TRelation* get_relation() const {return (TRelation*)_rel;}
|
||||
bool transfer();
|
||||
virtual void main_loop();
|
||||
/*void esporta_righe_iva(const TMask& msk) const;
|
||||
void set_inviva(TISAM_recordset& rmoviva) const;*/
|
||||
|
||||
};
|
||||
|
||||
|
||||
|
||||
void TPlan_cons::init_modify_mode(TMask& m) //evita la registrazione di un record modificato se STAMPATO
|
||||
bool TGenera_planning_app::create()
|
||||
{
|
||||
/*xvt_fsys_removefile(nomeini);
|
||||
_configfile = new TConfig(nomeini);*/
|
||||
|
||||
_msk = new TGenera_planning_mask("lv2100a");
|
||||
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
bool TGenera_planning_app::destroy()
|
||||
{
|
||||
delete _msk;
|
||||
//delete _configfile;
|
||||
return TApplication::destroy();
|
||||
}
|
||||
|
||||
bool TPlan_cons::user_create()
|
||||
{
|
||||
_rel = new TRelation(LF_LVCONSPLAN);
|
||||
_mask = new TPlan_cons_mask;
|
||||
bool TGenera_planning_app::transfer()
|
||||
{
|
||||
return true;
|
||||
}
|
||||
|
||||
bool TPlan_cons::user_destroy()
|
||||
{
|
||||
delete _mask;
|
||||
return true;
|
||||
void TGenera_planning_app::main_loop()
|
||||
{
|
||||
while (_msk->run() == K_ENTER)
|
||||
transfer();
|
||||
}
|
||||
|
||||
int lv0700(int argc, char* argv[])
|
||||
int lv2100(int argc, char* argv[])
|
||||
{
|
||||
TPlan_cons a;
|
||||
a.run(argc, argv, TR("Generazione planning"));
|
||||
TGenera_planning_app app;
|
||||
app.run(argc, argv, TR("Generazione automatica planning"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
37
lv/lv2100a.h
37
lv/lv2100a.h
@ -1,28 +1,11 @@
|
||||
// lettere d'intento
|
||||
// definizione campi per maschera lv0700a
|
||||
// generazione automatica planning
|
||||
// definizione campi per maschera lv2100a
|
||||
|
||||
#define F_ANNO 101
|
||||
#define F_NUMPROT 102
|
||||
#define F_DATAREG 103
|
||||
#define F_VSPROT 104
|
||||
#define F_VSDATA 105
|
||||
#define F_CODCLI 106
|
||||
#define F_RAGSOC 107
|
||||
#define F_TIPOOP 108
|
||||
#define F_IMPORTO 109
|
||||
#define F_DAL 110
|
||||
#define F_AL 111
|
||||
#define F_STAMPATO 112
|
||||
#define F_INDCF 113
|
||||
#define F_CIVCF 114
|
||||
#define F_STATOCF 115
|
||||
#define F_DESTACF 116
|
||||
#define F_COMCF 117
|
||||
#define F_DENCOMCF 118
|
||||
#define F_LOCALITACF 119
|
||||
#define F_CAPCF 120
|
||||
#define F_PROVCF 121
|
||||
#define F_PAIV 122
|
||||
#define F_UFFIVA 123
|
||||
#define F_DENUFFIVA 124
|
||||
#define F_NOTE 125
|
||||
#define F_CODDITTA 101
|
||||
#define F_RAGSOC 102
|
||||
#define F_DADATA 103
|
||||
#define F_ADATA 104
|
||||
#define F_CODITI 105
|
||||
#define F_DESCRITI 106
|
||||
#define F_CODCLI 107
|
||||
#define F_RAGSOCCLI 108
|
||||
|
||||
284
lv/lv2100a.uml
284
lv/lv2100a.uml
@ -1,255 +1,99 @@
|
||||
#include "lv0700a.h"
|
||||
#include "lv2100a.h"
|
||||
|
||||
TOOLBAR "Relapbar" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
TOOLBAR "cazzone" 0 0 0 2
|
||||
#include <elabar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Dichiarazioni d'intento" -1 -1 78 20
|
||||
PAGE "Generazione planning" -1 -1 78 20
|
||||
|
||||
GROUPBOX DLG_NULL 75 3
|
||||
GROUPBOX DLG_NULL 76 3
|
||||
BEGIN
|
||||
PROMPT 0 1 "@bNostri riferimenti"
|
||||
PROMPT 1 1 "@bDitta corrente"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 2 "Anno "
|
||||
FLAGS "AU"
|
||||
USE LF_LETINT
|
||||
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCLI
|
||||
INPUT ANNO F_ANNO
|
||||
INPUT NUMPROT F_NUMPROT
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "N.Protocollo" NUMPROT
|
||||
DISPLAY "Data Reg.@10" DATAREG
|
||||
DISPLAY "Cliente" CODCLI
|
||||
DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
|
||||
OUTPUT F_ANNO ANNO
|
||||
OUTPUT F_NUMPROT NUMPROT
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD ANNO
|
||||
KEY 1
|
||||
END
|
||||
|
||||
NUMBER F_NUMPROT 6
|
||||
BEGIN
|
||||
PROMPT 15 2 "Numero protocollo "
|
||||
FLAGS "U"
|
||||
COPY ALL F_ANNO
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD NUMPROT
|
||||
KEY 1
|
||||
END
|
||||
|
||||
DATE F_DATAREG
|
||||
BEGIN
|
||||
PROMPT 43 2 "Data registrazione "
|
||||
FIELD DATAREG
|
||||
PROMPT 2 2 "Codice "
|
||||
FLAGS "FD"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 11
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 0 4 "@bRiferimenti cliente"
|
||||
PROMPT 23 2 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "@bDati per la generazione del planning"
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 2 5 "Genera il planning dal "
|
||||
FIELD DADATA
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 45 5 "al "
|
||||
FIELD ADATA
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_CODITI 3
|
||||
BEGIN
|
||||
PROMPT 2 6 "Itinerario "
|
||||
FLAGS "UZ"
|
||||
USE &ITI
|
||||
INPUT CODTAB F_CODITI
|
||||
DISPLAY "Codice " CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODITI CODTAB
|
||||
OUTPUT F_DESCRITI S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESCRITI 50
|
||||
BEGIN
|
||||
PROMPT 23 6 ""
|
||||
USE &ITI KEY 2
|
||||
INPUT S0 F_DESCRITI
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice " CODTAB
|
||||
COPY OUTPUT F_CODITI
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_CODCLI 6
|
||||
BEGIN
|
||||
PROMPT 1 5 "Cod. "
|
||||
PROMPT 2 7 "Cliente "
|
||||
FLAGS "U"
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCLI
|
||||
DISPLAY "Codice " CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
OUTPUT F_CODCLI CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_INDCF INDCF
|
||||
OUTPUT F_CIVCF CIVCF
|
||||
OUTPUT F_STATOCF STATOCF
|
||||
OUTPUT F_COMCF COMCF
|
||||
OUTPUT F_CAPCF CAPCF
|
||||
OUTPUT F_LOCALITACF LOCALITACF
|
||||
OUTPUT F_PAIV PAIV
|
||||
OUTPUT F_UFFIVA PAIV[8,10]
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODCLI
|
||||
ADD RUN cg0 -1
|
||||
OUTPUT F_RAGSOCCLI RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
STRING F_RAGSOCCLI 50
|
||||
BEGIN
|
||||
PROMPT 19 5 ""
|
||||
PROMPT 23 7 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
INPUT RAGSOC F_RAGSOCCLI
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice " CODCF
|
||||
COPY OUTPUT F_CODCLI
|
||||
CHECKTYPE NORMAL
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
STRING F_INDCF 35
|
||||
BEGIN
|
||||
PROMPT 1 6 "Indirizzo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CIVCF 10
|
||||
BEGIN
|
||||
PROMPT 59 6 "N. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_STATOCF 3
|
||||
BEGIN
|
||||
PROMPT 9 7 "Stato "
|
||||
USE %STA
|
||||
INPUT CODTAB F_STATOCF
|
||||
OUTPUT F_DESTACF S0
|
||||
FLAGS "ZD"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DESTACF 50
|
||||
BEGIN
|
||||
PROMPT 22 7 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_COMCF 4
|
||||
BEGIN
|
||||
PROMPT 8 8 "Comune "
|
||||
USE LF_COMUNI
|
||||
INPUT STATO F_STATOCF
|
||||
INPUT COM F_COMCF
|
||||
OUTPUT F_DENCOMCF DENCOM
|
||||
OUTPUT F_PROVCF PROVCOM
|
||||
FLAGS "D"
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DENCOMCF 50
|
||||
BEGIN
|
||||
PROMPT 22 8 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_LOCALITACF 35
|
||||
BEGIN
|
||||
PROMPT 1 9 "Localita' "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_CAPCF 5
|
||||
BEGIN
|
||||
PROMPT 52 9 "CAP "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_PROVCF 5
|
||||
BEGIN
|
||||
PROMPT 63 9 "Prov"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_PAIV 12
|
||||
BEGIN
|
||||
PROMPT 1 10 "Partita IVA "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_UFFIVA 3
|
||||
BEGIN
|
||||
PROMPT 1 11 "Ufficio IVA "
|
||||
USE %UIV
|
||||
INPUT CODTAB F_UFFIVA
|
||||
DISPLAY "Ufficio" CODTAB
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_UFFIVA CODTAB
|
||||
OUTPUT F_DENUFFIVA S0
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Ufficio IVA assente"
|
||||
FLAGS "Z"
|
||||
FIELD UFFIVA
|
||||
END
|
||||
|
||||
STRING F_DENUFFIVA 50
|
||||
BEGIN
|
||||
PROMPT 22 11 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_VSPROT 7
|
||||
BEGIN
|
||||
PROMPT 1 12 "Numero di protocollo "
|
||||
FIELD VSPROT
|
||||
END
|
||||
|
||||
DATE F_VSDATA
|
||||
BEGIN
|
||||
PROMPT 1 13 "Data di emissione "
|
||||
FIELD VSDATA
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 6
|
||||
BEGIN
|
||||
PROMPT 0 15 "@bOperazione"
|
||||
END
|
||||
|
||||
LIST F_TIPOOP 1 15
|
||||
BEGIN
|
||||
PROMPT 1 16 "Tipo operazione "
|
||||
ITEM "1|Singola"
|
||||
MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
|
||||
ITEM "2|A concorrenza"
|
||||
MESSAGE ENABLE,F_IMPORTO|CLEAR,1@
|
||||
ITEM "3|Nel periodo"
|
||||
MESSAGE ENABLE,1@|CLEAR,F_IMPORTO
|
||||
FIELD TIPOOP
|
||||
END
|
||||
|
||||
CURRENCY F_IMPORTO 18
|
||||
BEGIN
|
||||
PROMPT 1 17 "Importo "
|
||||
FIELD IMPORTO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DAL
|
||||
BEGIN
|
||||
PROMPT 1 18 "Data inizio periodo "
|
||||
GROUP 1
|
||||
FIELD DAL
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_AL
|
||||
BEGIN
|
||||
PROMPT 1 19 "Data fine periodo "
|
||||
GROUP 1
|
||||
FIELD AL
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE DATE_CMP_FUNC >= F_DAL
|
||||
WARNING "Specificare una 'Data fine periodo' non inferiore alla 'Data inizio perodo'"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATO
|
||||
BEGIN
|
||||
PROMPT 2 20 ""
|
||||
FIELD STAMPATO
|
||||
FLAGS "HD"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
PAGE "Note" -1 -1 78 20
|
||||
|
||||
MEMO F_NOTE 78 19
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
FIELD NOTE
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -1,4 +1,3 @@
|
||||
#define F_COD 101
|
||||
#define F_COD_ITINERARIO 102
|
||||
#define F_DES_ITINERARIO 103
|
||||
#define F_COD_AUTISTA 104
|
||||
|
||||
@ -6,98 +6,86 @@ ENDPAGE
|
||||
|
||||
PAGE "Itinerari" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 75 9
|
||||
BEGIN
|
||||
PROMPT 1 1 "@b Itinerari"
|
||||
END
|
||||
|
||||
LIST F_COD 3
|
||||
BEGIN
|
||||
PROMPT 2 3 ""
|
||||
ITEM "ITI|ITI"
|
||||
FLAGS "H"
|
||||
FIELD COD
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_COD_ITINERARIO 3
|
||||
BEGIN
|
||||
PROMPT 2 5 "Codice Itinerario "
|
||||
FLAGS "BU"
|
||||
FIELD CODTAB
|
||||
|
||||
USE ITI
|
||||
PROMPT 1 2 "Itinerario "
|
||||
FLAGS "U"
|
||||
USE &ITI
|
||||
INPUT CODTAB F_COD_ITINERARIO
|
||||
INPUT S1 F_COD_AUTISTA
|
||||
INPUT S2 F_COD_MEZZO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@35" S0
|
||||
DISPLAY "Cod.Autista" S1
|
||||
DISPLAY "Cod.Mezzo" S2
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Autista" S1
|
||||
DISPLAY "Mezzo" S2
|
||||
OUTPUT F_COD_ITINERARIO CODTAB
|
||||
OUTPUT F_DES_ITINERARIO S0
|
||||
OUTPUT F_COD_AUTISTA S1
|
||||
OUTPUT F_COD_MEZZO S2
|
||||
|
||||
OUTPUT F_COD_MEZZO S2
|
||||
CHECKTYPE REQUIRED
|
||||
FIELD CODTAB
|
||||
KEY 1
|
||||
END
|
||||
|
||||
STRING F_DES_ITINERARIO 35
|
||||
STRING F_DES_ITINERARIO 50
|
||||
BEGIN
|
||||
PROMPT 2 7 "Descrizione Itinerario"
|
||||
PROMPT 18 2 ""
|
||||
USE &ITI KEY 2
|
||||
INPUT S0 F_DES_ITINERARIO
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Autista" S1
|
||||
DISPLAY "Mezzo" S2
|
||||
COPY OUTPUT F_COD_ITINERARIO
|
||||
FIELD S0
|
||||
KEY 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 75 7
|
||||
BEGIN
|
||||
PROMPT 1 10 "@b Dettaglio Itinerari"
|
||||
END
|
||||
|
||||
STRING F_COD_AUTISTA 2
|
||||
BEGIN
|
||||
PROMPT 2 12 "Codice Autista "
|
||||
FLAGS "BU"
|
||||
FIELD S1
|
||||
|
||||
USE AUT
|
||||
PROMPT 1 4 "Autista "
|
||||
FLAGS "U"
|
||||
USE VET
|
||||
INPUT CODTAB F_COD_AUTISTA
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@35" S0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_COD_AUTISTA CODTAB
|
||||
OUTPUT F_DES_AUTISTA S0
|
||||
CHECKTIPE NORMAL
|
||||
FIELD S1
|
||||
CHECKTIPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DES_AUTISTA 35
|
||||
STRING F_DES_AUTISTA 50
|
||||
BEGIN
|
||||
PROMPT 30 12 ""
|
||||
FLAGS "D"
|
||||
PROMPT 18 4 ""
|
||||
USE VET KEY 2
|
||||
INPUT S0 F_DES_AUTISTA
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_COD_AUTISTA
|
||||
END
|
||||
|
||||
STRING F_COD_MEZZO 2
|
||||
BEGIN
|
||||
PROMPT 2 14 "Codice Mezzo "
|
||||
FLAGS "BU"
|
||||
FIELD S2
|
||||
|
||||
USE MEZ
|
||||
PROMPT 1 5 "Mezzo "
|
||||
FLAGS "U"
|
||||
USE &MEZ
|
||||
INPUT CODTAB F_COD_MEZZO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@35" S0
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_COD_MEZZO CODTAB
|
||||
OUTPUT F_DES_MEZZO S0
|
||||
CHECKTIPE NORMAL
|
||||
FIELD S2
|
||||
CHECKTIPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DES_MEZZO 35
|
||||
STRING F_DES_MEZZO 50
|
||||
BEGIN
|
||||
PROMPT 30 14 ""
|
||||
FLAGS "D"
|
||||
PROMPT 18 5 ""
|
||||
USE &MEZ KEY 2
|
||||
INPUT S0 F_DES_MEZZO
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_COD_MEZZO
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user