Correzioni alla lista movimenti
git-svn-id: svn://10.65.10.50/trunk@902 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
5738b426dd
commit
7440188549
@ -1630,50 +1630,53 @@ else _err.set(3);
|
||||
if (_codcf == 0l)
|
||||
_err.set(16);
|
||||
}
|
||||
if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F"))
|
||||
_err.set(17);
|
||||
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
clifo.setkey(1);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, _codcf);
|
||||
clifo.put(CLI_TIPOCF,_tipo_elenco);
|
||||
if (clifo.read() == NOERR)
|
||||
if (_codcf != 0l)
|
||||
{
|
||||
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
||||
if (sosp)
|
||||
_err.set(18);
|
||||
bool occ = clifo.get_bool(CLI_OCCAS);
|
||||
char alleg = clifo.get_char(CLI_ALLEG);
|
||||
long calleg = clifo.get_long(CLI_CODALLEG);
|
||||
if (!occ)
|
||||
{
|
||||
if (_stampa_mess_alleg_iva && alleg == '1')
|
||||
_err.set(19);
|
||||
if (calleg != 0l)
|
||||
{
|
||||
if (calleg == _codcf)
|
||||
_err.set(20);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, calleg);
|
||||
clifo.put(CLI_TIPOCF,_tipo_elenco);
|
||||
if (clifo.read() == NOERR)
|
||||
if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F"))
|
||||
_err.set(17);
|
||||
|
||||
TLocalisamfile clifo(LF_CLIFO);
|
||||
clifo.setkey(1);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, _codcf);
|
||||
clifo.put(CLI_TIPOCF,_tipo_elenco);
|
||||
if (clifo.read() == NOERR)
|
||||
{
|
||||
bool sosp = clifo.get_bool(CLI_SOSPESO);
|
||||
if (sosp)
|
||||
_err.set(18);
|
||||
bool occ = clifo.get_bool(CLI_OCCAS);
|
||||
char alleg = clifo.get_char(CLI_ALLEG);
|
||||
long calleg = clifo.get_long(CLI_CODALLEG);
|
||||
if (!occ)
|
||||
{
|
||||
if (_stampa_mess_alleg_iva && alleg == '1')
|
||||
_err.set(19);
|
||||
if (calleg != 0l)
|
||||
{
|
||||
bool sospall = clifo.get_bool(CLI_SOSPESO);
|
||||
long codall = clifo.get_long(CLI_CODALLEG);
|
||||
char alleg = clifo.get_char(CLI_ALLEG);
|
||||
if (sospall)
|
||||
_err.set(21);
|
||||
if (codall != 0l)
|
||||
_err.set(22);
|
||||
if (_stampa_mess_alleg_iva && alleg == '1')
|
||||
_err.set(23);
|
||||
}
|
||||
else _err.set(24);
|
||||
}
|
||||
}
|
||||
}
|
||||
else _err.set(25);
|
||||
if (calleg == _codcf)
|
||||
_err.set(20);
|
||||
clifo.zero();
|
||||
clifo.put(CLI_CODCF, calleg);
|
||||
clifo.put(CLI_TIPOCF,_tipo_elenco);
|
||||
if (clifo.read() == NOERR)
|
||||
{
|
||||
bool sospall = clifo.get_bool(CLI_SOSPESO);
|
||||
long codall = clifo.get_long(CLI_CODALLEG);
|
||||
char alleg = clifo.get_char(CLI_ALLEG);
|
||||
if (sospall)
|
||||
_err.set(21);
|
||||
if (codall != 0l)
|
||||
_err.set(22);
|
||||
if (_stampa_mess_alleg_iva && alleg == '1')
|
||||
_err.set(23);
|
||||
}
|
||||
else _err.set(24);
|
||||
}
|
||||
}
|
||||
}
|
||||
else _err.set(25);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
144
cg/cg3100.h
144
cg/cg3100.h
@ -1,72 +1,72 @@
|
||||
#ifndef __CG3100_H
|
||||
#define __CG3100_H
|
||||
|
||||
#define TAB_REG "REG"
|
||||
#define TAB_TPD "%TPD"
|
||||
#define TAB_VAL "%VAL"
|
||||
#define TAB_IVA "%IVA"
|
||||
|
||||
#define F_CODDITTA 101
|
||||
#define F_DATASTAMPA 102
|
||||
#define F_RAGSOC 104
|
||||
#define F_CONTROLLO 105
|
||||
#define F_ANNO 106
|
||||
#define F_ALLEGATO 107
|
||||
#define F_DATAINI 108
|
||||
#define F_DATAFIN 109
|
||||
#define F_NUMEROINI 110
|
||||
#define F_NUMEROFIN 111
|
||||
#define F_CAUSALEINI 112
|
||||
#define F_CAUSALEFIN 113
|
||||
#define F_REGISTROINI 114
|
||||
#define F_REGISTROFIN 115
|
||||
#define F_STAMPA 116
|
||||
#define F_TIPOELENCO 117
|
||||
#define F_CODICEINI 118
|
||||
#define F_CODICEFIN 119
|
||||
#define F_CAMBIO 120
|
||||
#define F_DECIDI 121
|
||||
#define F_ANNOC 122
|
||||
#define F_CODICEINI1 123
|
||||
#define F_CODICEFIN1 124
|
||||
#define F_MOVIMENTI 125
|
||||
#define F_STAMPAMOVP 126
|
||||
#define F_RAGSOCINI 127
|
||||
#define F_RAGSOCFIN 128
|
||||
#define F_RAGSOCINI1 129
|
||||
#define F_RAGSOCFIN1 130
|
||||
|
||||
#define ST_DATA 0x0001
|
||||
#define ST_NUMERO 0x0002
|
||||
#define ST_CAUSALE 0x0004
|
||||
#define ST_REGISTRO 0x0008
|
||||
#define ST_DATI_IVA 0x0010
|
||||
#define ST_CONTROLLO 0x0020
|
||||
#define ST_SOLO_MOVERR 0x0040
|
||||
#define ST_SENZA_CONTR 0x0080
|
||||
#define ST_MESSAGGI 0x0100
|
||||
#define ST_ANNO_COMP 0x0200
|
||||
#define ST_MESS_ALLEG 0x0400
|
||||
#define ST_COMPLETA_DATA 0x0800
|
||||
#define ST_COMPLETA_NUM 0x1000
|
||||
#define ST_COMPLETA_CAUS 0x2000
|
||||
#define ST_COMPLETA_REG 0x4000
|
||||
#define ST_CODICE 0x8000
|
||||
|
||||
#endif // __CG3100_H
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#ifndef __CG3100_H
|
||||
#define __CG3100_H
|
||||
|
||||
#define TAB_REG "REG"
|
||||
#define TAB_TPD "%TPD"
|
||||
#define TAB_VAL "%VAL"
|
||||
#define TAB_IVA "%IVA"
|
||||
|
||||
#define F_CODDITTA 101
|
||||
#define F_DATASTAMPA 102
|
||||
#define F_RAGSOC 104
|
||||
#define F_CONTROLLO 105
|
||||
#define F_ANNO 106
|
||||
#define F_ALLEGATO 107
|
||||
#define F_DATAINI 108
|
||||
#define F_DATAFIN 109
|
||||
#define F_NUMEROINI 110
|
||||
#define F_NUMEROFIN 111
|
||||
#define F_CAUSALEINI 112
|
||||
#define F_CAUSALEFIN 113
|
||||
#define F_REGISTROINI 114
|
||||
#define F_REGISTROFIN 115
|
||||
#define F_STAMPA 116
|
||||
#define F_TIPOELENCO 117
|
||||
#define F_CODICEINI 118
|
||||
#define F_CODICEFIN 119
|
||||
#define F_CAMBIO 120
|
||||
#define F_DECIDI 121
|
||||
#define F_ANNOC 122
|
||||
#define F_CODICEINI1 123
|
||||
#define F_CODICEFIN1 124
|
||||
#define F_MOVIMENTI 125
|
||||
#define F_STAMPAMOVP 126
|
||||
#define F_RAGSOCINI 127
|
||||
#define F_RAGSOCFIN 128
|
||||
#define F_RAGSOCINI1 129
|
||||
#define F_RAGSOCFIN1 130
|
||||
|
||||
#define ST_DATA 0x0001
|
||||
#define ST_NUMERO 0x0002
|
||||
#define ST_CAUSALE 0x0004
|
||||
#define ST_REGISTRO 0x0008
|
||||
#define ST_DATI_IVA 0x0010
|
||||
#define ST_CONTROLLO 0x0020
|
||||
#define ST_SOLO_MOVERR 0x0040
|
||||
#define ST_SENZA_CONTR 0x0080
|
||||
#define ST_MESSAGGI 0x0100
|
||||
#define ST_ANNO_COMP 0x0200
|
||||
#define ST_MESS_ALLEG 0x0400
|
||||
#define ST_COMPLETA_DATA 0x0800
|
||||
#define ST_COMPLETA_NUM 0x1000
|
||||
#define ST_COMPLETA_CAUS 0x2000
|
||||
#define ST_COMPLETA_REG 0x4000
|
||||
#define ST_CODICE 0x8000
|
||||
|
||||
#endif // __CG3100_H
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
222
cg/cg3100c.uml
222
cg/cg3100c.uml
@ -1,111 +1,111 @@
|
||||
|
||||
#include "cg3100.h"
|
||||
|
||||
PAGE "" -1 -1 76 19
|
||||
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 5 "Anno esercizio "
|
||||
HELP "Anno d'esercizio di cui si vuole la stampa"
|
||||
USE ESC
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 2 6 "Data stampa "
|
||||
HELP "Data in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_DECIDI 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa "
|
||||
HELP "Criteri di selezione dei movimenti"
|
||||
ITEM "2|data"
|
||||
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
|
||||
ITEM "1|numero"
|
||||
MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 19 9 "Stampa mov. dalla data "
|
||||
HELP "Data da cui iniziare la stampa dei movimenti"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 55 9 "alla data "
|
||||
HELP "Data a cui terminare la stampa dei movimenti"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
PROMPT 19 10 "Stampa mov. dal numero "
|
||||
HELP "Numero da cui iniziare la stampa dei movimenti"
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
PROMPT 55 10 "al numero "
|
||||
HELP "Numero a cui terminare la stampa dei movimenti"
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVP
|
||||
BEGIN
|
||||
PROMPT 2 12 "Stampa movimenti provvisori "
|
||||
HELP "Indicare se stampare i movimenti provvisori"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
|
||||
END
|
||||
|
||||
BUTTON DLG_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
#include "cg3100.h"
|
||||
|
||||
PAGE "" -1 -1 76 19
|
||||
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 3 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 5 "Anno esercizio "
|
||||
HELP "Anno d'esercizio di cui si vuole la stampa"
|
||||
USE ESC
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 2 6 "Data stampa "
|
||||
HELP "Data in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_DECIDI 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa "
|
||||
HELP "Criteri di selezione dei movimenti"
|
||||
ITEM "2|data"
|
||||
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
|
||||
ITEM "1|numero"
|
||||
MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 19 9 "Stampa mov. dalla data "
|
||||
HELP "Data da cui iniziare la stampa dei movimenti"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 55 9 "alla data "
|
||||
HELP "Data a cui terminare la stampa dei movimenti"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROINI 7
|
||||
BEGIN
|
||||
PROMPT 19 10 "Stampa mov. dal numero "
|
||||
HELP "Numero da cui iniziare la stampa dei movimenti"
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_NUMEROFIN 7
|
||||
BEGIN
|
||||
PROMPT 55 10 "al numero "
|
||||
HELP "Numero a cui terminare la stampa dei movimenti"
|
||||
FLAGS "R"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVP
|
||||
BEGIN
|
||||
PROMPT 2 12 "Stampa movimenti provvisori "
|
||||
HELP "Indicare se stampare i movimenti provvisori"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
|
||||
END
|
||||
|
||||
BUTTON DLG_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user