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

Corretta sparizione misteriosa dei mesi

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@772 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-12-16 15:48:58 +00:00
parent aadf264df4
commit 1b54d95ee2
10 changed files with 529 additions and 524 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cg/cg2100c.uml
View File

@ -39,10 +39,9 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "FGRD" FLAGS "DFGR"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
@ -57,7 +56,7 @@ NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 57 3 "Operazione n. " PROMPT 57 3 "Operazione n. "
FIELD NUMREG FIELD NUMREG
FLAGS "RDG" FLAGS "DGR"
KEY 1 KEY 1
MESSAGE COPY,H_NUMREG MESSAGE COPY,H_NUMREG
END END

2
cg/cg5.cpp
View File

@ -7,7 +7,7 @@
int main(int argc,char** argv) int main(int argc,char** argv)
{ {
int n = (argc > 1) ? atoi(argv[1]+1) : -1; const int n = (argc > 1) ? atoi(argv[1]+1) : -1;
switch (n) switch (n)
{ {

3
cg/cg5000a.uml
View File

@ -26,6 +26,7 @@ NUMBER FLD_CODABI 5
BEGIN BEGIN
PROMPT 3 2 "Banca di appoggio per deleghe IVA ABI " PROMPT 3 2 "Banca di appoggio per deleghe IVA ABI "
HELP "Codice ABI banca di appoggio per deleghe IVA" HELP "Codice ABI banca di appoggio per deleghe IVA"
WARNIG "Codice ABI errato"
USE %BAN USE %BAN
INPUT CODTAB[1,5] FLD_CODABI INPUT CODTAB[1,5] FLD_CODABI
DISPLAY "ABI@5" CODTAB[1,5] DISPLAY "ABI@5" CODTAB[1,5]
@ -43,6 +44,7 @@ NUMBER FLD_CODCAB 5
BEGIN BEGIN
PROMPT 60 2 "CAB " PROMPT 60 2 "CAB "
HELP "Codice CAB banca di appoggio per deleghe IVA" HELP "Codice CAB banca di appoggio per deleghe IVA"
WARNIG "Codice CAB errato"
COPY ALL FLD_CODABI COPY ALL FLD_CODABI
INPUT CODTAB[6,10] FLD_CODCAB INPUT CODTAB[6,10] FLD_CODCAB
CHECKTYPE NORMAL CHECKTYPE NORMAL
@ -109,6 +111,7 @@ STRING FLD_CODAGV 4
BEGIN BEGIN
PROMPT 3 9 "Codice IVA per ricavi misti agenzie di viaggio " PROMPT 3 9 "Codice IVA per ricavi misti agenzie di viaggio "
HELP "Codice IVA per scorporo operazioni con l'esetero per agenzie di viaggio" HELP "Codice IVA per scorporo operazioni con l'esetero per agenzie di viaggio"
WARNIG "Codice IVA errato"
USE %IVA USE %IVA
FLAGS "U" FLAGS "U"
INPUT CODTAB FLD_CODAGV INPUT CODTAB FLD_CODAGV

14
cg/cg5500.cpp
View File

@ -1,13 +1,14 @@
#include "cg5500.h" #include "cg5500.h"
#include <urldefid.h> #include <browfile.h>
#include <prefix.h> #include <prefix.h>
#include "cg5500a.h"
#include <msksheet.h> #include <msksheet.h>
#include <mailbox.h> #include <mailbox.h>
#include <execp.h> #include <execp.h>
#include <progind.h> #include <progind.h>
#include <browfile.h> #include <urldefid.h>
#include "cg5500a.h"
const char* Visliq_app::itoname(int m) const char* Visliq_app::itoname(int m)
{ {
@ -40,7 +41,7 @@ void Visliq_app::set_freqviva()
_freqviva = _lia->get("S7"); _freqviva = _lia->get("S7");
else else
{ {
TLocalisamfile ditte(LF_NDITTE,1); TLocalisamfile ditte(LF_NDITTE,TRUE);
ditte.zero(); ditte.zero();
ditte.put("CODDITTA", get_firm()); ditte.put("CODDITTA", get_firm());
ditte.read(); ditte.read();
@ -242,7 +243,7 @@ bool Visliq_app::vis_all()
// disabilita aggiunta/eliminazione righe // disabilita aggiunta/eliminazione righe
sh.set_notify(sheet_action); sh.set_notify(sheet_action);
sh.set_notify(sheet_action); sv.set_notify(sheet_action);
sh.sheet_mask().set_handler(101,sel_mese_sh1); sh.sheet_mask().set_handler(101,sel_mese_sh1);
sv.sheet_mask().set_handler(101,sel_mese_sh2); sv.sheet_mask().set_handler(101,sel_mese_sh2);
@ -323,6 +324,7 @@ bool Visliq_app::vis_all()
sv.disable(); sv.disable();
m.run(); m.run();
_mask = NULL;
return TRUE; return TRUE;
} }
@ -344,7 +346,7 @@ bool Visliq_app::vis_one(int m)
body.add(""); body.add("");
body.add(f); body.add(f);
TMessage msg("cg4300", "RCL", body); TMessage msg("cg4 -2", "RCL", body);
msg.send(); msg.send();
TBrowsefile_field& brw = (TBrowsefile_field&)msk.field(F_VISFLQ); TBrowsefile_field& brw = (TBrowsefile_field&)msk.field(F_VISFLQ);

3
cg/cg5500a.h
View File

@ -14,3 +14,6 @@
#define F_DESCR2 114 #define F_DESCR2 114
#define F_DEBCRE 115 #define F_DEBCRE 115
#define F_CODDITTA2 201
#define F_RAGSOC2 202

75
cg/cg5500b.uml
View File

@ -15,14 +15,19 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 2 "Codice ditta " PROMPT 2 2 "Codice "
FLAGS "DF" FLAGS "DFR"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_RAGSOC2 RAGSOC
CHECKTYPE REQUIRED
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 22 2 "Ragione sociale " PROMPT 16 2 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END
NUMBER F_CREDPREC 15 NUMBER F_CREDPREC 15
@ -52,16 +57,16 @@ BEGIN
PROMPT 0 1 "@bDitta corrente" PROMPT 0 1 "@bDitta corrente"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA2 5
BEGIN BEGIN
PROMPT 2 2 "Codice ditta " PROMPT 2 2 "Codice "
FLAGS "DF" FLAGS "DFR"
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC2 37 50
BEGIN BEGIN
PROMPT 22 2 "Ragione sociale " PROMPT 16 2 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END
SPREADSHEET F_VISLIQ2 80 11 SPREADSHEET F_VISLIQ2 80 11
@ -80,14 +85,9 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 7 PAGE "Prospetto mensile" -1 -1 50 10
BUTTON 101 STRING 102 10
BEGIN
PROMPT -11 -2 "DIO CAIMANO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
@ -95,12 +95,12 @@ END
NUMBER 103 15 0 NUMBER 103 15 0
BEGIN BEGIN
PROMPT 1 4 "Risultato " PROMPT 1 3 "Risultato "
END END
LIST 104 2 0 LIST 104 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 4 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
@ -109,7 +109,7 @@ END
NUMBER 105 15 NUMBER 105 15
BEGIN BEGIN
PROMPT 22 6 "IVA a rimborso " PROMPT 22 5 "IVA a rimborso "
END END
NUMBER 106 15 NUMBER 106 15
@ -117,37 +117,32 @@ BEGIN
PROMPT 22 6 "Debito/Credito " PROMPT 22 6 "Debito/Credito "
END END
LIST 107 2 0 LIST 107 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 7 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 7 PAGE "Prospetto versamenti" -1 -1 50 12
BUTTON 101 STRNG 102 10
BEGIN
PROMPT -11 -2 "DIO CANGURO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
@ -177,26 +172,28 @@ BEGIN
PROMPT 1 4 "Versamenti " PROMPT 1 4 "Versamenti "
END END
LIST 108 2 0 LIST 108 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 9 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

77
cg/cg5500c.uml
View File

@ -16,13 +16,17 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 2 "Codice ditta " PROMPT 2 2 "Codice ditta "
FLAGS "DF" FLAGS "FRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 22 2 "Ragione sociale " PROMPT 22 2 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END
NUMBER F_CREDPREC 15 NUMBER F_CREDPREC 15
@ -59,14 +63,9 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 7 PAGE "Prospetto mensile" -1 -1 50 10
BUTTON 101 10 2 STRING 102 10
BEGIN
PROMPT -13 -1 "CAIMANO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
@ -74,12 +73,12 @@ END
NUMBER 103 15 0 NUMBER 103 15 0
BEGIN BEGIN
PROMPT 1 4 "Risultato " PROMPT 1 3 "Risultato "
END END
LIST 104 2 0 LIST 104 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 4 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
@ -88,7 +87,7 @@ END
NUMBER 105 15 NUMBER 105 15
BEGIN BEGIN
PROMPT 22 6 "IVA a rimborso " PROMPT 22 5 "IVA a rimborso "
END END
NUMBER 106 15 NUMBER 106 15
@ -96,68 +95,63 @@ BEGIN
PROMPT 22 6 "Debito/Credito " PROMPT 22 6 "Debito/Credito "
END END
LIST 107 2 0 LIST 107 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 7 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -12 -1 ""
END
BUTTON 101 10 2
BEGIN
PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 7 PAGE "Prospetto versamenti" -1 -1 50 12
BUTTON 101 10 2 STRING 102 10
BEGIN
PROMPT -13 -1 "CANGURO"
END
LIST 102
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
DATE 103 DATE 103
BEGIN BEGIN
PROMPT 1 5 "Data " PROMPT 1 3 "Data "
END END
STRING 104 5 STRING 104 5
BEGIN BEGIN
PROMPT 1 6 "Azienda " PROMPT 1 4 "Azienda "
END END
STRING 105 5 STRING 105 5
BEGIN BEGIN
PROMPT 1 7 "Dipendenza " PROMPT 1 5 "Dipendenza "
END END
STRING 106 5 STRING 106 5
BEGIN BEGIN
PROMPT 1 8 "Concessionaria " PROMPT 1 6 "Concessionaria "
END END
NUMBER 107 15 0 NUMBER 107 15 0
BEGIN BEGIN
PROMPT 1 4 "Versamenti " PROMPT 1 7 "Versamenti "
END END
LIST 108 2 0 LIST 108 1 8
BEGIN BEGIN
PROMPT 1 5 "Importo a " PROMPT 1 8 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
@ -166,12 +160,17 @@ END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -23 -1 ""
END
BUTTON 101 10 2
BEGIN
PROMPT -33 -1 "Calcola"
END END

14
cg/cg5500d.uml
View File

@ -15,14 +15,18 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Codice ditta " PROMPT 2 1 "Codice "
FLAGS "DF" FLAGS "FRD"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
END END
NUMBER F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 22 1 "Ragione sociale " PROMPT 16 1 "Rag. soc. "
FLAGS "DF" FLAGS "D"
END END

1
cg/cglib02.cpp
View File

@ -8,7 +8,6 @@
#include <stdlib.h> #include <stdlib.h>
#include <isam.h> #include <isam.h>
#include <date.h>
#include <saldi.h> #include <saldi.h>
#include <utility.h> #include <utility.h>

1
cg/cglib03.cpp
View File

@ -1,4 +1,3 @@
// TRigaiva_array // TRigaiva_array
// Tabella per il calcolo degli imponibili Iva // Tabella per il calcolo degli imponibili Iva