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

Cambios para Generacion automatica de subcuenta para el pago de recibos y remesas de cliente, facturas de cliente repasado.

Browse Source 
Queda repaso general de las directivas de compilacion del modulo de contabilidad y hacer todo lo de la parte de cliente en la parte de proveedor


git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@165 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-04 20:13:09 +00:00
parent d6e8d1a440
commit 6c487a5c7d
71 changed files with 1691 additions and 633 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Database/scripts/factuges.sql
View File

@ -896,7 +896,8 @@ CREATE TABLE FACTURAS_CLIENTE (
RECARGO_EQUIVALENCIA TIPO_BOOLEANO,
ID_COMISION_LIQUIDADA TIPO_ID,
IGNORAR_CONTABILIDAD SMALLINT,
ID_TIENDA TIPO_ID
ID_TIENDA TIPO_ID,
ID_TIPOVENTA TIPO_ID
);
@ -1296,6 +1297,7 @@ CREATE TABLE RECIBOS_PROVEEDOR (
CREATE TABLE REFERENCIAS (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
ID_TIENDA TIPO_ID,
CODIGO VARCHAR(50) NOT NULL,
VALOR VARCHAR(255) NOT NULL,
DESCRIPCION VARCHAR(255) COLLATE ES_ES
@ -1900,7 +1902,6 @@ left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.
;
/* View: V_CONT_DIARIO */
CREATE VIEW V_CONT_DIARIO(
ID_APUNTE,
@ -1911,6 +1912,7 @@ CREATE VIEW V_CONT_DIARIO(
FECHA_ASIENTO,
ID_SUBCUENTA,
REF_SUBCUENTA,
SUBCUENTA,
ID_EJERCICIO,
CONCEPTO,
DOCUMENTO,
@ -1926,7 +1928,8 @@ SELECT
CONT_ASIENTOS.ORDEN,
CONT_ASIENTOS.FECHA_ASIENTO,
CONT_APUNTES.ID_SUBCUENTA,
CONT_SUBCUENTAS.REF_SUBCUENTA as SUBCUENTA,
CONT_SUBCUENTAS.REF_SUBCUENTA as REF_SUBCUENTA,
CONT_SUBCUENTAS.DESCRIPCION as SUBCUENTA,
CONT_SUBCUENTAS.ID_EJERCICIO,
CONT_APUNTES.CONCEPTO,
CONT_APUNTES.DOCUMENTO,
@ -2256,7 +2259,9 @@ CREATE VIEW V_FACTURAS_CLIENTE(
REFERENCIA_COMISION,
IGNORAR_CONTABILIDAD,
ID_TIENDA,
TIENDA)
TIENDA,
ID_TIPOVENTA,
TIPOVENTA)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@ -2293,7 +2298,9 @@ SELECT FACTURAS_CLIENTE.ID,
COMISIONES_LIQUIDADAS.REFERENCIA,
FACTURAS_CLIENTE.IGNORAR_CONTABILIDAD,
FACTURAS_CLIENTE.ID_TIENDA,
EMPRESAS_TIENDAS.NOMBRE AS TIENDA
EMPRESAS_TIENDAS.NOMBRE AS TIENDA,
FACTURAS_CLIENTE.ID_TIPOVENTA,
TIPOS_VENTA.DESCRIPCION
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
@ -2303,6 +2310,7 @@ SELECT FACTURAS_CLIENTE.ID,
LEFT JOIN CLIENTES_DATOS
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN EMPRESAS_TIENDAS ON (EMPRESAS_TIENDAS.ID = FACTURAS_CLIENTE.ID_TIENDA)
LEFT JOIN TIPOS_VENTA ON (TIPOS_VENTA.ID = FACTURAS_CLIENTE.ID_TIPOVENTA)
;
@ -3780,6 +3788,7 @@ CREATE INDEX IDX_PROVEEDORES_DATOS1 ON PROVEEDORES_DATOS (ID_FORMA_PAGO);
CREATE INDEX IDX_RECIBOS_CLIENTE ON RECIBOS_CLIENTE (ID_RECIBO_COMPENSADO);
CREATE INDEX IDX_RECIBOS_PROVEEDOR ON RECIBOS_PROVEEDOR (ID_RECIBO_COMPENSADO);
CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA);
CREATE INDEX IDX_REFERENCIAS2 ON REFERENCIAS (ID_TIENDA);
CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO);
CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
CREATE INDEX IDX_PERMISOS ON PERMISOS (ID_USUARIO);

6
Source/ApplicationBase/Empresas/Views/uViewTienda.pas
View File

@ -60,6 +60,8 @@ begin
if Assigned(FDataItem.FindField('TIENDA')) then
FDataItem.FieldByName('TIENDA').AsString := DisplayValue;
FDataItem.post;
end;
end;
@ -68,6 +70,7 @@ var
i : integer;
begin
inherited;
FListaTiendas := AppFactuGES.EmpresasController.DarListaTiendas(AppFactuGES.EmpresaActiva);
with cbTienda.Properties.Items do
begin
@ -80,6 +83,7 @@ begin
EndUpdate;
end;
end;
end;
procedure TfrViewTienda.CustomViewDestroy(Sender: TObject);
@ -119,7 +123,7 @@ procedure TfrViewTienda.SetDataItem(const Value: TDADataTable);
begin
FDataItem := Value;
if Assigned(FDataItem.FindField('ID_TIENDA')) then
ElegirTienda(FDataItem.FieldByName('ID_TIENDA').AsInteger);
ElegirTienda(FDataItem.FieldByName('ID_TIENDA').AsInteger);
end;
procedure TfrViewTienda.SetIDTienda(const ID: Integer);

89
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,47 +65,47 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Remesas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

3
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
View File

@ -17,8 +17,7 @@ type
function IncrementarReferencia : Boolean;
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean);
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end;
implementation

4
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
View File

@ -18,9 +18,7 @@ type
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor;
const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor;
aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean); override;
end;
implementation

75
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

@ -17,8 +17,12 @@ const
CTE_CUENTASPROVEEDOR = 400;
CTE_CUENTASCAJA = 570;
CTE_CUENTASBANCO = 572;
CTE_CUENTASVENTA = 700;
CTE_CUENTASCOMPRA = 600;
type
TEnumTipoSubCuenta = (tTodas, tClientes, tProveedores, tCompras, tVentas, tCajas);
ISubCuentasController = interface(IObservador)
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
function BuscarTodos: IBizSubCuenta;
@ -31,7 +35,6 @@ type
function Guardar(ASubCuenta : IBizSubCuenta): Boolean;
procedure DescartarCambios(ASubCuenta : IBizSubCuenta);
function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
function DarListaSubCuentas: TStringList;
function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta;
function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta;
@ -42,7 +45,7 @@ type
procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: Integer);
procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
function DarListaCajasBancos: TStringList;
function DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
end;
TSubCuentasController = class(TObservador, ISubCuentasController)
@ -72,11 +75,11 @@ type
function Nuevo : IBizSubCuenta;
function BuscarTodos: IBizSubCuenta;
function BuscarCajasBancos: IBizSubCuenta;
function BuscarVentas: IBizSubCuenta;
function Buscar(ID: Integer): IBizSubCuenta;
procedure VerTodos(ASubCuentas: IBizSubCuenta);
procedure Ver(ASubCuenta: IBizSubCuenta);
function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
function DarListaSubCuentas: TStringList;
function ExtraerSeleccionados(ASubCuentas: IBizSubCuenta) : IBizSubCuenta;
function ElegirSubCuenta(ASubCuentas : IBizSubCuenta; AMensaje: String; AMultiSelect: Boolean): IBizSubCuenta;
@ -87,7 +90,7 @@ type
procedure AnadirSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto; TipoCuenta: Integer);
procedure EliminarSubCuentaContacto(ASubCuentaContacto: IBizSubCuentasContacto);
function DarListaCajasBancos: TStringList;
function DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
end;
implementation
@ -241,6 +244,31 @@ begin
FiltrarEjercicio(Result);
end;
function TSubCuentasController.BuscarVentas: IBizSubCuenta;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// (REF_CUENTAS = 700 ventas)
Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASVENTA, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
constructor TSubCuentasController.Create;
begin
inherited;
@ -252,37 +280,21 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TSubCuentasController.DarListaCajasBancos: TStringList;
function TSubCuentasController.DarLista(Const TipoSubCuenta: TEnumTipoSubCuenta): TStringList;
var
ACajasBancos: IBizSubCuenta;
ASubCuentas: IBizSubCuenta;
i : integer;
begin
ACajasBancos := BuscarCajasBancos;
ACajasBancos.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
ACajasBancos.DataTable.First;
while not ACajasBancos.DataTable.EOF do
begin
Add(Format('%s=%d', [ACajasBancos.DESCRIPCION, ACajasBancos.ID]));
ACajasBancos.DataTable.Next;
end;
end;
finally
ACajasBancos := NIL;
case TipoSubCuenta of
// tClientes, tProveedores, tCompras, tVentas,
tTodas : ASubCuentas := BuscarTodos;
tCajas : ASubCuentas := BuscarCajasBancos;
tVentas : ASubCuentas := BuscarVentas;
end;
end;
function TSubCuentasController.DarListaSubCuentas: TStringList;
var
ASubCuentas: IBizSubCuenta;
begin
ASubCuentas := BuscarTodos;
ASubCuentas.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
@ -290,7 +302,11 @@ begin
ASubCuentas.DataTable.First;
while not ASubCuentas.DataTable.EOF do
begin
Add(ASubCuentas.DESCRIPCION);
case TipoSubCuenta of
// tClientes, tProveedores
tTodas : Add(ASubCuentas.DESCRIPCION);
tCajas, tCompras, tVentas : Add(Format('%s=%d', [ASubCuentas.DESCRIPCION, ASubCuentas.ID]));
end;
ASubCuentas.DataTable.Next;
end;
end;
@ -299,6 +315,7 @@ begin
end;
end;
procedure TSubCuentasController.DescartarCambios(ASubCuenta: IBizSubCuenta);
begin
if not Assigned(ASubCuenta) then

