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

Correzioni alla lista movimenti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@902 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-01-24 15:46:03 +00:00
parent 5738b426dd
commit 7440188549
3 changed files with 228 additions and 225 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
cg/cg3100.cpp
View File

@ -1630,50 +1630,53 @@ else _err.set(3);
if (_codcf == 0l) if (_codcf == 0l)
_err.set(16); _err.set(16);
} }
if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F")) if (_codcf != 0l)
_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 ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F"))
if (sosp) _err.set(17);
_err.set(18);
bool occ = clifo.get_bool(CLI_OCCAS); TLocalisamfile clifo(LF_CLIFO);
char alleg = clifo.get_char(CLI_ALLEG); clifo.setkey(1);
long calleg = clifo.get_long(CLI_CODALLEG); clifo.zero();
if (!occ) clifo.put(CLI_CODCF, _codcf);
{ clifo.put(CLI_TIPOCF,_tipo_elenco);
if (_stampa_mess_alleg_iva && alleg == '1') if (clifo.read() == NOERR)
_err.set(19); {
if (calleg != 0l) bool sosp = clifo.get_bool(CLI_SOSPESO);
{ if (sosp)
if (calleg == _codcf) _err.set(18);
_err.set(20); bool occ = clifo.get_bool(CLI_OCCAS);
clifo.zero(); char alleg = clifo.get_char(CLI_ALLEG);
clifo.put(CLI_CODCF, calleg); long calleg = clifo.get_long(CLI_CODALLEG);
clifo.put(CLI_TIPOCF,_tipo_elenco); if (!occ)
if (clifo.read() == NOERR) {
if (_stampa_mess_alleg_iva && alleg == '1')
_err.set(19);
if (calleg != 0l)
{ {
bool sospall = clifo.get_bool(CLI_SOSPESO); if (calleg == _codcf)
long codall = clifo.get_long(CLI_CODALLEG); _err.set(20);
char alleg = clifo.get_char(CLI_ALLEG); clifo.zero();
if (sospall) clifo.put(CLI_CODCF, calleg);
_err.set(21); clifo.put(CLI_TIPOCF,_tipo_elenco);
if (codall != 0l) if (clifo.read() == NOERR)
_err.set(22); {
if (_stampa_mess_alleg_iva && alleg == '1') bool sospall = clifo.get_bool(CLI_SOSPESO);
_err.set(23); long codall = clifo.get_long(CLI_CODALLEG);
} char alleg = clifo.get_char(CLI_ALLEG);
else _err.set(24); if (sospall)
} _err.set(21);
} if (codall != 0l)
} _err.set(22);
else _err.set(25); if (_stampa_mess_alleg_iva && alleg == '1')
_err.set(23);
}
else _err.set(24);
}
}
}
else _err.set(25);
}
} }
} }
} }

144
cg/cg3100.h
View File

@ -1,72 +1,72 @@
#ifndef __CG3100_H #ifndef __CG3100_H
#define __CG3100_H #define __CG3100_H
#define TAB_REG "REG" #define TAB_REG "REG"
#define TAB_TPD "%TPD" #define TAB_TPD "%TPD"
#define TAB_VAL "%VAL" #define TAB_VAL "%VAL"
#define TAB_IVA "%IVA" #define TAB_IVA "%IVA"
#define F_CODDITTA 101 #define F_CODDITTA 101
#define F_DATASTAMPA 102 #define F_DATASTAMPA 102
#define F_RAGSOC 104 #define F_RAGSOC 104
#define F_CONTROLLO 105 #define F_CONTROLLO 105
#define F_ANNO 106 #define F_ANNO 106
#define F_ALLEGATO 107 #define F_ALLEGATO 107
#define F_DATAINI 108 #define F_DATAINI 108
#define F_DATAFIN 109 #define F_DATAFIN 109
#define F_NUMEROINI 110 #define F_NUMEROINI 110
#define F_NUMEROFIN 111 #define F_NUMEROFIN 111
#define F_CAUSALEINI 112 #define F_CAUSALEINI 112
#define F_CAUSALEFIN 113 #define F_CAUSALEFIN 113
#define F_REGISTROINI 114 #define F_REGISTROINI 114
#define F_REGISTROFIN 115 #define F_REGISTROFIN 115
#define F_STAMPA 116 #define F_STAMPA 116
#define F_TIPOELENCO 117 #define F_TIPOELENCO 117
#define F_CODICEINI 118 #define F_CODICEINI 118
#define F_CODICEFIN 119 #define F_CODICEFIN 119
#define F_CAMBIO 120 #define F_CAMBIO 120
#define F_DECIDI 121 #define F_DECIDI 121
#define F_ANNOC 122 #define F_ANNOC 122
#define F_CODICEINI1 123 #define F_CODICEINI1 123
#define F_CODICEFIN1 124 #define F_CODICEFIN1 124
#define F_MOVIMENTI 125 #define F_MOVIMENTI 125
#define F_STAMPAMOVP 126 #define F_STAMPAMOVP 126
#define F_RAGSOCINI 127 #define F_RAGSOCINI 127
#define F_RAGSOCFIN 128 #define F_RAGSOCFIN 128
#define F_RAGSOCINI1 129 #define F_RAGSOCINI1 129
#define F_RAGSOCFIN1 130 #define F_RAGSOCFIN1 130
#define ST_DATA 0x0001 #define ST_DATA 0x0001
#define ST_NUMERO 0x0002 #define ST_NUMERO 0x0002
#define ST_CAUSALE 0x0004 #define ST_CAUSALE 0x0004
#define ST_REGISTRO 0x0008 #define ST_REGISTRO 0x0008
#define ST_DATI_IVA 0x0010 #define ST_DATI_IVA 0x0010
#define ST_CONTROLLO 0x0020 #define ST_CONTROLLO 0x0020
#define ST_SOLO_MOVERR 0x0040 #define ST_SOLO_MOVERR 0x0040
#define ST_SENZA_CONTR 0x0080 #define ST_SENZA_CONTR 0x0080
#define ST_MESSAGGI 0x0100 #define ST_MESSAGGI 0x0100
#define ST_ANNO_COMP 0x0200 #define ST_ANNO_COMP 0x0200
#define ST_MESS_ALLEG 0x0400 #define ST_MESS_ALLEG 0x0400
#define ST_COMPLETA_DATA 0x0800 #define ST_COMPLETA_DATA 0x0800
#define ST_COMPLETA_NUM 0x1000 #define ST_COMPLETA_NUM 0x1000
#define ST_COMPLETA_CAUS 0x2000 #define ST_COMPLETA_CAUS 0x2000
#define ST_COMPLETA_REG 0x4000 #define ST_COMPLETA_REG 0x4000
#define ST_CODICE 0x8000 #define ST_CODICE 0x8000
#endif // __CG3100_H #endif // __CG3100_H

