Buscar: Búsqueda avanzada

Navegar por categorías:

Revisió 107 - BUGS: GES_TARIFES_CABE.MONEDA, REMESA_CONTAB_VARIS_VTO, CALCULA_CABECERA, FORM INICI. MILLORES: SEL_EMPRE

Imprimir

Enviar a un amigo

Posted: 12. September 2011
by: Camprubi J.

Updated: 18. June 2015
by: Camprubi J.

Revisió 107 – BUGS: GES_TARIFES_CABE.MONEDA, REMESA_CONTAB_VARIS_VTO, CALCULA_CABECERA, FORM INICI. MILLORES: SEL_EMPRE

BUGS

1.- Afegir Foreing Key a taula IB: GES_TARIFES_CABE.MONEDA, des de manteniment de tarifees deixa entrar una tarifa nova sense moneda. FK_GES_TARIFES_CABE_MONEDA

2.- Modificar procediments IB: REMESA_CONTAB_PAG_VARIS_VTO, quan inserim una nova capçalera per cada canvi de vto. S’ha d’agafar l’exercici de la data vto, no el de la data de la remesa ja que agafa contadors malament.

Això es el que hi havia:

if (VDATA_CANVI <> VDATA_VTO) then begin

/* Crea Capçalera d'Asiento */

execute procedure CONTADOR_DAME(:vempresa,:vcanal,'',:vexer_ctb,'CTB_I') RETURNING_VALUES (vricctb);

Això es el que hi ha d’haver:

if (VDATA_CANVI <> VDATA_VTO) then begin

/** Busquem exercici de la data vto*/

EXECUTE PROCEDURE UT_GET_EXERCICI(:vempresa,'',vData_vto) RETURNING_VALUES (VEXER_vto,vaux,vaux);

/* Crea Capçalera d'Asiento */

execute procedure CONTADOR_DAME(:vempresa,:vcanal,'',:VEXER_vto,'CTB_I') RETURNING_VALUES (vricctb);

3.- Modificar procediments IB: CALCULA_CABECERA, abans de fer els càlculs, s’ha de comprovar si vtbrut <0 i canviar signe de variable vAjPrec.

S’ha d’afegir el següent codi al procediment:

for select tipiva,poriva,porrec,import,d_import

from TMP_BASES_DOC

where (key_doc=:key_doc)

into :vtipiva, :vporiva, :vporrec, :vtbrut, :dtbrut do

begin

if (vap_rec = 0) then vporrec = 0;

if (vap_iva = 0) then

begin

vporrec = 0;

vporiva = 0;

end

if (vtbrut < 0) then vAjPrec = vAjprec * (-1);

vtdto1 = vtbrut * vpdte1 / 100;

...

4.- Modificat form INICI, el el proces de presentar els missatges interns a l’usuari, procedure ComprovaMSG la 1era sentència SQL esta malament:

On Diu:

lcSql = [Select Assumpte,observacio,missatge from sys_missatges ] + ;

[where usuari=?gpUser and avisar=1 and data=?lData and hora<=?lcHora ] + ;

[and llegit=0]

Ha de Dir:

lcSql = [Select Assumpte,observacio,missatge from sys_missatges ] + ;

[where usuari=?gpUser and avisar=1 and (data<?lData or (data=?lData and hora<=?lcHora)) ] + ;

[and llegit=0]

MILLORES:

5.- Pantalla sel.lecció empresa, en el combo de l’exercici, presentem l’exercici que esta definit com exercici actual en el fitxer d’empreses. Modificat form: sel_empre.

Sel_empre.prescombo. (canviat select exercicis que ens proposi per primera opció a escollir l’exercici definit com a actiu en el manteniment d’empreses.)

Tocat a BBDD:

Tables:

GES_TARIFES_CABE (Modificat)(1)

Procedures:

REMESA_CONTAB_PAG_VARIS_VTO (Modificat)(2)

CALCULA_CABECERA (Modificat)(3)

Passar parxe : ADSGEST_0107.SQL, procediments modificats i per deixar registre al sys_revisions conforme s'ha fet aquesta Revisió.

Tocat a l'Aplicació:

Forms:

INICI (Modificat)(3)

SEL_EMPRE (Modificat)(5)

Meta Keywords: parxes adsgest varis

Documents adjunts: ADSGEST_0107.SQL

----------------------------------------------------------------------------------------
Judit Camprubí

Archivos adjuntos

	ADSGEST_0107.sql (53 kb)

Otras preguntas en esta categoría

	» Más preguntas