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

Arreglo de automatizacion de gestion de cuentas contables en clientes y proveedores

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@187 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-04-02 10:56:24 +00:00
parent 54bcf50039
commit 92162ee33a
27 changed files with 928 additions and 555 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

176
Database/scripts/factuges.sql
View File

@ -566,6 +566,7 @@ CREATE TABLE CLIENTES_DATOS (
DESCUENTO TIPO_PORCENTAJE,
CODIGO_ASIGNADO VARCHAR(255),
IGNORAR_CONTABILIDAD TIPO_ID,
TIENE_SUBCUENTA TIPO_ID,
PROCEDENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
);
@ -1192,7 +1193,8 @@ CREATE TABLE PROVEEDORES_DATOS (
CODIGO_ASIGNADO VARCHAR(255),
CERTIFICACION VARCHAR(255),
HOMOLOGADO SMALLINT,
IGNORAR_CONTABILIDAD TIPO_ID
IGNORAR_CONTABILIDAD TIPO_ID,
TIENE_SUBCUENTA TIPO_ID
);
CREATE TABLE PROVEEDORES_GRUPOS (
@ -1769,50 +1771,52 @@ CREATE VIEW V_CLIENTES(
TIENDA_WEB,
CODIGO_ASIGNADO,
IGNORAR_CONTABILIDAD,
TIENE_SUBCUENTA,
PROCEDENCIA_CLIENTE)
AS
SELECT
V_CONTACTOS.ID,
V_CONTACTOS.ID_CATEGORIA,
V_CONTACTOS.NIF_CIF,
V_CONTACTOS.NOMBRE,
V_CONTACTOS.PERSONA_CONTACTO,
V_CONTACTOS.CALLE,
V_CONTACTOS.POBLACION,
V_CONTACTOS.PROVINCIA,
V_CONTACTOS.CODIGO_POSTAL,
V_CONTACTOS.TELEFONO_1,
V_CONTACTOS.TELEFONO_2,
V_CONTACTOS.MOVIL_1,
V_CONTACTOS.MOVIL_2,
V_CONTACTOS.FAX,
V_CONTACTOS.EMAIL_1,
V_CONTACTOS.EMAIL_2,
V_CONTACTOS.PAGINA_WEB,
V_CONTACTOS.NOTAS,
V_CONTACTOS.FECHA_ALTA,
V_CONTACTOS.FECHA_MODIFICACION,
V_CONTACTOS.USUARIO,
V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA,
V_CONTACTOS.ID_TIENDA,
V_CONTACTOS.TIENDA,
CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS,
CLIENTES_DATOS.BLOQUEADO,
CLIENTES_DATOS.REGIMEN_IVA,
CLIENTES_DATOS.MOTIVO_BLOQUEO,
CLIENTES_DATOS.RECARGO_EQUIVALENCIA,
CLIENTES_DATOS.ID_TIPO_IVA,
CLIENTES_DATOS.ID_FORMA_PAGO,
CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.CODIGO_ASIGNADO,
CLIENTES_DATOS.IGNORAR_CONTABILIDAD,
CLIENTES_DATOS.PROCEDENCIA_CLIENTE
FROM V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
WHERE
SELECT
V_CONTACTOS.ID,
V_CONTACTOS.ID_CATEGORIA,
V_CONTACTOS.NIF_CIF,
V_CONTACTOS.NOMBRE,
V_CONTACTOS.PERSONA_CONTACTO,
V_CONTACTOS.CALLE,
V_CONTACTOS.POBLACION,
V_CONTACTOS.PROVINCIA,
V_CONTACTOS.CODIGO_POSTAL,
V_CONTACTOS.TELEFONO_1,
V_CONTACTOS.TELEFONO_2,
V_CONTACTOS.MOVIL_1,
V_CONTACTOS.MOVIL_2,
V_CONTACTOS.FAX,
V_CONTACTOS.EMAIL_1,
V_CONTACTOS.EMAIL_2,
V_CONTACTOS.PAGINA_WEB,
V_CONTACTOS.NOTAS,
V_CONTACTOS.FECHA_ALTA,
V_CONTACTOS.FECHA_MODIFICACION,
V_CONTACTOS.USUARIO,
V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA,
V_CONTACTOS.ID_TIENDA,
V_CONTACTOS.TIENDA,
CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS,
CLIENTES_DATOS.BLOQUEADO,
CLIENTES_DATOS.REGIMEN_IVA,
CLIENTES_DATOS.MOTIVO_BLOQUEO,
CLIENTES_DATOS.RECARGO_EQUIVALENCIA,
CLIENTES_DATOS.ID_TIPO_IVA,
CLIENTES_DATOS.ID_FORMA_PAGO,
CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.CODIGO_ASIGNADO,
CLIENTES_DATOS.IGNORAR_CONTABILIDAD,
CLIENTES_DATOS.TIENE_SUBCUENTA,
CLIENTES_DATOS.PROCEDENCIA_CLIENTE
FROM V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
WHERE
V_CONTACTOS.ID_CATEGORIA = 1
;
@ -3053,49 +3057,51 @@ CREATE VIEW V_PROVEEDORES(
TIENDA_WEB,
HOMOLOGADO,
CERTIFICACION,
IGNORAR_CONTABILIDAD)
IGNORAR_CONTABILIDAD,
TIENE_SUBCUENTA)
AS
SELECT
V_CONTACTOS.ID,
V_CONTACTOS.ID_CATEGORIA,
V_CONTACTOS.NIF_CIF,
V_CONTACTOS.NOMBRE,
V_CONTACTOS.PERSONA_CONTACTO,
V_CONTACTOS.CALLE,
V_CONTACTOS.POBLACION,
V_CONTACTOS.PROVINCIA,
V_CONTACTOS.CODIGO_POSTAL,
V_CONTACTOS.TELEFONO_1,
V_CONTACTOS.TELEFONO_2,
V_CONTACTOS.MOVIL_1,
V_CONTACTOS.MOVIL_2,
V_CONTACTOS.FAX,
V_CONTACTOS.EMAIL_1,
V_CONTACTOS.EMAIL_2,
V_CONTACTOS.PAGINA_WEB,
V_CONTACTOS.NOTAS,
V_CONTACTOS.FECHA_ALTA,
V_CONTACTOS.FECHA_MODIFICACION,
V_CONTACTOS.USUARIO,
V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA,
V_CONTACTOS.ID_TIENDA,
V_CONTACTOS.TIENDA,
PROVEEDORES_DATOS.DESCUENTO,
PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR,
PROVEEDORES_DATOS.CODIGO_ASIGNADO,
PROVEEDORES_DATOS.GRUPO_PROVEEDOR,
PROVEEDORES_DATOS.REGIMEN_IVA,
PROVEEDORES_DATOS.ID_TIPO_IVA,
PROVEEDORES_DATOS.ID_FORMA_PAGO,
PROVEEDORES_DATOS.TIENDA_WEB,
PROVEEDORES_DATOS.HOMOLOGADO,
PROVEEDORES_DATOS.CERTIFICACION,
PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD
FROM
PROVEEDORES_DATOS
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
WHERE
SELECT
V_CONTACTOS.ID,
V_CONTACTOS.ID_CATEGORIA,
V_CONTACTOS.NIF_CIF,
V_CONTACTOS.NOMBRE,
V_CONTACTOS.PERSONA_CONTACTO,
V_CONTACTOS.CALLE,
V_CONTACTOS.POBLACION,
V_CONTACTOS.PROVINCIA,
V_CONTACTOS.CODIGO_POSTAL,
V_CONTACTOS.TELEFONO_1,
V_CONTACTOS.TELEFONO_2,
V_CONTACTOS.MOVIL_1,
V_CONTACTOS.MOVIL_2,
V_CONTACTOS.FAX,
V_CONTACTOS.EMAIL_1,
V_CONTACTOS.EMAIL_2,
V_CONTACTOS.PAGINA_WEB,
V_CONTACTOS.NOTAS,
V_CONTACTOS.FECHA_ALTA,
V_CONTACTOS.FECHA_MODIFICACION,
V_CONTACTOS.USUARIO,
V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA,
V_CONTACTOS.ID_TIENDA,
V_CONTACTOS.TIENDA,
PROVEEDORES_DATOS.DESCUENTO,
PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR,
PROVEEDORES_DATOS.CODIGO_ASIGNADO,
PROVEEDORES_DATOS.GRUPO_PROVEEDOR,
PROVEEDORES_DATOS.REGIMEN_IVA,
PROVEEDORES_DATOS.ID_TIPO_IVA,
PROVEEDORES_DATOS.ID_FORMA_PAGO,
PROVEEDORES_DATOS.TIENDA_WEB,
PROVEEDORES_DATOS.HOMOLOGADO,
PROVEEDORES_DATOS.CERTIFICACION,
PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD,
PROVEEDORES_DATOS.TIENE_SUBCUENTA
FROM
PROVEEDORES_DATOS
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)
WHERE
V_CONTACTOS.ID_CATEGORIA = 2
;

