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

2
cg/cg5.cpp
View File

@ -7,7 +7,7 @@
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)
{

17
cg/cg5000a.uml
View File

@ -26,6 +26,7 @@ NUMBER FLD_CODABI 5
BEGIN
PROMPT 3 2 "Banca di appoggio per deleghe IVA ABI "
HELP "Codice ABI banca di appoggio per deleghe IVA"
WARNIG "Codice ABI errato"
USE %BAN
INPUT CODTAB[1,5] FLD_CODABI
DISPLAY "ABI@5" CODTAB[1,5]
@ -41,8 +42,9 @@ END
NUMBER FLD_CODCAB 5
BEGIN
PROMPT 60 2 "CAB "
HELP "Codice CAB banca di appoggio per deleghe IVA"
PROMPT 60 2 "CAB "
HELP "Codice CAB banca di appoggio per deleghe IVA"
WARNIG "Codice CAB errato"
COPY ALL FLD_CODABI
INPUT CODTAB[6,10] FLD_CODCAB
CHECKTYPE NORMAL
@ -59,7 +61,7 @@ END
BOOLEAN CHK_SIND11
BEGIN
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
END
@ -109,7 +111,8 @@ STRING FLD_CODAGV 4
BEGIN
PROMPT 3 9 "Codice IVA per ricavi misti 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"
INPUT CODTAB FLD_CODAGV
DISPLAY "Codice" CODTAB
@ -147,15 +150,15 @@ END
BOOLEAN CHK_STIREG
BEGIN
PROMPT 3 14 "Stampare l'intestazione sui registri bollati"
HELP "Indicare se stampare l'intestazione della ditta sui registri"
PROMPT 3 14 "Stampare l'intestazione sui registri bollati"
HELP "Indicare se stampare l'intestazione della ditta sui registri"
FIELD StiReg
END
BOOLEAN CHK_NODTRG
BEGIN
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
END

14
cg/cg5500.cpp
View File

@ -1,13 +1,14 @@
#include "cg5500.h"
#include <urldefid.h>
#include <browfile.h>
#include <prefix.h>
#include "cg5500a.h"
#include <msksheet.h>
#include <mailbox.h>
#include <execp.h>
#include <progind.h>
#include <browfile.h>
#include <urldefid.h>
#include "cg5500a.h"
const char* Visliq_app::itoname(int m)
{
@ -40,7 +41,7 @@ void Visliq_app::set_freqviva()
_freqviva = _lia->get("S7");
else
{
TLocalisamfile ditte(LF_NDITTE,1);
TLocalisamfile ditte(LF_NDITTE,TRUE);
ditte.zero();
ditte.put("CODDITTA", get_firm());
ditte.read();
@ -242,7 +243,7 @@ bool Visliq_app::vis_all()
// disabilita aggiunta/eliminazione righe
sh.set_notify(sheet_action);
sh.set_notify(sheet_action);
sv.set_notify(sheet_action);
sh.sheet_mask().set_handler(101,sel_mese_sh1);
sv.sheet_mask().set_handler(101,sel_mese_sh2);
@ -323,6 +324,7 @@ bool Visliq_app::vis_all()
sv.disable();
m.run();
_mask = NULL;
return TRUE;
}
@ -344,7 +346,7 @@ bool Visliq_app::vis_one(int m)
body.add("");
body.add(f);
TMessage msg("cg4300", "RCL", body);
TMessage msg("cg4 -2", "RCL", body);
msg.send();
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_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
BEGIN
PROMPT 2 2 "Codice ditta "
FLAGS "DF"
PROMPT 2 2 "Codice "
FLAGS "DFR"
USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_RAGSOC2 RAGSOC
CHECKTYPE REQUIRED
END
NUMBER F_RAGSOC 37 50
STRING F_RAGSOC 37 50
BEGIN
PROMPT 22 2 "Ragione sociale "
FLAGS "DF"
PROMPT 16 2 "Rag. soc. "
FLAGS "D"
END
NUMBER F_CREDPREC 15
@ -52,16 +57,16 @@ BEGIN
PROMPT 0 1 "@bDitta corrente"
END
NUMBER F_CODDITTA 5
NUMBER F_CODDITTA2 5
BEGIN
PROMPT 2 2 "Codice ditta "
FLAGS "DF"
PROMPT 2 2 "Codice "
FLAGS "DFR"
END
NUMBER F_RAGSOC 37 50
STRING F_RAGSOC2 37 50
BEGIN
PROMPT 22 2 "Ragione sociale "
FLAGS "DF"
PROMPT 16 2 "Rag. soc. "
FLAGS "D"
END
SPREADSHEET F_VISLIQ2 80 11
@ -80,14 +85,9 @@ END
ENDPAGE
ENDMASK
PAGE "Prospetto mensile" -1 -1 50 7
PAGE "Prospetto mensile" -1 -1 50 10
BUTTON 101
BEGIN
PROMPT -11 -2 "DIO CAIMANO"
END
LIST 102
STRING 102 10
BEGIN
PROMPT 1 2 "Mese "
END
@ -95,12 +95,12 @@ END
NUMBER 103 15 0
BEGIN
PROMPT 1 4 "Risultato "
PROMPT 1 3 "Risultato "
END
LIST 104 2 0
LIST 104 1 8
BEGIN
PROMPT 1 5 "Importo a "
PROMPT 1 4 "Importo a "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105
@ -109,7 +109,7 @@ END
NUMBER 105 15
BEGIN
PROMPT 22 6 "IVA a rimborso "
PROMPT 22 5 "IVA a rimborso "
END
NUMBER 106 15
@ -117,37 +117,32 @@ BEGIN
PROMPT 22 6 "Debito/Credito "
END
LIST 107 2 0
LIST 107 1 8
BEGIN
PROMPT 1 5 "Importo a "
PROMPT 1 7 "Importo a "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105
OUTPUT 105
END
BUTTON DLG_CANCEL 10 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_OK 10 2
BUTTON 101 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 "Calcola"
END
ENDPAGE
ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 7
PAGE "Prospetto versamenti" -1 -1 50 12
BUTTON 101
BEGIN
PROMPT -11 -2 "DIO CANGURO"
END
LIST 102
STRNG 102 10
BEGIN
PROMPT 1 2 "Mese "
END
@ -177,26 +172,28 @@ BEGIN
PROMPT 1 4 "Versamenti "
END
LIST 108 2 0
LIST 108 1 8
BEGIN
PROMPT 1 5 "Importo a "
PROMPT 1 9 "Importo a "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 105
OUTPUT 105
END
BUTTON DLG_CANCEL 10 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_OK 10 2
BUTTON 101 10 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 "Calcola"
END
ENDPAGE
ENDMASK

77
cg/cg5500c.uml
View File

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

14
cg/cg5500d.uml
View File

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

1
cg/cglib02.cpp
View File

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

1
cg/cglib03.cpp
View File

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