Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Artículos: repaso general.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@222 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 10:10:06 +00:00
parent aed65d1e8e
commit 07e61d570c
8 changed files with 174 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

108
Database/scripts/factuges.sql
View File

@ -305,9 +305,7 @@ end^
SET TERM ; ^
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_CAPITULOS;
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS TO SYSDBA;
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS TO TO "PUBLIC";
SET TERM ^ ;
@ -360,7 +358,107 @@ SET TERM ; ^
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS;
GRANT SELECT ON ARTICULOS TO PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS;
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS TO SYSDBA;
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS TO "PUBLIC";
SET TERM ^ ;
CREATE PROCEDURE PRO_PRES_RESUMEN (
aid integer)
returns (
id integer,
id_presupuesto integer,
posicion integer,
tipo_detalle varchar(10),
concepto varchar(2000),
importe_total numeric(11,2),
visible smallint)
as
declare variable num_capitulos integer;
declare variable num_filas integer;
declare variable contador integer;
declare variable existe numeric(11,2);
declare variable total_acumulado numeric(11,2);
declare variable concepto_capitulo varchar(2000) character set iso8859_1;
begin
existe = 0;
total_acumulado = 0.0;
contador = 0;
num_filas = 0;
num_capitulos = 0;
concepto_capitulo = '';
/* ¿Existe el presupuesto? */
for select count(*)
from presupuestos_cliente_detalles
where id_presupuesto = :AID
into :num_filas
do
begin
if (num_filas = 0) then
suspend;
end
/* Ver si hay conceptos al principio sin capitulos */
for select id, id_presupuesto, posicion, tipo_detalle
from presupuestos_cliente_detalles
where id_presupuesto = :AID
order by id_presupuesto, posicion
rows 1
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE
do
begin
if (TIPO_DETALLE = 'Concepto') then
EXISTE = 1;
end
if (existe = 1) then
begin
contador = 0;
/* Existen conceptos sin capitulo */
for select tipo_detalle, importe_total, coalesce(visible, 1)
from presupuestos_cliente_detalles
where id_presupuesto = :AID
order by id_presupuesto, posicion
into :TIPO_DETALLE, :IMPORTE_TOTAL, :VISIBLE
do
begin
contador = contador + 1;
if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then
begin
importe_total = total_acumulado;
tipo_detalle = 'Titulo';
concepto = 'General';
visible = 1;
ID = -1;
posicion = -1;
suspend;
break;
end
else begin
if (visible <> 0) then
total_acumulado = total_acumulado + importe_total;
end
end
end
/* Tratar el resto de las filas */
for select id, id_presupuesto, posicion, tipo_detalle, F_RTFTOTEXT(concepto) as concepto,
importe_total, coalesce(visible, 1)
from presupuestos_cliente_detalles
where tipo_detalle = 'Subtotal' and id_presupuesto = :AID
order by id_presupuesto, posicion
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
:IMPORTE_TOTAL, :VISIBLE
do
suspend;
end^
SET TERM ; ^
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_RESUMEN;
GRANT EXECUTE ON PROCEDURE PRO_PRES_RESUMEN TO "PUBLIC";
/******************************************************************************/
/**** Tables ****/
@ -2803,7 +2901,7 @@ begin
end
for select id, id_presupuesto, posicion, tipo_detalle, concepto,
for select id, id_presupuesto, posicion, tipo_detalle, F_RTFTOTEXT(concepto) as concepto,
importe_total, coalesce(visible, 1)
from presupuestos_cliente_detalles
where tipo_detalle <> 'Concepto' and id_presupuesto = :AID

49
Database/scripts/factuges_sysdata.sql
View File