82
Source/Base/Base.dproj
View File

@ -58,47 +58,47 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Remesas de proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Remesas de proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

20
Source/Modulos/Contabilidad/Controller/uAsientosController.pas
View File

@ -14,7 +14,8 @@ type
procedure VerDiario(ADiario: IBizDiario);
procedure Ver(AAsiento: IBizAsiento);
function Anadir(NumOrden:Integer): IBizAsiento;
function Eliminar(AAsiento : IBizAsiento): Boolean;
function Eliminar(IDAsiento : Integer): Boolean; overload;
function Eliminar(AAsiento : IBizAsiento): Boolean; overload;
function Guardar(AAsiento : IBizAsiento): Boolean;
procedure DescartarCambios(AAsiento : IBizAsiento);
end;
@ -34,7 +35,8 @@ type
constructor Create; override;
destructor Destroy; override;
function Eliminar(AAsiento : IBizAsiento): Boolean;
function Eliminar(IDAsiento : Integer): Boolean; overload;
function Eliminar(AAsiento : IBizAsiento): Boolean; overload;
function Guardar(AAsiento : IBizAsiento): Boolean; virtual;
procedure DescartarCambios(AAsiento : IBizAsiento); virtual;
function Anadir(NumOrden:Integer): IBizAsiento;
@ -114,6 +116,20 @@ begin
inherited;
end;
function TAsientosController.Eliminar(IDAsiento: Integer): Boolean;
var
AAsiento : IBizAsiento;
begin
AAsiento := Buscar(IDAsiento);
AAsiento.DataTable.Active := True;
if not Assigned(AAsiento) then
raise Exception.Create(Format('No se ha encontrado el asiento con ID = %d', [IDAsiento]));
Result := Eliminar(AAsiento);
AAsiento := NIL;
end;
function TAsientosController.ValidarAsiento(AAsiento: IBizAsiento): Boolean;
begin
Result := False;

6
Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm
View File

@ -129,7 +129,7 @@ inherited fEditorAsiento: TfEditorAsiento
Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '0'
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
Properties.MaxValue = 999999.000000000000000000
Properties.UseLeftAlignmentOnEditing = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -148,10 +148,10 @@ inherited fEditorAsiento: TfEditorAsiento
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 21
Width = 168
Width = 298
end
object edtFecha: TcxDBDateEdit
Left = 391
Left = 489
Top = 10
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ASIENTO'

2
Source/Modulos/Contabilidad/Views/uEditorAsiento.pas
View File

@ -227,7 +227,7 @@ end;
procedure TfEditorAsiento.EliminarInterno;
begin
if (Application.MessageBox('¿Desea borrar este asiento?', 'Atención', MB_YESNO) = IDYES) then
if (Application.MessageBox('¿Está seguro que desea borrar este asiento?', 'Atención', MB_YESNO) = IDYES) then
begin
inherited;
if not FController.Eliminar(FAsiento) then

3
Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorDiario: TfEditorDiario
Left = 489
Top = 325
Caption = 'Libro de diario'
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -13,7 +12,7 @@ inherited fEditorDiario: TfEditorDiario
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F000001DD49444154484BBD96CB4E42311086F18DF4
17100000171001186111DB000001DD49444154484BBD96CB4E42311086F18DF4
297C01972EDC68E2DBF804EEDCB831716F8C1B23BA6001410D12428020720D20
721147BFD13939A92D17459B344C7B3ADF3F336D39674D4412FFD24ECED232AF
5B20F3D66D6CEE3B516F1D2B3CD41AEDBE64F38F5100D8F5762FB85E05D60FBE

13
Source/Modulos/Contabilidad/Views/uEditorDiario.pas
View File

@ -85,6 +85,7 @@ procedure TfEditorDiario.ModificarInterno;
begin
inherited;
FController.Ver(FController.Buscar(Diario.ID_ASIENTO));
actRefrescar.Execute;
end;
procedure TfEditorDiario.NuevoInterno;
@ -97,6 +98,7 @@ begin
Inc(NumOrden);
FController.Ver(FController.Anadir(NumOrden));
actRefrescar.Execute;
end;
procedure TfEditorDiario.PonerTitulos(const ATitulo: string);
@ -139,22 +141,17 @@ AppFactuGES.ShowCapado;
finally
actRefrescar.Execute;
end;
}
}
end;
procedure TfEditorDiario.EliminarInterno;
begin
{
if (Application.MessageBox('¿Desea borrar este almacén?', 'Atención', MB_YESNO) = IDYES) then
if (Application.MessageBox('¿Está seguro que desea borrar el asiento seleccionado?', 'Atención', MB_YESNO) = IDYES) then
begin
inherited;
//Para que en el caso de no poderse realizar la operación se refresquen
//los datos y no nos permita eliminar un registro a la segunda
if not FController.Eliminar(Asientos) then
if FController.Eliminar(Diario.ID_ASIENTO) then
actRefrescar.Execute;
end;
}
end;
procedure TfEditorDiario.actEliminarUpdate(Sender: TObject);

1
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.dfm
View File

@ -27,6 +27,7 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas
Top = 10
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D

51
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -18,6 +18,8 @@ type
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
end;
TClientesController = class(TContactosController, IClientesController)
@ -46,6 +48,8 @@ type
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
procedure Print(ACliente : IBizCliente; AllItems: Boolean = false);
procedure SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
end;
implementation
@ -295,8 +299,51 @@ begin
end;
end;
function TClientesController.TieneDatosBancarios(
ACliente: IBizCliente): Boolean;
procedure TClientesController.SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
var
AEdit: Boolean;
begin
with ACliente.DataTable do
begin
AEdit := Editing;
if not AEdit then
Edit;
if AValue then
ACliente.IGNORAR_CONTABILIDAD := 1
else
ACliente.IGNORAR_CONTABILIDAD := 0;
Post;
if AEdit then
Edit;
end;
end;
procedure TClientesController.SetTieneSubcuenta(ACliente: IBizCliente; AValue: Boolean);
var
AEdit: Boolean;
begin
with ACliente.DataTable do
begin
AEdit := Editing;
if not AEdit then
Edit;
if AValue then
ACliente.TIENE_SUBCUENTA := 1
else
ACliente.TIENE_SUBCUENTA := 0;
Post;
if AEdit then
Edit;
end;
end;
function TClientesController.TieneDatosBancarios(ACliente: IBizCliente): Boolean;
begin
Result := False;

48
Source/Modulos/Contactos/Controller/uProveedoresController.pas
View File

@ -16,6 +16,8 @@ type
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
procedure Print(AProveedor : IBizProveedor; AllItems: Boolean = false);
procedure SetTieneSubcuenta(AProveedor: IBizProveedor; AValue: Boolean);
procedure SetIgnorarContabilidad(AProveedor: IBizProveedor; AValue: Boolean);
end;
TProveedoresController = class(TContactosController, IProveedoresController)
@ -41,6 +43,8 @@ type
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
procedure Print(AProveedor : IBizProveedor; AllItems: Boolean = false);
procedure SetTieneSubcuenta(AProveedor: IBizProveedor; AValue: Boolean);
procedure SetIgnorarContabilidad(AProveedor: IBizProveedor; AValue: Boolean);
end;
implementation
@ -286,6 +290,50 @@ begin
end;
end;
procedure TProveedoresController.SetIgnorarContabilidad(AProveedor: IBizProveedor; AValue: Boolean);
var
AEdit: Boolean;
begin
with AProveedor.DataTable do
begin
AEdit := Editing;
if not AEdit then
Edit;
if AValue then
AProveedor.IGNORAR_CONTABILIDAD := 1
else
AProveedor.IGNORAR_CONTABILIDAD := 0;
Post;
if AEdit then
Edit;
end;
end;
procedure TProveedoresController.SetTieneSubcuenta(AProveedor: IBizProveedor; AValue: Boolean);
var
AEdit: Boolean;
begin
with AProveedor.DataTable do
begin
AEdit := Editing;
if not AEdit then
Edit;
if AValue then
AProveedor.TIENE_SUBCUENTA := 1
else
AProveedor.TIENE_SUBCUENTA := 0;
Post;
if AEdit then
Edit;
end;
end;
function TProveedoresController.ValidarContacto(
AContacto: IBizContacto): Boolean;
begin

6
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -230,7 +230,7 @@ inherited DataModuleClientes: TDataModuleClientes
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = 'Rec. equiv.'
DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
end
@ -262,6 +262,10 @@ inherited DataModuleClientes: TDataModuleClientes
DisplayLabel = 'Clientes_IGNORAR_CONTABILIDAD'
DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
end
item
Name = 'TIENE_SUBCUENTA'
DataType = datInteger
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString

4
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -286,6 +286,10 @@ inherited DataModuleProveedores: TDataModuleProveedores
DataType = datInteger
DisplayLabel = 'Proveedores_IGNORAR_CONTABILIDAD'
DictionaryEntry = 'Proveedores_IGNORAR_CONTABILIDAD'
end
item
Name = 'TIENE_SUBCUENTA'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

