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

Sistemazioni per iniziare il lavoro

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3820 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-10-23 17:18:20 +00:00
parent d4efb10e14
commit 02572a9f98
6 changed files with 395 additions and 383 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ef/ef0.cpp
View File

@ -6,13 +6,19 @@
int main(int argc, char** argv) 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; int res = 1;
switch (op) switch (op)
{ {
case 1: res = ef0100(argc,argv) ; break; case 0:
case 2: res = ef0200(argc,argv) ; break; res = ef0100(argc,argv);
default: error_box(usage, argv[0]); break; break;
} case 1:
res = ef0200(argc,argv);
break;
default:
error_box(usage, argv[0]);
break;
}
return res; return res;
} }

10
ef/ef0100.cpp
View File

@ -4,8 +4,8 @@
#include <utility.h> #include <utility.h>
#include <lffiles.h> #include <lffiles.h>
#include <clifo.h> #include <clifo.h>
#include <effetti.h> #include "effetti.h"
#include <cession.h> #include "cession.h"
#include "ef0.h" #include "ef0.h"
#include "ef0100.h" #include "ef0100.h"
#include "ef0101.h" #include "ef0101.h"
@ -74,7 +74,7 @@ void Variazione_Effetti::common_f(const TMask& m)
long nprogtr=m.get_long(F_NPROGTR); long nprogtr=m.get_long(F_NPROGTR);
_rel->lfile().zero(); _rel->lfile().zero();
m.autosave(_rel); m.autosave(*_rel);
// LF_CESS SAVER! // LF_CESS SAVER!
_rel->destroy_rows(); _rel->destroy_rows();
obb_pack(); obb_pack();
@ -96,7 +96,7 @@ void Variazione_Effetti::common_f(const TMask& m)
int Variazione_Effetti::read(TMask& m) int Variazione_Effetti::read(TMask& m)
{ {
m.autoload(_rel); m.autoload(*_rel);
// LF_CESS loader! // LF_CESS loader!
TToken_string riga(80); TToken_string riga(80);
obb_sheet().reset(); obb_sheet().reset();
@ -145,7 +145,7 @@ bool Variazione_Effetti::user_destroy()
bool Variazione_Effetti::codcf_handler(TMask_field& f, KEY k) 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); TString ragsoc(50);
TToken_string line; TToken_string line;
TLocalisamfile clifo(LF_CLIFO); TLocalisamfile clifo(LF_CLIFO);

488
ef/ef0100a.uml
View File

@ -15,274 +15,274 @@ END
NUMBER F_NPROGTR 7 NUMBER F_NPROGTR 7
BEGIN BEGIN
PROMPT 2 1 "Numero " PROMPT 2 1 "Numero "
FIELD LF_EFFETTI->NPROGTR FIELD LF_EFFETTI->NPROGTR
FLAGS "R" FLAGS "R"
KEY 1 KEY 1
USE LF_EFFETTI KEY 1 USE LF_EFFETTI KEY 1
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
INPUT NPROGTR F_NPROGTR INPUT NPROGTR F_NPROGTR
DISPLAY "Nr. Progressivo" NPROGTR DISPLAY "Nr. Progressivo" NPROGTR
DISPLAY "Codice cliente" CODCF DISPLAY "Codice cliente" CODCF
DISPLAY "Data scadenza" DATASCAD DISPLAY "Data scadenza" DATASCAD
DISPLAY "Data fattura" DATAFATT DISPLAY "Data fattura" DATAFATT
DISPLAY "Numero fattura" NFATT DISPLAY "Numero fattura" NFATT
DISPLAY "Importo fattura @R" IMPFATT DISPLAY "Importo fattura @R" IMPFATT
DISPLAY "Importo effetto @R" IMPORTO DISPLAY "Importo effetto @R" IMPORTO
DISPLAY "Tipo" TIPOPAG DISPLAY "Tipo" TIPOPAG
DISPLAY "Nr distinta" NDIST DISPLAY "Nr distinta" NDIST
DISPLAY "Tipo distinta" TIPODIST DISPLAY "Tipo distinta" TIPODIST
OUTPUT F_NPROGTR NPROGTR OUTPUT F_NPROGTR NPROGTR
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_DATASCAD DATASCAD OUTPUT F_DATASCAD DATASCAD
OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC OUTPUT F_CFRAGSOC LF_CLIFO->RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Inserire il numero progressivo dell'effetto" HELP "Inserire il numero progressivo dell'effetto"
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 2 2 "Cod. cliente " PROMPT 2 2 "Cod. cliente "
FIELD LF_EFFETTI->CODCF FIELD LF_EFFETTI->CODCF
KEY 2 KEY 2
USE LF_EFFETTI KEY 2 USE LF_EFFETTI KEY 2
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
INPUT NPROGTR F_NPROGTR INPUT NPROGTR F_NPROGTR
DISPLAY "Codice cliente" CODCF DISPLAY "Codice cliente" CODCF
DISPLAY "Nr. progressivo" NPROGTR DISPLAY "Nr. progressivo" NPROGTR
DISPLAY "Data scadenza" DATASCAD DISPLAY "Data scadenza" DATASCAD
DISPLAY "Data fattura" DATAFATT DISPLAY "Data fattura" DATAFATT
DISPLAY "Numero fattura" NFATT DISPLAY "Numero fattura" NFATT
DISPLAY "Importo fattura @R" IMPFATT DISPLAY "Importo fattura @R" IMPFATT
DISPLAY "Importo effetto @R" IMPORTO DISPLAY "Importo effetto @R" IMPORTO
DISPLAY "Tipo" TIPOPAG DISPLAY "Tipo" TIPOPAG
DISPLAY "Nr distinta" NDIST DISPLAY "Nr distinta" NDIST
DISPLAY "Tipo distinta" TIPODIST DISPLAY "Tipo distinta" TIPODIST
COPY OUTPUT F_NPROGTR COPY OUTPUT F_NPROGTR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Inserire il codice del cliente. F8 ricerca cliente." HELP "Inserire il codice del cliente. F8 ricerca cliente."
END END
STRING F_CFRAGSOC 50 STRING F_CFRAGSOC 50
BEGIN BEGIN
PROMPT 25 2 "" PROMPT 25 2 ""
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_CFRAGSOC INPUT RAGSOC F_CFRAGSOC
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_CFRAGSOC RAGSOC OUTPUT F_CFRAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
LIST F_TIPOPAG 16 LIST F_TIPOPAG 18
BEGIN BEGIN
PROMPT 2 4 "Tipo effetto " PROMPT 2 4 "Tipo effetto "
FIELD LF_EFFETTI->TIPOPAG FIELD LF_EFFETTI->TIPOPAG
ITEM "2|Tratta" ITEM "2|Tratta"
MESSAGE DISABLE,F_CODFOR|RESET,F_CODFOR MESSAGE DISABLE,F_CODFOR|RESET,F_CODFOR
ITEM "3|Ricevuta bancaria" ITEM "3|Ricevuta bancaria"
MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
ITEM "4|Cessione" ITEM "4|Cessione"
MESSAGE ENABLE,F_CODFOR|UNDO,F_CODFOR MESSAGE ENABLE,F_CODFOR|UNDO,F_CODFOR
ITEM "5|Paghero'" ITEM "5|Paghero'"
MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR MESSAGE DISABLE,F_CODFOR|UNDO,F_CODFOR
HELP "Inserire il tipo dell'effetto" HELP "Inserire il tipo dell'effetto"
END END
STRING F_ULTCLASS 1 STRING F_ULTCLASS 1
BEGIN BEGIN
PROMPT 42 4 "Ulteriore classificazione " PROMPT 42 4 "Ulteriore classificazione "
FIELD LF_EFFETTI->ULTCLASS FIELD LF_EFFETTI->ULTCLASS
USE %CLR USE %CLR
INPUT CODTAB[1,1] F_TIPOPAG SELECT INPUT CODTAB[1,1] F_TIPOPAG SELECT
INPUT CODTAB[2,2] F_ULTCLASS INPUT CODTAB[2,2] F_ULTCLASS
DISPLAY "Classificazione" CODTAB[2,2] DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_ULTCLASS CODTAB[2,2] OUTPUT F_ULTCLASS CODTAB[2,2]
HELP "Inserire l'ulteriore classificazione dell'effetto" HELP "Inserire l'ulteriore classificazione dell'effetto"
END END
DATE F_DATASCAD DATE F_DATASCAD
BEGIN BEGIN
PROMPT 2 5 "Data scadenza " PROMPT 2 5 "Data scadenza "
FIELD LF_EFFETTI->DATASCAD FIELD LF_EFFETTI->DATASCAD
KEY 3 KEY 3
USE LF_EFFETTI KEY 3 USE LF_EFFETTI KEY 3
JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C" JOIN LF_CLIFO TO LF_EFFETTI KEY 1 INTO CODCF=CODCF TIPOCF="C"
INPUT DATASCAD F_DATASCAD INPUT DATASCAD F_DATASCAD
INPUT NPROGTR F_NPROGTR INPUT NPROGTR F_NPROGTR
DISPLAY "Data scadenza" DATASCAD DISPLAY "Data scadenza" DATASCAD
DISPLAY "Nr progressivo" NPROGTR DISPLAY "Nr progressivo" NPROGTR
DISPLAY "Codice cliente" CODCF DISPLAY "Codice cliente" CODCF
DISPLAY "Data fattura" DATAFATT DISPLAY "Data fattura" DATAFATT
DISPLAY "Numero fattura" NFATT DISPLAY "Numero fattura" NFATT
DISPLAY "Importo fattura @R" IMPFATT DISPLAY "Importo fattura @R" IMPFATT
DISPLAY "Importo effetto @R" IMPORTO DISPLAY "Importo effetto @R" IMPORTO
DISPLAY "Tipo" TIPOPAG DISPLAY "Tipo" TIPOPAG
DISPLAY "Nr distinta" NDIST DISPLAY "Nr distinta" NDIST
DISPLAY "Tipo distinta" TIPODIST DISPLAY "Tipo distinta" TIPODIST
COPY OUTPUT F_NPROGTR COPY OUTPUT F_NPROGTR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Inserire la data di scadenza dell'effetto" HELP "Inserire la data di scadenza dell'effetto"
END END
NUMBER F_IMPORTO 15 NUMBER F_IMPORTO 15
BEGIN BEGIN
PROMPT 42 5 "Importo effetto " PROMPT 42 5 "Importo effetto "
FIELD LF_EFFETTI->IMPORTO FIELD LF_EFFETTI->IMPORTO
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
HELP "Inserire l'importo dell'effetto" HELP "Inserire l'importo dell'effetto"
VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
WARNING "Manca l'importo dell'effetto" WARNING "Manca l'importo dell'effetto"
END END
STRING F_NFATT 7 STRING F_NFATT 7
BEGIN BEGIN
PROMPT 2 7 "Nr. fattura " PROMPT 2 7 "Nr. fattura "
FIELD LF_EFFETTI->NFATT FIELD LF_EFFETTI->NFATT
VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
HELP "Inserire il numero della fattura" HELP "Inserire il numero della fattura"
WARNING "Manca il numero della fattura" WARNING "Manca il numero della fattura"
END END
DATE F_DATAFATT DATE F_DATAFATT
BEGIN BEGIN
PROMPT 2 8 "Data fattura " PROMPT 2 8 "Data fattura "
FIELD LF_EFFETTI->DATAFATT FIELD LF_EFFETTI->DATAFATT
VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
HELP "Inserire la data della fattura" HELP "Inserire la data della fattura"
WARNING "Manca la data della fattura" WARNING "Manca la data della fattura"
END END
NUMBER F_IMPFATT 15 NUMBER F_IMPFATT 15
BEGIN BEGIN
PROMPT 42 8 "Importo fattura " PROMPT 42 8 "Importo fattura "
FIELD LF_EFFETTI->IMPFATT FIELD LF_EFFETTI->IMPFATT
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
NUM_EXPR {#THIS_FIELD>=#F_IMPORTO} NUM_EXPR {#THIS_FIELD>=#F_IMPORTO}
HELP "Inserire l'importo della fattura" HELP "Inserire l'importo della fattura"
WARNING "L'importo dell'effetto deve essere contenuto nell'importo di fattura" WARNING "L'importo dell'effetto deve essere contenuto nell'importo di fattura"
END END
NUMBER F_NRATA 3 NUMBER F_NRATA 3
BEGIN BEGIN
PROMPT 2 9 "Nr. rata " PROMPT 2 9 "Nr. rata "
FIELD LF_EFFETTI->NRATA FIELD LF_EFFETTI->NRATA
HELP "Inserire il numero della rata" HELP "Inserire il numero della rata"
END END
BOOLEAN F_ULTRATA BOOLEAN F_ULTRATA
BEGIN BEGIN
PROMPT 42 9 "Ultima rata" PROMPT 42 9 "Ultima rata"
FIELD LF_EFFETTI->ULTRATA FIELD LF_EFFETTI->ULTRATA
HELP "Inserire se e' l'ultima rata relativa alla fattura" HELP "Inserire se e' l'ultima rata relativa alla fattura"
END END
GROUPBOX DLG_NULL 38 4 GROUPBOX DLG_NULL 38 4
BEGIN BEGIN
PROMPT 1 10 "Banca d'appoggio" PROMPT 1 10 "Banca d'appoggio"
END END
NUMBER F_CODABI 5 NUMBER F_CODABI 5
BEGIN BEGIN
PROMPT 2 11 "Codice ABI " PROMPT 2 11 "Codice ABI "
FIELD LF_EFFETTI->CODABI FIELD LF_EFFETTI->CODABI
FLAGS "RZ" FLAGS "RZ"
USE %BAN KEY 1 SELECT CODTAB ?="?????" USE %BAN KEY 1 SELECT CODTAB ?="?????"
INPUT CODTAB F_CODABI INPUT CODTAB F_CODABI
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT F_CODABI CODTAB[1,5] OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODCAB CODTAB[6,10] OUTPUT F_CODCAB CODTAB[6,10]
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Inserire il codice ABI della banca d'appoggio" HELP "Inserire il codice ABI della banca d'appoggio"
END END
NUMBER F_CODCAB 5 NUMBER F_CODCAB 5
BEGIN BEGIN
PROMPT 2 12 "Codice CAB " PROMPT 2 12 "Codice CAB "
FIELD LF_EFFETTI->CODCAB FIELD LF_EFFETTI->CODCAB
FLAGS "RZ" FLAGS "RZ"
USE %BAN USE %BAN
INPUT CODTAB[1,5] F_CODABI INPUT CODTAB[1,5] F_CODABI
INPUT CODTAB[6,10] F_CODCAB INPUT CODTAB[6,10] F_CODCAB
COPY DISPLAY F_CODABI COPY DISPLAY F_CODABI
OUTPUT F_CODABI CODTAB[1,5] OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODCAB CODTAB[6,10] OUTPUT F_CODCAB CODTAB[6,10]
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
HELP "Inserire il codice CAB della banca d'appoggio" HELP "Inserire il codice CAB della banca d'appoggio"
END END
GROUPBOX DLG_NULL 38 4 GROUPBOX DLG_NULL 38 4
BEGIN BEGIN
PROMPT 41 10 "Banca di presentazione" PROMPT 41 10 "Banca di presentazione"
END END
NUMBER F_CODABIP 5 NUMBER F_CODABIP 5
BEGIN BEGIN
PROMPT 42 11 "Codice ABI " PROMPT 42 11 "Codice ABI "
FIELD LF_EFFETTI->CODABIP FIELD LF_EFFETTI->CODABIP
FLAGS "RZ" FLAGS "RZ"
USE %BAN KEY 1 SELECT CODTAB ?="?????" USE %BAN KEY 1 SELECT CODTAB ?="?????"
INPUT CODTAB F_CODABIP INPUT CODTAB F_CODABIP
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT F_CODABIP CODTAB[1,5] OUTPUT F_CODABIP CODTAB[1,5]
OUTPUT F_CODCABP CODTAB[6,10] OUTPUT F_CODCABP CODTAB[6,10]
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Inserire il codice ABI della banca di presentazione effetti" HELP "Inserire il codice ABI della banca di presentazione effetti"
END END
NUMBER F_CODCABP 5 NUMBER F_CODCABP 5
BEGIN BEGIN
PROMPT 42 12 "Codice CAB " PROMPT 42 12 "Codice CAB "
FIELD LF_EFFETTI->CODCABP FIELD LF_EFFETTI->CODCABP
FLAGS "RZ" FLAGS "RZ"
USE %BAN USE %BAN
INPUT CODTAB[1,5] F_CODABIP INPUT CODTAB[1,5] F_CODABIP
INPUT CODTAB[6,10] F_CODCABP INPUT CODTAB[6,10] F_CODCABP
COPY DISPLAY F_CODABIP COPY DISPLAY F_CODABIP
OUTPUT F_CODABIP CODTAB[1,5] OUTPUT F_CODABIP CODTAB[1,5]
OUTPUT F_CODCABP CODTAB[6,10] OUTPUT F_CODCABP CODTAB[6,10]
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Inserire il codice CAB della banca di presentazione effetti" HELP "Inserire il codice CAB della banca di presentazione effetti"
END END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 14 "Dati stampa" PROMPT 1 14 "Dati stampa"
END END
DATE F_DATAEMISS DATE F_DATAEMISS
BEGIN BEGIN
PROMPT 2 15 "Data di emissione " PROMPT 2 15 "Data di emissione "
FIELD LF_EFFETTI->DATAEMISS FIELD LF_EFFETTI->DATAEMISS
END END
NUMBER F_NUMEMISS 8 NUMBER F_NUMEMISS 8
BEGIN BEGIN
PROMPT 48 15 "Nr. di emissione " PROMPT 48 15 "Nr. di emissione "
FIELD LF_EFFETTI->NUMEMISS FIELD LF_EFFETTI->NUMEMISS
END END
NUMBER F_IMPBOLLO 15 NUMBER F_IMPBOLLO 15
BEGIN BEGIN
PROMPT 2 16 "Importo bollo " PROMPT 2 16 "Importo bollo "
FIELD LF_EFFETTI->IMPBOLLO FIELD LF_EFFETTI->IMPBOLLO
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
END END
BOOLEAN F_EFFSTAMP BOOLEAN F_EFFSTAMP
BEGIN BEGIN
PROMPT 48 16 "Effetto stampato" PROMPT 48 16 "Effetto stampato"
FIELD LF_EFFETTI->EFFSTAMP FIELD LF_EFFETTI->EFFSTAMP
END END
ENDPAGE ENDPAGE
@ -291,116 +291,116 @@ PAGE "Pag. 2" 0 -1 0 19
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 0 "Dati distinta" PROMPT 1 0 "Dati distinta"
END END
LIST F_TIPODIST 15 LIST F_TIPODIST 15
BEGIN BEGIN
PROMPT 2 1 "Tipo distinta " PROMPT 2 1 "Tipo distinta "
FIELD LF_EFFETTI->TIPODIST FIELD LF_EFFETTI->TIPODIST
ITEM " |** Nessuno **" ITEM " |** Nessuno **"
MESSAGE DISABLE,2@|RESET,2@ MESSAGE DISABLE,2@|RESET,2@
ITEM "I|All'incasso" ITEM "I|All'incasso"
MESSAGE ENABLE,2@|UNDO,2@ MESSAGE ENABLE,2@|UNDO,2@
ITEM "B|Salvo buon fine" ITEM "B|Salvo buon fine"
MESSAGE ENABLE,2@|UNDO,2@ MESSAGE ENABLE,2@|UNDO,2@
ITEM "S|Allo sconto" ITEM "S|Allo sconto"
MESSAGE ENABLE,2@|UNDO,2@ MESSAGE ENABLE,2@|UNDO,2@
HELP "Inserire il tipo di distinta" HELP "Inserire il tipo di distinta"
END END
NUMBER F_NDIST 8 NUMBER F_NDIST 8
BEGIN BEGIN
PROMPT 53 1 "Nr Distinta " PROMPT 53 1 "Nr Distinta "
FIELD LF_EFFETTI->NDIST FIELD LF_EFFETTI->NDIST
FLAGS "D" FLAGS "D"
VALIDATE NOT_EMPTY_FUNC VALIDATE NOT_EMPTY_FUNC
HELP "Inserire il numero della distinta" HELP "Inserire il numero della distinta"
WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta" WARNING "Numero di distinta obbligatorio se si e' inserito il tipo di distinta"
GROUP 2 GROUP 2
END END
DATE F_DATADIST DATE F_DATADIST
BEGIN BEGIN
PROMPT 2 2 "Data distinta " PROMPT 2 2 "Data distinta "
FIELD LF_EFFETTI->DATADIST FIELD LF_EFFETTI->DATADIST
FLAGS "D" FLAGS "D"
HELP "Inserire la data della distinta" HELP "Inserire la data della distinta"
GROUP 2 GROUP 2
END END
BOOLEAN F_DISTSTAM BOOLEAN F_DISTSTAM
BEGIN BEGIN
PROMPT 36 2 "Stampata" PROMPT 36 2 "Stampata"
FIELD LF_EFFETTI->DISTSTAM FIELD LF_EFFETTI->DISTSTAM
FLAGS "D" FLAGS "D"
HELP "Inserire se la distinta e' stato stampata" HELP "Inserire se la distinta e' stato stampata"
GROUP 2 GROUP 2
END END
NUMBER F_NRIGADIST 6 NUMBER F_NRIGADIST 6
BEGIN BEGIN
PROMPT 53 2 "Nr di riga " PROMPT 53 2 "Nr di riga "
FIELD LF_EFFETTI->NRIGADIST FIELD LF_EFFETTI->NRIGADIST
FLAGS "D" FLAGS "D"
HELP "Inserire il numero di riga della distinta" HELP "Inserire il numero di riga della distinta"
GROUP 2 GROUP 2
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 4 "Dati Ri.Ba." PROMPT 1 4 "Dati Ri.Ba."
END END
DATE F_DATARIBA DATE F_DATARIBA
BEGIN BEGIN
PROMPT 2 5 "Data Ri.Ba. " PROMPT 2 5 "Data Ri.Ba. "
FIELD LF_EFFETTI->DATARIBA FIELD LF_EFFETTI->DATARIBA
HELP "Inserire la data della Ricevuta Bancaria" HELP "Inserire la data della Ricevuta Bancaria"
END END
BOOLEAN F_DISRIBAEST BOOLEAN F_DISRIBAEST
BEGIN BEGIN
PROMPT 49 5 "Distinta Ri.Ba. estratta" PROMPT 49 5 "Distinta Ri.Ba. estratta"
FIELD LF_EFFETTI->DISRIBAEST FIELD LF_EFFETTI->DISRIBAEST
END END
NUMBER F_CODFOR 6 NUMBER F_CODFOR 6
BEGIN BEGIN
PROMPT 2 7 "Cod. fornitore " PROMPT 2 7 "Cod. fornitore "
FIELD LF_EFFETTI->CODFOR FIELD LF_EFFETTI->CODFOR
USE LF_CLIFO KEY 1 USE LF_CLIFO KEY 1
INPUT TIPOCF "F" INPUT TIPOCF "F"
INPUT CODCF F_CODFOR INPUT CODCF F_CODFOR
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Sospeso" SOSPESO DISPLAY "Sospeso" SOSPESO
OUTPUT F_CODFOR CODCF OUTPUT F_CODFOR CODCF
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Inserire il codice del fornitore relativo alla cessione" HELP "Inserire il codice del fornitore relativo alla cessione"
END END
BOOLEAN F_EFFCONT BOOLEAN F_EFFCONT
BEGIN BEGIN
PROMPT 49 7 "Effetto contabilizzato" PROMPT 49 7 "Effetto contabilizzato"
FIELD LF_EFFETTI->EFFCONT FIELD LF_EFFETTI->EFFCONT
HELP "Inserire se l'effetto e' contabilizzato" HELP "Inserire se l'effetto e' contabilizzato"
END END
SPREADSHEET F_SHEET_EFF 76 4 SPREADSHEET F_SHEET_EFF 76 4
BEGIN BEGIN
PROMPT 2 10 "Obbligati principali" PROMPT 2 10 "Obbligati principali"
ITEM "Ragione Sociale@50" ITEM "Ragione Sociale@50"
ITEM "Localita'@35" ITEM "Localita'@35"
ITEM "Stato" ITEM "Stato"
ITEM "Cod. comune" ITEM "Cod. comune"
ITEM "Comune@50" ITEM "Comune@50"
END END
BOOLEAN F_EFFCOMP BOOLEAN F_EFFCOMP
BEGIN BEGIN
PROMPT 2 15 "Effetto compilato" PROMPT 2 15 "Effetto compilato"
FIELD LF_EFFETTI->EFFCOMP FIELD LF_EFFETTI->EFFCOMP
END END
ENDPAGE ENDPAGE

4
ef/ef0101.cpp
View File

@ -1,5 +1,5 @@
#include <effetti.h> #include "effetti.h"
#include <cession.h> #include "cession.h"
#include "ef0101.h" #include "ef0101.h"
///////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////

88
ef/ef0200.cpp
View File

@ -6,7 +6,7 @@
#include <urldefid.h> #include <urldefid.h>
#include <lffiles.h> #include <lffiles.h>
#include <clifo.h> #include <clifo.h>
#include <effetti.h> #include "effetti.h"
#include "ef0.h" #include "ef0.h"
#include "ef0200.h" #include "ef0200.h"
@ -18,14 +18,14 @@ class Creazione_Effetti_da_EC : public TApplication
void Load_Partite_Aperte(const long cli); void Load_Partite_Aperte(const long cli);
static bool Gen_Handler(TMask_field& f, KEY k); 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); static bool Cli_Handler(TMask_field& f, KEY k);
virtual bool create(); virtual bool create();
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
public: public:
real get_res() {return _residuo;} 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;} TMask* get_msk() {return _msk;}
Creazione_Effetti_da_EC() : _residuo(0.0) {} 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; 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; static real old_rata;
real importo;
switch (k) switch (k)
{ {
@ -133,36 +133,42 @@ bool Creazione_Effetti_da_EC::Gen_Notify(int r, KEY k)
} }
break; break;
case K_SPACE: case K_SPACE:
old_rata=(real)(const char*)S.row(r).get(1); old_rata = importo;
break; break;
case K_DEL: case K_DEL:
app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1)); {
const real new_res = app().get_res() + importo;
app().set_res(new_res);
}
break; break;
case K_ENTER: 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"); const real new_res = app().get_res() - importo + old_rata;
if (old_rata.is_zero()) if (new_res < ZERO)
{ {
app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1)); warning_box("Non e' possibile superare l'importo da ripartire");
S.row(r).add(app().get_res().string(),1); if (old_rata.is_zero())
app().set_res(0.0); {
} else row.add(app().get_res().string(),1);
{ app().set_res(ZERO);
app().set_res(app().get_res() + (real)(const char*)S.row(r).get(1) - old_rata); }
S.row(r).add(old_rata.string(),1); else
} row.add(old_rata.string(),1);
} }
importo=(real)(const char*)S.row(r).get(1); else
importo+=(real)(const char*)S.row(r).get(2); app().set_res(new_res);
importo+=(real)(const char*)S.row(r).get(3); real totale = importo;
S.row(r).add(importo.string(),4);
totale+= real(row.get(2));
totale+= real(row.get(3));
row.add(totale.string(),4);
}
break; break;
default: default:
break; break;
} }
S.mask().set(F_RESIDUO,app().get_res().string(".")); sheet.mask().set(F_RESIDUO,app().get_res().string("."));
return TRUE; return TRUE;
} }
@ -170,9 +176,9 @@ bool Creazione_Effetti_da_EC::Cli_Handler(TMask_field&f, KEY k)
{ {
if (f.focusdirty()) if (f.focusdirty())
{ {
TSheet_field& S=(TSheet_field&)f.mask().field(F_SHEET_EFF); TSheet_field& sheet =(TSheet_field&)f.mask().field(F_SHEET_EFF);
S.reset(); sheet.reset();
S.force_update(); sheet.force_update();
} }
return TRUE; return TRUE;
} }
@ -180,13 +186,13 @@ bool Creazione_Effetti_da_EC::Cli_Handler(TMask_field&f, KEY k)
bool Creazione_Effetti_da_EC::create() bool Creazione_Effetti_da_EC::create()
{ {
_msk = new TMask("ef0200a"); _msk = new TMask("ef0200a");
TSheet_field& Sheet_Eff = (TSheet_field&) _msk->field(F_SHEET_EFF); TSheet_field& sheet = (TSheet_field&) _msk->field(F_SHEET_EFF);
Sheet_Eff.set_notify(Gen_Notify); sheet.set_notify(Gen_Notify);
Sheet_Eff.enable_column(4,FALSE); sheet.enable_column(4,FALSE);
TMask& SMask=Sheet_Eff.sheet_mask(); TMask& mask= sheet.sheet_mask();
SMask.set_handler(F_RATA,Gen_Handler); mask.set_handler(F_RATA,Gen_Handler);
SMask.set_handler(F_SPESE,Gen_Handler); mask.set_handler(F_SPESE,Gen_Handler);
SMask.set_handler(F_BOLLI,Gen_Handler); mask.set_handler(F_BOLLI,Gen_Handler);
_msk->set_handler(F_CODCF,Cli_Handler); _msk->set_handler(F_CODCF,Cli_Handler);
dispatch_e_menu(BAR_ITEM(1)); dispatch_e_menu(BAR_ITEM(1));
return TRUE; 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 case K_ENTER: // first check if the application can write effects
{ {
TSheet_field& S=(TSheet_field&)get_msk()->field(F_SHEET_EFF); TSheet_field& sheet =(TSheet_field&)get_msk()->field(F_SHEET_EFF);
if (!_residuo && S.items()>0) if (!_residuo && sheet.items()>0)
message_box("Perform writing procedure..."); message_box("Perform writing procedure...");
break; break;
} }
@ -224,8 +230,8 @@ bool Creazione_Effetti_da_EC::menu(MENU_TAG)
_residuo+=(real)_Partite_aperte->row(i).get(4); _residuo+=(real)_Partite_aperte->row(i).get(4);
delete _Partite_aperte; delete _Partite_aperte;
get_msk()->set(F_RESIDUO,_residuo.string(".")); get_msk()->set(F_RESIDUO,_residuo.string("."));
TSheet_field& S=(TSheet_field&)get_msk()->field(F_SHEET_EFF); TSheet_field& sheet = (TSheet_field&)get_msk()->field(F_SHEET_EFF);
S.reset(); sheet.reset();
break; break;
} }
default: default:

