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

Subida de codigo sin el editor de direccion de entrega (falta repaso en albaranes de cliente de la direccion de entrega

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@192 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-04-09 12:01:22 +00:00
parent c059217bc2
commit 167979c6a2
32 changed files with 457 additions and 563 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

26
Source/GUIBase/uViewTotales.dfm
View File

@ -1,14 +1,14 @@
inherited frViewTotales: TfrViewTotales inherited frViewTotales: TfrViewTotales
Width = 751 Width = 451
Height = 227 Height = 227
Align = alBottom Align = alBottom
ExplicitWidth = 751 ExplicitWidth = 451
ExplicitHeight = 227 ExplicitHeight = 227
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
AlignWithMargins = True AlignWithMargins = True
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 451
Height = 217 Height = 217
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -18,7 +18,6 @@ inherited frViewTotales: TfrViewTotales
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
object Bevel1: TBevel object Bevel1: TBevel
Left = 104 Left = 104
Top = 109 Top = 109
@ -27,14 +26,14 @@ inherited frViewTotales: TfrViewTotales
Shape = bsBottomLine Shape = bsBottomLine
end end
object Bevel3: TBevel object Bevel3: TBevel
Left = 372 Left = 278
Top = 28 Top = 28
Width = 3 Width = 3
Height = 122 Height = 122
Shape = bsRightLine Shape = bsRightLine
end end
object Bevel4: TBevel object Bevel4: TBevel
Left = 484 Left = 390
Top = 109 Top = 109
Width = 192 Width = 192
Height = 9 Height = 9
@ -72,7 +71,7 @@ inherited frViewTotales: TfrViewTotales
Width = 93 Width = 93
end end
object ImporteIVA: TcxDBCurrencyEdit object ImporteIVA: TcxDBCurrencyEdit
Left = 555 Left = 461
Top = 55 Top = 55
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA' DataBinding.DataField = 'IMPORTE_IVA'
@ -103,7 +102,7 @@ inherited frViewTotales: TfrViewTotales
Width = 137 Width = 137
end end
object ImporteTotal: TcxDBCurrencyEdit object ImporteTotal: TcxDBCurrencyEdit
Left = 485 Left = 391
Top = 129 Top = 129
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL' DataBinding.DataField = 'IMPORTE_TOTAL'
@ -165,7 +164,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object edtIVA: TcxDBSpinEdit object edtIVA: TcxDBSpinEdit
Left = 484 Left = 390
Top = 55 Top = 55
AutoSize = False AutoSize = False
DataBinding.DataField = 'IVA' DataBinding.DataField = 'IVA'
@ -202,7 +201,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object ImporteBase: TcxDBCurrencyEdit object ImporteBase: TcxDBCurrencyEdit
Left = 484 Left = 390
Top = 28 Top = 28
AutoSize = False AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE' DataBinding.DataField = 'BASE_IMPONIBLE'
@ -233,7 +232,7 @@ inherited frViewTotales: TfrViewTotales
Width = 92 Width = 92
end end
object edtRE: TcxDBSpinEdit object edtRE: TcxDBSpinEdit
Left = 484 Left = 390
Top = 82 Top = 82
AutoSize = False AutoSize = False
DataBinding.DataField = 'RE' DataBinding.DataField = 'RE'
@ -270,7 +269,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object ImporteRE: TcxDBCurrencyEdit object ImporteRE: TcxDBCurrencyEdit
Left = 555 Left = 461
Top = 82 Top = 82
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_RE' DataBinding.DataField = 'IMPORTE_RE'
@ -366,6 +365,7 @@ inherited frViewTotales: TfrViewTotales
Top = 55 Top = 55
DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
@ -393,7 +393,7 @@ inherited frViewTotales: TfrViewTotales
Width = 81 Width = 81
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 224 Left = 130
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21

14
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -50,6 +50,10 @@
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -61,11 +65,11 @@
<DelphiCompile Include="AlbaranesCliente_view.dpk"> <DelphiCompile Include="AlbaranesCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" /> <DCCReference Include="..\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" /> <DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" /> <DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="uAlbaranesClienteViewRegister.pas" /> <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
<DCCReference Include="uEditorAlbaranCliente.pas"> <DCCReference Include="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form> <Form>fEditorAlbaranCliente</Form>

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -202,6 +202,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -239,7 +239,7 @@ begin
// Avisar si no hay datos bancarios // Avisar si no hay datos bancarios
//if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then //if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
// ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha'); // ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');
{
// Elegir la dirección de envio // Elegir la dirección de envio
case FAlbaran.Cliente.Direcciones.RecordCount of case FAlbaran.Cliente.Direcciones.RecordCount of
0 : begin 0 : begin
@ -270,6 +270,7 @@ begin
FAlbaran.Edit; FAlbaran.Edit;
FAlbaran.IMPORTE_PORTE := 0; FAlbaran.IMPORTE_PORTE := 0;
end; end;
}
// Si el pedido tiene detalles hay que mirar si los descuentos // Si el pedido tiene detalles hay que mirar si los descuentos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.

4
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -116,6 +116,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ExplicitTop = 28 ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Align = alTop Align = alTop
ExplicitWidth = 373
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
@ -322,6 +323,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Top = 109 Top = 109
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
item item
@ -539,6 +541,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 387 ExplicitTop = 387
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 373
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
@ -639,6 +642,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Direcci'#243'n de entrega' Caption = 'Direcci'#243'n de entrega'
Visible = False
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Calle:' Caption = 'Calle:'
Control = eCalle Control = eCalle

27
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -170,11 +170,33 @@ var
ADireccion : IBizDireccionesContacto; ADireccion : IBizDireccionesContacto;
begin begin
inherited; inherited;
{
try
case FFactura.Cliente.Direcciones.RecordCount of
0 : //No hay direcciones secundarias asociadas
else ADireccion := AClientesController.ElegirDireccion(FFactura.Cliente, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
end;
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
if Assigned(ADireccion) then
begin
try
FFactura.Edit;
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
FController.CopiarDireccion(ADireccion, FFactura);
finally
ADireccion := NIL;
end;
end
finally
AClientesController := Nil;
end;
}
{
AClientesController := TClientesController.Create; AClientesController := TClientesController.Create;
AAlbaranController := TAlbaranesClienteController.Create; AAlbaranController := TAlbaranesClienteController.Create;
try try
ADireccion := AClientesController.ElegirDireccionEntrega(FAlbaran.Cliente.Direcciones, ADireccion := AClientesController.ElegirDireccion(FAlbaran.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este albaran.');
'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este albaran.');
if Assigned(ADireccion) then if Assigned(ADireccion) then
begin begin
AAlbaranController.CopiarDireccionEnvio(ADireccion, FAlbaran); AAlbaranController.CopiarDireccionEnvio(ADireccion, FAlbaran);
@ -185,6 +207,7 @@ begin
AClientesController := NIL; AClientesController := NIL;
AAlbaranController := NIL; AAlbaranController := NIL;
end; end;
}
end; end;
procedure TfrViewAlbaranCliente.actElegirDireccionUpdate(Sender: TObject); procedure TfrViewAlbaranCliente.actElegirDireccionUpdate(Sender: TObject);

1
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -196,6 +196,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Top = 192 Top = 192
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
item item

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

@ -205,16 +205,16 @@ begin
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.DynamicWhere do // with Result.DataTable.DynamicWhere do
begin // begin
// (REF_CUENTAS = 600 ventas) // (REF_CUENTAS = 600 ventas)
Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASCOMPRA, datInteger), dboEqual); // Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASCOMPRA, datInteger), dboEqual);
if IsEmpty then // if IsEmpty then
Expression := Condicion // Expression := Condicion
else // else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd); // Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; // end;
finally finally
HideHourglassCursor; HideHourglassCursor;

60
Source/Modulos/Contactos/Contactos_Group.groupproj
View File

@ -70,33 +70,6 @@
<Target Name="Contactos_data:Make"> <Target Name="Contactos_data:Make">
<MSBuild Projects="Data\Contactos_data.dproj" Targets="Make" /> <MSBuild Projects="Data\Contactos_data.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_controller">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_plugin">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="" />
</Target>
<Target Name="Contactos_plugin:Clean">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_plugin:Make">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_model"> <Target Name="Contabilidad_model">
<MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="" /> <MSBuild Projects="..\Contabilidad\Model\Contabilidad_model.dproj" Targets="" />
</Target> </Target>
@ -124,6 +97,33 @@
<Target Name="Contabilidad_controller:Make"> <Target Name="Contabilidad_controller:Make">
<MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Contabilidad\Controller\Contabilidad_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_controller">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_plugin">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="" />
</Target>
<Target Name="Contactos_plugin:Clean">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_plugin:Make">
<MSBuild Projects="Plugin\Contactos_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Contabilidad_view"> <Target Name="Contabilidad_view">
<MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" /> <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
</Target> </Target>
@ -152,13 +152,13 @@
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

1
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

@ -61,7 +61,6 @@ contains
uIEditorElegirContactos in 'View\uIEditorElegirContactos.pas', uIEditorElegirContactos in 'View\uIEditorElegirContactos.pas',
uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas', uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas',
uDireccionesContactoController in 'uDireccionesContactoController.pas', uDireccionesContactoController in 'uDireccionesContactoController.pas',
uIEditorElegirDireccion in 'View\uIEditorElegirDireccion.pas',
uGruposClienteController in 'uGruposClienteController.pas', uGruposClienteController in 'uGruposClienteController.pas',
uIEditorGruposCliente in 'View\uIEditorGruposCliente.pas', uIEditorGruposCliente in 'View\uIEditorGruposCliente.pas',
uGruposProveedorController in 'uGruposProveedorController.pas', uGruposProveedorController in 'uGruposProveedorController.pas',

80
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -49,51 +49,6 @@
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
<Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages> <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@ -104,23 +59,23 @@
<DelphiCompile Include="Contactos_controller.dpk"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de proveedor\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Contabilidad_controller.dcp" /> <DCCReference Include="..\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Contactos_data.dcp" /> <DCCReference Include="..\Contactos_data.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uClientesController.pas" /> <DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" /> <DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" /> <DCCReference Include="uDireccionesContactoController.pas" />
@ -139,7 +94,6 @@
<DCCReference Include="View\uIEditorDireccionContacto.pas" /> <DCCReference Include="View\uIEditorDireccionContacto.pas" />
<DCCReference Include="View\uIEditorElegirClientes.pas" /> <DCCReference Include="View\uIEditorElegirClientes.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" /> <DCCReference Include="View\uIEditorElegirContactos.pas" />
<DCCReference Include="View\uIEditorElegirDireccion.pas" />
<DCCReference Include="View\uIEditorElegirProveedores.pas" /> <DCCReference Include="View\uIEditorElegirProveedores.pas" />
<DCCReference Include="View\uIEditorEmpleado.pas" /> <DCCReference Include="View\uIEditorEmpleado.pas" />
<DCCReference Include="View\uIEditorEmpleados.pas" /> <DCCReference Include="View\uIEditorEmpleados.pas" />

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

@ -13,7 +13,6 @@ type
['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}'] ['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}']
function BuscarTodosTiendaWeb: IBizCliente; function BuscarTodosTiendaWeb: IBizCliente;
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto;
function EsEliminable(ACliente: IBizContacto): Boolean; function EsEliminable(ACliente: IBizContacto): Boolean;
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);
@ -42,8 +41,6 @@ type
function ElegirContacto(AContactos : IBizContacto; function ElegirContacto(AContactos : IBizContacto;
AMensaje: String; AMultiSelect: Boolean): IBizContacto; override; AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
AMensaje: String): IBizDireccionesContacto;
function EsEliminable(ACliente: IBizContacto): Boolean; function EsEliminable(ACliente: IBizContacto): Boolean;
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);
@ -57,7 +54,7 @@ implementation
uses uses
Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils, Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
uIEditorElegirClientes, uIEditorElegirDireccion, uEditorGridBase, uIEditorElegirClientes, uEditorGridBase,
Dialogs; Dialogs;
{ TClientesController } { TClientesController }
@ -125,28 +122,6 @@ begin
end; end;
end; end;
function TClientesController.ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto;
AMensaje: String): IBizDireccionesContacto;
var
AEditor : IEditorElegirDireccion;
begin
Result := NIL;
CreateEditor('EditorElegirDireccion', IEditorElegirDireccion, AEditor);
try
with AEditor do
begin
Direccion := ADirecciones;
Mensaje := AMensaje;
if IsPositiveResult(ShowModal) then
Result := DireccionSeleccionada;
Release;
end;
finally
AEditor := NIL;
end;
end;
function TClientesController.Eliminar(ACliente: IBizContacto; AllItems: Boolean): Boolean; function TClientesController.Eliminar(ACliente: IBizContacto; AllItems: Boolean): Boolean;
//En el caso de eliminar almenos un elemento del conjunto se devuelve true //En el caso de eliminar almenos un elemento del conjunto se devuelve true
var var

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