172
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,25 +3,25 @@ unit schContactosClient_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_SubCuentasContacto = '{DB425E13-FAB7-4F65-BCE6-7F635A0F5087}';
RID_Contactos = '{2FD53D3B-9549-4D57-BF96-0D7E015194DA}';
RID_GruposCliente = '{5BA10D11-88C1-43FF-8164-6365407C5849}';
RID_DatosBancarios = '{125083CD-E155-4AEF-A32C-154D8196330F}';
RID_Clientes = '{56F0C91A-FE41-49AA-8071-36AE7986DDC4}';
RID_Proveedores = '{77D19C57-45FD-402D-88B3-AF41C35B7AE6}';
RID_Empleados = '{F993E9F9-C0BF-41C4-ACB6-1201725A4C1A}';
RID_DireccionesContacto = '{6E17DC2B-C076-4E99-937F-20A25A74E550}';
RID_ClientesDescuentos = '{DC74ADAE-B7D8-4425-AB10-965FCF37492D}';
RID_ProcedenciasCliente = '{203DC6C2-0EAC-4E13-B0EB-9AE674DEE436}';
RID_GruposProveedor = '{90396FB9-2C83-477A-A234-2D3130349CD7}';
RID_GruposEmpleado = '{ED8857AA-842E-4F29-ADB1-F0E3011FE149}';
RID_Contactos_Refresh = '{1580AAF8-32C8-468C-9DD1-E092DEEBB24F}';
RID_SubCuentasContacto = '{77E2D0D2-685D-460C-8A5C-B58184819D7B}';
RID_Contactos = '{059BCFE8-30A4-4BC4-974F-1E240A1F3379}';
RID_GruposCliente = '{758F5D19-8076-45D9-BB2B-D79D45FFC272}';
RID_DatosBancarios = '{CC510C73-A596-4F19-8B13-E0809A7EE519}';
RID_Clientes = '{41895E3B-E13F-4890-9961-CFCF04CAC5D4}';
RID_Proveedores = '{3BD8FE29-DA71-4E2B-BA0B-4F8CCF53C66C}';
RID_Empleados = '{10A30112-8DAC-4EED-AFD9-AABC573A83B2}';
RID_DireccionesContacto = '{3AB78171-440E-4F68-AEF8-F877AB0134DE}';
RID_ClientesDescuentos = '{0FA9A43D-7A43-4D44-A4CF-24C55D2F3601}';
RID_ProcedenciasCliente = '{388B32E1-0819-4CF1-B551-6EAF5CDA6CD8}';
RID_GruposProveedor = '{23CFD460-23AC-473C-A97C-EF9D1E2EE6F4}';
RID_GruposEmpleado = '{72AB9D68-2DBB-4777-BFE8-CB567B31D695}';
RID_Contactos_Refresh = '{492FC030-1BEA-4AE1-A00B-0DC1E3DBF855}';
{ Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto';
@ -176,6 +176,7 @@ const
fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_ClientesTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
fld_ClientesPROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
{ Clientes field indexes }
@ -216,7 +217,8 @@ const
idx_ClientesTIENDA_WEB = 34;
idx_ClientesCODIGO_ASIGNADO = 35;
idx_ClientesIGNORAR_CONTABILIDAD = 36;
idx_ClientesPROCEDENCIA_CLIENTE = 37;
idx_ClientesTIENE_SUBCUENTA = 37;
idx_ClientesPROCEDENCIA_CLIENTE = 38;
{ Proveedores fields }
fld_ProveedoresID = 'ID';
@ -255,6 +257,7 @@ const
fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO';
fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA';
{ Proveedores field indexes }
idx_ProveedoresID = 0;
@ -293,6 +296,7 @@ const
idx_ProveedoresHOMOLOGADO = 33;
idx_ProveedoresCERTIFICACION = 34;
idx_ProveedoresIGNORAR_CONTABILIDAD = 35;
idx_ProveedoresTIENE_SUBCUENTA = 36;
{ Empleados fields }
fld_EmpleadosID = 'ID';
@ -487,7 +491,7 @@ const
type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{84D42B58-F588-4B95-9754-F9CA59801A9A}']
['{180C71AC-D602-4871-B0B5-30DB9A6F0D3D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -531,7 +535,7 @@ type
end;
{ TSubCuentasContactoDataTableRules }
TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
private
protected
{ Property getters and setters }
@ -582,7 +586,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{FAB53326-3794-4F50-BE06-9918634F36E1}']
['{517A8780-E06E-4C96-B076-F9975F834557}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -739,7 +743,7 @@ type
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
TContactosDataTableRules = class(TDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -905,7 +909,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{F40E5B41-61DE-49C4-A34D-FB8ED5677356}']
['{DF6B0030-F21D-462F-BAA1-765346227096}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -925,7 +929,7 @@ type
end;
{ TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@ -952,7 +956,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{BD7055CC-8133-4ECE-8D7B-2AF3152C7D73}']
['{71AD9AE5-15E3-4510-920F-C9DCA24935C3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1014,7 +1018,7 @@ type
end;
{ TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@ -1083,7 +1087,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{C3AF11E9-4107-41AE-8713-9AB3A4C89963}']
['{D314D401-AE3E-4242-ADBA-7879822029DC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1208,8 +1212,8 @@ type
procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
function GetMOTIVO_BLOQUEOIsNull: Boolean;
procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
function GetRECARGO_EQUIVALENCIAValue: Integer;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
function GetRECARGO_EQUIVALENCIAValue: SmallInt;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
function GetID_TIPO_IVAValue: Integer;
@ -1232,6 +1236,10 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
function GetTIENE_SUBCUENTAValue: Integer;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer);
function GetTIENE_SUBCUENTAIsNull: Boolean;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
function GetPROCEDENCIA_CLIENTEValue: String;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
@ -1301,7 +1309,7 @@ type
property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -1313,12 +1321,14 @@ type
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
TClientesDataTableRules = class(TDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1447,8 +1457,8 @@ type
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
@ -1471,6 +1481,10 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetTIENE_SUBCUENTAValue: Integer; virtual;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
@ -1539,7 +1553,7 @@ type
property REGIMEN_IVAIsNull: Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
property MOTIVO_BLOQUEOIsNull: Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -1551,6 +1565,8 @@ type
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
@ -1562,7 +1578,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{9029B819-5D9B-4720-9239-CB73E5522DA2}']
['{17E80FD0-91B4-4D1C-95ED-3D5C4B42578A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1707,6 +1723,10 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
function GetIGNORAR_CONTABILIDADIsNull: Boolean;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
function GetTIENE_SUBCUENTAValue: Integer;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer);
function GetTIENE_SUBCUENTAIsNull: Boolean;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
{ Properties }
@ -1782,10 +1802,12 @@ type
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1934,6 +1956,10 @@ type
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetTIENE_SUBCUENTAValue: Integer; virtual;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -2008,6 +2034,8 @@ type
property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA: Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -2017,7 +2045,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{953D050A-130F-4BA1-A7C3-7471CF2E01B7}']
['{4AC6F410-2F75-4947-8321-5363F1418AA2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2218,7 +2246,7 @@ type
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@ -2436,7 +2464,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{F13BCCC1-D68C-483C-95CA-0FDCCD665F41}']
['{0BEB43AD-BE78-4F2E-B45C-8E6AE76A186A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2539,7 +2567,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2651,7 +2679,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{6D86E654-37C2-46B7-8C4E-283A75761CF4}']
['{9323A474-DBCB-4050-A1F4-229966D7A848}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2689,7 +2717,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@ -2734,7 +2762,7 @@ type
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{F4EA7D47-1958-40FD-98CF-85A7EFD46925}']
['{459BF966-D8AA-44F0-B23A-704860B7AC98}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2754,7 +2782,7 @@ type
end;
{ TProcedenciasClienteDataTableRules }
TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente)
TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
private
protected
{ Property getters and setters }
@ -2781,7 +2809,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{5949BE7B-062B-4353-8F42-652DCB437F31}']
['{0A10C9D3-D291-47D7-8BE5-15F1178704AB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2801,7 +2829,7 @@ type
end;
{ TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@ -2828,7 +2856,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{2CA5FDD6-5EC3-4890-B749-3447C670D7E4}']
['{ADFE0D54-EBBB-444A-9830-D5E39AED2058}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2848,7 +2876,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@ -2875,7 +2903,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{AD126981-A1FB-4732-AD78-7B4DB9764976}']
['{9355FABF-5007-43F5-BB00-9F0C43DA7FD2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3008,7 +3036,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -4758,14 +4786,14 @@ begin
DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsVariant := Null;
end;
function TClientesDataTableRules.GetRECARGO_EQUIVALENCIAValue: Integer;
function TClientesDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger;
result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsSmallInt;
end;
procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
procedure TClientesDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger := aValue;
DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
end;
function TClientesDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
@ -4884,6 +4912,27 @@ begin
DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
function TClientesDataTableRules.GetTIENE_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger;
end;
procedure TClientesDataTableRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := aValue;
end;
function TClientesDataTableRules.GetTIENE_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].IsNull;
end;
procedure TClientesDataTableRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsVariant := Null;
end;
function TClientesDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
@ -5680,6 +5729,27 @@ begin
DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsVariant := Null;
end;
function TProveedoresDataTableRules.GetTIENE_SUBCUENTAValue: Integer;
begin
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger;
end;
procedure TProveedoresDataTableRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := aValue;
end;
function TProveedoresDataTableRules.GetTIENE_SUBCUENTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].IsNull;
end;
procedure TProveedoresDataTableRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsVariant := Null;
end;
{ TEmpleadosDataTableRules }
constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);

158
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,24 +9,24 @@ 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_SubCuentasContactoDelta = '{C6BE81D5-C1AD-4485-A854-06F9D2CFA1B1}';
RID_ContactosDelta = '{FCAB8D51-56C4-40CF-BD46-8F7DCF7B742E}';
RID_GruposClienteDelta = '{3AB1D597-F64F-4FB9-AF9E-0BEF56CA0978}';
RID_DatosBancariosDelta = '{EC6C167C-F8EA-4ADD-8A46-3BA7FFA8C946}';
RID_ClientesDelta = '{6FF774A7-7540-41D7-ACA9-35E54028F8AC}';
RID_ProveedoresDelta = '{A34837B4-64E6-4ABC-9319-B4D794E1C74E}';
RID_EmpleadosDelta = '{DF65F592-6966-4033-818C-E275BE726562}';
RID_DireccionesContactoDelta = '{34BB9A5D-75AF-43EB-8985-3C76C607DDB1}';
RID_ClientesDescuentosDelta = '{B3DB0447-3DD5-4403-968D-5F536F0AA50A}';
RID_ProcedenciasClienteDelta = '{D6D98B8C-F89A-4BEF-AE78-777D8050F310}';
RID_GruposProveedorDelta = '{A7D22925-DA53-4285-A4D9-EDA4EE179413}';
RID_GruposEmpleadoDelta = '{B7AF0091-09D2-4309-A8B1-AAA0108642BA}';
RID_Contactos_RefreshDelta = '{DD99CA2A-4B98-4535-B43C-D17EAB8D9915}';
RID_SubCuentasContactoDelta = '{EE9317EA-5374-4D7D-B6CC-8684FE0D6B21}';
RID_ContactosDelta = '{51070042-26A2-4A85-8719-F51520E40F38}';
RID_GruposClienteDelta = '{965A879A-4E61-42F4-83FE-22FA07165FB5}';
RID_DatosBancariosDelta = '{5BE9B897-D52F-4D7D-AFC9-A502CECEF42E}';
RID_ClientesDelta = '{87DD5652-478A-4A00-BDAB-33B2C9B40099}';
RID_ProveedoresDelta = '{B7F03045-3BE9-46AC-A0FB-8D4B288B925E}';
RID_EmpleadosDelta = '{6B64608B-F25E-4210-B02F-87B0EA062378}';
RID_DireccionesContactoDelta = '{2B40DFC8-5CAF-4D17-A0EC-7B6E4BB79ACE}';
RID_ClientesDescuentosDelta = '{9028E6CB-E578-4BBA-BD93-7068CB6EEAF2}';
RID_ProcedenciasClienteDelta = '{5179E843-F6F3-49F7-9979-6561FDA1C6DF}';
RID_GruposProveedorDelta = '{BF5E7579-41AA-4BB5-B650-224E079D6344}';
RID_GruposEmpleadoDelta = '{B5F70E42-EBC8-411A-9DAB-11BCA62B8E74}';
RID_Contactos_RefreshDelta = '{AE4FA559-4983-41C6-82F3-39C023E9993D}';
type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{C6BE81D5-C1AD-4485-A854-06F9D2CFA1B1}']
['{EE9317EA-5374-4D7D-B6CC-8684FE0D6B21}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -120,7 +120,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{FCAB8D51-56C4-40CF-BD46-8F7DCF7B742E}']
['{51070042-26A2-4A85-8719-F51520E40F38}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -443,7 +443,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{3AB1D597-F64F-4FB9-AF9E-0BEF56CA0978}']
['{965A879A-4E61-42F4-83FE-22FA07165FB5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -489,7 +489,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{EC6C167C-F8EA-4ADD-8A46-3BA7FFA8C946}']
['{5BE9B897-D52F-4D7D-AFC9-A502CECEF42E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -619,7 +619,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{6FF774A7-7540-41D7-ACA9-35E54028F8AC}']
['{87DD5652-478A-4A00-BDAB-33B2C9B40099}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -652,12 +652,13 @@ type
function GetOldBLOQUEADOValue : SmallInt;
function GetOldREGIMEN_IVAValue : String;
function GetOldMOTIVO_BLOQUEOValue : String;
function GetOldRECARGO_EQUIVALENCIAValue : Integer;
function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
function GetOldID_TIPO_IVAValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldCODIGO_ASIGNADOValue : String;
function GetOldIGNORAR_CONTABILIDADValue : Integer;
function GetOldTIENE_SUBCUENTAValue : Integer;
function GetOldPROCEDENCIA_CLIENTEValue : String;
{ Properties }
@ -692,12 +693,13 @@ type
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
end;
@ -893,11 +895,11 @@ type
function GetOldMOTIVO_BLOQUEOIsNull: Boolean; virtual;
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
function GetID_TIPO_IVAValue: Integer; virtual;
function GetID_TIPO_IVAIsNull: Boolean; virtual;
@ -929,6 +931,12 @@ type
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetTIENE_SUBCUENTAValue: Integer; virtual;
function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
function GetOldTIENE_SUBCUENTAValue: Integer; virtual;
function GetOldTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
function GetPROCEDENCIA_CLIENTEValue: String; virtual;
function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
@ -1061,9 +1069,9 @@ type
property MOTIVO_BLOQUEOIsNull : Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
property OldMOTIVO_BLOQUEOIsNull : Boolean read GetOldMOTIVO_BLOQUEOIsNull;
property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
@ -1085,6 +1093,10 @@ type
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA : Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull : Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
property OldTIENE_SUBCUENTAIsNull : Boolean read GetOldTIENE_SUBCUENTAIsNull;
property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
@ -1098,7 +1110,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{A34837B4-64E6-4ABC-9319-B4D794E1C74E}']
['{B7F03045-3BE9-46AC-A0FB-8D4B288B925E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1136,6 +1148,7 @@ type
function GetOldHOMOLOGADOValue : SmallInt;
function GetOldCERTIFICACIONValue : String;
function GetOldIGNORAR_CONTABILIDADValue : Integer;
function GetOldTIENE_SUBCUENTAValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -1174,6 +1187,7 @@ type
property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
end;
{ TProveedoresBusinessProcessorRules }
@ -1398,6 +1412,12 @@ type
function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
function GetTIENE_SUBCUENTAValue: Integer; virtual;
function GetTIENE_SUBCUENTAIsNull: Boolean; virtual;
function GetOldTIENE_SUBCUENTAValue: Integer; virtual;
function GetOldTIENE_SUBCUENTAIsNull: Boolean; virtual;
procedure SetTIENE_SUBCUENTAValue(const aValue: Integer); virtual;
procedure SetTIENE_SUBCUENTAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1544,6 +1564,10 @@ type
property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
property TIENE_SUBCUENTA : Integer read GetTIENE_SUBCUENTAValue write SetTIENE_SUBCUENTAValue;
property TIENE_SUBCUENTAIsNull : Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull;
property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue;
property OldTIENE_SUBCUENTAIsNull : Boolean read GetOldTIENE_SUBCUENTAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1553,7 +1577,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{DF65F592-6966-4033-818C-E275BE726562}']
['{6B64608B-F25E-4210-B02F-87B0EA062378}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1976,7 +2000,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{34BB9A5D-75AF-43EB-8985-3C76C607DDB1}']
['{2B40DFC8-5CAF-4D17-A0EC-7B6E4BB79ACE}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2191,7 +2215,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{B3DB0447-3DD5-4403-968D-5F536F0AA50A}']
['{9028E6CB-E578-4BBA-BD93-7068CB6EEAF2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2273,7 +2297,7 @@ type
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{D6D98B8C-F89A-4BEF-AE78-777D8050F310}']
['{5179E843-F6F3-49F7-9979-6561FDA1C6DF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2319,7 +2343,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{A7D22925-DA53-4285-A4D9-EDA4EE179413}']
['{BF5E7579-41AA-4BB5-B650-224E079D6344}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2365,7 +2389,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{B7AF0091-09D2-4309-A8B1-AAA0108642BA}']
['{B5F70E42-EBC8-411A-9DAB-11BCA62B8E74}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2411,7 +2435,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{DD99CA2A-4B98-4535-B43C-D17EAB8D9915}']
['{AE4FA559-4983-41C6-82F3-39C023E9993D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -5027,7 +5051,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := Null;
end;
function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
end;
@ -5037,7 +5061,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
end;
function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
end;
@ -5047,7 +5071,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
end;
procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := aValue;
end;
@ -5213,6 +5237,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := Null;
end;
function TClientesBusinessProcessorRules.GetTIENE_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
end;
function TClientesBusinessProcessorRules.GetTIENE_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA]);
end;
function TClientesBusinessProcessorRules.GetOldTIENE_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENE_SUBCUENTA];
end;
function TClientesBusinessProcessorRules.GetOldTIENE_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENE_SUBCUENTA]);
end;
procedure TClientesBusinessProcessorRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] := Null;
end;
function TClientesBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
@ -6380,6 +6435,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] := Null;
end;
function TProveedoresBusinessProcessorRules.GetTIENE_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
end;
function TProveedoresBusinessProcessorRules.GetTIENE_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]);
end;
function TProveedoresBusinessProcessorRules.GetOldTIENE_SUBCUENTAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENE_SUBCUENTA];
end;
function TProveedoresBusinessProcessorRules.GetOldTIENE_SUBCUENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENE_SUBCUENTA]);
end;
procedure TProveedoresBusinessProcessorRules.SetTIENE_SUBCUENTAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] := aValue;
end;
procedure TProveedoresBusinessProcessorRules.SetTIENE_SUBCUENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] := Null;
end;
{ TEmpleadosBusinessProcessorRules }
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -153,13 +153,15 @@ begin
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
Execute;
end;
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0)
and (aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] = 0) then
begin
with TsrvContabilidad.Create(NIL) do
try
@ -216,12 +218,14 @@ begin
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA];
ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
Execute;
end;
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0)
and (aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] = 0) then
begin
with TsrvContabilidad.Create(NIL) do
try

40
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -100,6 +100,10 @@ type
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
function GetTiene_Subcuenta: Integer;
procedure SetTiene_Subcuenta(const Value: Integer);
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
end;
IBizProveedor = interface (IBizContacto)
@ -152,6 +156,10 @@ type
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
function GetTiene_Subcuenta: Integer;
procedure SetTiene_Subcuenta(const Value: Integer);
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
end;
IBizEmpleado = interface (IBizContacto)
@ -270,6 +278,9 @@ type
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
function GetTiene_Subcuenta: Integer;
procedure SetTiene_Subcuenta(const Value: Integer);
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -291,6 +302,7 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
end;
@ -332,6 +344,9 @@ type
function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer);
function GetTiene_Subcuenta: Integer;
procedure SetTiene_Subcuenta(const Value: Integer);
function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -351,6 +366,7 @@ type
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
end;
@ -611,6 +627,11 @@ begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
end;
function TBizCliente.GetTiene_Subcuenta: Integer;
begin
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger;
end;
function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer;
begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
@ -637,6 +658,11 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
end;
procedure TBizCliente.SetTiene_Subcuenta(const Value: Integer);
begin
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := Value;
end;
procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
@ -653,8 +679,10 @@ begin
{$IFDEF CONTABILIDAD}
IGNORAR_CONTABILIDAD := 0;
TIENE_SUBCUENTA := 0;
{$ELSE}
IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0;
{$ENDIF}
end;
@ -700,6 +728,11 @@ begin
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
end;
function TBizProveedor.GetTiene_Subcuenta: Integer;
begin
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger;
end;
procedure TBizProveedor.IniciarValoresContactoNuevo;
begin
inherited;
@ -708,8 +741,10 @@ begin
{$IFDEF CONTABILIDAD}
IGNORAR_CONTABILIDAD := 0;
TIENE_SUBCUENTA := 0;
{$ELSE}
IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0;
{$ENDIF}
end;
@ -811,6 +846,11 @@ begin
end;
procedure TBizProveedor.SetTiene_Subcuenta(const Value: Integer);
begin
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := Value;
end;
{ TBizEmpleado }
function TBizEmpleado.GetCATEGORIAValue: String;

