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)
{ {

17
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]
@ -41,8 +42,9 @@ END
NUMBER FLD_CODCAB 5 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
@ -59,7 +61,7 @@ END
BOOLEAN CHK_SIND11 BOOLEAN CHK_SIND11
BEGIN BEGIN
PROMPT 3 4 "Somma imposte non detraibili ad acq/import. in modello IVA 11" PROMPT 3 4 "Somma imposte non detraibili ad acq/import. in modello IVA 11"
HELP "Indicare se includere l'IVA non detraibile nell'importo dell'operazioni IVA art.19 IVA 11" HELP "Indicare se includere l'IVA non detraibile nell'importo dell'operazioni IVA art.19 IVA 11"
FIELD Sind11 FIELD Sind11
END END
@ -109,7 +111,8 @@ 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"
USE %IVA WARNIG "Codice IVA errato"
USE %IVA
FLAGS "U" FLAGS "U"
INPUT CODTAB FLD_CODAGV INPUT CODTAB FLD_CODAGV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -147,15 +150,15 @@ END
BOOLEAN CHK_STIREG BOOLEAN CHK_STIREG
BEGIN BEGIN
PROMPT 3 14 "Stampare l'intestazione sui registri bollati" PROMPT 3 14 "Stampare l'intestazione sui registri bollati"
HELP "Indicare se stampare l'intestazione della ditta sui registri" HELP "Indicare se stampare l'intestazione della ditta sui registri"
FIELD StiReg FIELD StiReg
END END
BOOLEAN CHK_NODTRG BOOLEAN CHK_NODTRG
BEGIN BEGIN
PROMPT 3 15 "Non stampare la data di operazione sui registri IVA" PROMPT 3 15 "Non stampare la data di operazione sui registri IVA"
HELP "Indicare se non stampoare la data dell'operazione sui registri IVA" HELP "Indicare se non stampoare la data dell'operazione sui registri IVA"
FIELD NoDtRg FIELD NoDtRg
END END

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