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

12
Database/scripts/factuges.sql
View File

@ -566,6 +566,7 @@ CREATE TABLE CLIENTES_DATOS (
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
CODIGO_ASIGNADO VARCHAR(255), CODIGO_ASIGNADO VARCHAR(255),
IGNORAR_CONTABILIDAD TIPO_ID, IGNORAR_CONTABILIDAD TIPO_ID,
TIENE_SUBCUENTA TIPO_ID,
PROCEDENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES PROCEDENCIA_CLIENTE VARCHAR(255) COLLATE ES_ES
); );
@ -1192,7 +1193,8 @@ CREATE TABLE PROVEEDORES_DATOS (
CODIGO_ASIGNADO VARCHAR(255), CODIGO_ASIGNADO VARCHAR(255),
CERTIFICACION VARCHAR(255), CERTIFICACION VARCHAR(255),
HOMOLOGADO SMALLINT, HOMOLOGADO SMALLINT,
IGNORAR_CONTABILIDAD TIPO_ID IGNORAR_CONTABILIDAD TIPO_ID,
TIENE_SUBCUENTA TIPO_ID
); );
CREATE TABLE PROVEEDORES_GRUPOS ( CREATE TABLE PROVEEDORES_GRUPOS (
@ -1769,6 +1771,7 @@ CREATE VIEW V_CLIENTES(
TIENDA_WEB, TIENDA_WEB,
CODIGO_ASIGNADO, CODIGO_ASIGNADO,
IGNORAR_CONTABILIDAD, IGNORAR_CONTABILIDAD,
TIENE_SUBCUENTA,
PROCEDENCIA_CLIENTE) PROCEDENCIA_CLIENTE)
AS AS
SELECT SELECT
@ -1809,6 +1812,7 @@ SELECT
CLIENTES_DATOS.TIENDA_WEB, CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.CODIGO_ASIGNADO, CLIENTES_DATOS.CODIGO_ASIGNADO,
CLIENTES_DATOS.IGNORAR_CONTABILIDAD, CLIENTES_DATOS.IGNORAR_CONTABILIDAD,
CLIENTES_DATOS.TIENE_SUBCUENTA,
CLIENTES_DATOS.PROCEDENCIA_CLIENTE CLIENTES_DATOS.PROCEDENCIA_CLIENTE
FROM V_CONTACTOS FROM V_CONTACTOS
LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE)
@ -3053,7 +3057,8 @@ CREATE VIEW V_PROVEEDORES(
TIENDA_WEB, TIENDA_WEB,
HOMOLOGADO, HOMOLOGADO,
CERTIFICACION, CERTIFICACION,
IGNORAR_CONTABILIDAD) IGNORAR_CONTABILIDAD,
TIENE_SUBCUENTA)
AS AS
SELECT SELECT
V_CONTACTOS.ID, V_CONTACTOS.ID,
@ -3091,7 +3096,8 @@ SELECT
PROVEEDORES_DATOS.TIENDA_WEB, PROVEEDORES_DATOS.TIENDA_WEB,
PROVEEDORES_DATOS.HOMOLOGADO, PROVEEDORES_DATOS.HOMOLOGADO,
PROVEEDORES_DATOS.CERTIFICACION, PROVEEDORES_DATOS.CERTIFICACION,
PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD PROVEEDORES_DATOS.IGNORAR_CONTABILIDAD,
PROVEEDORES_DATOS.TIENE_SUBCUENTA
FROM FROM
PROVEEDORES_DATOS PROVEEDORES_DATOS
INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID) INNER JOIN V_CONTACTOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_CONTACTOS.ID)

82
Source/Base/Base.dproj
View File

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

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