@ -49,8 +49,7 @@ implementation
uses uses
Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils, Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
uIEditorElegirProveedores, Controls, uIEditorElegirDireccion, uIEditorElegirProveedores, Controls, uEditorGridBase, JSDialogs, JSDialog, Windows;
uEditorGridBase, JSDialogs, JSDialog, Windows;
{ TProveedoresController } { TProveedoresController }

1
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -74,7 +74,6 @@ contains
uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame}, uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame},
uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame}, uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame},
uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion}, uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion},
uEditorElegirDireccion in 'uEditorElegirDireccion.pas' {fEditorElegirDireccion: TfEditorElegirDireccionEntrega},
uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame}, uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame},
uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame}, uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame},
uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame}, uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame},

54
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,31 +49,26 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Facturas de cliente\Views\adortl.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\ccpackD11.dcp" /> <DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\cfpack_d11.dcp" /> <DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\designide.dcp" /> <DCCReference Include="designide.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\dsnap.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\FormasPago_controller.dcp" /> <DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\FormasPago_model.dcp" /> <DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\GUISDK_D11.dcp" /> <DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\JvGlobusD11R.dcp" /> <DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\RemObjects_Core_D11.dcp" /> <DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\rtl.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\TiposIVA_controller.dcp" /> <DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\TiposIVA_model.dcp" /> <DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vcl.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vclactnband.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\vclx.dcp" />
<DCCReference Include="..\..\Facturas de cliente\Views\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>
@ -98,10 +93,6 @@
<Form>fEditorElegirClientes</Form> <Form>fEditorElegirClientes</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirDireccion.pas">
<Form>fEditorElegirDireccion</Form>
<DesignClass>TfEditorElegirDireccionEntrega</DesignClass>
</DCCReference>
<DCCReference Include="uEditorElegirProveedores.pas"> <DCCReference Include="uEditorElegirProveedores.pas">
<Form>fEditorElegirProveedores</Form> <Form>fEditorElegirProveedores</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
@ -210,6 +201,11 @@
<Form>frViewSubCuentaContacto</Form> <Form>frViewSubCuentaContacto</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

