cg0500.cpp Aggiunto include <recarray.h>

cg2100a.uml  Abbassato groupbox
cg21cg.uml   Corretta maschera
cg3100.cpp   Corretto uso movimenti provvisori
cg3200.cpp   Corretto uso movimenti provvisori
cg3600.cpp   Aggiunto include <recarray.h>


git-svn-id: svn://10.65.10.50/trunk@4762 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1997-06-26 08:37:35 +00:00
parent 415e230ca3
commit 3ac58423fd
6 changed files with 8 additions and 29 deletions

View File

@ -3,6 +3,7 @@
#include <applicat.h>
#include <config.h>
#include <msksheet.h>
#include <recarray.h>
#include <relapp.h>
#include <tabutil.h>
#include <utility.h>

View File

@ -27,7 +27,7 @@ BEGIN
FLAGS "D"
END
GROUPBOX DLG_NULL 78 8
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 5 "@bMovimento di prima nota"
FLAGS "R"
@ -83,7 +83,7 @@ END
STRING F_CODCAUS 3
BEGIN
PROMPT 3 11 "Causale "
PROMPT 3 10 "Causale "
FLAGS "UZ"
FIELD CODCAUS
USE LF_CAUSALI
@ -101,7 +101,7 @@ END
STRING F_DESCRCAUS 50
BEGIN
PROMPT 23 11 ""
PROMPT 23 10 ""
USE LF_CAUSALI KEY 2
CHECKTYPE NORMAL
INPUT DESCR F_DESCRCAUS

View File

@ -8,7 +8,6 @@ END
STRING 108 5
BEGIN
PROMPT 2 2 ""
HELP "Codice della descrizione aggiuntiva della riga"
FLAGS "UZ"
USE %DPN
INPUT CODTAB 108
@ -27,7 +26,6 @@ BEGIN
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT 108
HELP "Descrizione aggiuntiva della riga"
FIELD DESCR
END
@ -39,7 +37,6 @@ END
NUMBER CG_DARE 15
BEGIN
PROMPT 2 5 "Dare "
HELP "Importo 'dare' del conto della riga"
FLAGS "RV"
PICTURE "."
END
@ -47,7 +44,6 @@ END
NUMBER CG_AVERE 15
BEGIN
PROMPT 43 5 "Avere "
HELP "Importo 'avere' del conto della riga"
FLAGS "RV"
PICTURE "."
END
@ -55,7 +51,6 @@ END
LIST CG_TIPO 1 10
BEGIN
PROMPT 2 6 "Tipo "
HELP "Tipo del conto principale della riga"
FLAGS "U"
ITEM " |Conto" MESSAGE SHOW,106|HIDE,206|HIDE,306|SHOW,107|HIDE,207|HIDE,307
ITEM "C|Cliente" MESSAGE SHOW,206|HIDE,106|HIDE,306|SHOW,207|HIDE,107|HIDE,307
@ -65,13 +60,11 @@ END
NUMBER CG_GRUPPO 3
BEGIN
PROMPT 20 6 "Gruppo "
HELP "Codice del conto delle riga"
END
NUMBER CG_CONTO 3
BEGIN
PROMPT 32 6 "Conto "
HELP "Codice del conto delle riga"
FIELD LF_PCON->CONTO
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO 104
@ -93,7 +86,6 @@ END
NUMBER CG_SOTTOCONTO 6
BEGIN
PROMPT 45 6 "Sottoconto "
HELP "Codice del conto delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO 104
@ -115,7 +107,6 @@ END
NUMBER 206 6
BEGIN
PROMPT 45 6 "Cliente "
HELP "Codice del cliente delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO
INPUT TIPOCF "C"
@ -135,7 +126,6 @@ END
NUMBER 306 6
BEGIN
PROMPT 45 6 "Fornitore "
HELP "Codice del fornitore delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO
INPUT TIPOCF "F"
@ -156,7 +146,6 @@ END
STRING 107 50
BEGIN
PROMPT 2 7 "Descriz. "
HELP "Descrizione del conto delle riga"
FIELD LF_PCON->DESCR
USE LF_PCON KEY 2
INPUT DESCR 107
@ -173,7 +162,6 @@ END
STRING 207 50
BEGIN
PROMPT 2 7 "Cliente "
HELP "Ragione sociale del cliente delle riga"
FIELD LF_CLIFO->RAGSOC
USE LF_CLIFO KEY 2
INPUT TIPOCF "C"
@ -192,7 +180,6 @@ END
STRING 307 50
BEGIN
PROMPT 2 7 "Fornitore "
HELP "Ragione sociale del fonitore delle riga"
FIELD LF_PCON->SOTTOCONTO
USE LF_CLIFO KEY 2
INPUT TIPOCF "F"
@ -216,7 +203,6 @@ END
LIST 110 1 10
BEGIN
PROMPT 2 10 "Tipo "
HELP "Tipo del conto di contropartita della riga"
FLAGS "U"
ITEM " |Conto" MESSAGE SHOW,113|HIDE,213|HIDE,313|SHOW,114|HIDE,214|HIDE,314
ITEM "C|Cliente" MESSAGE SHOW,213|HIDE,113|HIDE,313|SHOW,214|HIDE,114|HIDE,314
@ -226,13 +212,11 @@ END
NUMBER 111 3
BEGIN
PROMPT 20 10 "Gruppo "
HELP "Codice del conto di contropartita delle riga"
END
NUMBER 112 3
BEGIN
PROMPT 32 10 "Conto "
HELP "Codice del conto di contropartita delle riga"
FIELD LF_PCON->CONTO
COPY USE 105
INPUT GRUPPO 111
@ -251,7 +235,6 @@ END
NUMBER 113 6
BEGIN
PROMPT 45 10 "Sottoconto "
HELP "Codice del conto di contropartita delle riga"
FIELD LF_PCON->SOTTOCONTO
COPY USE 106
COPY INPUT 112
@ -267,7 +250,6 @@ END
NUMBER 213 6
BEGIN
PROMPT 45 10 "Cliente "
HELP "Codice del cliente di contropartita delle riga"
FIELD LF_CLIFO->CODCF
COPY USE 206
INPUT TIPOCF "C"
@ -282,7 +264,6 @@ END
NUMBER 313 6
BEGIN
PROMPT 45 10 "Fornitore "
HELP "Codice del fornitore di contropartita delle riga"
FIELD LF_CLIFO->CODCF
COPY USE 306
INPUT TIPOCF "F"
@ -297,7 +278,6 @@ END
STRING 114 50
BEGIN
PROMPT 2 11 "Descriz. "
HELP "Descrizione del conto di contropartita delle riga"
FIELD LF_PCON->DESCR
COPY USE 107
INPUT DESCR 114
@ -310,7 +290,6 @@ END
STRING 214 50
BEGIN
PROMPT 2 11 "Cliente "
HELP "Ragione sociale del cliente di contropartita delle riga"
FIELD LF_CLIFO->RAGSOC
COPY USE 207
INPUT TIPOCF "C"
@ -325,7 +304,6 @@ END
STRING 314 50
BEGIN
PROMPT 2 11 "Fornitore "
HELP "Ragione sociale del fornitore di contropartita delle riga"
FIELD LF_CLIFO->RAGSOC
COPY USE 307
INPUT TIPOCF "F"