@ -14,7 +14,8 @@ type
procedure VerDiario(ADiario: IBizDiario); procedure VerDiario(ADiario: IBizDiario);
procedure Ver(AAsiento: IBizAsiento); procedure Ver(AAsiento: IBizAsiento);
function Anadir(NumOrden:Integer): 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; function Guardar(AAsiento : IBizAsiento): Boolean;
procedure DescartarCambios(AAsiento : IBizAsiento); procedure DescartarCambios(AAsiento : IBizAsiento);
end; end;
@ -34,7 +35,8 @@ type
constructor Create; override; constructor Create; override;
destructor Destroy; 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; function Guardar(AAsiento : IBizAsiento): Boolean; virtual;
procedure DescartarCambios(AAsiento : IBizAsiento); virtual; procedure DescartarCambios(AAsiento : IBizAsiento); virtual;
function Anadir(NumOrden:Integer): IBizAsiento; function Anadir(NumOrden:Integer): IBizAsiento;
@ -114,6 +116,20 @@ begin
inherited; inherited;
end; 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; function TAsientosController.ValidarAsiento(AAsiento: IBizAsiento): Boolean;
begin begin
Result := False; Result := False;

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

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

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

@ -227,7 +227,7 @@ end;
procedure TfEditorAsiento.EliminarInterno; procedure TfEditorAsiento.EliminarInterno;
begin 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 begin
inherited; inherited;
if not FController.Eliminar(FAsiento) then if not FController.Eliminar(FAsiento) then

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

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

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

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

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

@ -27,6 +27,7 @@ inherited frViewListaSubcuentas: TfrViewListaSubcuentas
Top = 10 Top = 10
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20
Properties.ImmediatePost = True Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D 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; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
procedure Print(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; end;
TClientesController = class(TContactosController, IClientesController) TClientesController = class(TContactosController, IClientesController)
@ -46,6 +48,8 @@ type
function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false);
procedure Print(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; end;
implementation implementation
@ -295,8 +299,51 @@ begin
end; end;
end; end;
function TClientesController.TieneDatosBancarios( procedure TClientesController.SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
ACliente: IBizCliente): 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 begin
Result := False; 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; function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false); procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
procedure Print(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; end;
TProveedoresController = class(TContactosController, IProveedoresController) TProveedoresController = class(TContactosController, IProveedoresController)
@ -41,6 +43,8 @@ type
function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(AProveedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false); procedure Preview(AProveedor : IBizProveedor; AllItems: Boolean = false);
procedure Print(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; end;
implementation implementation
@ -286,6 +290,50 @@ begin
end; end;
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( function TProveedoresController.ValidarContacto(
AContacto: IBizContacto): Boolean; AContacto: IBizContacto): Boolean;
begin begin

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

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

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

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

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

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

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

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

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

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

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

@ -100,6 +100,10 @@ type
function GetIgnorar_Contabilidad: Integer; function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer); procedure SetIgnorar_Contabilidad(const Value: Integer);
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad; 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; end;
IBizProveedor = interface (IBizContacto) IBizProveedor = interface (IBizContacto)
@ -152,6 +156,10 @@ type
function GetIgnorar_Contabilidad: Integer; function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer); procedure SetIgnorar_Contabilidad(const Value: Integer);
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad; 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; end;
IBizEmpleado = interface (IBizContacto) IBizEmpleado = interface (IBizContacto)
@ -270,6 +278,9 @@ type
function GetIgnorar_Contabilidad: Integer; function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer); procedure SetIgnorar_Contabilidad(const Value: Integer);
function GetTiene_Subcuenta: Integer;
procedure SetTiene_Subcuenta(const Value: Integer);
function GetSubCuentas: IBizSubCuentasContacto; function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto); procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -291,6 +302,7 @@ type
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas; property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad; property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
end; end;
@ -332,6 +344,9 @@ type
function GetIgnorar_Contabilidad: Integer; function GetIgnorar_Contabilidad: Integer;
procedure SetIgnorar_Contabilidad(const Value: Integer); procedure SetIgnorar_Contabilidad(const Value: Integer);
function GetTiene_Subcuenta: Integer;
procedure SetTiene_Subcuenta(const Value: Integer);
function GetSubCuentas: IBizSubCuentasContacto; function GetSubCuentas: IBizSubCuentasContacto;
procedure SetSubCuentas(const Value: IBizSubCuentasContacto); procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@ -351,6 +366,7 @@ type
property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas; property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad; property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
property TIENE_SUBCUENTA: Integer read GetTiene_SubCuenta write SetTiene_Subcuenta;
end; end;
@ -611,6 +627,11 @@ begin
result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger;
end; end;
function TBizCliente.GetTiene_Subcuenta: Integer;
begin
result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger;
end;
function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer; function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer;
begin begin
result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger;
@ -637,6 +658,11 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue; DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue;
end; end;
procedure TBizCliente.SetTiene_Subcuenta(const Value: Integer);
begin
DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := Value;
end;
procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer);
begin begin
DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue;
@ -653,8 +679,10 @@ begin
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
IGNORAR_CONTABILIDAD := 0; IGNORAR_CONTABILIDAD := 0;
TIENE_SUBCUENTA := 0;
{$ELSE} {$ELSE}
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0;
{$ENDIF} {$ENDIF}
end; end;
@ -700,6 +728,11 @@ begin
result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger; result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger;
end; end;
function TBizProveedor.GetTiene_Subcuenta: Integer;
begin
result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger;
end;
procedure TBizProveedor.IniciarValoresContactoNuevo; procedure TBizProveedor.IniciarValoresContactoNuevo;
begin begin
inherited; inherited;
@ -708,8 +741,10 @@ begin
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
IGNORAR_CONTABILIDAD := 0; IGNORAR_CONTABILIDAD := 0;
TIENE_SUBCUENTA := 0;
{$ELSE} {$ELSE}
IGNORAR_CONTABILIDAD := 1; IGNORAR_CONTABILIDAD := 1;
TIENE_SUBCUENTA := 0;
{$ENDIF} {$ENDIF}
end; end;
@ -811,6 +846,11 @@ begin
end; end;
procedure TBizProveedor.SetTiene_Subcuenta(const Value: Integer);
begin
DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := Value;
end;
{ TBizEmpleado } { TBizEmpleado }
function TBizEmpleado.GetCATEGORIAValue: String; 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('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]; ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
Execute; Execute;
end; end;
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado //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 begin
with TsrvContabilidad.Create(NIL) do with TsrvContabilidad.Create(NIL) do
try try
@ -210,11 +212,13 @@ begin
ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION]; ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]; ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA];
Execute; Execute;
end; end;
//En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado //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 begin
with TsrvContabilidad.Create(NIL) do with TsrvContabilidad.Create(NIL) do
try try

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

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

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

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

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