4
Source/Modulos/Contactos/Views/uContactosViewRegister.pas
View File

@ -13,7 +13,7 @@ uses
uEditorEmpleados, uEditorElegirCLientes, uEditorEmpleados, uEditorElegirCLientes,
uEditorCliente, uEditorProveedor, uEditorCliente, uEditorProveedor,
uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion, uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
uEditorElegirDireccion, uEditorGruposCliente, uEditorProcedenciasCliente, uEditorGruposCliente, uEditorProcedenciasCliente,
uEditorGruposProveedor, uEditorGruposEmpleado, uEditorGruposProveedor, uEditorGruposEmpleado,
uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport; uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
@ -31,7 +31,6 @@ begin
EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores'); EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion'); EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
EditorRegistry.RegisterClass(TfEditorElegirDireccion, 'EditorElegirDireccion');
EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente'); EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente'); EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente');
@ -56,7 +55,6 @@ begin
EditorRegistry.UnRegisterClass(TfEditorElegirProveedores); EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
EditorRegistry.UnRegisterClass(TfEditorDireccion); EditorRegistry.UnRegisterClass(TfEditorDireccion);
EditorRegistry.UnRegisterClass(TfEditorElegirDireccion);
EditorRegistry.UnRegisterClass(TfEditorGruposCliente); EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente); EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);

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