2
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
View File

@ -125,7 +125,7 @@ begin
with dsCommand do
begin
ParamByName('REFERENCIA').AsString := RefSubCuenta;
ParamByName('DESCRIPCION').AsString := 'Cuenta de cliente ' + CLIENTE;
ParamByName('DESCRIPCION').AsString := 'Cuenta de cliente: ' + CLIENTE;
ParamByName('ID_CUENTA').AsInteger := IDCuenta;
ParamByName('ID_EJERCICIO').AsInteger := darEjercicioActivo(ID_EMPRESA);
ParamByName('ID_CONTACTO').AsInteger := ID_CONTACTO;

2
Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk
View File

@ -78,6 +78,6 @@ contains
uEditorAsiento in 'uEditorAsiento.pas' {fEditorAsiento: TfEditorEjercicios},
uEditorApunte in 'uEditorApunte.pas' {fEditorApunte: TfEditorEjercicios},
uEditorElegirSubCuentas in 'uEditorElegirSubCuentas.pas' {fEditorElegirSubCuentas: TfEditorEjercicios},
uViewCajasBancos in 'uViewCajasBancos.pas' {frViewCajasBancos: TFrame};
uViewListaSubCuentas in 'uViewListaSubCuentas.pas' {frViewListaSubcuentas: TFrame};
end.

8
Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj
View File

@ -153,10 +153,6 @@
<Form>frViewBalances</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewCajasBancos.pas">
<Form>frViewApunte</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewCuenta.pas">
<Form>frViewCuenta</Form>
<DesignClass>TFrame</DesignClass>
@ -181,6 +177,10 @@
<Form>frViewEpigrafes</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewListaSubCuentas.pas">
<Form>frViewListaSubcuentas</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewSubCuenta.pas">
<Form>frViewSubCuenta</Form>
<DesignClass>TFrame</DesignClass>

1
Source/Modulos/Contabilidad/Views/uViewCajasBancos.pas
View File

@ -90,6 +90,7 @@ begin
begin
cbCajasBancos.ItemIndex := 0;
cbCajasBancos.Enabled := True;
FIdSubCuenta := StrToInt(FListaCajasBancos.Values[cbCajasBancos.Text]); //Refrescamos el valor
end
else
begin

153
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas Normal file
View File

@ -0,0 +1,153 @@
unit uViewListaSubCuentas;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxControls, cxCheckBox, uSubCuentasController;
type
IViewListaSubcuentas = interface(IViewBase)
['{5266EE90-D715-462A-9720-FF0D4078A496}']
function GetTipoSubCuenta: TEnumTipoSubCuenta;
procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta);
property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
end;
TfrViewListaSubcuentas = class(TfrViewBase, IViewListaSubcuentas)
cbSubCuentas: TcxComboBox;
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutControl1Item2: TdxLayoutItem;
eContabilizar: TcxCheckBox;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
procedure cbCajaBancoPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure eContabilizarPropertiesEditValueChanged(Sender: TObject);
private
FTipoSubCuenta: TEnumTipoSubCuenta;
FIdSubCuenta : Integer;
FListaSubCuentas : TStringList;
function getIDCajaBanco: Integer;
function GetTipoSubCuenta: TEnumTipoSubCuenta;
procedure SetTipoSubCuenta(const Value: TEnumTipoSubCuenta);
public
property TipoSubCuenta: TEnumTipoSubCuenta read GetTipoSubCuenta write SetTipoSubCuenta;
property IdSubCuenta: Integer read getIDCajaBanco;
procedure ElegirSubCuenta(const AIdSubCuenta : Integer);
end;
implementation
{$R *.dfm}
uses
uFactuGES_App;
procedure TfrViewListaSubcuentas.cbCajaBancoPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
inherited;
FIdSubCuenta := StrToInt(FListaSubCuentas.Values[DisplayValue]);
end;
procedure TfrViewListaSubcuentas.CustomViewCreate(Sender: TObject);
var
i : integer;
begin
inherited;
FTipoSubCuenta := tTodas;
FListaSubCuentas := Nil;
end;
procedure TfrViewListaSubcuentas.CustomViewDestroy(Sender: TObject);
begin
inherited;
cbSubCuentas.Properties.OnValidate := nil;
eContabilizar.Properties.OnEditValueChanged := nil;
FreeAndNIL(FListaSubCuentas);
end;
procedure TfrViewListaSubcuentas.CustomViewShow(Sender: TObject);
begin
inherited;
cbSubCuentas.Properties.OnValidate := cbCajaBancoPropertiesValidate;
eContabilizar.Properties.OnEditValueChanged := eContabilizarPropertiesEditValueChanged;
end;
procedure TfrViewListaSubcuentas.eContabilizarPropertiesEditValueChanged(Sender: TObject);
begin
inherited;
if not eContabilizar.Checked then
begin
cbSubCuentas.ItemIndex := 0;
FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor
cbSubCuentas.Enabled := True;
end
else
begin
cbSubCuentas.ItemIndex := -1;
cbSubCuentas.Enabled := False;
end;
end;
procedure TfrViewListaSubcuentas.ElegirSubCuenta(const AIdSubCuenta: Integer);
var
i : integer;
begin
for i := 0 to FListaSubCuentas.Count-1 do
begin
if FListaSubCuentas.ValueFromIndex[i] = IntToStr(AIdSubCuenta) then
begin
cbSubCuentas.Text := FListaSubCuentas.Names[i];
Break;
end;
end;
end;
function TfrViewListaSubcuentas.getIDCajaBanco: Integer;
begin
Result := FIdSubCuenta;
end;
function TfrViewListaSubcuentas.GetTipoSubCuenta: TEnumTipoSubCuenta;
begin
Result := FTipoSubCuenta;
end;
procedure TfrViewListaSubcuentas.SetTipoSubCuenta(Const Value: TEnumTipoSubCuenta);
var
i: Integer;
begin
FTipoSubCuenta := Value;
with TSubCuentasController.create do
begin
FListaSubCuentas := DarLista(FTipoSubCuenta);
with cbSubCuentas.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FListaSubCuentas.Count - 1 do
Add(FListaSubCuentas.Names[i]);
finally
EndUpdate;
end;
end;
Free;
end;
//Ponemos la primera por defecto
cbSubCuentas.ItemIndex := 0;
FIdSubCuenta := StrToInt(FListaSubCuentas.Values[cbSubCuentas.Text]); //Refrescamos el valor
end;
end.

6
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -57,7 +57,7 @@ var
idCliente: integer;
idTienda: integer;
idEmpresa: integer;
NombreComercial: string;
Nombre: string;
begin
inherited;
@ -96,9 +96,9 @@ begin
IdCliente := aChange.NewValueByName[fld_ClientesID];
IdTienda := aChange.NewValueByName[fld_ClientesID_TIENDA];
IdEmpresa := aChange.NewValueByName[fld_ClientesID_EMPRESA];
NombreComercial := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
Nombre := aChange.NewValueByName[fld_ClientesNOMBRE];
if not TieneCuentaAsociada(idCliente, idEmpresa) then
AnadirSubCuentaCliente(idCliente, idTienda, idEmpresa, NombreComercial);
AnadirSubCuentaCliente(idCliente, idTienda, idEmpresa, Nombre);
finally
Free;
end;

18
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.dproj
View File

@ -48,15 +48,15 @@
<DelphiCompile Include="FacturasCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\FacturasCliente_data.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\RecibosCliente_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\ApplicationBase.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\Articulos_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\Contactos_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_data.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Tipos de venta\Views\RecibosCliente_controller.dcp" />
<DCCReference Include="uArticulosFacturaClienteController.pas" />
<DCCReference Include="uDetallesFacturaClienteController.pas" />
<DCCReference Include="uFacturasClienteController.pas" />

46
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -50,6 +50,8 @@ type
function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
end;
TFacturasClienteController = class(TObservador, IFacturasClienteController)
@ -110,7 +112,9 @@ type
function ElegirFacturas(AFacturas : IBizFacturaCliente; AMensaje: String; AMultiSelect: Boolean): IBizFacturaCliente;
function ExtraerSeleccionados(AFacturasCliente: IBizFacturaCliente) : IBizFacturaCliente;
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
end;
implementation
@ -917,6 +921,46 @@ begin
end;
end;
procedure TFacturasClienteController.SetIgnorarContabilidad(AFactura: IBizFacturaCliente; const Ignorar: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AFactura) then
begin
EnEdicion := AFactura.DataTable.Editing;
if not AFactura.DataTable.Editing then
AFactura.DataTable.Edit;
AFactura.IGNORAR_CONTABILIDAD := Ignorar;
AFactura.DataTable.Post;
if EnEdicion then
AFactura.DataTable.Edit;
end;
end;
procedure TFacturasClienteController.SetIdSubCuenta(AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AFactura) then
begin
EnEdicion := AFactura.DataTable.Editing;
if not AFactura.DataTable.Editing then
AFactura.DataTable.Edit;
if IdSubCuenta < 0 then
AFactura.DataTable.FieldByName(fld_FacturasClienteID_SUBCUENTA).AsVariant := Null
else
AFactura.ID_SUBCUENTA := IdSubCuenta;
AFactura.DataTable.Post;
if EnEdicion then
AFactura.DataTable.Edit;
end;
end;
function TFacturasClienteController.Guardar(AFactura: IBizFacturaCliente): Boolean;
var
IDNuevo : Integer;

9
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -251,6 +251,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

56
Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
View File

@ -11,8 +11,13 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Tipos de venta\Controller\TiposVenta_controller.dproj" />
<Projects Include="..\Tipos de venta\Model\TiposVenta_model.dproj" />
<Projects Include="..\Tipos de venta\Views\TiposVenta_view.dproj" />
<Projects Include="Controller\FacturasCliente_controller.dproj" />
<Projects Include="Data\FacturasCliente_data.dproj" />
<Projects Include="Model\FacturasCliente_model.dproj" />
@ -88,6 +93,33 @@
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="TiposVenta_model">
<MSBuild Projects="..\Tipos de venta\Model\TiposVenta_model.dproj" Targets="" />
</Target>
<Target Name="TiposVenta_model:Clean">
<MSBuild Projects="..\Tipos de venta\Model\TiposVenta_model.dproj" Targets="Clean" />
</Target>
<Target Name="TiposVenta_model:Make">
<MSBuild Projects="..\Tipos de venta\Model\TiposVenta_model.dproj" Targets="Make" />
</Target>
<Target Name="TiposVenta_controller">
<MSBuild Projects="..\Tipos de venta\Controller\TiposVenta_controller.dproj" Targets="" />
</Target>
<Target Name="TiposVenta_controller:Clean">
<MSBuild Projects="..\Tipos de venta\Controller\TiposVenta_controller.dproj" Targets="Clean" />
</Target>
<Target Name="TiposVenta_controller:Make">
<MSBuild Projects="..\Tipos de venta\Controller\TiposVenta_controller.dproj" Targets="Make" />
</Target>
<Target Name="TiposVenta_view">
<MSBuild Projects="..\Tipos de venta\Views\TiposVenta_view.dproj" Targets="" />
</Target>
<Target Name="TiposVenta_view:Clean">
<MSBuild Projects="..\Tipos de venta\Views\TiposVenta_view.dproj" Targets="Clean" />
</Target>
<Target Name="TiposVenta_view:Make">
<MSBuild Projects="..\Tipos de venta\Views\TiposVenta_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_model">
<MSBuild Projects="Model\FacturasCliente_model.dproj" Targets="" />
</Target>
@ -151,14 +183,32 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_controller">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_controller:Clean">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_view:Clean">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_view:Make">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;TiposVenta_model;TiposVenta_controller;TiposVenta_view;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;Contabilidad_controller;Contabilidad_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;TiposVenta_model:Clean;TiposVenta_controller:Clean;TiposVenta_view:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;TiposVenta_model:Make;TiposVenta_controller:Make;TiposVenta_view:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

84
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schFacturasClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasCliente = '{B44F7BFA-C409-45FB-82EE-487E20CB6656}';
RID_FacturasCliente_Detalles = '{3398E461-119A-4D6F-8AB3-8D03BD2B0A4C}';
RID_FacturasCliente = '{002FC909-9064-4D9C-AA64-A28325D42EC4}';
RID_FacturasCliente_Detalles = '{9A3BDA83-5AEB-4FD6-8914-CFDE2AE53C06}';
{ Data table names }
nme_FacturasCliente = 'FacturasCliente';
@ -53,6 +53,8 @@ const
fld_FacturasClienteIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_FacturasClienteID_TIENDA = 'ID_TIENDA';
fld_FacturasClienteTIENDA = 'TIENDA';
fld_FacturasClienteID_SUBCUENTA = 'ID_SUBCUENTA';
fld_FacturasClienteSUBCUENTA = 'SUBCUENTA';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -91,6 +93,8 @@ const
idx_FacturasClienteIGNORAR_CONTABILIDAD = 33;
idx_FacturasClienteID_TIENDA = 34;
idx_FacturasClienteTIENDA = 35;
idx_FacturasClienteID_SUBCUENTA = 36;
idx_FacturasClienteSUBCUENTA = 37;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -127,7 +131,7 @@ const
type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{78EEA3FC-BED8-4F9E-ACBC-E377A8132367}']
['{77B09FE8-CC07-4A1D-87AA-D36AEB54D2BE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -272,6 +276,14 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
function GetID_SUBCUENTAValue: Integer;
procedure SetID_SUBCUENTAValue(const aValue: Integer);
function GetID_SUBCUENTAIsNull: Boolean;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
function GetSUBCUENTAValue: String;
procedure SetSUBCUENTAValue(const aValue: String);
function GetSUBCUENTAIsNull: Boolean;
procedure SetSUBCUENTAIsNull(const aValue: Boolean);
{ Properties }
@ -347,10 +359,14 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
end;
{ TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -499,6 +515,14 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -573,6 +597,10 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property SUBCUENTA: String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull: Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -582,7 +610,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{F3725EA1-8E69-4419-AE57-1F0A4C949826}']
['{5705755D-4FD6-4B5E-B60C-72155D3868DD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -674,7 +702,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }
@ -1549,6 +1577,48 @@ begin
DataTable.Fields[idx_FacturasClienteTIENDA].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetID_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsInteger;
end;
procedure TFacturasClienteDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsInteger := aValue;
end;
function TFacturasClienteDataTableRules.GetID_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetSUBCUENTAValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsString;
end;
procedure TFacturasClienteDataTableRules.SetSUBCUENTAValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetSUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteSUBCUENTA].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteSUBCUENTA].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

94
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_FacturasClienteDelta = '{423AEA32-50CE-46B7-89CE-596B555D2557}';
RID_FacturasCliente_DetallesDelta = '{E56A4E4E-9680-46FF-BF17-EFA23E024033}';
RID_FacturasClienteDelta = '{9F142F33-556F-41B3-A527-27FF1BDAB48E}';
RID_FacturasCliente_DetallesDelta = '{A97D0506-4C6F-4078-A30F-8768419E7E0F}';
type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{423AEA32-50CE-46B7-89CE-596B555D2557}']
['{9F142F33-556F-41B3-A527-27FF1BDAB48E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -53,6 +53,8 @@ type
function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
function GetOldID_SUBCUENTAValue : Integer;
function GetOldSUBCUENTAValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -91,6 +93,8 @@ type
property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -315,6 +319,18 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
function GetID_SUBCUENTAValue: Integer; virtual;
function GetID_SUBCUENTAIsNull: Boolean; virtual;
function GetOldID_SUBCUENTAValue: Integer; virtual;
function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetSUBCUENTAValue: String; virtual;
function GetSUBCUENTAIsNull: Boolean; virtual;
function GetOldSUBCUENTAValue: String; virtual;
function GetOldSUBCUENTAIsNull: Boolean; virtual;
procedure SetSUBCUENTAValue(const aValue: String); virtual;
procedure SetSUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -461,6 +477,14 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue;
property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull;
property OldSUBCUENTA : String read GetOldSUBCUENTAValue;
property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -470,7 +494,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{E56A4E4E-9680-46FF-BF17-EFA23E024033}']
['{A97D0506-4C6F-4078-A30F-8768419E7E0F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1798,6 +1822,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIENDA] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA];
end;
function TFacturasClienteBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_SUBCUENTA];
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_SUBCUENTA]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA];
end;
function TFacturasClienteBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldSUBCUENTAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSUBCUENTA];
end;
function TFacturasClienteBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSUBCUENTA]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSUBCUENTA] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

6
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -256,10 +256,10 @@ begin
IVA := AppFactuGES.EmpresaActiva.IVA;
RE := 0;
SITUACION := CTE_PENDIENTE;
IGNORAR_CONTABILIDAD := 0;
ID_TIENDA := CTE_ID_TODAS;
TIENDA := CTE_TODAS;
TIENDA := CTE_TODAS;
IGNORAR_CONTABILIDAD := 0;
end;
procedure TBizFacturaCliente.IVAOnChange(Sender: TDACustomField);

37
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -96,6 +96,19 @@ begin
ASchema := BusinessProcessor.Schema;
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
//Eliminamos los recibos de la factura
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_RecibosFactura');
try
with ACommand do
begin
ParamByName('ID_FACTURA').Value := aChange.OldValueByName[fld_FacturasClienteID];
Execute;
end;
finally
ACommand := NIL;
end;
//Eliminamos los asientos contables de la factura
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_AsientoFactura');
try
with ACommand do
@ -113,14 +126,15 @@ function TBizFacturasClienteServer.DarReferencia: String;
var
ATipo : String;
begin
if TIPO = CTE_TIPO_FACTURA then
ATipo := REF_FACTURAS_CLIENTE
else
ATipo := REF_ABONOS_CLIENTE;
//No se hace distinción en la referencia entre facturas y abonos
// if TIPO = CTE_TIPO_FACTURA then
ATipo := REF_FACTURAS_CLIENTE;
// else
// ATipo := REF_ABONOS_CLIENTE;
with TsrvReferencias.Create(NIL) do
try
Result := DarNuevaReferencia(ATipo, ID_EMPRESA)
Result := DarNuevaReferencia(ATipo, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
@ -130,15 +144,14 @@ function TBizFacturasClienteServer.IncrementarReferencia: Boolean;
var
ATipo : String;
begin
if TIPO = CTE_TIPO_FACTURA then
ATipo := REF_FACTURAS_CLIENTE
else
ATipo := REF_ABONOS_CLIENTE;
// if TIPO = CTE_TIPO_FACTURA then
ATipo := REF_FACTURAS_CLIENTE;
// else
// ATipo := REF_ABONOS_CLIENTE;
with TsrvReferencias.Create(NIL) do
try
Result := IncrementarValorReferencia(ATipo,
Self.REFERENCIA, ID_EMPRESA)
Result := IncrementarValorReferencia(ATipo, Self.REFERENCIA, ID_EMPRESA, ID_TIENDA)
finally
Free;
end;
@ -158,6 +171,7 @@ begin
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasClienteID];
ParamByName('IdSubCuentaVenta').Value := aChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA];
Execute;
end;
finally
@ -179,6 +193,7 @@ begin
with ACommand do
begin
ParamByName('IdFactura').Value := aChange.NewValueByName[fld_FacturasClienteID];
ParamByName('IdSubCuentaVenta').Value := aChange.NewValueByName[fld_FacturasClienteID_SUBCUENTA];
Execute;
end;
finally

40
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -166,6 +166,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
end
item
DatasetField = 'ID_SUBCUENTA'
TableField = 'ID_SUBCUENTA'
end
item
DatasetField = 'SUBCUENTA'
TableField = 'SUBCUENTA'
end>
end>
Name = 'FacturasCliente'
@ -362,6 +370,15 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'TIENDA'
DataType = datString
Size = 255
end
item
Name = 'ID_SUBCUENTA'
DataType = datInteger
end
item
Name = 'SUBCUENTA'
DataType = datString
Size = 255
end>
end
item
@ -551,6 +568,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item
Name = 'IdFactura'
Value = ''
end
item
Name = 'IdSubCuentaVenta'
Value = ''
end>
Statements = <
item
@ -558,7 +579,9 @@ object srvFacturasCliente: TsrvFacturasCliente
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL = 'execute procedure proc_new_asiento_factura_cli :IdFactura'#10
SQL =
'execute procedure proc_new_asiento_factura_cli :IdFactura, :IdSu' +
'bCuentaVenta'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1087,6 +1110,21 @@ object srvFacturasCliente: TsrvFacturasCliente
ColumnMappings = <>
end>
Name = 'Update_FacturasCliente'
end
item
Params = <
item
Name = 'ID_FACTURA'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
SQL = 'delete from recibos_cliente'#10'where id_factura = :ID_FACTURA'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_RecibosFactura'
end>
RelationShips = <
item

2
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -10,7 +10,7 @@ unit srvFacturasCliente_Impl;
interface
uses
{vcl:} Classes, SysUtils,
{vcl:} Classes, SysUtils,
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Ancestor Implementation:} DataAbstractService_Impl,
{Used RODLs:} DataAbstract4_Intf,

4
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

@ -30,7 +30,9 @@ requires
FacturasCliente_controller,
Contactos_view,
Articulos_view,
AlbCli_FacCli_relation;
AlbCli_FacCli_relation,
Contabilidad_view,
Contabilidad_controller;
contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',

5
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>FacturasCliente_view.dpk</MainSource>
@ -50,6 +51,8 @@
</DelphiCompile>
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />

172
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -3,19 +3,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Top = 208
Caption = 'Nueva factura de cliente'
ClientHeight = 642
ClientWidth = 813
ClientWidth = 771
Position = poScreenCenter
OnClose = CustomEditorClose
ExplicitWidth = 821
ExplicitWidth = 779
ExplicitHeight = 676
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 813
Width = 771
Caption = 'Nueva factura de cliente'
ExplicitWidth = 813
inherited Image1: TImage
Left = 786
Left = 744
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,7 +39,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited TBXDock: TTBXDock
Width = 813
Width = 771
ExplicitWidth = 813
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
@ -54,7 +54,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 813
ExplicitWidth = 771
inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem
Visible = False
@ -69,8 +69,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end
end
inherited pgPaginas: TPageControl
Width = 807
Width = 765
Height = 378
ActivePage = pagContabilidad
OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
@ -84,7 +85,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0
Top = 0
Width = 799
Width = 757
Height = 350
Align = alClient
Font.Charset = DEFAULT_CHARSET
@ -98,7 +99,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 799
ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl
Width = 799
Width = 757
Height = 350
ExplicitWidth = 799
ExplicitHeight = 350
@ -147,13 +148,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 284
Left = 242
DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitLeft = 284
ExplicitLeft = 242
end
inherited Button3: TBitBtn
Left = 174
ExplicitLeft = 174
Left = 132
ExplicitLeft = 132
end
end
end
@ -175,10 +176,11 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitWidth = 799
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0
Top = 0
Width = 799
Width = 757
Height = 350
Align = alClient
BiDiMode = bdLeftToRight
@ -194,7 +196,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 799
ExplicitHeight = 350
inherited ToolBar1: TToolBar
Width = 799
Width = 757
ExplicitWidth = 799
inherited ToolButton4: TToolButton
Wrap = False
@ -217,50 +219,50 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 57
end
inherited UpDown1: TUpDown
Left = 218
ExplicitLeft = 218
Left = 202
ExplicitLeft = 202
end
inherited ToolButton13: TToolButton
Left = 235
ExplicitLeft = 235
Left = 219
ExplicitLeft = 219
end
inherited ToolButton6: TToolButton
Left = 243
ExplicitLeft = 243
Left = 227
ExplicitLeft = 227
end
inherited ToolButton7: TToolButton
Left = 277
ExplicitLeft = 277
Left = 261
ExplicitLeft = 261
end
inherited ToolButton8: TToolButton
Left = 311
ExplicitLeft = 311
Left = 295
ExplicitLeft = 295
end
inherited ToolButton12: TToolButton
Left = 345
ExplicitLeft = 345
Left = 329
ExplicitLeft = 329
end
inherited ToolButton9: TToolButton
Left = 353
ExplicitLeft = 353
Left = 337
ExplicitLeft = 337
end
inherited ToolButton10: TToolButton
Left = 387
ExplicitLeft = 387
Left = 371
ExplicitLeft = 371
end
inherited ToolButton11: TToolButton
Left = 421
ExplicitLeft = 421
Left = 405
ExplicitLeft = 405
end
end
inherited cxGrid: TcxGrid
Width = 799
Width = 757
Height = 278
ExplicitWidth = 799
ExplicitHeight = 278
end
inherited TBXDock1: TTBXDock
Width = 799
Width = 757
ExplicitWidth = 799
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
@ -271,38 +273,46 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContabilidad: TTabSheet
Caption = 'Contabilidad'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cbIgnorarContabilidad: TcxDBCheckBox
Left = 16
Top = 12
Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
DataBinding.DataSource = dsDataTable
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
ExplicitWidth = 799
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0
Top = 0
Width = 757
Height = 73
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
Width = 300
ReadOnly = False
ExplicitLeft = 10
ExplicitTop = 20
ExplicitHeight = 73
inherited dxLayoutControl1: TdxLayoutControl
Width = 757
inherited cbSubCuentas: TcxComboBox
Left = 85
ExplicitLeft = 85
end
inherited eContabilizar: TcxCheckBox
Left = 520
ExplicitLeft = 520
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Tipo de venta:'
end
end
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 623
Width = 813
Width = 771
Panels = <
item
Width = 200
@ -313,7 +323,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inline frViewTotales1: TfrViewTotales [4]
Left = 0
Top = 460
Width = 813
Width = 771
Height = 163
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -328,7 +338,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 813
ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl
Width = 813
Width = 771
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
ExplicitWidth = 813
inherited Bevel1: TBevel
@ -338,18 +348,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 73
end
inherited Bevel3: TBevel
Left = 433
Left = 411
Top = 30
Height = 122
ExplicitLeft = 433
ExplicitLeft = 411
ExplicitTop = 30
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 545
Left = 523
Top = 111
Width = 186
ExplicitLeft = 545
ExplicitLeft = 523
ExplicitTop = 111
ExplicitWidth = 186
end
@ -361,19 +371,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 616
Left = 594
Top = 57
Style.IsFontAssigned = True
ExplicitLeft = 616
ExplicitLeft = 594
ExplicitTop = 57
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 546
Left = 524
Top = 131
Style.IsFontAssigned = True
ExplicitLeft = 546
ExplicitLeft = 524
ExplicitTop = 131
ExplicitWidth = 137
Width = 137
@ -385,34 +395,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 131
end
inherited edtIVA: TcxDBSpinEdit
Left = 545
Left = 523
Top = 57
Style.IsFontAssigned = True
ExplicitLeft = 545
ExplicitLeft = 523
ExplicitTop = 57
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 545
Left = 523
Top = 30
Style.IsFontAssigned = True
ExplicitLeft = 545
ExplicitLeft = 523
ExplicitTop = 30
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 545
Left = 523
Top = 84
Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True
ExplicitLeft = 545
ExplicitLeft = 523
ExplicitTop = 84
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 616
Left = 594
Top = 84
Style.IsFontAssigned = True
ExplicitLeft = 616
ExplicitLeft = 594
ExplicitTop = 84
ExplicitWidth = 56
Width = 56
@ -443,10 +453,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 134
end
inherited bTiposIVA: TButton
Left = 285
Left = 263
Top = 57
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 285
ExplicitLeft = 263
ExplicitTop = 57
end
inherited cbRecargoEquivalencia: TcxDBCheckBox

28
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -17,7 +17,7 @@ uses
uViewDetallesFacturaCliente, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar,
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids,
cxCheckBox;
cxCheckBox, uViewListaSubCuentas;
type
@ -26,7 +26,7 @@ type
frViewTotales1: TfrViewTotales;
frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente;
pagContabilidad: TTabSheet;
cbIgnorarContabilidad: TcxDBCheckBox;
frViewListaSubcuentas1: TfrViewListaSubcuentas;
procedure FormShow(Sender: TObject);
procedure frViewClienteFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
@ -79,9 +79,10 @@ type
implementation
{$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses
uBizContactos, uDataModuleUsuarios, uFactuGES_App,
uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
uDetallesFacturaClienteController, uDialogUtils, uDataTableUtils;
// uGenerarAlbaranesCliFacCliUtils;
@ -98,6 +99,9 @@ begin
pgPaginas.ActivePageIndex := 0;
ViewFacturaCliente := frViewFacturaCliente1;
FTiposIVAController := TTiposIVAController.Create;
//CONTABILIDAD
frViewListaSubcuentas1.TipoSubCuenta := tVentas;
end;
procedure TfEditorFacturaCliente.CustomEditorClose(Sender: TObject;
@ -249,16 +253,23 @@ end;
procedure TfEditorFacturaCliente.GuardarInterno;
var
bEsNuevo : Boolean;
begin
inherited;
ShowHourglassCursor;
//frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
try
bEsNuevo := FFactura.EsNuevo;
FController.SetID_Tienda(FFactura, frViewFacturaCliente1.frViewTienda1.getIDTienda);
{$IFDEF CONTABILIDAD}
FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta);
{$ENDIF}
FController.Guardar(FFactura);
finally
frViewDetallesFacturaCliente1.EndUpdate;
//frViewDetallesFacturaCliente1.RestoreGridStatus;
@ -398,7 +409,6 @@ begin
begin
dsDataTable.DataTable := FFactura.DataTable;
frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
FTiposIVA := FTiposIVAController.BuscarTodos;
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
FTiposIVA.DataTable.Active := True;
@ -412,6 +422,12 @@ begin
frViewDetallesFacturaCliente1.Detalles := FFactura.Detalles;
frViewDetallesFacturaCliente1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el cliente seleccionado
end;
{$IFDEF CONTABILIDAD}
frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
// frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
{$ENDIF}
end
else begin
frViewFacturaCliente1.frViewClienteFactura.OnClienteChanged := NIL;

24
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 745
Height = 458
Width = 451
Height = 304
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,18 +9,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 745
Height = 458
Width = 451
Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
745
458)
451
304)
object eReferencia: TcxDBTextEdit
Left = 124
Top = 30
@ -100,7 +98,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 314
Height = 215
ExplicitWidth = 314
ExplicitWidth = 101
ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = DADataSource
@ -128,13 +126,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 230
Left = 192
DataBinding.DataSource = DADataSource
ExplicitLeft = 230
ExplicitLeft = 192
end
inherited Button3: TBitBtn
Left = 120
ExplicitLeft = 120
Left = 82
ExplicitLeft = 82
end
end
end

1
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -126,7 +126,6 @@ begin
if Assigned(FFactura) then
begin
DADataSource.DataTable := FFactura.DataTable;
frViewTienda1.DataItem := FFactura.DataTable;
FFormasPago := FFormasPagoController.BuscarTodos;

1
Source/Modulos/Recibos de cliente/Model/uBizPagosClienteServer.pas
View File

@ -109,6 +109,7 @@ begin
with ACommand do
begin
ParamByName('IdPago').Value := aChange.NewValueByName[fld_PagosClienteID];
ParamByName('IdSubCuentaPago').Value := aChange.NewValueByName[fld_PagosClienteCUENTA];
Execute;
end;
finally

26
Source/Modulos/Recibos de cliente/RecibosCliente_Group.groupproj
View File

@ -11,6 +11,8 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
<Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
@ -143,6 +145,24 @@
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_model">
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_model:Clean">
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_model:Make">
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_data">
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_data:Clean">
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_data:Make">
<MSBuild Projects="..\Contabilidad\Data\Contabilidad_data.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_controller">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
</Target>
@ -162,13 +182,13 @@
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_controller;Contabilidad_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;RecibosCliente_model;RecibosCliente_data;RecibosCliente_controller;RecibosCliente_view;RecibosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;Articulos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;RecibosCliente_model:Clean;RecibosCliente_data:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;RecibosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;Articulos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;RecibosCliente_model:Make;RecibosCliente_data:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;RecibosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;Articulos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

Binary file not shown.

16
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
View File

@ -14,6 +14,7 @@ object fEditorFechaPago: TfEditorFechaPago
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
@ -76,11 +77,11 @@ object fEditorFechaPago: TfEditorFechaPago
TabOrder = 1
end
end
inline frViewCajasBancos1: TfrViewCajasBancos
Left = 39
Top = 83
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 30
Top = 80
Width = 453
Height = 76
Height = 69
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -89,11 +90,10 @@ object fEditorFechaPago: TfEditorFechaPago
ParentFont = False
TabOrder = 2
ReadOnly = False
ExplicitLeft = 39
ExplicitTop = 83
ExplicitHeight = 76
ExplicitLeft = 30
ExplicitTop = 80
inherited dxLayoutControl1: TdxLayoutControl
inherited cbCajasBancos: TcxComboBox
inherited cbSubCuentas: TcxComboBox
ExplicitWidth = 376
Width = 376
end

24
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago,
cxCheckBox, uSubCuentasController, Buttons, cxDBEdit, cxGraphics, uCustomView,
uViewBase, uViewCajasBancos;
uViewBase, uViewListaSubCuentas;
type
TfEditorFechaPago = class(TfEditorBasico, IEditorFechaPago)
@ -17,10 +17,11 @@ type
bCancelar: TButton;
Label2: TLabel;
Panel1: TPanel;
frViewCajasBancos1: TfrViewCajasBancos;
frViewListaSubcuentas1: TfrViewListaSubcuentas;
procedure FormShow(Sender: TObject);
procedure eFechaPagoPropertiesChange(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
private
FFechaPago : TDateTime;
@ -72,15 +73,22 @@ begin
end;
end;
procedure TfEditorFechaPago.FormCreate(Sender: TObject);
begin
{$IFDEF CONTABILIDAD}
frViewListaSubCuentas1.TipoSubCuenta := tCajas;
{$ENDIF}
end;
procedure TfEditorFechaPago.FormShow(Sender: TObject);
begin
if (length(eFechaPago.Text) = 0) then
eFechaPago.Date := Date;
{$IFDEF CONTABILIDAD}
frViewCajasBancos1.Visible := true;
frViewListaSubCuentas1.Visible := true;
{$ELSE}
frViewCajasBancos1.Visible := false;
frViewListaSubCuentas1.Visible := false;
{$ENDIF}
end;
@ -91,12 +99,12 @@ end;
function TfEditorFechaPago.GetIdSubCuenta: Integer;
begin
Result := frViewCajasBancos1.IdSubCuenta;
Result := frViewListaSubCuentas1.IdSubCuenta;
end;
function TfEditorFechaPago.GetIgnorarContabilidad: Integer;
begin
Result := frViewCajasBancos1.eContabilizar.EditValue;
Result := frViewListaSubCuentas1.eContabilizar.EditValue;
end;
procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
@ -107,12 +115,12 @@ end;
procedure TfEditorFechaPago.SetIdSubCuenta(const Value: Integer);
begin
frViewCajasBancos1.ElegirCajaBanco(Value);
frViewListaSubCuentas1.ElegirSubCuenta(Value);
end;
procedure TfEditorFechaPago.SetIgnorarContabilidad(const Value: Integer);
begin
frViewCajasBancos1.eContabilizar.EditValue := Value;
frViewListaSubCuentas1.eContabilizar.EditValue := Value;
end;
end.

20
Source/Modulos/Referencias/Data/Referencias_data.dproj
View File

@ -47,23 +47,9 @@
<DelphiCompile Include="Referencias_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicaReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBaReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBaseReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicatioReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicatiReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicatReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AppliReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AppReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\AReferencias_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Referencias_model.dcp" />
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\Referencias_model.dcp" />
<DCCReference Include="uDataModuleReferencias.pas">
<Form>DataModuleReferencias</Form>
</DCCReference>

4
Source/Modulos/Referencias/Data/uDataModuleReferencias.dfm
View File

@ -37,6 +37,10 @@ inherited DataModuleReferencias: TDataModuleReferencias
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'CODIGO'
DataType = datString

11
Source/Modulos/Referencias/Model/Referencias_model.dproj
View File

@ -47,12 +47,11 @@
<DelphiCompile Include="Referencias_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasecontainsuIDataModuleReferenciasin.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="Data\uIDataModuleReferencias.pas" />
<DCCReference Include="schReferenciasClient_Intf.pas" />
<DCCReference Include="schReferenciasServer_Intf.pas" />

45
Source/Modulos/Referencias/Model/schReferenciasClient_Intf.pas
View File

@ -9,7 +9,7 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Referencias = '{99B6D683-BD8D-4855-BBF8-65A96EA046A1}';
RID_Referencias = '{156D5B25-C2AD-4959-B6AB-1D9403AB4FCE}';
{ Data table names }
nme_Referencias = 'Referencias';
@ -17,6 +17,7 @@ const
{ Referencias fields }
fld_ReferenciasID = 'ID';
fld_ReferenciasID_EMPRESA = 'ID_EMPRESA';
fld_ReferenciasID_TIENDA = 'ID_TIENDA';
fld_ReferenciasCODIGO = 'CODIGO';
fld_ReferenciasVALOR = 'VALOR';
fld_ReferenciasDESCRIPCION = 'DESCRIPCION';
@ -24,14 +25,15 @@ const
{ Referencias field indexes }
idx_ReferenciasID = 0;
idx_ReferenciasID_EMPRESA = 1;
idx_ReferenciasCODIGO = 2;
idx_ReferenciasVALOR = 3;
idx_ReferenciasDESCRIPCION = 4;
idx_ReferenciasID_TIENDA = 2;
idx_ReferenciasCODIGO = 3;
idx_ReferenciasVALOR = 4;
idx_ReferenciasDESCRIPCION = 5;
type
{ IReferencias }
IReferencias = interface(IDAStronglyTypedDataTable)
['{F8DE7790-964D-498F-B2BA-1DCE31966722}']
['{A12A8336-88E9-4B4A-9485-49E5BCA286C3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -41,6 +43,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
function GetCODIGOValue: String;
procedure SetCODIGOValue(const aValue: String);
function GetCODIGOIsNull: Boolean;
@ -60,6 +66,8 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
property VALOR: String read GetVALORValue write SetVALORValue;
@ -81,6 +89,10 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetCODIGOValue: String; virtual;
procedure SetCODIGOValue(const aValue: String); virtual;
function GetCODIGOIsNull: Boolean; virtual;
@ -99,6 +111,8 @@ type
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property CODIGO: String read GetCODIGOValue write SetCODIGOValue;
property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
property VALOR: String read GetVALORValue write SetVALORValue;
@ -169,6 +183,27 @@ begin
DataTable.Fields[idx_ReferenciasID_EMPRESA].AsVariant := Null;
end;
function TReferenciasDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_ReferenciasID_TIENDA].AsInteger;
end;
procedure TReferenciasDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ReferenciasID_TIENDA].AsInteger := aValue;
end;
function TReferenciasDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_ReferenciasID_TIENDA].IsNull;
end;
procedure TReferenciasDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ReferenciasID_TIENDA].AsVariant := Null;
end;
function TReferenciasDataTableRules.GetCODIGOValue: String;
begin
result := DataTable.Fields[idx_ReferenciasCODIGO].AsString;