@ -46,7 +46,8 @@ implementation
uses uses
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem, cxDBEdit, uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem, cxDBEdit,
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils; uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils,
uClientesController;
procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject); procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject);
var var
@ -90,12 +91,21 @@ end;
procedure TfEditorCliente.GuardarInterno; procedure TfEditorCliente.GuardarInterno;
begin 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 if not Contacto.EsNuevo
and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) then and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0)
if (ShowConfirmMessage('Confirmación de subcuenta', 'Se creará una nueva subcuenta para el cliente' + #10#13 + '¿Esta seguro que desea continuar?') = IDNO) then and ((Contacto as IBizCliente).TIENE_SUBCUENTA = 0) then
frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue := 1; 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; inherited;
end; end;

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

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

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

@ -43,7 +43,7 @@ implementation
{ TfEditorProveedor } { TfEditorProveedor }
uses uses
uDialogUtils, uGruposProveedorController, uBizGruposProveedor; uDialogUtils, uGruposProveedorController, uBizGruposProveedor, uProveedoresController;
procedure TfEditorProveedor.actGruposProveedorExecute(Sender: TObject); procedure TfEditorProveedor.actGruposProveedorExecute(Sender: TObject);
var var
@ -80,12 +80,21 @@ end;
procedure TfEditorProveedor.GuardarInterno; procedure TfEditorProveedor.GuardarInterno;
begin 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 if not Contacto.EsNuevo
and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) then and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0)
if (ShowConfirmMessage('Confirmación de subcuenta', 'Se creará una nueva subcuenta para el proveedor' + #10#13 + '¿Esta seguro que desea continuar?') = IDNO) then and ((Contacto as IBizProveedor).TIENE_SUBCUENTA = 0) then
frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue := 1; 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; inherited;
end; end;

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

@ -1,5 +1,5 @@
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 487 Width = 451
Height = 304 Height = 304
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -10,15 +10,14 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
object layoutApunte: TdxLayoutControl object layoutApunte: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 487 Width = 451
Height = 304 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
DesignSize = ( DesignSize = (
487 451
304) 304)
object eRefSubCuenta: TcxDBTextEdit object eRefSubCuenta: TcxDBTextEdit
Left = 93 Left = 93
@ -41,7 +40,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 346 Width = 346
end end
object BitBtn3: TBitBtn object BitBtn3: TBitBtn
Left = 145 Left = 119
Top = 37 Top = 37
Width = 110 Width = 110
Height = 25 Height = 25
@ -105,7 +104,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 265 Width = 265
end end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 261 Left = 235
Top = 37 Top = 37
Width = 120 Width = 120
Height = 25 Height = 25
@ -149,7 +148,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00} E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object BitBtn2: TBitBtn object BitBtn2: TBitBtn
Left = 387 Left = 361
Top = 37 Top = 37
Width = 90 Width = 90
Height = 25 Height = 25
@ -162,6 +161,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Top = 10 Top = 10
Caption = 'Ignorar en contabilidad' Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD' DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1 Properties.ValueChecked = 1
Properties.ValueUnchecked = 0 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', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_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', uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_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', uBizRecibosProveedorServer in '..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas',
uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas', uRptAlbaranesCliente_Server in '..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.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 *.res}
{$R ..\Servicios\RODLFile.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"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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> <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> <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>
</ProjectExtensions> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> </ProjectExtensions>
<ItemGroup> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<DelphiCompile Include="FactuGES_Server.dpr"> <ItemGroup>
<MainSource>MainSource</MainSource> <DelphiCompile Include="FactuGES_Server.dpr">
</DelphiCompile> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/> </DelphiCompile>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
<Form>srvEjercicios</Form> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvEjercicios</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvEmpresas</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" />
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvAlbaranesProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvAlmacenes</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvContabilidad</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<Form>RptEtiquetasContacto</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptEtiquetasContacto</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> </DCCReference>
<Form>RptFichasEmpleado</Form> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFichasEmpleado</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> </DCCReference>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvContactos</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptFacturasCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> </DCCReference>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvFacturasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvHistoricoMovimientos</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvInventario</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPedidosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
</DCCReference> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> </DCCReference>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvPresupuestosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" />
<Form>RptRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DesignClass>TDataModule</DesignClass> <Form>RptRecibosCliente</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> </DCCReference>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" />
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRecibosProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvReferencias</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasCliente</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvRemesasProveedor</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvUnidadesMedida</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> </DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TDataAbstractService</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="Configuracion\uConexionBD.pas"> </DCCReference>
<Form>frConexionBD</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfGeneral.pas"> </DCCReference>
<Form>frConfGeneral</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TFrame</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfiguracion.pas"> </DCCReference>
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DesignClass>TForm</DesignClass> <Form>fConfiguracion</Form>
</DCCReference> <DesignClass>TForm</DesignClass>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DesignClass>TFrame</DesignClass> <Form>FrameConfiguracion</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="srvLogin_Impl.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>srvLogin</Form>
</DCCReference> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uDataModuleServer.pas"> </DCCReference>
<Form>dmServer</Form> <DCCReference Include="uDataModuleServer.pas">
<DesignClass>TDataModule</DesignClass> <Form>dmServer</Form>
</DCCReference> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="Utiles\RegExpr.pas"/> </DCCReference>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> <DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <DCCReference Include="Utiles\uServerAppUtils.pas" />
</ItemGroup> <DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.1.0.0\0" VALUE "FileVersion", "1.1.0.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"