@ -231,7 +231,7 @@ end;
function TFacturasClienteController.Anadir(AFactura: IBizFacturaCliente) : Boolean; function TFacturasClienteController.Anadir(AFactura: IBizFacturaCliente) : Boolean;
begin begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignada (Anadir)'); raise Exception.Create ('Factura no asignada (Anadir)');
AFactura.Insert; AFactura.Insert;
Result := True; Result := True;
end; end;

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

@ -72,7 +72,7 @@ type
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
function GetSITUACIONValue: String; override; function GetSITUACIONValue: String; override;
// procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; // procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); override; procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); override;
procedure SetID_TIPO_IVAValue(const aValue: Integer); override; procedure SetID_TIPO_IVAValue(const aValue: Integer); override;
@ -272,7 +272,6 @@ end;
procedure TBizFacturaCliente.OnNewRecord(Sender: TDADataTable); procedure TBizFacturaCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
// ID := GetRecNo; // -1, -2, -3...
IniciarValoresFacturaNueva; IniciarValoresFacturaNueva;
end; end;

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

@ -49,29 +49,34 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" /> <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Articulos_view.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="Contabilidad_controller.dcp" /> <DCCReference Include="..\Contabilidad_controller.dcp" />
<DCCReference Include="Contabilidad_view.dcp" /> <DCCReference Include="..\Contabilidad_view.dcp" />
<DCCReference Include="Contactos_view.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" /> <DCCReference Include="..\FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" /> <DCCReference Include="..\FacturasCliente_model.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -112,11 +117,6 @@
<Form>frViewFacturasCliente</Form> <Form>frViewFacturasCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