View File

@ -791,7 +791,7 @@ void TListaMov_application::set_page(int file, int count)
set_row (_n, "@103greg @3s",FLD(LF_MOV,MOV_REG));
set_row (_n, "@111gpr @5n",FLD(LF_MOV,MOV_PROTIVA));
}
else if (_provvis == 2 && (prov == 'P' || prov == 'N'))
else if (_provvis == 2 && prov >= ' ')
set_row (_n, "@103gMov.Provvisorio");
//15/12/1995
/*

View File

@ -776,14 +776,14 @@ void TMastrini_application::saldi_zero()
_mov->read();
if (_mov->bad())
_mov->zero();
int provvis (_mov->curr().get_int(MOV_PROVVIS));
char provvis = _mov->curr().get_char(MOV_PROVVIS);
int gruppo = atoi(rmov.get(RMV_GRUPPO));
int conto = atoi(rmov.get(RMV_CONTO));
long sottoc = atol(rmov.get(RMV_SOTTOCONTO));
if ((gruppo == _gruppo)&&(conto == _conto)&&(sottoc == _sottoc))
{
if (_stampa_mov_prov || provvis == 0)
if (_stampa_mov_prov || provvis <= ' ')
{
char sezione = rmov.curr().get(RMV_SEZIONE)[0];
real importo = rmov.curr().get_real(RMV_IMPORTO);

View File

@ -6,6 +6,7 @@
#include <execp.h>
#include <mailbox.h>
#include <progind.h>
#include <recarray.h>
#include <relation.h>
#include <urldefid.h>
#include <utility.h>
@ -14,7 +15,6 @@
#include "cg3.h"
#include "cglib01.h"
#include "cg3600.h"
//#include "conto.h"
#include <causali.h>
#include <mov.h>