Sistemazioni per iniziare il lavoro
git-svn-id: svn://10.65.10.50/trunk@3820 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
d4efb10e14
commit
02572a9f98
16
ef/ef0.cpp
16
ef/ef0.cpp
@ -6,13 +6,19 @@
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
const int op = argc < 2 ? 0 : atoi(argv[1]+1)+1;
|
||||
const int op = argc < 2 ? 0 : atoi(argv[1]+1);
|
||||
int res = 1;
|
||||
switch (op)
|
||||
{
|
||||
case 1: res = ef0100(argc,argv) ; break;
|
||||
case 2: res = ef0200(argc,argv) ; break;
|
||||
default: error_box(usage, argv[0]); break;
|
||||
}
|
||||
case 0:
|
||||
res = ef0100(argc,argv);
|
||||
break;
|
||||
case 1:
|
||||
res = ef0200(argc,argv);
|
||||
break;
|
||||
default:
|
||||
error_box(usage, argv[0]);
|
||||
break;
|
||||
}
|
||||
return res;
|
||||
}
|
||||
|
||||
@ -4,8 +4,8 @@
|
||||
#include <utility.h>
|
||||
#include <lffiles.h>
|
||||
#include <clifo.h>
|
||||
#include <effetti.h>
|
||||
#include <cession.h>
|
||||
#include "effetti.h"
|
||||
#include "cession.h"
|
||||
#include "ef0.h"
|
||||
#include "ef0100.h"
|
||||
#include "ef0101.h"
|
||||
@ -74,7 +74,7 @@ void Variazione_Effetti::common_f(const TMask& m)
|
||||
long nprogtr=m.get_long(F_NPROGTR);
|
||||
|
||||
_rel->lfile().zero();
|
||||
m.autosave(_rel);
|
||||
m.autosave(*_rel);
|
||||
// LF_CESS SAVER!
|
||||
_rel->destroy_rows();
|
||||
obb_pack();
|
||||
@ -96,7 +96,7 @@ void Variazione_Effetti::common_f(const TMask& m)
|
||||
|
||||
int Variazione_Effetti::read(TMask& m)
|
||||
{
|
||||
m.autoload(_rel);
|
||||
m.autoload(*_rel);
|
||||
// LF_CESS loader!
|
||||
TToken_string riga(80);
|
||||
obb_sheet().reset();
|
||||
@ -145,7 +145,7 @@ bool Variazione_Effetti::user_destroy()
|
||||
|
||||
bool Variazione_Effetti::codcf_handler(TMask_field& f, KEY k)
|
||||
{
|
||||
long codcf=atol(f.get()),n=0;
|
||||
long codcf = atol(f.get()), n = 0;
|
||||
TString ragsoc(50);
|
||||
TToken_string line;
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
|
||||
488
ef/ef0100a.uml
488
ef/ef0100a.uml
@ -15,274 +15,274 @@ END
|
||||
|
||||
NUMBER F_NPROGTR 7
|
||||
BEGIN
|
||||
PROMPT 2 1 "Numero "
|
||||
FIELD LF_EFFETTI->NPROGTR
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
USE LF_EFFETTI KEY 1
|
||||
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
INPUT NPROGTR F_NPROGTR
|
||||
DISPLAY "Nr. Progressivo" NPROGTR
|
||||
DISPLAY "Codice cliente" CODCF
|
||||
DISPLAY "Data scadenza" DATASCAD
|
||||
DISPLAY "Data fattura" DATAFATT
|
||||
DISPLAY "Numero fattura" NFATT
|
||||
DISPLAY "Importo fattura @R" IMPFATT
|
||||
DISPLAY "Importo effetto @R" IMPORTO
|
||||
DISPLAY "Tipo" TIPOPAG
|
||||
DISPLAY "Nr distinta" NDIST
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
OUTPUT F_NPROGTR NPROGTR
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_DATASCAD DATASCAD
|
||||
OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il numero progressivo dell'effetto"
|
||||
PROMPT 2 1 "Numero "
|
||||
FIELD LF_EFFETTI->NPROGTR
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
USE LF_EFFETTI KEY 1
|
||||
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
INPUT NPROGTR F_NPROGTR
|
||||
DISPLAY "Nr. Progressivo" NPROGTR
|
||||
DISPLAY "Codice cliente" CODCF
|
||||
DISPLAY "Data scadenza" DATASCAD
|
||||
DISPLAY "Data fattura" DATAFATT
|
||||
DISPLAY "Numero fattura" NFATT
|
||||
DISPLAY "Importo fattura @R" IMPFATT
|
||||
DISPLAY "Importo effetto @R" IMPORTO
|
||||
DISPLAY "Tipo" TIPOPAG
|
||||
DISPLAY "Nr distinta" NDIST
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
OUTPUT F_NPROGTR NPROGTR
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_DATASCAD DATASCAD
|
||||
OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il numero progressivo dell'effetto"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cod. cliente "
|
||||
FIELD LF_EFFETTI->CODCF
|
||||
KEY 2
|
||||
USE LF_EFFETTI KEY 2
|
||||
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
INPUT CODCF F_CODCF
|
||||
INPUT NPROGTR F_NPROGTR
|
||||
DISPLAY "Codice cliente" CODCF
|
||||
DISPLAY "Nr. progressivo" NPROGTR
|
||||
DISPLAY "Data scadenza" DATASCAD
|
||||
DISPLAY "Data fattura" DATAFATT
|
||||
DISPLAY "Numero fattura" NFATT
|
||||
DISPLAY "Importo fattura @R" IMPFATT
|
||||
DISPLAY "Importo effetto @R" IMPORTO
|
||||
DISPLAY "Tipo" TIPOPAG
|
||||
DISPLAY "Nr distinta" NDIST
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
COPY OUTPUT F_NPROGTR
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il codice del cliente. F8 ricerca cliente."
|
||||
PROMPT 2 2 "Cod. cliente "
|
||||
FIELD LF_EFFETTI->CODCF
|
||||
KEY 2
|
||||
USE LF_EFFETTI KEY 2
|
||||
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
INPUT CODCF F_CODCF
|
||||
INPUT NPROGTR F_NPROGTR
|
||||
DISPLAY "Codice cliente" CODCF
|
||||
DISPLAY "Nr. progressivo" NPROGTR
|
||||
DISPLAY "Data scadenza" DATASCAD
|
||||
DISPLAY "Data fattura" DATAFATT
|
||||
DISPLAY "Numero fattura" NFATT
|
||||
DISPLAY "Importo fattura @R" IMPFATT
|
||||
DISPLAY "Importo effetto @R" IMPORTO
|
||||
DISPLAY "Tipo" TIPOPAG
|
||||
DISPLAY "Nr distinta" NDIST
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
COPY OUTPUT F_NPROGTR
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il codice del cliente. F8 ricerca cliente."
|
||||
END
|
||||
|
||||
STRING F_CFRAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 25 2 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_CFRAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CFRAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
PROMPT 25 2 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_CFRAGSOC
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_CFRAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LIST F_TIPOPAG 16
|
||||
LIST F_TIPOPAG 18
|
||||
BEGIN
|
||||
PROMPT 2 4 "Tipo effetto "
|
||||
FIELD LF_EFFETTI->TIPOPAG
|
||||
ITEM "2|Tratta"
|
||||
MESSAGE DISABLE,F_CODFOR|RESET,F_CODFOR
|
||||
ITEM "3|Ricevuta bancaria"
|
||||
MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
|
||||
ITEM "4|Cessione"
|
||||
MESSAGE ENABLE,F_CODFOR|UNDO,F_CODFOR
|
||||
ITEM "5|Paghero'"
|
||||
MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
|
||||
HELP "Inserire il tipo dell'effetto"
|
||||
PROMPT 2 4 "Tipo effetto "
|
||||
FIELD LF_EFFETTI->TIPOPAG
|
||||
ITEM "2|Tratta"
|
||||
MESSAGE DISABLE,F_CODFOR|RESET,F_CODFOR
|
||||
ITEM "3|Ricevuta bancaria"
|
||||
MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
|
||||
ITEM "4|Cessione"
|
||||
MESSAGE ENABLE,F_CODFOR|UNDO,F_CODFOR
|
||||
ITEM "5|Paghero'"
|
||||
MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
|
||||
HELP "Inserire il tipo dell'effetto"
|
||||
END
|
||||
|
||||
STRING F_ULTCLASS 1
|
||||
BEGIN
|
||||
PROMPT 42 4 "Ulteriore classificazione "
|
||||
FIELD LF_EFFETTI->ULTCLASS
|
||||
USE %CLR
|
||||
INPUT CODTAB[1,1] F_TIPOPAG SELECT
|
||||
INPUT CODTAB[2,2] F_ULTCLASS
|
||||
DISPLAY "Classificazione" CODTAB[2,2]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ULTCLASS CODTAB[2,2]
|
||||
HELP "Inserire l'ulteriore classificazione dell'effetto"
|
||||
PROMPT 42 4 "Ulteriore classificazione "
|
||||
FIELD LF_EFFETTI->ULTCLASS
|
||||
USE %CLR
|
||||
INPUT CODTAB[1,1] F_TIPOPAG SELECT
|
||||
INPUT CODTAB[2,2] F_ULTCLASS
|
||||
DISPLAY "Classificazione" CODTAB[2,2]
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_ULTCLASS CODTAB[2,2]
|
||||
HELP "Inserire l'ulteriore classificazione dell'effetto"
|
||||
END
|
||||
|
||||
DATE F_DATASCAD
|
||||
BEGIN
|
||||
PROMPT 2 5 "Data scadenza "
|
||||
FIELD LF_EFFETTI->DATASCAD
|
||||
KEY 3
|
||||
USE LF_EFFETTI KEY 3
|
||||
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
INPUT DATASCAD F_DATASCAD
|
||||
INPUT NPROGTR F_NPROGTR
|
||||
DISPLAY "Data scadenza" DATASCAD
|
||||
DISPLAY "Nr progressivo" NPROGTR
|
||||
DISPLAY "Codice cliente" CODCF
|
||||
DISPLAY "Data fattura" DATAFATT
|
||||
DISPLAY "Numero fattura" NFATT
|
||||
DISPLAY "Importo fattura @R" IMPFATT
|
||||
DISPLAY "Importo effetto @R" IMPORTO
|
||||
DISPLAY "Tipo" TIPOPAG
|
||||
DISPLAY "Nr distinta" NDIST
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
COPY OUTPUT F_NPROGTR
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire la data di scadenza dell'effetto"
|
||||
PROMPT 2 5 "Data scadenza "
|
||||
FIELD LF_EFFETTI->DATASCAD
|
||||
KEY 3
|
||||
USE LF_EFFETTI KEY 3
|
||||
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
INPUT DATASCAD F_DATASCAD
|
||||
INPUT NPROGTR F_NPROGTR
|
||||
DISPLAY "Data scadenza" DATASCAD
|
||||
DISPLAY "Nr progressivo" NPROGTR
|
||||
DISPLAY "Codice cliente" CODCF
|
||||
DISPLAY "Data fattura" DATAFATT
|
||||
DISPLAY "Numero fattura" NFATT
|
||||
DISPLAY "Importo fattura @R" IMPFATT
|
||||
DISPLAY "Importo effetto @R" IMPORTO
|
||||
DISPLAY "Tipo" TIPOPAG
|
||||
DISPLAY "Nr distinta" NDIST
|
||||
DISPLAY "Tipo distinta" TIPODIST
|
||||
COPY OUTPUT F_NPROGTR
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire la data di scadenza dell'effetto"
|
||||
END
|
||||
|
||||
NUMBER F_IMPORTO 15
|
||||
BEGIN
|
||||
PROMPT 42 5 "Importo effetto "
|
||||
FIELD LF_EFFETTI->IMPORTO
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
HELP "Inserire l'importo dell'effetto"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
WARNING "Manca l'importo dell'effetto"
|
||||
PROMPT 42 5 "Importo effetto "
|
||||
FIELD LF_EFFETTI->IMPORTO
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
HELP "Inserire l'importo dell'effetto"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
WARNING "Manca l'importo dell'effetto"
|
||||
END
|
||||
|
||||
STRING F_NFATT 7
|
||||
BEGIN
|
||||
PROMPT 2 7 "Nr. fattura "
|
||||
FIELD LF_EFFETTI->NFATT
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
HELP "Inserire il numero della fattura"
|
||||
WARNING "Manca il numero della fattura"
|
||||
PROMPT 2 7 "Nr. fattura "
|
||||
FIELD LF_EFFETTI->NFATT
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
HELP "Inserire il numero della fattura"
|
||||
WARNING "Manca il numero della fattura"
|
||||
END
|
||||
|
||||
DATE F_DATAFATT
|
||||
BEGIN
|
||||
PROMPT 2 8 "Data fattura "
|
||||
FIELD LF_EFFETTI->DATAFATT
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
HELP "Inserire la data della fattura"
|
||||
WARNING "Manca la data della fattura"
|
||||
PROMPT 2 8 "Data fattura "
|
||||
FIELD LF_EFFETTI->DATAFATT
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
HELP "Inserire la data della fattura"
|
||||
WARNING "Manca la data della fattura"
|
||||
END
|
||||
|
||||
NUMBER F_IMPFATT 15
|
||||
BEGIN
|
||||
PROMPT 42 8 "Importo fattura "
|
||||
FIELD LF_EFFETTI->IMPFATT
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
NUM_EXPR {#THIS_FIELD>=#F_IMPORTO}
|
||||
HELP "Inserire l'importo della fattura"
|
||||
WARNING "L'importo dell'effetto deve essere contenuto nell'importo di fattura"
|
||||
PROMPT 42 8 "Importo fattura "
|
||||
FIELD LF_EFFETTI->IMPFATT
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
NUM_EXPR {#THIS_FIELD>=#F_IMPORTO}
|
||||
HELP "Inserire l'importo della fattura"
|
||||
WARNING "L'importo dell'effetto deve essere contenuto nell'importo di fattura"
|
||||
END
|
||||
|
||||
NUMBER F_NRATA 3
|
||||
BEGIN
|
||||
PROMPT 2 9 "Nr. rata "
|
||||
FIELD LF_EFFETTI->NRATA
|
||||
HELP "Inserire il numero della rata"
|
||||
PROMPT 2 9 "Nr. rata "
|
||||
FIELD LF_EFFETTI->NRATA
|
||||
HELP "Inserire il numero della rata"
|
||||
END
|
||||
|
||||
BOOLEAN F_ULTRATA
|
||||
BEGIN
|
||||
PROMPT 42 9 "Ultima rata"
|
||||
FIELD LF_EFFETTI->ULTRATA
|
||||
HELP "Inserire se e' l'ultima rata relativa alla fattura"
|
||||
PROMPT 42 9 "Ultima rata"
|
||||
FIELD LF_EFFETTI->ULTRATA
|
||||
HELP "Inserire se e' l'ultima rata relativa alla fattura"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 38 4
|
||||
BEGIN
|
||||
PROMPT 1 10 "Banca d'appoggio"
|
||||
PROMPT 1 10 "Banca d'appoggio"
|
||||
END
|
||||
|
||||
NUMBER F_CODABI 5
|
||||
BEGIN
|
||||
PROMPT 2 11 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABI
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?="?????"
|
||||
INPUT CODTAB F_CODABI
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABI CODTAB[1,5]
|
||||
OUTPUT F_CODCAB CODTAB[6,10]
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il codice ABI della banca d'appoggio"
|
||||
PROMPT 2 11 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABI
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?="?????"
|
||||
INPUT CODTAB F_CODABI
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABI CODTAB[1,5]
|
||||
OUTPUT F_CODCAB CODTAB[6,10]
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il codice ABI della banca d'appoggio"
|
||||
END
|
||||
|
||||
NUMBER F_CODCAB 5
|
||||
BEGIN
|
||||
PROMPT 2 12 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCAB
|
||||
FLAGS "RZ"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_CODABI
|
||||
INPUT CODTAB[6,10] F_CODCAB
|
||||
COPY DISPLAY F_CODABI
|
||||
OUTPUT F_CODABI CODTAB[1,5]
|
||||
OUTPUT F_CODCAB CODTAB[6,10]
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il codice CAB della banca d'appoggio"
|
||||
PROMPT 2 12 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCAB
|
||||
FLAGS "RZ"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_CODABI
|
||||
INPUT CODTAB[6,10] F_CODCAB
|
||||
COPY DISPLAY F_CODABI
|
||||
OUTPUT F_CODABI CODTAB[1,5]
|
||||
OUTPUT F_CODCAB CODTAB[6,10]
|
||||
CHECKTYPE REQUIRED
|
||||
HELP "Inserire il codice CAB della banca d'appoggio"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 38 4
|
||||
BEGIN
|
||||
PROMPT 41 10 "Banca di presentazione"
|
||||
PROMPT 41 10 "Banca di presentazione"
|
||||
END
|
||||
|
||||
NUMBER F_CODABIP 5
|
||||
BEGIN
|
||||
PROMPT 42 11 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABIP
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?="?????"
|
||||
INPUT CODTAB F_CODABIP
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice ABI della banca di presentazione effetti"
|
||||
PROMPT 42 11 "Codice ABI "
|
||||
FIELD LF_EFFETTI->CODABIP
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?="?????"
|
||||
INPUT CODTAB F_CODABIP
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice ABI della banca di presentazione effetti"
|
||||
END
|
||||
|
||||
NUMBER F_CODCABP 5
|
||||
BEGIN
|
||||
PROMPT 42 12 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCABP
|
||||
FLAGS "RZ"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_CODABIP
|
||||
INPUT CODTAB[6,10] F_CODCABP
|
||||
COPY DISPLAY F_CODABIP
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice CAB della banca di presentazione effetti"
|
||||
PROMPT 42 12 "Codice CAB "
|
||||
FIELD LF_EFFETTI->CODCABP
|
||||
FLAGS "RZ"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_CODABIP
|
||||
INPUT CODTAB[6,10] F_CODCABP
|
||||
COPY DISPLAY F_CODABIP
|
||||
OUTPUT F_CODABIP CODTAB[1,5]
|
||||
OUTPUT F_CODCABP CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice CAB della banca di presentazione effetti"
|
||||
END
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 14 "Dati stampa"
|
||||
PROMPT 1 14 "Dati stampa"
|
||||
END
|
||||
|
||||
DATE F_DATAEMISS
|
||||
BEGIN
|
||||
PROMPT 2 15 "Data di emissione "
|
||||
FIELD LF_EFFETTI->DATAEMISS
|
||||
PROMPT 2 15 "Data di emissione "
|
||||
FIELD LF_EFFETTI->DATAEMISS
|
||||
END
|
||||
|
||||
NUMBER F_NUMEMISS 8
|
||||
BEGIN
|
||||
PROMPT 48 15 "Nr. di emissione "
|
||||
FIELD LF_EFFETTI->NUMEMISS
|
||||
PROMPT 48 15 "Nr. di emissione "
|
||||
FIELD LF_EFFETTI->NUMEMISS
|
||||
END
|
||||
|
||||
NUMBER F_IMPBOLLO 15
|
||||
BEGIN
|
||||
PROMPT 2 16 "Importo bollo "
|
||||
FIELD LF_EFFETTI->IMPBOLLO
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
PROMPT 2 16 "Importo bollo "
|
||||
FIELD LF_EFFETTI->IMPBOLLO
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFSTAMP
|
||||
BEGIN
|
||||
PROMPT 48 16 "Effetto stampato"
|
||||
FIELD LF_EFFETTI->EFFSTAMP
|
||||
PROMPT 48 16 "Effetto stampato"
|
||||
FIELD LF_EFFETTI->EFFSTAMP
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
@ -291,116 +291,116 @@ PAGE "Pag. 2" 0 -1 0 19
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 0 "Dati distinta"
|
||||
PROMPT 1 0 "Dati distinta"
|
||||
END
|
||||
|
||||
LIST F_TIPODIST 15
|
||||
BEGIN
|
||||
PROMPT 2 1 "Tipo distinta "
|
||||
FIELD LF_EFFETTI->TIPODIST
|
||||
ITEM " |** Nessuno **"
|
||||
MESSAGE DISABLE,2@|RESET,2@
|
||||
ITEM "I|All'incasso"
|
||||
MESSAGE ENABLE,2@|UNDO,2@
|
||||
ITEM "B|Salvo buon fine"
|
||||
MESSAGE ENABLE,2@|UNDO,2@
|
||||
ITEM "S|Allo sconto"
|
||||
MESSAGE ENABLE,2@|UNDO,2@
|
||||
HELP "Inserire il tipo di distinta"
|
||||
PROMPT 2 1 "Tipo distinta "
|
||||
FIELD LF_EFFETTI->TIPODIST
|
||||
ITEM " |** Nessuno **"
|
||||
MESSAGE DISABLE,2@|RESET,2@
|
||||
ITEM "I|All'incasso"
|
||||
MESSAGE ENABLE,2@|UNDO,2@
|
||||
ITEM "B|Salvo buon fine"
|
||||
MESSAGE ENABLE,2@|UNDO,2@
|
||||
ITEM "S|Allo sconto"
|
||||
MESSAGE ENABLE,2@|UNDO,2@
|
||||
HELP "Inserire il tipo di distinta"
|
||||
END
|
||||
|
||||
NUMBER F_NDIST 8
|
||||
BEGIN
|
||||
PROMPT 53 1 "Nr Distinta "
|
||||
FIELD LF_EFFETTI->NDIST
|
||||
FLAGS "D"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
HELP "Inserire il numero della distinta"
|
||||
WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
|
||||
GROUP 2
|
||||
PROMPT 53 1 "Nr Distinta "
|
||||
FIELD LF_EFFETTI->NDIST
|
||||
FLAGS "D"
|
||||
VALIDATE NOT_EMPTY_FUNC
|
||||
HELP "Inserire il numero della distinta"
|
||||
WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
DATE F_DATADIST
|
||||
BEGIN
|
||||
PROMPT 2 2 "Data distinta "
|
||||
FIELD LF_EFFETTI->DATADIST
|
||||
FLAGS "D"
|
||||
HELP "Inserire la data della distinta"
|
||||
GROUP 2
|
||||
PROMPT 2 2 "Data distinta "
|
||||
FIELD LF_EFFETTI->DATADIST
|
||||
FLAGS "D"
|
||||
HELP "Inserire la data della distinta"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_DISTSTAM
|
||||
BEGIN
|
||||
PROMPT 36 2 "Stampata"
|
||||
FIELD LF_EFFETTI->DISTSTAM
|
||||
FLAGS "D"
|
||||
HELP "Inserire se la distinta e' stato stampata"
|
||||
GROUP 2
|
||||
PROMPT 36 2 "Stampata"
|
||||
FIELD LF_EFFETTI->DISTSTAM
|
||||
FLAGS "D"
|
||||
HELP "Inserire se la distinta e' stato stampata"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NRIGADIST 6
|
||||
BEGIN
|
||||
PROMPT 53 2 "Nr di riga "
|
||||
FIELD LF_EFFETTI->NRIGADIST
|
||||
FLAGS "D"
|
||||
HELP "Inserire il numero di riga della distinta"
|
||||
GROUP 2
|
||||
PROMPT 53 2 "Nr di riga "
|
||||
FIELD LF_EFFETTI->NRIGADIST
|
||||
FLAGS "D"
|
||||
HELP "Inserire il numero di riga della distinta"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 4 "Dati Ri.Ba."
|
||||
PROMPT 1 4 "Dati Ri.Ba."
|
||||
END
|
||||
|
||||
DATE F_DATARIBA
|
||||
BEGIN
|
||||
PROMPT 2 5 "Data Ri.Ba. "
|
||||
FIELD LF_EFFETTI->DATARIBA
|
||||
HELP "Inserire la data della Ricevuta Bancaria"
|
||||
PROMPT 2 5 "Data Ri.Ba. "
|
||||
FIELD LF_EFFETTI->DATARIBA
|
||||
HELP "Inserire la data della Ricevuta Bancaria"
|
||||
END
|
||||
|
||||
BOOLEAN F_DISRIBAEST
|
||||
BEGIN
|
||||
PROMPT 49 5 "Distinta Ri.Ba. estratta"
|
||||
FIELD LF_EFFETTI->DISRIBAEST
|
||||
PROMPT 49 5 "Distinta Ri.Ba. estratta"
|
||||
FIELD LF_EFFETTI->DISRIBAEST
|
||||
END
|
||||
|
||||
NUMBER F_CODFOR 6
|
||||
BEGIN
|
||||
PROMPT 2 7 "Cod. fornitore "
|
||||
FIELD LF_EFFETTI->CODFOR
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_CODFOR
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
OUTPUT F_CODFOR CODCF
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice del fornitore relativo alla cessione"
|
||||
PROMPT 2 7 "Cod. fornitore "
|
||||
FIELD LF_EFFETTI->CODFOR
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_CODFOR
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Sospeso" SOSPESO
|
||||
OUTPUT F_CODFOR CODCF
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice del fornitore relativo alla cessione"
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFCONT
|
||||
BEGIN
|
||||
PROMPT 49 7 "Effetto contabilizzato"
|
||||
FIELD LF_EFFETTI->EFFCONT
|
||||
HELP "Inserire se l'effetto e' contabilizzato"
|
||||
PROMPT 49 7 "Effetto contabilizzato"
|
||||
FIELD LF_EFFETTI->EFFCONT
|
||||
HELP "Inserire se l'effetto e' contabilizzato"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_EFF 76 4
|
||||
BEGIN
|
||||
PROMPT 2 10 "Obbligati principali"
|
||||
ITEM "Ragione Sociale@50"
|
||||
ITEM "Localita'@35"
|
||||
ITEM "Stato"
|
||||
ITEM "Cod. comune"
|
||||
ITEM "Comune@50"
|
||||
PROMPT 2 10 "Obbligati principali"
|
||||
ITEM "Ragione Sociale@50"
|
||||
ITEM "Localita'@35"
|
||||
ITEM "Stato"
|
||||
ITEM "Cod. comune"
|
||||
ITEM "Comune@50"
|
||||
END
|
||||
|
||||
BOOLEAN F_EFFCOMP
|
||||
BEGIN
|
||||
PROMPT 2 15 "Effetto compilato"
|
||||
FIELD LF_EFFETTI->EFFCOMP
|
||||
PROMPT 2 15 "Effetto compilato"
|
||||
FIELD LF_EFFETTI->EFFCOMP
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
#include <effetti.h>
|
||||
#include <cession.h>
|
||||
#include "effetti.h"
|
||||
#include "cession.h"
|
||||
#include "ef0101.h"
|
||||
|
||||
/////////////////////////////////////////////////////////////
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
#include <urldefid.h>
|
||||
#include <lffiles.h>
|
||||
#include <clifo.h>
|
||||
#include <effetti.h>
|
||||
#include "effetti.h"
|
||||
#include "ef0.h"
|
||||
#include "ef0200.h"
|
||||
|
||||
@ -18,14 +18,14 @@ class Creazione_Effetti_da_EC : public TApplication
|
||||
|
||||
void Load_Partite_Aperte(const long cli);
|
||||
static bool Gen_Handler(TMask_field& f, KEY k);
|
||||
static bool Gen_Notify(int r, KEY k);
|
||||
static bool Gen_Notify(TSheet_field& sheet, int r, KEY k);
|
||||
static bool Cli_Handler(TMask_field& f, KEY k);
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual bool menu(MENU_TAG m);
|
||||
public:
|
||||
real get_res() {return _residuo;}
|
||||
void set_res(real& a) {_residuo = a;}
|
||||
void set_res(const real& a) {_residuo = a;}
|
||||
TMask* get_msk() {return _msk;}
|
||||
Creazione_Effetti_da_EC() : _residuo(0.0) {}
|
||||
};
|
||||
@ -117,11 +117,11 @@ bool Creazione_Effetti_da_EC::Gen_Handler(TMask_field& f, KEY k)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool Creazione_Effetti_da_EC::Gen_Notify(int r, KEY k)
|
||||
bool Creazione_Effetti_da_EC::Gen_Notify(TSheet_field& sheet, int r, KEY k)
|
||||
{
|
||||
TSheet_field& S=(TSheet_field&)app().get_msk()->field(F_SHEET_EFF);
|
||||
TToken_string & row = sheet.row(r);
|
||||
const real importo(row.get(1));
|
||||
static real old_rata;
|
||||
real importo;
|
||||
|
||||
switch (k)
|
||||
{
|
||||
@ -133,36 +133,42 @@ bool Creazione_Effetti_da_EC::Gen_Notify(int r, KEY k)
|
||||
}
|
||||
break;
|
||||
case K_SPACE:
|
||||
old_rata=(real)(const char*)S.row(r).get(1);
|
||||
old_rata = importo;
|
||||
break;
|
||||
case K_DEL:
|
||||
app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1));
|
||||
case K_DEL:
|
||||
{
|
||||
const real new_res = app().get_res() + importo;
|
||||
|
||||
app().set_res(new_res);
|
||||
}
|
||||
break;
|
||||
case K_ENTER:
|
||||
app().set_res(app().get_res() - (real)(const char*)S.row(r).get(1) + old_rata);
|
||||
if (app().get_res()<0)
|
||||
{
|
||||
warning_box("Non e' possibile superare l'importo da ripartire");
|
||||
if (old_rata.is_zero())
|
||||
const real new_res = app().get_res() - importo + old_rata;
|
||||
if (new_res < ZERO)
|
||||
{
|
||||
app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1));
|
||||
S.row(r).add(app().get_res().string(),1);
|
||||
app().set_res(0.0);
|
||||
} else
|
||||
{
|
||||
app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1) - old_rata);
|
||||
S.row(r).add(old_rata.string(),1);
|
||||
}
|
||||
}
|
||||
importo=(real)(const char*)S.row(r).get(1);
|
||||
importo+=(real)(const char*)S.row(r).get(2);
|
||||
importo+=(real)(const char*)S.row(r).get(3);
|
||||
S.row(r).add(importo.string(),4);
|
||||
warning_box("Non e' possibile superare l'importo da ripartire");
|
||||
if (old_rata.is_zero())
|
||||
{
|
||||
row.add(app().get_res().string(),1);
|
||||
app().set_res(ZERO);
|
||||
}
|
||||
else
|
||||
row.add(old_rata.string(),1);
|
||||
}
|
||||
else
|
||||
app().set_res(new_res);
|
||||
real totale = importo;
|
||||
|
||||
totale+= real(row.get(2));
|
||||
totale+= real(row.get(3));
|
||||
row.add(totale.string(),4);
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
S.mask().set(F_RESIDUO,app().get_res().string("."));
|
||||
sheet.mask().set(F_RESIDUO,app().get_res().string("."));
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -170,9 +176,9 @@ bool Creazione_Effetti_da_EC::Cli_Handler(TMask_field&f, KEY k)
|
||||
{
|
||||
if (f.focusdirty())
|
||||
{
|
||||
TSheet_field& S=(TSheet_field&)f.mask().field(F_SHEET_EFF);
|
||||
S.reset();
|
||||
S.force_update();
|
||||
TSheet_field& sheet =(TSheet_field&)f.mask().field(F_SHEET_EFF);
|
||||
sheet.reset();
|
||||
sheet.force_update();
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
@ -180,13 +186,13 @@ bool Creazione_Effetti_da_EC::Cli_Handler(TMask_field&f, KEY k)
|
||||
bool Creazione_Effetti_da_EC::create()
|
||||
{
|
||||
_msk = new TMask("ef0200a");
|
||||
TSheet_field& Sheet_Eff = (TSheet_field&) _msk->field(F_SHEET_EFF);
|
||||
Sheet_Eff.set_notify(Gen_Notify);
|
||||
Sheet_Eff.enable_column(4,FALSE);
|
||||
TMask& SMask=Sheet_Eff.sheet_mask();
|
||||
SMask.set_handler(F_RATA,Gen_Handler);
|
||||
SMask.set_handler(F_SPESE,Gen_Handler);
|
||||
SMask.set_handler(F_BOLLI,Gen_Handler);
|
||||
TSheet_field& sheet = (TSheet_field&) _msk->field(F_SHEET_EFF);
|
||||
sheet.set_notify(Gen_Notify);
|
||||
sheet.enable_column(4,FALSE);
|
||||
TMask& mask= sheet.sheet_mask();
|
||||
mask.set_handler(F_RATA,Gen_Handler);
|
||||
mask.set_handler(F_SPESE,Gen_Handler);
|
||||
mask.set_handler(F_BOLLI,Gen_Handler);
|
||||
_msk->set_handler(F_CODCF,Cli_Handler);
|
||||
dispatch_e_menu(BAR_ITEM(1));
|
||||
return TRUE;
|
||||
@ -208,8 +214,8 @@ bool Creazione_Effetti_da_EC::menu(MENU_TAG)
|
||||
{
|
||||
case K_ENTER: // first check if the application can write effects
|
||||
{
|
||||
TSheet_field& S=(TSheet_field&)get_msk()->field(F_SHEET_EFF);
|
||||
if (!_residuo && S.items()>0)
|
||||
TSheet_field& sheet =(TSheet_field&)get_msk()->field(F_SHEET_EFF);
|
||||
if (!_residuo && sheet.items()>0)
|
||||
message_box("Perform writing procedure...");
|
||||
break;
|
||||
}
|
||||
@ -224,8 +230,8 @@ bool Creazione_Effetti_da_EC::menu(MENU_TAG)
|
||||
_residuo+=(real)_Partite_aperte->row(i).get(4);
|
||||
delete _Partite_aperte;
|
||||
get_msk()->set(F_RESIDUO,_residuo.string("."));
|
||||
TSheet_field& S=(TSheet_field&)get_msk()->field(F_SHEET_EFF);
|
||||
S.reset();
|
||||
TSheet_field& sheet = (TSheet_field&)get_msk()->field(F_SHEET_EFF);
|
||||
sheet.reset();
|
||||
break;
|
||||
}
|
||||
default:
|
||||
|
||||
172
ef/ef0200a.uml
172
ef/ef0200a.uml
@ -4,163 +4,163 @@ PAGE "Selezione dati" -1 1 78 21
|
||||
|
||||
GROUPBOX DLG_NULL 76 5
|
||||
BEGIN
|
||||
PROMPT 1 0 "Dati clienti"
|
||||
PROMPT 1 0 "Dati clienti"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Cliente "
|
||||
USE LF_CLIFO KEY 1
|
||||
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
DISPLAY "Comune@50" LF_COMUNI->DENCOM
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_INDIRIZZO INDCF
|
||||
OUTPUT F_CODABI CODABI
|
||||
OUTPUT F_CODCAB CODCAB
|
||||
OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC
|
||||
OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB
|
||||
OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR
|
||||
OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500
|
||||
OUTPUT F_COMUNE LF_COMUNI->DENCOM
|
||||
OUTPUT F_PROV LF_COMUNI->PROVCOM
|
||||
HELP "Inserire il codice del cliente"
|
||||
PROMPT 2 1 "Cliente "
|
||||
USE LF_CLIFO KEY 1
|
||||
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
DISPLAY "Comune@50" LF_COMUNI->DENCOM
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_INDIRIZZO INDCF
|
||||
OUTPUT F_CODABI CODABI
|
||||
OUTPUT F_CODCAB CODCAB
|
||||
OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC
|
||||
OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB
|
||||
OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR
|
||||
OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500
|
||||
OUTPUT F_COMUNE LF_COMUNI->DENCOM
|
||||
OUTPUT F_PROV LF_COMUNI->PROVCOM
|
||||
HELP "Inserire il codice del cliente"
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 22 1 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
COPY OUTPUT F_CODCF
|
||||
PROMPT 22 1 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C"
|
||||
JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Codice fiscale@16" COFI
|
||||
DISPLAY "Partita IVA@11" PAIV
|
||||
COPY OUTPUT F_CODCF
|
||||
END
|
||||
|
||||
STRING F_INDIRIZZO 35
|
||||
BEGIN
|
||||
PROMPT 2 2 "Indirizzo "
|
||||
FLAGS "D"
|
||||
PROMPT 2 2 "Indirizzo "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_COMUNE 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Comune "
|
||||
FLAGS "D"
|
||||
PROMPT 2 3 "Comune "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_PROV 2
|
||||
BEGIN
|
||||
PROMPT 70 3 ""
|
||||
FLAGS "D"
|
||||
PROMPT 70 3 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CODABI 5
|
||||
BEGIN
|
||||
PROMPT 2 5 "Banca d'appoggio "
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?="?????"
|
||||
INPUT CODTAB F_CODABI
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABI CODTAB[1,5]
|
||||
OUTPUT F_CODCAB CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice della banca d'appoggio"
|
||||
PROMPT 2 5 "Banca d'appoggio "
|
||||
FLAGS "RZ"
|
||||
USE %BAN KEY 1 SELECT CODTAB ?="?????"
|
||||
INPUT CODTAB F_CODABI
|
||||
DISPLAY "Codice ABI" CODTAB[1,5]
|
||||
DISPLAY "Codice CAB" CODTAB[6,10]
|
||||
DISPLAY "Denominazione@50" S0
|
||||
OUTPUT F_CODABI CODTAB[1,5]
|
||||
OUTPUT F_CODCAB CODTAB[6,10]
|
||||
CHECKTYPE NORMAL
|
||||
HELP "Inserire il codice della banca d'appoggio"
|
||||
END
|
||||
|
||||
NUMBER F_CODCAB 5
|
||||
BEGIN
|
||||
PROMPT 32 5 ""
|
||||
FLAGS "RZ"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_CODABI
|
||||
INPUT CODTAB[6,10] F_CODCAB
|
||||
COPY DISPLAY F_CODABI
|
||||
COPY OUTPUT F_CODABI
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 32 5 ""
|
||||
FLAGS "RZ"
|
||||
USE %BAN
|
||||
INPUT CODTAB[1,5] F_CODABI
|
||||
INPUT CODTAB[6,10] F_CODCAB
|
||||
COPY DISPLAY F_CODABI
|
||||
COPY OUTPUT F_CODABI
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
LIST F_TIPOEFF 16
|
||||
LIST F_TIPOEFF 18
|
||||
BEGIN
|
||||
PROMPT 43 5 "Tipo effetto "
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta bancaria"
|
||||
HELP "Inserire il tipo dell'effetto"
|
||||
PROMPT 43 5 "Tipo effetto "
|
||||
ITEM "2|Tratta"
|
||||
ITEM "3|Ricevuta bancaria"
|
||||
HELP "Inserire il tipo dell'effetto"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 35 4
|
||||
BEGIN
|
||||
PROMPT 1 6 "Addebiti"
|
||||
PROMPT 1 6 "Addebiti"
|
||||
END
|
||||
|
||||
BOOLEAN F_ADDSPINC
|
||||
BEGIN
|
||||
PROMPT 2 7 "Sp. incasso"
|
||||
HELP "Flag di addebito delle spese d'incasso"
|
||||
PROMPT 2 7 "Sp. incasso"
|
||||
HELP "Flag di addebito delle spese d'incasso"
|
||||
END
|
||||
|
||||
BOOLEAN F_ADDBOLLIRB
|
||||
BEGIN
|
||||
PROMPT 19 7 "Bolli R.B."
|
||||
HELP "Flag di addebito bolli delle R.B. "
|
||||
PROMPT 19 7 "Bolli R.B."
|
||||
HELP "Flag di addebito bolli delle R.B. "
|
||||
END
|
||||
|
||||
BOOLEAN F_ADDBOLLITR
|
||||
BEGIN
|
||||
PROMPT 2 8 "Bolli Tr."
|
||||
HELP "Flag di addebito bolli delle tratte"
|
||||
PROMPT 2 8 "Bolli Tr."
|
||||
HELP "Flag di addebito bolli delle tratte"
|
||||
END
|
||||
|
||||
BOOLEAN F_ADDBNS1500
|
||||
BEGIN
|
||||
PROMPT 19 8 "Bollo esente"
|
||||
HELP "Flag di addebito dei bolli"
|
||||
PROMPT 19 8 "Bollo esente"
|
||||
HELP "Flag di addebito dei bolli"
|
||||
END
|
||||
|
||||
BUTTON DLG_PARTITE 9 2
|
||||
BEGIN
|
||||
PROMPT 39 8 "~Partite"
|
||||
MESSAGE EXIT,K_F6
|
||||
PROMPT 39 8 "~Partite"
|
||||
MESSAGE EXIT,K_F6
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT 52 8 ""
|
||||
PROMPT 52 8 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT 65 8 ""
|
||||
PROMPT 65 8 ""
|
||||
END
|
||||
|
||||
STRING F_RESIDUO 15
|
||||
BEGIN
|
||||
PROMPT 2 10 "Residuo da ripartire "
|
||||
FLAGS "RD"
|
||||
PROMPT 2 10 "Residuo da ripartire "
|
||||
FLAGS "RD"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEET_EFF 74 8
|
||||
BEGIN
|
||||
PROMPT 2 12 "Immissione effetti"
|
||||
ITEM "Data scad."
|
||||
ITEM "Importo rata@15 R"
|
||||
ITEM "Spese incasso@15 R"
|
||||
ITEM "Importo bolli@15 R"
|
||||
ITEM "Importo effetto@15 R"
|
||||
PROMPT 2 12 "Immissione effetti"
|
||||
ITEM "Data scad."
|
||||
ITEM "Importo rata@15 R"
|
||||
ITEM "Spese incasso@15 R"
|
||||
ITEM "Importo bolli@15 R"
|
||||
ITEM "Importo effetto@15 R"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user