@ -102,12 +102,20 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Height = 350 Height = 350
ExplicitWidth = 757 ExplicitWidth = 757
ExplicitHeight = 350 ExplicitHeight = 350
inherited memObservaciones: TcxDBMemo
ExplicitWidth = 301
Width = 301
end
inherited frViewClienteFactura1: TfrViewClienteFactura inherited frViewClienteFactura1: TfrViewClienteFactura
Width = 314 Width = 314
ExplicitWidth = 314 ExplicitWidth = 314
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 314 Width = 314
ExplicitWidth = 314 ExplicitWidth = 314
inherited Bevel1: TBevel
Width = 266
ExplicitWidth = 266
end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitWidth = 224 ExplicitWidth = 224

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

@ -429,7 +429,9 @@ begin
if Assigned(FFactura) then if Assigned(FFactura) then
begin begin
dsDataTable.DataTable := FFactura.DataTable; dsDataTable.DataTable := FFactura.DataTable;
frViewTotales1.DADataSource.DataTable := FFactura.DataTable; frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
FTiposIVA := FTiposIVAController.BuscarTodos; FTiposIVA := FTiposIVAController.BuscarTodos;
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable; frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
FTiposIVA.DataTable.Active := True; FTiposIVA.DataTable.Active := True;
@ -457,6 +459,7 @@ begin
frViewTotales1.DADataSource.DataTable := NIL; frViewTotales1.DADataSource.DataTable := NIL;
frViewTotales1.dsTiposIVA.DataTable := NIL; frViewTotales1.dsTiposIVA.DataTable := NIL;
end end
end; end;
procedure TfEditorFacturaCliente.SetViewFactura(const Value: IViewFacturaCliente); procedure TfEditorFacturaCliente.SetViewFactura(const Value: IViewFacturaCliente);

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

@ -25,6 +25,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
@ -83,6 +84,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Top = 84 Top = 84
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
@ -196,6 +198,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Left = 82 Left = 82
ExplicitLeft = 82 ExplicitLeft = 82
end end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup

8
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -150,10 +150,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350 Width = 350
ExplicitWidth = 350 ExplicitWidth = 350
inherited Bevel1: TBevel
Width = 242
ExplicitWidth = 242
end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
ExplicitWidth = 266 ExplicitWidth = 266
@ -181,10 +177,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
end end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 276
Width = 276
end
end end
end end
end end

28
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 798 Width = 831
Height = 514 Height = 466
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 798 Width = 831
Height = 514 Height = 466
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -19,8 +19,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
798 831
514) 466)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
@ -85,6 +85,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Top = 138 Top = 138
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
@ -112,7 +113,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 169 Width = 169
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 306 Left = 324
Top = 138 Top = 138
Width = 132 Width = 132
Height = 23 Height = 23
@ -188,7 +189,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158 Width = 158
end end
inline frViewProveedorFactura1: TfrViewProveedorFactura inline frViewProveedorFactura1: TfrViewProveedorFactura
Left = 466 Left = 484
Top = 30 Top = 30
Width = 312 Width = 312
Height = 260 Height = 260
@ -200,12 +201,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 7
ReadOnly = False ReadOnly = False
ExplicitLeft = 466 ExplicitLeft = 484
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 312 ExplicitWidth = 312
ExplicitHeight = 260 ExplicitHeight = 260
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 312 Width = 312
ExplicitWidth = 312
inherited Bevel1: TBevel inherited Bevel1: TBevel
Width = 242 Width = 242
ExplicitWidth = 242 ExplicitWidth = 242
@ -231,12 +233,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 218 Left = 233
ExplicitLeft = 218 ExplicitLeft = 233
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 102 Left = 117
ExplicitLeft = 102 ExplicitLeft = 117
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 276 ExplicitWidth = 276

2
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -201,7 +201,7 @@ begin
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
//Solo se deshabilita al insertar, luego la referencia será modificable //Solo se deshabilita al insertar, luego la referencia será modificable
eReferencia.Enabled := (FFactura.DataTable.State = dsInsert); //eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);
if FFactura.TIPO = CTE_TIPO_ABONO then if FFactura.TIPO = CTE_TIPO_ABONO then
begin begin

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

@ -225,34 +225,6 @@ begin
{if not AClientesController.TieneDatosBancarios(FPresupuesto.Cliente) then {if not AClientesController.TieneDatosBancarios(FPresupuesto.Cliente) then
MessageBox(0, 'Este cliente no tiene datos bancarios en su ficha', 'Atención', MB_ICONWARNING or MB_OK);} MessageBox(0, 'Este cliente no tiene datos bancarios en su ficha', 'Atención', MB_ICONWARNING or MB_OK);}
case FPresupuesto.Cliente.Direcciones.RecordCount of
// No avisar si el cliente no tiene direcciones
{0 : begin
FController.QuitarDireccionEnvio(FPresupuesto);
MessageBox(0, '¡Atención! Este cliente no tiene ' + #10#13 + 'ninguna dirección de envío en su ficha', 'Atención', MB_ICONWARNING or MB_OK);
FPresupuesto.Edit;
FPresupuesto.IMPORTE_PORTE := 0;
end;}
1 : begin
FController.CopiarDireccionEnvio(FPresupuesto.Cliente.Direcciones, FPresupuesto);
FPresupuesto.Edit;
FPresupuesto.IMPORTE_PORTE := FPresupuesto.Cliente.Direcciones.PORTE;
end
else begin
ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones, '');
try
if Assigned(ADireccion) then
begin
FController.CopiarDireccionEnvio(ADireccion, FPresupuesto);
FPresupuesto.Edit;
FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE;
end;
finally
ADireccion := NIL;
end;
end;
end;
// Si el Presupuesto tiene detalles hay que mirar si los descuentos y otros campos // Si el Presupuesto tiene detalles hay que mirar si los descuentos y otros campos
// para los artículos hay que cambiarlos. // para los artículos hay que cambiarlos.
if (FPresupuesto.Detalles.RecordCount > 0) then if (FPresupuesto.Detalles.RecordCount > 0) then

5
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -144,6 +144,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Top = 217 Top = 217
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
item item
@ -312,7 +313,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Top = 190 Top = 190
DataBinding.DataField = 'ID_VENDEDOR' DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True Properties.ImmediateUpdateText = True
Properties.Sorted = True Properties.Sorted = True
@ -452,8 +453,6 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Top = 40 Top = 40
object actElegirDireccion: TAction object actElegirDireccion: TAction
Caption = 'Elegir una direcci'#243'n de env'#237'o...' Caption = 'Elegir una direcci'#243'n de env'#237'o...'
OnExecute = actElegirDireccionExecute
OnUpdate = actElegirDireccionUpdate
end end
end end
object dsFormaPago: TDADataSource object dsFormaPago: TDADataSource