@ -50,6 +50,55 @@ SET GENERATOR GEN_TIPOS_IVA_ID TO 5;
COMMIT WORK;
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (2, 'A LA VISTA', 'A LA VISTA', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (3, 'CONTADO', 'CONTADO', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (4, 'EFECTO 60 DIAS', 'EFECTO 60 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (5, 'EFECTO 90 DIAS', 'EFECTO 90 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (6, 'GIRO BANCARIO 30 DIAS', 'GIRO BANCARIO 30 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (7, 'GIRO BANCARIO 60 DIAS', 'GIRO BANCARIO 60 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (8, 'PAGARÉ 30 DIAS', 'PAGARÉ 30 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (9, 'PAGARÉ 60 DIAS', 'PAGARÉ 60 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (10, 'PAGARÉ 90 DIAS', 'PAGARÉ 90 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (11, 'PAGARÉ A 120 DIAS.', 'PAGARÉ A 120 DIAS.', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (12, 'RECIBO 30 DIAS', 'RECIBO 30 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (13, 'RECIBO 60 DIAS', 'RECIBO 60 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (14, 'RECIBO 90 DIAS', 'RECIBO 90 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (15, 'TALÓN 30 DIAS.', 'TALÓN 30 DIAS.', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (16, 'TALÓN 45 DIAS.', 'TALÓN 45 DIAS.', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (17, 'TALÓN 60 DIAS.', 'TALÓN 60 DIAS.', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (18, 'TALÓN 90 DIAS.', 'TALÓN 90 DIAS.', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (19, 'TRANSFERENCIA A 30 DIAS.', 'TRANSFERENCIA A 30 DIAS.', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (20, 'TRANSFERENCIA A 60 DIAS', 'TRANSFERENCIA A 60 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (21, 'TRANSFERENCIA A 90 DIAS', 'TRANSFERENCIA A 90 DIAS', NULL, NULL, NULL, NULL, NULL);
INSERT INTO FORMAS_PAGO (ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA) VALUES (22, 'TRANSFERENCIA CONTADO', 'TRANSFERENCIA CONTADO', NULL, NULL, NULL, NULL, NULL);
SET GENERATOR GEN_FORMAS_PAGO_ID TO 23;
COMMIT WORK;
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (2, 2, NULL, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (3, 3, 0, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (4, 4, 60, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (5, 5, 90, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (6, 6, 30, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (7, 7, 60, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (8, 8, 30, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (9, 9, 60, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (10, 10, 90, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (11, 11, 120, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (12, 12, 30, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (13, 13, 60, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (14, 14, 90, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (16, 15, 30, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (17, 16, 45, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (18, 17, 60, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (19, 18, 90, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (20, 19, 30, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (21, 20, 60, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (22, 21, 90, 100);
INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES (23, 22, 0, 100);
SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24;
COMMIT WORK;
INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (1, 'M²');
INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (2, 'ROLLOS');
INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (3, 'MTS.');

22
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

3
Source/Modulos/Articulos/Views/uEditorArticulo.pas
View File

@ -96,6 +96,9 @@ begin
FTitulo := 'Nuevo artículo'
else
FTitulo := 'Artículo';
if Length(Articulo.DESCRIPCION) > 0 then
FTitulo := FTitulo + ' - ' + Articulo.DESCRIPCION;
end;
inherited PonerTitulos(FTitulo);

1
Source/Modulos/Articulos/Views/uEditorArticulos.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorArticulos: TfEditorArticulos
Left = 489
Top = 325
Caption = 'Lista de art'#237'culos'
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

BIN
Source/Modulos/Articulos/Views/uEditorArticulos.pas
View File

Binary file not shown.

11
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -295,6 +295,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
SQL =
@ -432,6 +433,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
SQL =
@ -507,16 +509,17 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Params = <
item
Name = 'ID_PRESUPUESTO'
Value = ''
Value = '2'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
SQL =
'SELECT * FROM PRO_PRES_CAPITULOS(:ID_PRESUPUESTO)'#10'WHERE (VISIBLE' +
' <> 0) AND {where}'#10'ORDER BY ID_PRESUPUESTO, POSICION'#10
'SELECT * FROM PRO_PRES_RESUMEN(:ID_PRESUPUESTO)'#10'WHERE (VISIBLE <' +
'> 0) AND {where}'#10'ORDER BY ID_PRESUPUESTO, POSICION'#10
StatementType = stSQL
ColumnMappings = <
item
@ -606,7 +609,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39460.834465046300000000
ReportOptions.LastChange = 39461.553128067100000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''

2
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -228,7 +228,7 @@ begin
case FPresupuesto.Cliente.Direcciones.RecordCount of
0 : begin
FController.QuitarDireccionEnvio(FPresupuesto);
MessageBox(0, '，tenci鏮! Este cliente no tiene ' + #10#13 + 'ninguna direcci鏮 en su ficha', 'Atenci鏮', MB_ICONWARNING or MB_OK);
//MessageBox(0, '，tenci鏮! Este cliente no tiene ninguna direcci鏮 en su ficha', 'Atenci鏮', MB_ICONWARNING or MB_OK);
FPresupuesto.Edit;
FPresupuesto.IMPORTE_PORTE := 0;
end;