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

Corretto errore 0255

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@396 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-10-19 09:28:55 +00:00
parent 76981848ac
commit fd11eefaf5
4 changed files with 14 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cg/cg5.cpp
View File

@ -3,7 +3,7 @@
#include "cg5.h"
#define usage "Error - usage : %s -{0,1,3}"
#define usage "Error - usage : %s -{0|1|2|3}"
int main(int argc,char** argv)
{
@ -11,10 +11,16 @@ int main(int argc,char** argv)
switch (n)
{
case 0: cg5000(argc,argv) ; break;
case 1: cg5100(argc,argv) ; break;
case 3: cg5300(argc,argv) ; break;
default: fatal_box(usage, argv[0]) ;
case 0:
cg5000(argc,argv) ; break;
case 1:
cg5100(argc,argv) ; break;
case 2:
cg5200(argc,argv) ; break;
case 3:
cg5300(argc,argv) ; break;
default:
fatal_box(usage, argv[0]) ;
}
return 0;
}

1
cg/cg5.h
View File

@ -1,3 +1,4 @@
extern int cg5000 (int argc, char* argv[]);
extern int cg5100 (int argc, char* argv[]);
extern int cg5200 (int argc, char* argv[]);
extern int cg5300 (int argc, char* argv[]);

7
cg/cg5200.cpp
View File

@ -347,7 +347,6 @@ bool CG5200_application::user_create()
_rel1 = new TRelation(LF_SALDI);
_cur = new TCursor(_rel1, "", 2);
set_search_field(F_GRUPPO);
TSheet_field& cs = ss();
return TRUE;
}
@ -467,12 +466,6 @@ void CG5200_application::compilasheet()
real saldoini_gc = ZERO;
real saldosca_gc = ZERO;
real saldopro_gc = ZERO;
real prg_dare_gc = ZERO;
real prg_avere_gc = ZERO;
real prg_daresca_gc = ZERO;
real prg_averesca_gc = ZERO;
real prg_darepro_gc = ZERO;
real prg_averepro_gc = ZERO;
real saldoini = ZERO;
real pdare = ZERO;
real pavere = ZERO;

29
cg/cg5200a.uml
View File

@ -25,7 +25,6 @@ END
GROUPBOX DLG_NULL 73 4
BEGIN
PROMPT 3 2 ""
//FLAGS "R"
END
LIST F_TIPOCF 9
@ -67,13 +66,10 @@ BEGIN
OUTPUT F_TIPOCF TMCF
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
//OUTPUT F_DESCR_CLIENTE DESCR
//OUTPUT F_DESCR_FORN DESCR
OUTPUT F_DESCR_CONTO DESCR
FLAGS "R"
CHECKTYPE NORMAL
WARNING "Conto inesistente o mancante"
//MESSAGE DIRTY,F_SOTTOCONTO|DIRTY,F_SOTTOC_CLIENTE|DIRTY,F_SOTTOC_FORN
MESSAGE DIRTY,F_DESCR_CONTO|DIRTY,F_DESCR_CLIENTE|DIRTY,F_DESCR_FORN
END
@ -94,10 +90,6 @@ BEGIN
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOCONTO SOTTOCONTO
OUTPUT F_DESCR_CONTO DESCR
//OUTPUT F_DESCR_CLIENTE DESCR
//OUTPUT F_DESCR_FORN DESCR
//MESSAGE COPY,F_SOTTOC_FORN //li gestisco da programma senno' fanno casino
//MESSAGE COPY,F_SOTTOC_CLIENTE
FLAGS "R"
CHECKTYPE NORMAL
GROUP 1
@ -108,7 +100,6 @@ NUMBER F_SOTTOC_CLIENTE 6
BEGIN
PROMPT 54 3 "Cliente "
USE LF_CLIFO
//FIELD LF_CLIFO->CODCF
INPUT TIPOCF "C"
INPUT CODCF F_SOTTOC_CLIENTE
DISPLAY "Codice" CODCF
@ -117,8 +108,6 @@ BEGIN
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOC_CLIENTE CODCF
OUTPUT F_DESCR_CONTO RAGSOC
//OUTPUT F_DESCR_CLIENTE RAGSOC
//OUTPUT F_DESCR_FORN RAGSOC
FLAGS "R"
KEY 1
CHECKTYPE NORMAL
@ -130,7 +119,6 @@ NUMBER F_SOTTOC_FORN 6
BEGIN
PROMPT 54 3 "Fornitore "
USE LF_CLIFO
//FIELD LF_CLIFO->CODCF
INPUT TIPOCF "F"
INPUT CODCF F_SOTTOC_FORN
DISPLAY "Codice" CODCF
@ -138,11 +126,9 @@ BEGIN
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
OUTPUT F_SOTTOC_FORN CODCF
//OUTPUT F_DESCR_FORN RAGSOC
OUTPUT F_DESCR_CONTO RAGSOC
//OUTPUT F_DESCR_CLIENTE RAGSOC
FLAGS "R"
KEY 1 //serve per l'autopremimento
KEY 1
CHECKTYPE NORMAL
WARNING "Fornitore inesistente"
GROUP 3
@ -293,19 +279,6 @@ BEGIN
PROMPT 44 7 ""
END
/*
NUMBER 105 15
BEGIN
PROMPT 1 5 "Progr.Attuali: Saldo Iniziale "
FLAGS "R"
END
STRING 105 1
BEGIN
PROMPT 1 5 "Segno "
END
*/
DATE 112
BEGIN
PROMPT 1 8 "Ultima data operazione "