40
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -70,8 +70,6 @@ type
dxLayoutControl1Item11: TdxLayoutItem; dxLayoutControl1Item11: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject);
procedure actElegirDireccionUpdate(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure frViewClientePresupuestoButton1Click(Sender: TObject); procedure frViewClientePresupuestoButton1Click(Sender: TObject);
procedure frViewClientePresupuestoButton2Click(Sender: TObject); procedure frViewClientePresupuestoButton2Click(Sender: TObject);
@ -108,44 +106,6 @@ uses
uClientesController, uBizContactos, uBizDireccionesContacto, uFactuGES_App; uClientesController, uBizContactos, uBizDireccionesContacto, uFactuGES_App;
procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject);
var
AClientesController : IClientesController;
APresupuestoController : IPresupuestosClienteController;
ADireccion : IBizDireccionesContacto;
begin
inherited;
AClientesController := TClientesController.Create;
APresupuestoController := TPresupuestosClienteController.Create;
try
ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones,
'Seleccione la dirección del cliente que quiere utilizar como dirección de este presupuesto.');
if Assigned(ADireccion) then
begin
APresupuestoController.CopiarDireccionEnvio(ADireccion, FPresupuesto);
FPresupuesto.Edit;
FPresupuesto.IMPORTE_PORTE := ADireccion.PORTE;
end;
finally
AClientesController := NIL;
APresupuestoController := NIL;
end;
end;
procedure TfrViewPresupuestoCliente.actElegirDireccionUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Enabled := (not ReadOnly) and
Assigned(FPresupuesto) and
Assigned(FViewClientePresupuesto) and
FPresupuesto.DataTable.Active and
Assigned(FPresupuesto.Cliente) and
Assigned(FPresupuesto.Cliente) and
Assigned(FPresupuesto.Cliente.Direcciones) and
FPresupuesto.Cliente.Direcciones.DataTable.Active and
(FPresupuesto.Cliente.Direcciones.DataTable.RecordCount > 0);
end;
procedure TfrViewPresupuestoCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewPresupuestoCliente.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

504
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,258 +1,254 @@
<?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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<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> <ItemGroup>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <DelphiCompile Include="FactuGES_Server.dpr">
</ProjectExtensions> <MainSource>MainSource</MainSource>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> </DelphiCompile>
<ItemGroup> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
<DelphiCompile Include="FactuGES_Server.dpr"> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" /> <Form>srvEjercicios</Form>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" /> </DCCReference>
<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas"> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<Form>srvEjercicios</Form> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
</DCCReference> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
</DCCReference> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <Form>srvContabilidad</Form>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<Form>srvContabilidad</Form> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <Form>RptEtiquetasContacto</Form>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptEtiquetasContacto</Form> <Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas"> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>RptFichasEmpleado</Form> <Form>srvContactos</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <Form>RptFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>RptFacturasCliente</Form> <Form>srvFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<Form>srvFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <Form>srvHistoricoMovimientos</Form>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
</DCCReference> <Form>srvInventario</Form>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <Form>srvPresupuestosCliente</Form>
<Form>RptPresupuestosCliente</Form> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<Form>srvPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <Form>RptRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" /> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas"> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>RptRecibosCliente</Form> <Form>srvRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataAbstractService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizRecibosProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
</DCCReference> <Form>srvReferencias</Form>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<Form>srvReferencias</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" /> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" /> <Form>srvRemesasProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<Form>srvRemesasProveedor</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <Form>srvUnidadesMedida</Form>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" /> </DCCReference>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas"> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<Form>srvUnidadesMedida</Form> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
</DCCReference> <Form>srvConfiguracion</Form>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> </DCCReference>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="Configuracion\uConexionBD.pas">
<Form>srvConfiguracion</Form> <Form>frConexionBD</Form>
<DesignClass>TDataAbstractService</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConexionBD</Form> <Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>frConfGeneral</Form> <Form>fConfiguracion</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>fConfiguracion</Form> <Form>FrameConfiguracion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DCCReference Include="srvLogin_Impl.pas">
<Form>FrameConfiguracion</Form> <Form>srvLogin</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="srvLogin_Impl.pas"> <DCCReference Include="uAcercaDe.pas">
<Form>srvLogin</Form> <Form>fAcercaDe</Form>
<DesignClass>TDARemoteService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="uAcercaDe.pas"> <Form>dmServer</Form>
<Form>fAcercaDe</Form> <DesignClass>TDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uDataModuleServer.pas"> <DCCReference Include="uServerMainForm.pas">
<Form>dmServer</Form> <Form>fServerForm</Form>
<DesignClass>TDataModule</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="uServerMainForm.pas"> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<Form>fServerForm</Form> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
</DCCReference> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> </ItemGroup>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<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", "martes, 08 de abril de 2008 20:49\0" VALUE "CompileDate", "miércoles, 09 de abril de 2008 13:55\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"