Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 2.2.9

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@398 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-02-19 17:50:18 +00:00
parent c13b4a1853
commit 80b959f700
14 changed files with 433 additions and 426 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

207
Database/scripts/factuges.sql
View File

@ -273,6 +273,15 @@ SET TERM ^ ;
/**** Stored Procedures ****/ /**** Stored Procedures ****/
/******************************************************************************/ /******************************************************************************/
CREATE PROCEDURE PROC_CIERRE_APERTURA (
ID_EJERCICIO_CIERRE INTEGER,
ID_EJERCICIO_APERTURA INTEGER)
AS
BEGIN
EXIT;
END^
CREATE PROCEDURE PROC_DELETE_ASIENTO_FACTURA ( CREATE PROCEDURE PROC_DELETE_ASIENTO_FACTURA (
IDFACTURA INTEGER, IDFACTURA INTEGER,
TIPO VARCHAR(1)) TIPO VARCHAR(1))
@ -381,103 +390,6 @@ BEGIN
EXIT; EXIT;
END^ END^
CREATE PROCEDURE PROC_CIERRE_APERTURA (
id_ejercicio_cierre integer,
id_ejercicio_apertura integer)
as
declare variable id_subcuenta_apertura integer;
declare variable id_subcuenta_cierre integer;
declare variable ref_subcuenta varchar(255);
declare variable subcuenta varchar(255);
declare variable num_orden integer;
declare variable diferencia numeric(11,2);
declare variable estado_ejercicio_cierre varchar(255);
declare variable estado_ejercicio_apertura varchar(255);
declare variable nombre_ejercicio_cierre varchar(255);
declare variable nombre_ejercicio_apertura varchar(255);
declare variable id_asiento_cierre integer;
declare variable id_asiento_apertura integer;
declare variable id_apunte_apertura integer;
declare variable id_apunte_cierre integer;
begin
/*Seleccionamos el ejercicio de cierre*/
select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1)
from cont_ejercicios
where id = :id_ejercicio_cierre
into :estado_ejercicio_cierre, :nombre_ejercicio_cierre, :id_asiento_cierre;
/*Seleccionamos el ejercicio de apertura*/
select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1)
from cont_ejercicios
where id = :id_ejercicio_apertura
into :estado_ejercicio_apertura, :nombre_ejercicio_apertura, :id_asiento_apertura;
/*Si los ejercicios no estan abiertos no hacemos nada*/
if ((estado_ejercicio_cierre = 'ABIERTO') and (estado_ejercicio_apertura = 'ABIERTO')) then
begin
select COALESCE(max(V_CONT_DIARIO.ORDEN_ASIENTO),0) + 1
from V_CONT_DIARIO
into :num_orden;
/* Añadimos asiento de cierre*/
insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO)
values (:id_asiento_cierre, current_date, :num_orden, 'x');
num_orden = num_orden + 1;
/* Añadimos asiento de apertura*/
insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO)
values (:id_asiento_apertura, current_date, :num_orden, 'a');
num_orden = 1;
/* Para cada cuenta descuadrada se inserta un apunte de cierre asociado al asiento creado anteriormente*/
for select ID_SUBCUENTA, REF_SUBCUENTA, SUBCUENTA, SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0)) as DIFERENCIA,
GEN_ID(gen_cont_apuntes_id, 1), GEN_ID(gen_cont_apuntes_id, 1)
from v_cont_diario where (ID_EJERCICIO = :ID_EJERCICIO_CIERRE)
group by 1, 2, 3
having (SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0))) <> 0
into :id_subcuenta_cierre, :ref_subcuenta, :subcuenta, :diferencia, :id_apunte_cierre, :id_apunte_apertura do
begin
/*Buscamos la subcuenta equibalente en el ejericio de apertura*/
select ID from cont_subcuentas
where REF_SUBCUENTA = :ref_subcuenta
and DESCRIPCION = :subcuenta
and ID_EJERCICIO = :id_ejercicio_apertura
into :id_subcuenta_apertura;
if (diferencia > 0) then
begin
/*APUNTE DE CIERRE*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia);
/*APUNTE DE APERTURA*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia);
end
else
begin
/*APUNTE DE CIERRE*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1);
/*APUNTE DE APERTURA*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1);
end
num_orden = num_orden + 1;
end
/*Finalmente cambiamos de estado los ejercicio cerrado*/
update cont_ejercicios
set ESTADO = 'CERRADO'
where id = :id_ejercicio_cierre;
end
suspend;
end^
SET TERM ; ^ SET TERM ; ^
@ -4538,7 +4450,7 @@ begin
SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE, SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE,
RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE, RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE,
PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO, PAGOS_CLIENTE.FECHA_PAGO, PAGOS_CLIENTE.TIPO,
PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION, PAGOS_CLIENTE.TIPO || ': ' || COALESCE(RECIBOS_CLIENTE.DESCRIPCION, 'No hay descripción'),
RECIBOS_CLIENTE.IMPORTE RECIBOS_CLIENTE.IMPORTE
FROM PAGOS_CLIENTE FROM PAGOS_CLIENTE
LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO) LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO)
@ -4644,7 +4556,7 @@ begin
SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_PROVEEDOR, SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_PROVEEDOR,
RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE, RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE,
PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO, PAGOS_PROVEEDOR.FECHA_PAGO, PAGOS_PROVEEDOR.TIPO,
PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION, PAGOS_PROVEEDOR.TIPO || ': ' || COALESCE(RECIBOS_PROVEEDOR.DESCRIPCION, 'No hay descripción'),
RECIBOS_PROVEEDOR.IMPORTE RECIBOS_PROVEEDOR.IMPORTE
FROM PAGOS_PROVEEDOR FROM PAGOS_PROVEEDOR
LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO) LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO)
@ -4907,10 +4819,105 @@ begin
end end
^ ^
ALTER PROCEDURE PROC_CIERRE_APERTURA (
ID_EJERCICIO_CIERRE INTEGER,
ID_EJERCICIO_APERTURA INTEGER)
AS
declare variable id_subcuenta_apertura integer;
declare variable id_subcuenta_cierre integer;
declare variable ref_subcuenta varchar(255);
declare variable subcuenta varchar(255);
declare variable num_orden integer;
declare variable diferencia numeric(11,2);
declare variable estado_ejercicio_cierre varchar(255);
declare variable estado_ejercicio_apertura varchar(255);
declare variable nombre_ejercicio_cierre varchar(255);
declare variable nombre_ejercicio_apertura varchar(255);
declare variable id_asiento_cierre integer;
declare variable id_asiento_apertura integer;
declare variable id_apunte_apertura integer;
declare variable id_apunte_cierre integer;
begin
/*Seleccionamos el ejercicio de cierre*/
select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1)
from cont_ejercicios
where id = :id_ejercicio_cierre
into :estado_ejercicio_cierre, :nombre_ejercicio_cierre, :id_asiento_cierre;
/*Seleccionamos el ejercicio de apertura*/
select ESTADO, NOMBRE, GEN_ID(gen_cont_asientos_id, 1)
from cont_ejercicios
where id = :id_ejercicio_apertura
into :estado_ejercicio_apertura, :nombre_ejercicio_apertura, :id_asiento_apertura;
/*Si los ejercicios no estan abiertos no hacemos nada*/
if ((estado_ejercicio_cierre = 'ABIERTO') and (estado_ejercicio_apertura = 'ABIERTO')) then
begin
select COALESCE(max(V_CONT_DIARIO.ORDEN_ASIENTO),0) + 1
from V_CONT_DIARIO
into :num_orden;
/* Añadimos asiento de cierre*/
insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO)
values (:id_asiento_cierre, current_date, :num_orden, 'x');
num_orden = num_orden + 1;
/* Añadimos asiento de apertura*/
insert into CONT_ASIENTOS (ID, FECHA_ASIENTO, ORDEN, TIPO)
values (:id_asiento_apertura, current_date, :num_orden, 'a');
num_orden = 1;
/* Para cada cuenta descuadrada se inserta un apunte de cierre asociado al asiento creado anteriormente*/
for select ID_SUBCUENTA, REF_SUBCUENTA, SUBCUENTA, SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0)) as DIFERENCIA,
GEN_ID(gen_cont_apuntes_id, 1), GEN_ID(gen_cont_apuntes_id, 1)
from v_cont_diario where (ID_EJERCICIO = :ID_EJERCICIO_CIERRE)
group by 1, 2, 3
having (SUM(COALESCE(DEBE,0))-SUM(COALESCE(HABER,0))) <> 0
into :id_subcuenta_cierre, :ref_subcuenta, :subcuenta, :diferencia, :id_apunte_cierre, :id_apunte_apertura do
begin
/*Buscamos la subcuenta equibalente en el ejericio de apertura*/
select ID from cont_subcuentas
where REF_SUBCUENTA = :ref_subcuenta
and DESCRIPCION = :subcuenta
and ID_EJERCICIO = :id_ejercicio_apertura
into :id_subcuenta_apertura;
if (diferencia > 0) then
begin
/*APUNTE DE CIERRE*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, :diferencia);
/*APUNTE DE APERTURA*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, :diferencia);
end
else
begin
/*APUNTE DE CIERRE*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, DEBE)
values (:id_apunte_cierre, :id_asiento_cierre, :id_subcuenta_cierre, :num_orden, -1, 'Asiento de cierre ' || :nombre_ejercicio_cierre, (:diferencia)*-1);
/*APUNTE DE APERTURA*/
insert into CONT_APUNTES (ID, ID_ASIENTO, ID_SUBCUENTA, NUM_ORDEN, PUNTEADO, CONCEPTO, HABER)
values (:id_apunte_apertura, :id_asiento_apertura, :id_subcuenta_apertura, :num_orden, -1, 'Asiento de apertura ' || :nombre_ejercicio_apertura, (:diferencia)*-1);
end
num_orden = num_orden + 1;
end
/*Finalmente cambiamos de estado los ejercicio cerrado*/
update cont_ejercicios
set ESTADO = 'CERRADO'
where id = :id_ejercicio_cierre;
end
suspend;
end
^
SET TERM ; ^ SET TERM ; ^

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,2,8,0 FILEVERSION 2,2,9,0
PRODUCTVERSION 2,2,8,0 PRODUCTVERSION 2,2,9,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.2.8.0\0" VALUE "FileVersion", "2.2.9.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.2.8.0\0" VALUE "ProductVersion", "2.2.9.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