222
cg/cg3100c.uml
View File

@ -1,111 +1,111 @@
#include "cg3100.h" #include "cg3100.h"
PAGE "" -1 -1 76 19 PAGE "" -1 -1 76 19
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 2 "Ditta " PROMPT 2 2 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 3 "Ragione sociale " PROMPT 2 3 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 5 "Anno esercizio " PROMPT 2 5 "Anno esercizio "
HELP "Anno d'esercizio di cui si vuole la stampa" HELP "Anno d'esercizio di cui si vuole la stampa"
USE ESC USE ESC
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
DISPLAY "Anno" CODTAB DISPLAY "Anno" CODTAB
DISPLAY "Data inizio esercizio" D0 DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1 DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB OUTPUT F_ANNO CODTAB
FLAGS "RZ" FLAGS "RZ"
END END
DATE F_DATASTAMPA DATE F_DATASTAMPA
BEGIN BEGIN
PROMPT 2 6 "Data stampa " PROMPT 2 6 "Data stampa "
HELP "Data in cui viene effettuata la stampa" HELP "Data in cui viene effettuata la stampa"
FLAGS "A" FLAGS "A"
END END
RADIOBUTTON F_DECIDI 10 RADIOBUTTON F_DECIDI 10
BEGIN BEGIN
PROMPT 2 8 "Stampa " PROMPT 2 8 "Stampa "
HELP "Criteri di selezione dei movimenti" HELP "Criteri di selezione dei movimenti"
ITEM "2|data" ITEM "2|data"
MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@ MESSAGE DISABLE,2@|RESET,2@|ENABLE,1@
ITEM "1|numero" ITEM "1|numero"
MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@ MESSAGE DISABLE,1@|RESET,1@|ENABLE,2@
END END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 19 9 "Stampa mov. dalla data " PROMPT 19 9 "Stampa mov. dalla data "
HELP "Data da cui iniziare la stampa dei movimenti" HELP "Data da cui iniziare la stampa dei movimenti"
GROUP 1 GROUP 1
END END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 55 9 "alla data " PROMPT 55 9 "alla data "
HELP "Data a cui terminare la stampa dei movimenti" HELP "Data a cui terminare la stampa dei movimenti"
GROUP 1 GROUP 1
END END
NUMBER F_NUMEROINI 7 NUMBER F_NUMEROINI 7
BEGIN BEGIN
PROMPT 19 10 "Stampa mov. dal numero " PROMPT 19 10 "Stampa mov. dal numero "
HELP "Numero da cui iniziare la stampa dei movimenti" HELP "Numero da cui iniziare la stampa dei movimenti"
FLAGS "R" FLAGS "R"
GROUP 2 GROUP 2
END END
NUMBER F_NUMEROFIN 7 NUMBER F_NUMEROFIN 7
BEGIN BEGIN
PROMPT 55 10 "al numero " PROMPT 55 10 "al numero "
HELP "Numero a cui terminare la stampa dei movimenti" HELP "Numero a cui terminare la stampa dei movimenti"
FLAGS "R" FLAGS "R"
GROUP 2 GROUP 2
END END
BOOLEAN F_STAMPAMOVP BOOLEAN F_STAMPAMOVP
BEGIN BEGIN
PROMPT 2 12 "Stampa movimenti provvisori " PROMPT 2 12 "Stampa movimenti provvisori "
HELP "Indicare se stampare i movimenti provvisori" HELP "Indicare se stampare i movimenti provvisori"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) " PROMPT 2 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
END END
BUTTON DLG_PRINT 9 2 BUTTON DLG_PRINT 9 2
BEGIN BEGIN
PROMPT -12 -1 "~Stampa" PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER MESSAGE EXIT,K_ENTER
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK