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

3
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]
@ -43,6 +44,7 @@ NUMBER FLD_CODCAB 5
BEGIN
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
@ -109,6 +111,7 @@ 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"
WARNIG "Codice IVA errato"
USE %IVA
FLAGS "U"
INPUT CODTAB FLD_CODAGV

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