62
Source/GUIBase/GUIBase.dproj
View File

@ -58,37 +58,37 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\cxTreeListD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

4
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.dfm
View File

@ -55,11 +55,13 @@ inherited fEditorExtractoMovimientos: TfEditorExtractoMovimientos
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
DockPos = 275 DockPos = 275
Visible = True Visible = True
ExplicitWidth = 240 ExplicitWidth = 246
object TBXItem38: TTBXItem object TBXItem38: TTBXItem
Action = actPuntear Action = actPuntear
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSeparatorItem17: TTBXSeparatorItem
end
object TBXItem39: TTBXItem object TBXItem39: TTBXItem
Action = actCerrarCaja Action = actCerrarCaja
end end

5
Source/Modulos/Contabilidad/Views/uEditorExtractoMovimientos.pas
View File

@ -21,6 +21,7 @@ type
TBXItem38: TTBXItem; TBXItem38: TTBXItem;
actCerrarCaja: TAction; actCerrarCaja: TAction;
TBXItem39: TTBXItem; TBXItem39: TTBXItem;
TBXSeparatorItem17: TTBXSeparatorItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actModificarUpdate(Sender: TObject); procedure actModificarUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
@ -179,11 +180,9 @@ end;
procedure TfEditorExtractoMovimientos.actCerrarCajaExecute(Sender: TObject); procedure TfEditorExtractoMovimientos.actCerrarCajaExecute(Sender: TObject);
begin begin
inherited; inherited;
showmessage(IntToStr(Diario.ID_SUBCUENTA));
showmessage(IntToStr(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag));
if FController.CerrarCajaBanco(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag) then if FController.CerrarCajaBanco(frViewExtractoMovimientos1.cxGrid.ActiveLevel.Tag) then
actRefrescar.Execute; actRefrescar.Execute;
ViewGrid.GotoFirst;
end; end;
procedure TfEditorExtractoMovimientos.actEliminarUpdate(Sender: TObject); procedure TfEditorExtractoMovimientos.actEliminarUpdate(Sender: TObject);

BIN
Source/Modulos/Recibos de cliente/Views/RecibosCliente_view.res
View File

Binary file not shown.

BIN
Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

5
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -28,8 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 08 de enero de 2009 20:14</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 18 de febrero de 2009 16:31</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,2,8,0 FILEVERSION 2,2,9,0
PRODUCTVERSION 2,2,8,0 PRODUCTVERSION 2,2,9,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.2.8.0\0" VALUE "FileVersion", "2.2.9.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.8.0\0" VALUE "ProductVersion", "2.2.9.0\0"
VALUE "CompileDate", "lunes, 16 de febrero de 2009 14:14\0" VALUE "CompileDate", "jueves, 19 de febrero de 2009 15:17\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"