172
ef/ef0200a.uml
View File

@ -4,163 +4,163 @@ PAGE "Selezione dati" -1 1 78 21
GROUPBOX DLG_NULL 76 5 GROUPBOX DLG_NULL 76 5
BEGIN BEGIN
PROMPT 1 0 "Dati clienti" PROMPT 1 0 "Dati clienti"
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 2 1 "Cliente " PROMPT 2 1 "Cliente "
USE LF_CLIFO KEY 1 USE LF_CLIFO KEY 1
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C" 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 JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
DISPLAY "Comune@50" LF_COMUNI->DENCOM DISPLAY "Comune@50" LF_COMUNI->DENCOM
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
OUTPUT F_INDIRIZZO INDCF OUTPUT F_INDIRIZZO INDCF
OUTPUT F_CODABI CODABI OUTPUT F_CODABI CODABI
OUTPUT F_CODCAB CODCAB OUTPUT F_CODCAB CODCAB
OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC
OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB
OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR
OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500 OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500
OUTPUT F_COMUNE LF_COMUNI->DENCOM OUTPUT F_COMUNE LF_COMUNI->DENCOM
OUTPUT F_PROV LF_COMUNI->PROVCOM OUTPUT F_PROV LF_COMUNI->PROVCOM
HELP "Inserire il codice del cliente" HELP "Inserire il codice del cliente"
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 22 1 "" PROMPT 22 1 ""
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C" 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 JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC INPUT RAGSOC F_RAGSOC
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
DISPLAY "Codice fiscale@16" COFI DISPLAY "Codice fiscale@16" COFI
DISPLAY "Partita IVA@11" PAIV DISPLAY "Partita IVA@11" PAIV
COPY OUTPUT F_CODCF COPY OUTPUT F_CODCF
END END
STRING F_INDIRIZZO 35 STRING F_INDIRIZZO 35
BEGIN BEGIN
PROMPT 2 2 "Indirizzo " PROMPT 2 2 "Indirizzo "
FLAGS "D" FLAGS "D"
END END
STRING F_COMUNE 50 STRING F_COMUNE 50
BEGIN BEGIN
PROMPT 2 3 "Comune " PROMPT 2 3 "Comune "
FLAGS "D" FLAGS "D"
END END
STRING F_PROV 2 STRING F_PROV 2
BEGIN BEGIN
PROMPT 70 3 "" PROMPT 70 3 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_CODABI 5 NUMBER F_CODABI 5
BEGIN BEGIN
PROMPT 2 5 "Banca d'appoggio " PROMPT 2 5 "Banca d'appoggio "
FLAGS "RZ" FLAGS "RZ"
USE %BAN KEY 1 SELECT CODTAB ?="?????" USE %BAN KEY 1 SELECT CODTAB ?="?????"
INPUT CODTAB F_CODABI INPUT CODTAB F_CODABI
DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice ABI" CODTAB[1,5]
DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Codice CAB" CODTAB[6,10]
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT F_CODABI CODTAB[1,5] OUTPUT F_CODABI CODTAB[1,5]
OUTPUT F_CODCAB CODTAB[6,10] OUTPUT F_CODCAB CODTAB[6,10]
CHECKTYPE NORMAL CHECKTYPE NORMAL
HELP "Inserire il codice della banca d'appoggio" HELP "Inserire il codice della banca d'appoggio"
END END
NUMBER F_CODCAB 5 NUMBER F_CODCAB 5
BEGIN BEGIN
PROMPT 32 5 "" PROMPT 32 5 ""
FLAGS "RZ" FLAGS "RZ"
USE %BAN USE %BAN
INPUT CODTAB[1,5] F_CODABI INPUT CODTAB[1,5] F_CODABI
INPUT CODTAB[6,10] F_CODCAB INPUT CODTAB[6,10] F_CODCAB
COPY DISPLAY F_CODABI COPY DISPLAY F_CODABI
COPY OUTPUT F_CODABI COPY OUTPUT F_CODABI
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
LIST F_TIPOEFF 16 LIST F_TIPOEFF 18
BEGIN BEGIN
PROMPT 43 5 "Tipo effetto " PROMPT 43 5 "Tipo effetto "
ITEM "2|Tratta" ITEM "2|Tratta"
ITEM "3|Ricevuta bancaria" ITEM "3|Ricevuta bancaria"
HELP "Inserire il tipo dell'effetto" HELP "Inserire il tipo dell'effetto"
END END
GROUPBOX DLG_NULL 35 4 GROUPBOX DLG_NULL 35 4
BEGIN BEGIN
PROMPT 1 6 "Addebiti" PROMPT 1 6 "Addebiti"
END END
BOOLEAN F_ADDSPINC BOOLEAN F_ADDSPINC
BEGIN BEGIN
PROMPT 2 7 "Sp. incasso" PROMPT 2 7 "Sp. incasso"
HELP "Flag di addebito delle spese d'incasso" HELP "Flag di addebito delle spese d'incasso"
END END
BOOLEAN F_ADDBOLLIRB BOOLEAN F_ADDBOLLIRB
BEGIN BEGIN
PROMPT 19 7 "Bolli R.B." PROMPT 19 7 "Bolli R.B."
HELP "Flag di addebito bolli delle R.B. " HELP "Flag di addebito bolli delle R.B. "
END END
BOOLEAN F_ADDBOLLITR BOOLEAN F_ADDBOLLITR
BEGIN BEGIN
PROMPT 2 8 "Bolli Tr." PROMPT 2 8 "Bolli Tr."
HELP "Flag di addebito bolli delle tratte" HELP "Flag di addebito bolli delle tratte"
END END
BOOLEAN F_ADDBNS1500 BOOLEAN F_ADDBNS1500
BEGIN BEGIN
PROMPT 19 8 "Bollo esente" PROMPT 19 8 "Bollo esente"
HELP "Flag di addebito dei bolli" HELP "Flag di addebito dei bolli"
END END
BUTTON DLG_PARTITE 9 2 BUTTON DLG_PARTITE 9 2
BEGIN BEGIN
PROMPT 39 8 "~Partite" PROMPT 39 8 "~Partite"
MESSAGE EXIT,K_F6 MESSAGE EXIT,K_F6
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT 52 8 "" PROMPT 52 8 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT 65 8 "" PROMPT 65 8 ""
END END
STRING F_RESIDUO 15 STRING F_RESIDUO 15
BEGIN BEGIN
PROMPT 2 10 "Residuo da ripartire " PROMPT 2 10 "Residuo da ripartire "
FLAGS "RD" FLAGS "RD"
END END
SPREADSHEET F_SHEET_EFF 74 8 SPREADSHEET F_SHEET_EFF 74 8
BEGIN BEGIN
PROMPT 2 12 "Immissione effetti" PROMPT 2 12 "Immissione effetti"
ITEM "Data scad." ITEM "Data scad."
ITEM "Importo rata@15 R" ITEM "Importo rata@15 R"
ITEM "Spese incasso@15 R" ITEM "Spese incasso@15 R"
ITEM "Importo bolli@15 R" ITEM "Importo bolli@15 R"
ITEM "Importo effetto@15 R" ITEM "Importo effetto@15 R"
END END
ENDPAGE ENDPAGE