47
Source/Modulos/Referencias/Model/schReferenciasServer_Intf.pas
View File

@ -9,15 +9,16 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ReferenciasDelta = '{6FB0611C-16F3-40E5-8C0C-7706C84C0E8C}';
RID_ReferenciasDelta = '{3D76ED26-23CC-4938-82C0-6044A5F5284F}';
type
{ IReferenciasDelta }
IReferenciasDelta = interface(IReferencias)
['{6FB0611C-16F3-40E5-8C0C-7706C84C0E8C}']
['{3D76ED26-23CC-4938-82C0-6044A5F5284F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_TIENDAValue : Integer;
function GetOldCODIGOValue : String;
function GetOldVALORValue : String;
function GetOldDESCRIPCIONValue : String;
@ -25,6 +26,7 @@ type
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldCODIGO : String read GetOldCODIGOValue;
property OldVALOR : String read GetOldVALORValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@ -47,6 +49,12 @@ type
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetID_TIENDAValue: Integer; virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
function GetOldID_TIENDAValue: Integer; virtual;
function GetOldID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
function GetCODIGOValue: String; virtual;
function GetCODIGOIsNull: Boolean; virtual;
function GetOldCODIGOValue: String; virtual;
@ -75,6 +83,10 @@ type
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
property CODIGO : String read GetCODIGOValue write SetCODIGOValue;
property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull;
property OldCODIGO : String read GetOldCODIGOValue;
@ -172,6 +184,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_EMPRESA] := Null;
end;
function TReferenciasBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA];
end;
function TReferenciasBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA]);
end;
function TReferenciasBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID_TIENDA];
end;
function TReferenciasBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciasID_TIENDA]);
end;
procedure TReferenciasBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA] := aValue;
end;
procedure TReferenciasBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasID_TIENDA] := Null;
end;
function TReferenciasBusinessProcessorRules.GetCODIGOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciasCODIGO];

10
Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm
View File

@ -41,6 +41,10 @@ object srvReferencias: TsrvReferencias
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID_TIENDA'
TableField = 'ID_TIENDA'
end>
end>
Name = 'Referencias'
@ -56,6 +60,10 @@ object srvReferencias: TsrvReferencias
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_TIENDA'
DataType = datInteger
end
item
Name = 'CODIGO'
DataType = datString
@ -97,7 +105,7 @@ object srvReferencias: TsrvReferencias
Name = 'IBX'
SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
#10' AND {Where}'#10
#10#10
StatementType = stSQL
ColumnMappings = <>
end>

49
Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas
View File

@ -30,16 +30,16 @@ type
public
{ IsrvReferencias methods }
function DarNuevaReferencia(const NombreReferencia: String;
const EmpresaID: Integer = -1): String;
const EmpresaID: Integer = -1; const TiendaID: Integer = -1): String;
function IncrementarValorReferencia(const NombreReferencia: String;
const Valor: String; const EmpresaID: Integer = -1): Boolean;
const Valor: String; const EmpresaID: Integer = -1; const TiendaID: Integer = -1): Boolean;
end;
implementation
{$R *.dfm}
uses
{Generated:} FactuGES_Invk, Variants,
{Generated:} FactuGES_Invk, Variants, dialogs,
uDataModuleServer, uROClasses, uReferenciasUtils;
procedure Create_srvReferencias(out anInstance : IUnknown);
@ -49,7 +49,7 @@ end;
{ srvReferencias }
function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String;
const EmpresaID: Integer = -1): String;
const EmpresaID: Integer = -1; const TiendaID: Integer = -1): String;
var
ASchema : TDASchema;
AConn : IDAConnection;
@ -58,6 +58,7 @@ var
AWhere : TDAWhereExpression;
AWhereExpr1: TDAWhereExpression;
AWhereExpr2: TDAWhereExpression;
AWhereExpr3: TDAWhereExpression;
begin
Result := '';
@ -69,16 +70,29 @@ begin
AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'),
NewConstant(NombreReferencia, datString),
dboEqual);
AWhere := AWhereExpr1;
//Si se asigna IDEmpresa se añade condicion
if (EmpresaID <> -1) then
begin
AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'),
NewConstant(EmpresaID, datInteger),
dboEqual);
AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd);
AWhere := NewBinaryExpression(AWhere, AWhereExpr2, dboAnd);
end;
//Si se asigna IDTienda se añade condicion
if (TiendaID <> -1) then
begin
AWhereExpr3 := NewBinaryExpression(NewField('', 'ID_TIENDA'),
NewConstant(TiendaID, datInteger),
dboEqual);
AWhere := NewBinaryExpression(AWhere, AWhereExpr3, dboAnd);
end
else
AWhere := AWhereExpr1;
finally
Free;
end;
@ -116,28 +130,24 @@ begin
end;
function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String;
const Valor: String; const EmpresaID: Integer = -1): Boolean;
const Valor: String; const EmpresaID: Integer = -1; const TiendaID: Integer = -1): Boolean;
var
ASchema : TDASchema;
AConn : IDAConnection;
dsCommand: IDASQLCommand;
AWhere : TDAWhereExpression;
AWhere : String;
begin
Result := False;
AWhere := NIL;
{ Construir la expresión del Where a partir de los parámetros
que se reciban.
}
AWhere := '';
if (EmpresaID <> -1) then
begin
with TDAWhereBuilder.Create do
try
AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual);
finally
Free;
end;
end;
AWhere := AWhere + ' AND (ID_EMPRESA = ' + IntToStr(EmpresaID) + ')';
if (TiendaID <> -1) then
AWhere := AWhere + ' AND (ID_TIENDA = ' + IntToStr(TiendaID) + ')';
ASchema := schReferencias;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
@ -149,8 +159,7 @@ begin
begin
ParamByName('CODIGO').AsString := NombreReferencia;
ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor);
if EmpresaID <> -1 then
dsCommand.DynamicWhere.Expression := AWhere;
dsCommand.SQL := dsCommand.SQL + AWhere; //Asignamos las condiciones de empresa y tienda si es necesario
end;
dsCommand.Execute;
AConn.CommitTransaction;

7
Source/Modulos/Referencias/Views/uEditorReferencias.dfm
View File

@ -62,7 +62,7 @@ object fEditorReferencias: TfEditorReferencias
FilterBox.Visible = fvNever
DataController.DataSource = dsReferencias
DataController.Filter.Options = [fcoCaseInsensitive]
DataController.KeyFieldNames = 'CODIGO'
DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
@ -90,6 +90,11 @@ object fEditorReferencias: TfEditorReferencias
OptionsView.GroupByBox = False
OptionsView.HeaderEndEllipsis = True
OptionsView.Indicator = True
object ListaReferenciasViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID'
Visible = False
VisibleForCustomization = False
end
object ListaReferenciasViewCODIGO: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO'
Visible = False

1
Source/Modulos/Referencias/Views/uEditorReferencias.pas
View File

@ -51,6 +51,7 @@ type
ListaReferenciasViewDESCRIPCION: TcxGridDBColumn;
ListaReferenciasViewVALOR: TcxGridDBColumn;
ListaReferenciasLevel: TcxGridLevel;
ListaReferenciasViewID: TcxGridDBColumn;
procedure FormShow(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);

16
Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj
View File

@ -9,6 +9,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Recibos de cliente\Controller\RecibosCliente_controller.dproj" />
@ -151,14 +152,23 @@
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_controller">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="" />
</Target>
<Target Name="Contabilidad_controller:Clean">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RecibosCliente_controller;RecibosCliente_view;Contabilidad_view;Contactos_view;Contabilidad_controller" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_controller:Clean;RecibosCliente_view:Clean;Contabilidad_view:Clean;Contactos_view:Clean;Contabilidad_controller:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_controller:Make;RecibosCliente_view:Make;Contabilidad_view:Make;Contactos_view:Make;Contabilidad_controller:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