8
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -151,11 +151,13 @@ begin
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
Execute;
end;
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
if (aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] = 0)
and (aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA] = 0) then
begin
with TsrvContabilidad.Create(NIL) do
try
@ -210,11 +212,13 @@ begin
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
Execute;
end;
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0)
and (aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA] = 0) then
begin
with TsrvContabilidad.Create(NIL) do
try

66
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -635,6 +635,10 @@ object srvContactos: TsrvContactos
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end
item
DatasetField = 'TIENE_SUBCUENTA'
TableField = 'TIENE_SUBCUENTA'
end
item
DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE'
@ -826,7 +830,7 @@ object srvContactos: TsrvContactos
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
end
item
@ -855,6 +859,10 @@ object srvContactos: TsrvContactos
DataType = datInteger
DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
end
item
Name = 'TIENE_SUBCUENTA'
DataType = datInteger
end
item
Name = 'PROCEDENCIA_CLIENTE'
DataType = datString
@ -1013,6 +1021,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'IGNORAR_CONTABILIDAD'
TableField = 'IGNORAR_CONTABILIDAD'
end
item
DatasetField = 'TIENE_SUBCUENTA'
TableField = 'TIENE_SUBCUENTA'
end>
end>
Name = 'Proveedores'
@ -1224,6 +1236,10 @@ object srvContactos: TsrvContactos
Name = 'IGNORAR_CONTABILIDAD'
DataType = datInteger
DictionaryEntry = 'Proveedores_IGNORAR_CONTABILIDAD'
end
item
Name = 'TIENE_SUBCUENTA'
DataType = datInteger
end>
end
item
@ -2711,6 +2727,10 @@ object srvContactos: TsrvContactos
item
Name = 'PROCEDENCIA_CLIENTE'
Value = ''
end
item
Name = 'TIENE_SUBCUENTA'
Value = ''
end>
Statements = <
item
@ -2721,11 +2741,12 @@ object srvContactos: TsrvContactos
'ARGO_EQUIVALENCIA,'#10' NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
'BLOQUEADO, MOTIVO_BLOQUEO,'#10' REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD,'#10' ' +
' PROCEDENCIA_CLIENTE)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE,' +
' :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, :VENCIMIENTO_FAC' +
'TURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_' +
'TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_ASIGNADO, :IGNORA' +
'R_CONTABILIDAD,'#10' :PROCEDENCIA_CLIENTE)'#10
' PROCEDENCIA_CLIENTE, TIENE_SUBCUENTA)'#10' VALUES'#10' (:ID_CLIENTE' +
', :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL,' +
' :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIM' +
'EN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_' +
'ASIGNADO, :IGNORAR_CONTABILIDAD,'#10' :PROCEDENCIA_CLIENTE, :TIE' +
'NE_SUBCUENTA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2805,6 +2826,10 @@ object srvContactos: TsrvContactos
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item
Name = 'TIENE_SUBCUENTA'
Value = ''
end
item
Name = 'PROCEDENCIA_CLIENTE'
Value = ''
@ -2826,8 +2851,9 @@ object srvContactos: TsrvContactos
'= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' +
'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' +
'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' +
'NTABILIDAD,'#10' PROCEDENCIA_CLIENTE = :PROCEDENCIA_CLIENTE'#10' WHE' +
'RE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
'NTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,'#10' PROCEDEN' +
'CIA_CLIENTE = :PROCEDENCIA_CLIENTE'#10' WHERE'#10' (ID_CLIENTE = :OL' +
'D_ID_CLIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2882,6 +2908,10 @@ object srvContactos: TsrvContactos
item
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item
Name = 'TIENE_SUBCUENTA'
Value = ''
end>
Statements = <
item
@ -2891,11 +2921,11 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD)'#10' VALUES'#10' (:ID_PROVE' +
'EDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :COD' +
'IGO_ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HO' +
'MOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABI' +
'LIDAD)'#10
'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA)'#10' VALU' +
'ES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PR' +
'OVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO,' +
' :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' ' +
' :IGNORAR_CONTABILIDAD, :TIENE_SUBCUENTA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -2971,6 +3001,10 @@ object srvContactos: TsrvContactos
Name = 'IGNORAR_CONTABILIDAD'
Value = ''
end
item
Name = 'TIENE_SUBCUENTA'
Value = ''
end
item
Name = 'OLD_ID_PROVEEDOR'
Value = ''
@ -2987,8 +3021,8 @@ object srvContactos: TsrvContactos
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' +
'= :IGNORAR_CONTABILIDAD'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROV' +
'EEDOR)'#10
'= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA'#10 +
' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -4216,7 +4250,7 @@ object srvContactos: TsrvContactos
end
item
Name = 'Clientes_RECARGO_EQUIVALENCIA'
DataType = datInteger
DataType = datSmallInt
DisplayLabel = 'Rec. equiv.'
end
item

47
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -341,20 +341,20 @@ inherited fEditorCliente: TfEditorCliente
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 882
inherited Label1: TLabel
Left = 492
Left = 465
Top = 30
Width = 281
Caption =
'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' +
'go de sus recibos.'
ExplicitLeft = 492
ExplicitLeft = 465
ExplicitTop = 30
ExplicitWidth = 281
end
inherited eDiasVencimiento: TcxDBSpinEdit
Left = 618
Left = 591
Top = 62
ExplicitLeft = 618
ExplicitLeft = 591
ExplicitTop = 62
ExplicitWidth = 160
Width = 160
@ -362,37 +362,29 @@ inherited fEditorCliente: TfEditorCliente
inherited cbRegimenIVA: TcxDBComboBox
Top = 30
ExplicitTop = 30
ExplicitWidth = 121
Width = 121
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 111
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
end
inherited cbFormaPago: TcxDBLookupComboBox
Top = 57
ExplicitTop = 57
ExplicitWidth = 121
Width = 121
end
inherited bFormasPago: TButton
Left = 332
Left = 305
Top = 57
ExplicitLeft = 332
ExplicitLeft = 305
ExplicitTop = 57
end
inherited eIVA: TcxDBLookupComboBox
Top = 84
ExplicitTop = 84
ExplicitWidth = 121
Width = 121
end
inherited bTiposIVA: TButton
Left = 332
Left = 305
Top = 84
ExplicitLeft = 332
ExplicitLeft = 305
ExplicitTop = 84
end
inherited dxLayoutGroup1: TdxLayoutGroup
@ -439,6 +431,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 882
ExplicitWidth = 882
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
@ -514,21 +518,12 @@ inherited fEditorCliente: TfEditorCliente
DesignSize = (
882
516)
inherited eRefSubCuenta: TcxDBTextEdit
ExplicitWidth = 346
Width = 346
end
inherited BitBtn3: TBitBtn
Left = 540
ExplicitLeft = 540
end
inherited eSubCuenta: TcxDBTextEdit
ExplicitWidth = 265
Width = 265
end
inherited BitBtn1: TBitBtn
Left = 656
Visible = True
ExplicitLeft = 656
end
inherited BitBtn2: TBitBtn
@ -537,8 +532,6 @@ inherited fEditorCliente: TfEditorCliente
end
inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewCliente1.dsContacto
ExplicitWidth = 300
Width = 300
end
end
end

20
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -46,7 +46,8 @@ implementation
uses
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem, cxDBEdit,
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils;
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils,
uClientesController;
procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject);
var
@ -90,12 +91,21 @@ end;
procedure TfEditorCliente.GuardarInterno;
begin
//Si tiene al menos una subcuenta asociada se pone el flag el cliente a 1, asi podremos poner un icono en la lista de clientes
//que tengan subcuenta asociada, y comprobar si al modificar no tene ya seleccionada una subcuenta en tal caso la crearemos si el
//usuario lo desea.
if ((Contacto as IBizCliente).SubCuentas.RecordCount <> 0) then
(Controller as IClientesController).SetTieneSubCuenta(Contacto as IBizCliente, True)
else
(Controller as IClientesController).SetTieneSubCuenta(Contacto as IBizCliente, False);
//Si estamos modificando un cliente y se activa la contabilidad, debemos avisar que se asignará una subcuenta al cliente
//Evitamos que cada vez que se añada un cliente te pregunta por defecto se crea y punto.
//Otro caso es al modificar que si que hay que preguntar por si acaso desea asignar el manualmente una subcuenta existente
if not Contacto.EsNuevo
and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) then
if (ShowConfirmMessage('Confirmación de subcuenta', 'Se creará una nueva subcuenta para el cliente' + #10#13 + '¿Esta seguro que desea continuar?') = IDNO) then
frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue := 1;
and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0)
and ((Contacto as IBizCliente).TIENE_SUBCUENTA = 0) then
if (ShowConfirmMessage('Confirmación de subcuenta', 'El cliente no tiene asignada ninguna subcuenta contable.' + #10#13 + '¿Desea crear una nueva subcuenta para el cliente?') = IDNO) then
(Controller as IClientesController).SetIgnorarContabilidad(Contacto as IBizCliente, True);
inherited;
end;

6
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -269,8 +269,8 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
ExplicitWidth = 250
Width = 250
end
end
end
@ -405,7 +405,7 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited ToolBar1: TToolBar
Width = 634
ExplicitWidth = 640
ExplicitWidth = 634
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end

21
Source/Modulos/Contactos/Views/uEditorProveedor.pas
View File

@ -28,7 +28,7 @@ type
frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
procedure actGruposProveedorExecute(Sender: TObject);
protected
procedure GuardarInterno; override;
procedure GuardarInterno; override;
procedure EliminarInterno; override;
procedure SetContacto(const Value: IBizContacto); override;
public
@ -43,7 +43,7 @@ implementation
{ TfEditorProveedor }
uses
uDialogUtils, uGruposProveedorController, uBizGruposProveedor;
uDialogUtils, uGruposProveedorController, uBizGruposProveedor, uProveedoresController;
procedure TfEditorProveedor.actGruposProveedorExecute(Sender: TObject);
var
@ -80,12 +80,21 @@ end;
procedure TfEditorProveedor.GuardarInterno;
begin
//Si tiene al menos una subcuenta asociada se pone el flag el cliente a 1, asi podremos poner un icono en la lista de proveedores
//que tengan subcuenta asociada, y comprobar si al modificar no tene ya seleccionada una subcuenta en tal caso la crearemos si el
//usuario lo desea.
if ((Contacto as IBizProveedor).SubCuentas.RecordCount <> 0) then
(Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, True)
else
(Controller as IProveedoresController).SetTieneSubCuenta(Contacto as IBizProveedor, False);
//Si estamos modificando un proveedor y se activa la contabilidad, debemos avisar que se asignará una subcuenta al proveedor
//Evitamos que cada vez que se añada un proveedor te pregunta por defecto se crea y punto.
//Otro caso es al modificar que si que hay que preguntar por si acaso desea asignar el manualmente una subcuenta existente
if not Contacto.EsNuevo
and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) then
if (ShowConfirmMessage('Confirmación de subcuenta', 'Se creará una nueva subcuenta para el proveedor' + #10#13 + '¿Esta seguro que desea continuar?') = IDNO) then
frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue := 1;
and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0)
and ((Contacto as IBizProveedor).TIENE_SUBCUENTA = 0) then
if (ShowConfirmMessage('Confirmación de subcuenta', 'El proveedor no tiene asignada ninguna subcuenta contable.' + #10#13 + '¿Desea crear una nueva subcuenta para el proveedor?') = IDNO) then
(Controller as IProveedoresController).SetIgnorarContabilidad(Contacto as IBizProveedor, True);
inherited;
end;

14
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
View File

@ -1,5 +1,5 @@
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 487
Width = 451
Height = 304
Align = alClient
AutoSize = True
@ -10,15 +10,14 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
object layoutApunte: TdxLayoutControl
Left = 0
Top = 0
Width = 487
Width = 451
Height = 304
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
DesignSize = (
487
451
304)
object eRefSubCuenta: TcxDBTextEdit
Left = 93
@ -41,7 +40,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 346
end
object BitBtn3: TBitBtn
Left = 145
Left = 119
Top = 37
Width = 110
Height = 25
@ -105,7 +104,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 265
end
object BitBtn1: TBitBtn
Left = 261
Left = 235
Top = 37
Width = 120
Height = 25
@ -149,7 +148,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object BitBtn2: TBitBtn
Left = 387
Left = 361
Top = 37
Width = 90
Height = 25
@ -162,6 +161,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Top = 10
Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -101,8 +101,6 @@ uses
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
@ -119,7 +117,9 @@ uses
uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

501
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,254 +1,255 @@
<?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">1</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.1.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.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</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\Reports\uRptAlbaranesCliente_Server.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\Model\uBizRecibosProveedorServer.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\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">1</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.1.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.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</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\Reports\uRptAlbaranesCliente_Server.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\Model\uBizRecibosProveedorServer.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\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.1.0.0\0"
VALUE "ProductVersion", "1.1.0.0\0"
VALUE "CompileDate", "miércoles, 26 de marzo de 2008 21:41\0"
VALUE "CompileDate", "martes, 01 de abril de 2008 19:10\0"
END
END
BLOCK "VarFileInfo"