3
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dpk
View File

@ -35,7 +35,8 @@ requires
tee,
fsTee11,
frxTee11,
Contabilidad_view;
Contabilidad_view,
Contabilidad_controller;
contains
uViewRemesasCliente in 'uViewRemesasCliente.pas' {frViewRemesasCliente: TFrame},

1
Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.dproj
View File

@ -55,6 +55,7 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
<DCCReference Include="..\..\Lib\Familias_controller.dcp" />
<DCCReference Include="..\..\Lib\Familias_model.dcp" />

41
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -9,7 +9,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Scaled = False
OnClose = CustomEditorClose
ExplicitWidth = 732
ExplicitHeight = 754
ExplicitHeight = 761
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -109,7 +109,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 718
Height = 580
MultiLine = True
ExplicitLeft = 3
ExplicitLeft = -2
ExplicitTop = 79
ExplicitWidth = 718
ExplicitHeight = 580
@ -122,7 +122,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 0
Top = 0
Width = 710
Height = 185
Height = 210
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -133,16 +133,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 710
ExplicitHeight = 185
ExplicitHeight = 210
inherited dxLayoutControlRemesaCliente: TdxLayoutControl
Width = 710
Height = 200
Height = 220
Align = alTop
ExplicitWidth = 710
ExplicitHeight = 200
ExplicitHeight = 220
DesignSize = (
710
200)
220)
inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 326
Width = 326
@ -165,19 +165,18 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitWidth = 121
Width = 121
end
inherited frViewCajasBancos1: TfrViewCajasBancos
Width = 453
ExplicitWidth = 453
inherited frViewListaSubcuentas1: TfrViewListaSubcuentas
Width = 429
ExplicitWidth = 429
inherited dxLayoutControl1: TdxLayoutControl
Width = 453
ExplicitWidth = 453
inherited cbCajasBancos: TcxComboBox
Width = 429
inherited cbSubCuentas: TcxComboBox
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 458
ExplicitLeft = 458
Left = 453
ExplicitLeft = 453
ExplicitWidth = 203
Width = 203
end
@ -194,9 +193,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end
inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente
Left = 0
Top = 185
Top = 210
Width = 710
Height = 367
Height = 342
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -209,16 +208,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ParentFont = False
TabOrder = 1
ReadOnly = False
ExplicitTop = 185
ExplicitTop = 200
ExplicitWidth = 710
ExplicitHeight = 367
ExplicitHeight = 352
inherited cxGrid: TcxGrid
Left = 15
Width = 680
Height = 327
Height = 302
ExplicitLeft = 15
ExplicitWidth = 680
ExplicitHeight = 327
ExplicitHeight = 312
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item

4
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas
View File

@ -126,8 +126,8 @@ begin
bEsNuevo := FRemesaCliente.EsNuevo;
{$IFDEF CONTABILIDAD}
AIgnorarContabilidad := frViewRemesaCliente1.frViewCajasBancos1.eContabilizar.EditValue;
ASubCuenta := frViewRemesaCliente1.frViewCajasBancos1.IdSubCuenta;
AIgnorarContabilidad := frViewRemesaCliente1.frViewListaSubCuentas1.eContabilizar.EditValue;
ASubCuenta := frViewRemesaCliente1.frViewListaSubCuentas1.IdSubCuenta;
FController.Guardar(FRemesaCliente, AIgnorarContabilidad, ASubCuenta);
{$ELSE}
FController.Guardar(FRemesaCliente);

54
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm
View File

@ -1,23 +1,24 @@
inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 513
Height = 304
Width = 476
Height = 224
Align = alClient
ExplicitWidth = 451
ExplicitHeight = 304
object dxLayoutControlRemesaCliente: TdxLayoutControl
Left = 0
Top = 0
Width = 513
Height = 304
Width = 476
Height = 224
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
513
304)
476
224)
object eReferencia: TcxDBTextEdit
Left = 110
Top = 30
@ -62,7 +63,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 108
end
object edtFechaRemesa: TcxDBDateEdit
Left = 342
Left = 324
Top = 30
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_REMESA'
@ -137,10 +138,10 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
TabOrder = 3
Width = 121
end
inline frViewCajasBancos1: TfrViewCajasBancos
inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 22
Top = 138
Width = 469
Top = 162
Width = 429
Height = 35
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -151,28 +152,22 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
TabOrder = 5
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 138
ExplicitWidth = 469
ExplicitTop = 162
ExplicitWidth = 429
ExplicitHeight = 35
inherited dxLayoutControl1: TdxLayoutControl
Width = 469
inherited cbCajasBancos: TcxComboBox
Left = 86
ExplicitLeft = 86
Width = 429
ExplicitWidth = 429
inherited cbSubCuentas: TcxComboBox
ExplicitWidth = 376
Width = 376
end
inherited eContabilizar: TcxCheckBox
Left = 322
ExplicitLeft = 322
Left = 293
ExplicitLeft = 293
ExplicitWidth = 203
Width = 203
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Caja / Banco: '
end
end
end
end
object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup
@ -226,11 +221,14 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Control = eDescripcion
ControlOptions.ShowBorder = False
end
object dxlcCuentaContable: TdxLayoutItem
Control = frViewCajasBancos1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
object dxlcCuentaContable: TdxLayoutGroup
Caption = 'Contabilidad'
object dxLayoutControlRemesaClienteItem2: TdxLayoutItem
Control = frViewListaSubcuentas1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup

10
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas
View File

@ -12,7 +12,7 @@ uses
uFamiliasController, cxSpinEdit, cxCurrencyEdit,
uBizRemesasCliente, uRemesasClienteController, cxCalendar,
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxImageComboBox, uDAInterfaces, uViewCajasBancos;
cxImageComboBox, uDAInterfaces, uViewListaSubCuentas;
type
IViewRemesaCliente = interface(IViewBase)
@ -47,8 +47,9 @@ type
dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup;
cbTipo: TcxDBImageComboBox;
dxLayoutControlRemesaClienteItem1: TdxLayoutItem;
dxlcCuentaContable: TdxLayoutItem;
frViewCajasBancos1: TfrViewCajasBancos;
dxLayoutControlRemesaClienteItem2: TdxLayoutItem;
frViewListaSubcuentas1: TfrViewListaSubcuentas;
dxlcCuentaContable: TdxLayoutGroup;
protected
FController: IRemesasClienteController;
@ -68,7 +69,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc}
uses
uDataModuleUsuarios, uFactuGES_App;
uDataModuleUsuarios, uFactuGES_App, uSubCuentasController;
{ TfrViewRemesaClientes }
@ -112,6 +113,7 @@ begin
cbTipo.Properties.Items.EndUpdate;
{$IFDEF CONTABILIDAD}
frViewListaSubcuentas1.TipoSubCuenta := tCajas;
dxlcCuentaBancaria.visible := false;
dxlcCuentaContable.Visible := true;
{$ELSE}

2
Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedorServer.pas
View File

@ -19,7 +19,7 @@ type
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
procedure AfterProcessChange(Sender: TDABusinessProcessor;
aChange: TDADeltaChange; Processed: Boolean;
var CanRemoveFromDelta: Boolean);
var CanRemoveFromDelta: Boolean); override;
end;
implementation

22
Source/Modulos/Tipos de venta/Controller/TiposVenta_controller.rc Normal file
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

28
Source/Modulos/Tipos de venta/Controller/uTiposVentaController.pas
View File

@ -14,6 +14,7 @@ type
procedure VerTodos(ATiposVenta: IBizTipoVenta);
function Guardar(AReferencia : IBizTipoVenta): Boolean;
procedure DescartarCambios(AReferencia : IBizTipoVenta);
function DarListaTiposVenta: TStringList;
end;
TTiposVentaController = class(TObservador, ITiposVentaController)
@ -34,6 +35,7 @@ type
procedure DescartarCambios(AReferencia : IBizTipoVenta); virtual;
function BuscarTodos: IBizTipoVenta;
procedure VerTodos(ATiposVenta: IBizTipoVenta);
function DarListaTiposVenta: TStringList;
end;
implementation
@ -67,6 +69,32 @@ begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TTiposVentaController.DarListaTiposVenta: TStringList;
var
ATiposVenta: IBizTipoVenta;
i : integer;
begin
ATiposVenta := BuscarTodos;
ATiposVenta.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
Add(Format('%s=%d', [CTE_GENERAL, CTE_ID_GENERAL]));
ATiposVenta.DataTable.First;
while not ATiposVenta.DataTable.EOF do
begin
Add(Format('%s=%d', [ATiposVenta.DESCRIPCION, ATiposVenta.ID]));
ATiposVenta.DataTable.Next;
end;
end;
finally
ATiposVenta := NIL;
end;
end;
procedure TTiposVentaController.DescartarCambios(AReferencia: IBizTipoVenta);
begin
if not Assigned(AReferencia) then

22
Source/Modulos/Tipos de venta/Data/TiposVenta_data.rc Normal file
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

22
Source/Modulos/Tipos de venta/Model/TiposVenta_model.rc Normal file
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

3
Source/Modulos/Tipos de venta/Model/uBizTiposVenta.pas
View File

@ -7,6 +7,9 @@ uses
const
BIZ_CLIENT_TIPOSVENTA = 'Client.TiposVenta';
CTE_ID_GENERAL = 0;
CTE_GENERAL = 'General';
type
IBizTipoVenta = interface(ITiposVenta)

22
Source/Modulos/Tipos de venta/Plugin/TiposVenta_plugin.rc Normal file
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

21
Source/Modulos/Tipos de venta/Views/TiposVenta_view.dpk
View File

@ -27,10 +27,27 @@ package TiposVenta_view;
requires
GUIBase,
TiposVenta_controller,
TiposVenta_model;
TiposVenta_model,
vcl,
rtl,
dbrtl,
DataAbstract_Core_D11,
vcldb,
dsnap,
adortl,
RemObjects_Core_D11,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
vcljpg,
dxLayoutControlD11,
dxComnD11;
contains
uEditorTiposVenta in 'uEditorTiposVenta.pas' {fEditorTiposVenta: TfEditorFormasPago},
uTiposVentaViewRegister in 'uTiposVentaViewRegister.pas';
uTiposVentaViewRegister in 'uTiposVentaViewRegister.pas',
uViewTiposVenta in 'uViewTiposVenta.pas' {frViewTiposVenta: TFrame};
end.

26
Source/Modulos/Tipos de venta/Views/TiposVenta_view.dproj
View File

@ -47,14 +47,34 @@
<DelphiCompile Include="TiposVenta_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\TiposVenta_controller.dcp" />
<DCCReference Include="..\..\Lib\TiposVenta_model.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="TiposVenta_controller.dcp" />
<DCCReference Include="TiposVenta_model.dcp" />
<DCCReference Include="uEditorTiposVenta.pas">
<Form>fEditorTiposVenta</Form>
<DesignClass>TfEditorFormasPago</DesignClass>
</DCCReference>
<DCCReference Include="uTiposVentaViewRegister.pas" />
<DCCReference Include="uViewTiposVenta.pas">
<Form>frViewTipoVenta</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

22
Source/Modulos/Tipos de venta/Views/TiposVenta_view.rc Normal file
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

58
Source/Modulos/Tipos de venta/Views/uViewTiposVenta.dfm Normal file
View File

@ -0,0 +1,58 @@
inherited frViewTiposVenta: TfrViewTiposVenta
Width = 451
Height = 41
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 451
ExplicitHeight = 41
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 451
Height = 41
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
Align = alTop
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
451
41)
object cbTiposVenta: TcxComboBox
Left = 85
Top = 10
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
Properties.OnValidate = cbTiposVentaPropertiesValidate
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 376
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item1: TdxLayoutItem
Caption = 'Tipo de venta:'
Control = cbTiposVenta
ControlOptions.ShowBorder = False
end
end
end
end

137
Source/Modulos/Tipos de venta/Views/uViewTiposVenta.pas Normal file
View File

@ -0,0 +1,137 @@
unit uViewTiposVenta;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxControls, uTiposVentaController;
type
IViewTiposVenta = interface(IViewBase)
['{B9371DA3-A682-4062-9BBE-EA688B9EACD5}']
end;
TfrViewTiposVenta = class(TfrViewBase, IViewTiposVenta)
cbTiposVenta: TcxComboBox;
dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure cbTiposVentaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
private
FController : ITiposVentaController;
FDataItem : TDADataTable;
FListaTiposVenta : TStringList;
function GetDataItem: TDADataTable;
procedure SetDataItem(const Value: TDADataTable);
public
property DataItem : TDADataTable read GetDataItem write SetDataItem;
procedure ElegirTiposVenta(const AIDTiposVenta : Integer);
function getIDTipoVenta: Integer;
procedure SetIDTipoVenta(const ID: Integer);
end;
implementation
{$R *.dfm}
procedure TfrViewTiposVenta.cbTiposVentaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
AIndex : integer;
begin
inherited;
if Assigned(FDataItem) and FDataItem.Active then
begin
AIndex := StrToInt(FListaTiposVenta.Values[DisplayValue]);
FDataItem.Edit;
if Assigned(FDataItem.FindField('ID_TIPOVENTA')) then
FDataItem.FieldByName('ID_TIPOVENTA').AsInteger := AIndex;
if Assigned(FDataItem.FindField('TIPOVENTA')) then
FDataItem.FieldByName('TIPOVENTA').AsString := DisplayValue;
end;
end;
procedure TfrViewTiposVenta.CustomViewCreate(Sender: TObject);
var
i : integer;
begin
inherited;
FController := TTiposVentaController.create;
with FController do
begin
FListaTiposVenta := DarListaTiposVenta;
with cbTiposVenta.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FListaTiposVenta.Count - 1 do
Add(FListaTiposVenta.Names[i]);
finally
EndUpdate;
end;
end;
end;
end;
procedure TfrViewTiposVenta.CustomViewDestroy(Sender: TObject);
begin
inherited;
FreeAndNIL(FListaTiposVenta);
FController := NIL;
end;
procedure TfrViewTiposVenta.ElegirTiposVenta(const AIDTiposVenta: Integer);
var
i : integer;
begin
for i := 0 to FListaTiposVenta.Count-1 do
begin
if FListaTiposVenta.ValueFromIndex[i] = IntToStr(AIDTiposVenta) then
begin
cbTiposVenta.Text := FListaTiposVenta.Names[i];
Break;
end;
end;
end;
function TfrViewTiposVenta.GetDataItem: TDADataTable;
begin
Result := FDataItem;
end;
function TfrViewTiposVenta.getIDTipoVenta: Integer;
begin
{ if FListaTiposVentas.IndexOf(cbTiposVenta.Text) < 0 then
Result := FListaTiposVentas.IndexOf(cbTiposVenta.Text)
else
Result := FListaIDTiposVentas.Integers[FListaTiposVentas.IndexOf(cbTiposVenta.Text)];}
end;
procedure TfrViewTiposVenta.SetDataItem(const Value: TDADataTable);
begin
FDataItem := Value;
if Assigned(FDataItem.FindField('ID_TIPOVENTA')) then
ElegirTiposVenta(FDataItem.FieldByName('ID_TIPOVENTA').AsInteger);
end;
procedure TfrViewTiposVenta.SetIDTipoVenta(const ID: Integer);
var
AIndex: Integer;
begin
{ if FListaIDTiposVentas.Find(ID, AIndex) then
cbTiposVenta.Text := FListaTiposVentas.Strings[AIndex];}
end;
end.

4
Source/Servicios/FactuGES.RODL
View File

@ -363,6 +363,8 @@
</Parameter>
<Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="TiendaID" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="IncrementarValorReferencia" UID="{03B94B86-1037-4E4A-AF5D-F82575C8900E}">
@ -375,6 +377,8 @@
</Parameter>
<Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="TiendaID" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>

14
Source/Servicios/FactuGES_Intf.pas
View File

@ -594,8 +594,8 @@ type
Para uso interno del servidor. }
IsrvReferencias = interface(IDataAbstractService)
['{B957528D-3BE1-412D-A35E-801C97CCD252}']
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean;
end;
{ CosrvReferencias }
@ -608,8 +608,8 @@ type
protected
function __GetInterfaceName:string; override;
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean;
end;
{ IsrvContabilidad }
@ -1580,12 +1580,13 @@ begin
result := 'srvReferencias';
end;
function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
__Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Write('TiendaID', TypeInfo(Integer), TiendaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1597,13 +1598,14 @@ begin
end
end;
function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'IncrementarValorReferencia');
__Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Write('Valor', TypeInfo(String), Valor, []);
__Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Write('TiendaID', TypeInfo(Integer), TiendaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

12
Source/Servicios/FactuGES_Invk.pas
View File

@ -734,17 +734,19 @@ end;
{ TsrvReferencias_Invoker }
procedure TsrvReferencias_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String; }
{ function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer; const TiendaID: Integer): String; }
var
NombreReferencia: String;
EmpresaID: Integer;
TiendaID: Integer;
lResult: String;
begin
try
__Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Read('TiendaID', TypeInfo(Integer), TiendaID, []);
lResult := (__Instance as IsrvReferencias).DarNuevaReferencia(NombreReferencia, EmpresaID);
lResult := (__Instance as IsrvReferencias).DarNuevaReferencia(NombreReferencia, EmpresaID, TiendaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'DarNuevaReferenciaResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
@ -756,19 +758,21 @@ begin
end;
procedure TsrvReferencias_Invoker.Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean; }
{ function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer; const TiendaID: Integer): Boolean; }
var
NombreReferencia: String;
Valor: String;
EmpresaID: Integer;
TiendaID: Integer;
lResult: Boolean;
begin
try
__Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Read('Valor', TypeInfo(String), Valor, []);
__Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Read('TiendaID', TypeInfo(Integer), TiendaID, []);
lResult := (__Instance as IsrvReferencias).IncrementarValorReferencia(NombreReferencia, Valor, EmpresaID);
lResult := (__Instance as IsrvReferencias).IncrementarValorReferencia(NombreReferencia, Valor, EmpresaID, TiendaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'IncrementarValorReferenciaResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

8
Source/Servidor/FactuGES_Server.dpr
View File

@ -99,8 +99,6 @@ uses
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@ -116,7 +114,11 @@ uses
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
srvTiposVenta_Impl in '..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas' {srvTiposVenta: TDataAbstractService};
srvTiposVenta_Impl in '..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas' {srvTiposVenta: TDataAbstractService},
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
schReferenciasServer_Intf in '..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

515
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,254 +1,269 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
<Form>srvTiposVenta</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<Form>srvEjercicios</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<Form>srvContabilidad</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Tipos de venta\Servidor\srvTiposVenta_Impl.pas">
<Form>srvTiposVenta</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "viernes, 29 de febrero de 2008 18:25\0"
VALUE "CompileDate", "lunes, 03 de marzo de 2008 20:37\0"
END
END
BLOCK "VarFileInfo"