Tienda web terminada.
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@79 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
919e14e422
commit
3c83be10a3
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
@ -58,63 +58,63 @@
|
||||
<Form>DataModuleImpresiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
|
||||
<Form>DataModuleRegistroCorreos</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
|
||||
/* c:\temp\dtf8F.tmp */
|
||||
/* c:\temp\dtf8A.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
|
||||
/* c:\temp\dtf8D.tmp */
|
||||
/* c:\temp\dtf88.tmp */
|
||||
|
||||
@ -13,4 +13,4 @@ BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
|
||||
/* c:\temp\dtf8B.tmp */
|
||||
/* c:\temp\dtf86.tmp */
|
||||
|
||||
@ -14,4 +14,4 @@ END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
|
||||
/* c:\temp\dtfF3.tmp */
|
||||
/* c:\temp\dtfF2.tmp */
|
||||
|
||||
@ -26,4 +26,4 @@ END
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
|
||||
/* c:\temp\dtfF1.tmp */
|
||||
/* c:\temp\dtfF0.tmp */
|
||||
|
||||
@ -348,9 +348,9 @@ var
|
||||
i : Integer;
|
||||
j : Integer;
|
||||
|
||||
//ADlg : TJSDialog;
|
||||
// ADlg : TJSDialog;
|
||||
Resultado : Boolean;
|
||||
s : String;
|
||||
// s : String;
|
||||
|
||||
ACustomerList : TIntegerList;
|
||||
AIndex : Integer;
|
||||
@ -364,8 +364,8 @@ begin
|
||||
AOSCCustomerController := TOscCustomersController.Create;
|
||||
|
||||
ACustomerList := TIntegerList.Create;
|
||||
|
||||
{ADlg := TJSDialog.Create(Application);
|
||||
|
||||
{ ADlg := TJSDialog.Create(Application);
|
||||
with ADlg do
|
||||
begin
|
||||
Title := 'Actualización de clientes';
|
||||
@ -378,7 +378,7 @@ begin
|
||||
Expando.ShowInFooter := True;
|
||||
Expando.ShowText := 'Ver más detalles...';
|
||||
Expando.HideText := 'Ocultar detalles...';
|
||||
Progress.Max := 100;
|
||||
Progress.Max := 100;
|
||||
end;}
|
||||
|
||||
AClientes := (AClientesController.BuscarTodosTiendaWeb as IBizCliente);
|
||||
@ -389,11 +389,11 @@ begin
|
||||
AOSCCustomers.DataTable.Active := True;
|
||||
AOSCCustomers.DataTable.First;
|
||||
|
||||
{if AClientes.DataTable.RecordCount > 0 then
|
||||
{ if AClientes.DataTable.RecordCount > 0 then
|
||||
ADlg.Progress.Max := AClientes.DataTable.RecordCount;
|
||||
|
||||
ADlg.Execute;
|
||||
}
|
||||
ADlg.Execute;}
|
||||
|
||||
|
||||
{s := '';
|
||||
AOSCCustomers.DataTable.First;
|
||||
@ -407,7 +407,7 @@ begin
|
||||
for I := 0 to AClientes.DataTable.RecordCount - 1 do
|
||||
begin
|
||||
Application.ProcessMessages;
|
||||
{with ADlg do
|
||||
{ with ADlg do
|
||||
begin
|
||||
Content.Text := Format('Progreso: %d%%', [Progress.Position*100 div ADlg.Progress.Max]);
|
||||
UpdateProgress;
|
||||
@ -416,28 +416,28 @@ begin
|
||||
|
||||
if not AOSCCustomerController.Localizar(AOSCCustomers, AClientes.ID) then
|
||||
begin
|
||||
s := Format('Añadiendo %s... ', [AClientes.NOMBRE]);
|
||||
//s := Format('Añadiendo %s... ', [AClientes.NOMBRE]);
|
||||
Resultado := AnadirOSCCustomer(AOSCCustomers, AClientes);
|
||||
if Resultado then
|
||||
{if Resultado then
|
||||
s := s + 'OK'
|
||||
else
|
||||
s := s + 'Fallo';
|
||||
s := s + 'Fallo';}
|
||||
end
|
||||
else begin
|
||||
if HayCambiosPendientes(AClientes, AOSCCustomers, ATiendaWeb.ULTIMA_ACTUALIZACION) then
|
||||
begin
|
||||
s := Format('Actualizando %s... ', [AClientes.NOMBRE]);
|
||||
//s := Format('Actualizando %s... ', [AClientes.NOMBRE]);
|
||||
Resultado := ActualizarOSCCustomer(AOSCCustomers, AClientes);
|
||||
if Resultado then
|
||||
{if Resultado then
|
||||
s := s + 'OK'
|
||||
else
|
||||
s := s + 'Fallo';
|
||||
s := s + 'Fallo';}
|
||||
end
|
||||
else
|
||||
s := Format('%s sin cambios', [AClientes.NOMBRE]);
|
||||
{else
|
||||
s := Format('%s sin cambios', [AClientes.NOMBRE]);}
|
||||
end;
|
||||
|
||||
//ADlg.Expando.Lines.Add(s);
|
||||
// ADlg.Expando.Lines.Add(s);
|
||||
ACustomerList.Add(AClientes.ID);
|
||||
AClientes.DataTable.Next;
|
||||
end;
|
||||
@ -449,8 +449,8 @@ begin
|
||||
Application.ProcessMessages;
|
||||
if not ACustomerList.Find(AOSCCustomers.rdx_customers_id_local, AIndex) then
|
||||
begin
|
||||
s := Format('Eliminado %s... ', [AOSCCustomers.customers_firstname]);
|
||||
//ADlg.Expando.Lines.Add(s);
|
||||
//s := Format('Eliminado %s... ', [AOSCCustomers.customers_firstname]);
|
||||
// ADlg.Expando.Lines.Add(s);
|
||||
AOSCCustomers.Delete;
|
||||
end;
|
||||
AOSCCustomers.Prior;
|
||||
@ -461,7 +461,7 @@ begin
|
||||
Application.ProcessMessages;
|
||||
Result := True;
|
||||
finally
|
||||
{ADlg.Close;
|
||||
{ ADlg.Close;
|
||||
FreeAndNIL(ADlg);}
|
||||
|
||||
FreeAndNIL(ACustomerList);
|
||||
|
||||
@ -108,7 +108,7 @@ var
|
||||
|
||||
//ADlg : TJSDialog;
|
||||
Resultado : Boolean;
|
||||
s : String;
|
||||
// s : String;
|
||||
|
||||
AManufacturerList : TIntegerList;
|
||||
AIndex : Integer;
|
||||
@ -164,25 +164,25 @@ begin
|
||||
|
||||
if not AOSCManufacturerController.Localizar(AOSCManufacturers, AProveedores.ID) then
|
||||
begin
|
||||
s := Format('Añadiendo %s... ', [AProveedores.NOMBRE]);
|
||||
//s := Format('Añadiendo %s... ', [AProveedores.NOMBRE]);
|
||||
Resultado := AnadirOSCManufacturer(AOSCManufacturers, AProveedores);
|
||||
if Resultado then
|
||||
{if Resultado then
|
||||
s := s + 'OK'
|
||||
else
|
||||
s := s + 'Fallo';
|
||||
s := s + 'Fallo';}
|
||||
end
|
||||
else begin
|
||||
if HayCambiosPendientes(AProveedores, ATiendaWeb.ULTIMA_ACTUALIZACION) then
|
||||
begin
|
||||
s := Format('Actualizando %s... ', [AProveedores.NOMBRE]);
|
||||
//s := Format('Actualizando %s... ', [AProveedores.NOMBRE]);
|
||||
Resultado := ActualizarOSCManufacturer(AOSCManufacturers, AProveedores);
|
||||
if Resultado then
|
||||
{if Resultado then
|
||||
s := s + 'OK'
|
||||
else
|
||||
s := s + 'Fallo';
|
||||
s := s + 'Fallo';}
|
||||
end
|
||||
else
|
||||
s := Format('%s sin cambios', [AProveedores.NOMBRE]);
|
||||
{ else
|
||||
s := Format('%s sin cambios', [AProveedores.NOMBRE]);}
|
||||
end;
|
||||
|
||||
//ADlg.Expando.Lines.Add(s);
|
||||
@ -205,7 +205,7 @@ begin
|
||||
Application.ProcessMessages;
|
||||
if not AManufacturerList.Find(AOSCManufacturers.rdx_manufacturers_id_local, AIndex) then
|
||||
begin
|
||||
s := Format('Eliminado %s... ', [AOSCManufacturers.manufacturers_name]);
|
||||
//s := Format('Eliminado %s... ', [AOSCManufacturers.manufacturers_name]);
|
||||
//ADlg.Expando.Lines.Add(s);
|
||||
AOSCManufacturers.Delete;
|
||||
end;
|
||||
@ -220,7 +220,6 @@ begin
|
||||
FreeAndNIL(ADlg);
|
||||
Application.ProcessMessages;}
|
||||
|
||||
|
||||
FreeAndNIL(AManufacturerList);
|
||||
|
||||
AProveedores.DataTable.Active := False;
|
||||
|
||||
@ -376,12 +376,13 @@ begin
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if AOscCustomers.EsNuevo then
|
||||
{if AOscCustomers.EsNuevo then
|
||||
NuevoID := FDataModule.GetNextIDOSC('customers')
|
||||
else
|
||||
NuevoID := AOscCustomers.customers_id;
|
||||
|
||||
AsignarID(AOscCustomers, NuevoID);
|
||||
AsignarID(AOscCustomers, NuevoID);}
|
||||
|
||||
AOscCustomers.DataTable.ApplyUpdates;
|
||||
|
||||
Result := True;
|
||||
|
||||
@ -375,10 +375,10 @@ begin
|
||||
try
|
||||
{ if AOscManufacturers.EsNuevo then
|
||||
NuevoID := FDataModule.GetNextID(AOscManufacturers.DataTable.LogicalName)
|
||||
else}
|
||||
else
|
||||
NuevoID := AOscManufacturers.manufacturers_id;
|
||||
|
||||
AsignarID(AOscManufacturers, NuevoID);
|
||||
AsignarID(AOscManufacturers, NuevoID);}
|
||||
AOscManufacturers.DataTable.ApplyUpdates;
|
||||
|
||||
Result := True;
|
||||
|
||||
@ -354,13 +354,13 @@ begin
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if AOscOrders.EsNuevo then
|
||||
{ if AOscOrders.EsNuevo then
|
||||
NuevoID := FDataModule.GetNextIDOSC('customers')
|
||||
else
|
||||
NuevoID := AOscOrders.customers_id;
|
||||
|
||||
AsignarID(AOscOrders, NuevoID);
|
||||
showmessage('voy a applyupdates');
|
||||
showmessage('voy a applyupdates');}
|
||||
AOscOrders.DataTable.ApplyUpdates;
|
||||
|
||||
Result := True;
|
||||
|
||||
@ -39,12 +39,7 @@ type
|
||||
function Buscar(const ID_Empresa: Integer): IBizTiendaWeb;
|
||||
function Ver(ATiendaWeb: IBizTiendaWeb) : Integer;
|
||||
|
||||
function HayConexionConTienda: Boolean;
|
||||
|
||||
{function HayConexionConTienda(ATiendaWeb : IBizTiendaWeb): Boolean; overload;
|
||||
function HayConexionConTienda(const ABDServer : String;
|
||||
const ABDName : String; const ABDUser : String;
|
||||
const ABDPass : String): Boolean; overload;}
|
||||
function HayConexionConTienda: Boolean;
|
||||
|
||||
function ActualizarTienda(ATiendaWeb : IBizTiendaWeb): Boolean;
|
||||
function DescargarPedidos(ATiendaWeb : IBizTiendaWeb): Boolean;
|
||||
@ -73,11 +68,7 @@ type
|
||||
function Buscar(const ID_Empresa: Integer): IBizTiendaWeb;
|
||||
function Ver(ATiendaWeb: IBizTiendaWeb) : Integer;
|
||||
|
||||
function HayConexionConTienda: Boolean;
|
||||
{function HayConexionConTienda(ATiendaWeb : IBizTiendaWeb): Boolean; overload;
|
||||
function HayConexionConTienda(const ABDServer : String;
|
||||
const ABDName : String; const ABDUser : String;
|
||||
const ABDPass : String): Boolean; overload;}
|
||||
function HayConexionConTienda: Boolean;
|
||||
|
||||
function ActualizarTienda(ATiendaWeb : IBizTiendaWeb): Boolean;
|
||||
function DescargarPedidos(ATiendaWeb : IBizTiendaWeb): Boolean;
|
||||
@ -449,14 +440,8 @@ begin
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if ATiendaWeb.EsNuevo then
|
||||
NuevoID := FDataModule.GetNextID(ATiendaWeb.DataTable.LogicalName)
|
||||
else
|
||||
NuevoID := ATiendaWeb.ID;
|
||||
|
||||
AsignarID(ATiendaWeb, NuevoID);
|
||||
ATiendaWeb.DataTable.ApplyUpdates;
|
||||
|
||||
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
@ -470,62 +455,5 @@ begin
|
||||
Result := FDataModule.HayConexionConTienda;
|
||||
end;
|
||||
|
||||
{function TTiendaWebController.HayConexionConTienda(
|
||||
ATiendaWeb: IBizTiendaWeb): Boolean;
|
||||
begin
|
||||
if not Assigned(ATiendaWeb) then
|
||||
raise Exception.Create ('TiendaWeb no asignada');
|
||||
|
||||
with ATiendaWeb do
|
||||
begin
|
||||
DataTable.Active := True;
|
||||
Result := Self.HayConexionConTienda(BDSERVER, BDNAME, BDUSER, BDPASS);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TTiendaWebController.HayConexionConTienda(
|
||||
const ABDServer : String; const ABDName : String;
|
||||
const ABDUser : String; const ABDPass : String): Boolean;
|
||||
var
|
||||
SQLConnection1: TSQLConnection;
|
||||
begin
|
||||
SQLConnection1 := TSQLConnection.Create(nil);
|
||||
try
|
||||
with SQLConnection1 do
|
||||
begin
|
||||
Name := 'SQLConnection1';
|
||||
ConnectionName := 'MySQLConnection';
|
||||
DriverName := 'MySQL';
|
||||
GetDriverFunc := 'getSQLDriverMYSQL';
|
||||
LibraryName := 'dbxmys30.dll';
|
||||
LoginPrompt := False;
|
||||
with Params do
|
||||
begin
|
||||
Clear;
|
||||
Add('BlobSize=-1');
|
||||
Add('DriverName=MySQL');
|
||||
Add('ErrorResourceFile=');
|
||||
Add('LocaleCode=0000');
|
||||
Add('Compressed=True');
|
||||
Add('Encrypted=True');
|
||||
Add('Database=' + ABDName);
|
||||
Add('HostName=' + ABDServer);
|
||||
Add('User_Name=' + ABDUser);
|
||||
Add('Password=' + ABDPass);
|
||||
end;
|
||||
VendorLib := 'LIBMYSQL.dll';
|
||||
|
||||
try
|
||||
Connected := True;
|
||||
Result := True;
|
||||
Connected := False;
|
||||
except
|
||||
Result := False;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
FreeAndNIL(SQLConnection1);
|
||||
end;
|
||||
end;}
|
||||
|
||||
end.
|
||||
|
||||
@ -12,6 +12,6 @@ STRINGTABLE
|
||||
BEGIN
|
||||
END
|
||||
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.DFM */
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
|
||||
/* c:\temp\dtfA5.tmp */
|
||||
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.drf */
|
||||
|
||||
@ -40,7 +40,7 @@ inherited DataModuleTiendaWeb: TDataModuleTiendaWeb
|
||||
Fields = <
|
||||
item
|
||||
Name = 'address_book_id'
|
||||
DataType = datInteger
|
||||
DataType = datAutoInc
|
||||
Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
|
||||
ServerAutoRefresh = True
|
||||
InPrimaryKey = True
|
||||
@ -285,7 +285,7 @@ inherited DataModuleTiendaWeb: TDataModuleTiendaWeb
|
||||
Fields = <
|
||||
item
|
||||
Name = 'orders_id'
|
||||
DataType = datInteger
|
||||
DataType = datAutoInc
|
||||
Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
|
||||
ServerAutoRefresh = True
|
||||
InPrimaryKey = True
|
||||
|
||||
@ -61,12 +61,9 @@ type
|
||||
ds_osc_Products: TDADataSource;
|
||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||
protected
|
||||
function DarNombreGenerador(DataSetName: String): String; virtual;
|
||||
|
||||
function _GetOSCAddressBook: IBizOscAddressBook;
|
||||
function _GetOSCOrderProducts: IBizOSCOrderProducts;
|
||||
public
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function GetItems: IBizTiendaWeb;
|
||||
function GetItem(const ID_Empresa : Integer) : IBizTiendaWeb;
|
||||
function NewItem : IBizTiendaWeb;
|
||||
@ -83,8 +80,6 @@ type
|
||||
function GetOSCProduct(const IDLocal : Integer): IBizOSCProduct;
|
||||
function NewOSCProduct : IBizOSCProduct;
|
||||
|
||||
function GetNextIDOSC(const DataSetName : String) : Integer;
|
||||
|
||||
function GetOSCOrders: IBizOscOrder;
|
||||
function GetOSCOrder(const IDLocal : Integer): IBizOscOrder;
|
||||
|
||||
@ -114,26 +109,6 @@ begin
|
||||
RORemoteService.Message := dmConexion.Message;
|
||||
end;
|
||||
|
||||
function TDataModuleTiendaWeb.DarNombreGenerador(DataSetName: String): String;
|
||||
begin
|
||||
Result := '';
|
||||
if DataSetName = nme_TiendaWeb then
|
||||
Result := 'GEN_TIENDA_WEB_ID'
|
||||
end;
|
||||
|
||||
function TDataModuleTiendaWeb.GetNextID(const DataSetName: String): Integer;
|
||||
var
|
||||
aGeneratorName : String;
|
||||
begin
|
||||
aGeneratorName := DarNombreGenerador(DataSetName);
|
||||
Result := (RORemoteService as IsrvTiendaWeb).GetNextAutoInc(aGeneratorName)
|
||||
end;
|
||||
|
||||
function TDataModuleTiendaWeb.GetNextIDOSC(const DataSetName: String): Integer;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvTiendaWeb).GetNextAutoIncOSC(DataSetName);
|
||||
end;
|
||||
|
||||
function TDataModuleTiendaWeb._GetOSCAddressBook: IBizOscAddressBook;
|
||||
var
|
||||
AAddressBook : TDAMemDataTable;
|
||||
|
||||
@ -33,7 +33,6 @@ type
|
||||
IDataModuleTiendaWeb = interface
|
||||
['{E1208D47-C342-4DE1-879A-20F7689AB00A}']
|
||||
function GetItems: IBizTiendaWeb;
|
||||
function GetNextID(const DataSetName : String) : Integer;
|
||||
function GetItem(const ID_Empresa : Integer) : IBizTiendaWeb;
|
||||
function NewItem : IBizTiendaWeb;
|
||||
|
||||
@ -52,9 +51,7 @@ type
|
||||
function GetOSCOrders: IBizOscOrder;
|
||||
function GetOSCOrder(const IDLocal : Integer): IBizOscOrder;
|
||||
|
||||
function GetNextIDOSC(const DataSetName : String) : Integer;
|
||||
|
||||
function HayConexionConTienda : Boolean;
|
||||
function HayConexionConTienda : Boolean;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -11,13 +11,6 @@ const
|
||||
|
||||
type
|
||||
TBizOscAddressBookServer = class(Tosc_CustomersBusinessProcessorRules)
|
||||
|
||||
protected
|
||||
procedure AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean;
|
||||
var CanRemoveFromDelta: Boolean); override;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -28,28 +21,6 @@ uses
|
||||
|
||||
{ TBizOscAddressBookServer }
|
||||
|
||||
procedure TBizOscAddressBookServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ADataset : IDADataset;
|
||||
begin
|
||||
ASchema := Sender.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(Sender);
|
||||
|
||||
inherited;
|
||||
|
||||
case aChange.ChangeType of
|
||||
ctInsert: begin
|
||||
ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
|
||||
aChange.NewValueByName[fld_osc_AddressBookaddress_book_id] := ADataSet.FieldByName('last_id').AsInteger;
|
||||
end;
|
||||
end;
|
||||
|
||||
CanRemoveFromDelta := False;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(BIZ_SERVER_OSC_ADDRESSBOOK, TBizOscAddressBookServer);
|
||||
|
||||
|
||||
@ -25,10 +25,6 @@ type
|
||||
aChangeType: TDAChangeType; aChange: TDADeltaChange;
|
||||
const aCommand: IDASQLCommand; var CanRemoveFromDelta: Boolean;
|
||||
Error: Exception); override;
|
||||
|
||||
procedure GenerateSQL(Sender: TDABusinessProcessor;
|
||||
ChangeType: TDAChangeType; const ReferencedStatement: TDAStatement;
|
||||
const aDelta: IDADelta; var SQL: string); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -41,23 +37,11 @@ uses
|
||||
|
||||
procedure TBizOscCustomerServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ADataset : IDADataset;
|
||||
begin
|
||||
ASchema := Sender.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(Sender);
|
||||
|
||||
inherited;
|
||||
|
||||
case aChange.ChangeType of
|
||||
ctInsert: begin
|
||||
ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
|
||||
aChange.NewValueByName[fld_osc_Customerscustomers_id] := ADataSet.FieldByName('last_id').AsInteger;
|
||||
Insert_Customers_Info(aChange);
|
||||
end;
|
||||
|
||||
ctInsert: Insert_Customers_Info(aChange);
|
||||
ctUpdate: Update_Customers_Info(aChange);
|
||||
ctDelete: Delete_Customers_Info(aChange);
|
||||
end;
|
||||
@ -86,13 +70,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBizOscCustomerServer.GenerateSQL(Sender: TDABusinessProcessor;
|
||||
ChangeType: TDAChangeType; const ReferencedStatement: TDAStatement;
|
||||
const aDelta: IDADelta; var SQL: string);
|
||||
begin
|
||||
inherited;
|
||||
// fServerForm.Memo1.Lines.Add(SQL);
|
||||
end;
|
||||
|
||||
procedure TBizOscCustomerServer.Insert_Customers_Info(aChange: TDADeltaChange);
|
||||
var
|
||||
|
||||
@ -36,23 +36,10 @@ uses
|
||||
|
||||
procedure TBizOscManufacturerServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ADataset : IDADataset;
|
||||
begin
|
||||
ASchema := Sender.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(Sender);
|
||||
|
||||
inherited;
|
||||
|
||||
case aChange.ChangeType of
|
||||
ctInsert: begin
|
||||
ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
|
||||
aChange.NewValueByName[fld_osc_Manufacturersmanufacturers_id] := ADataSet.FieldByName('last_id').AsInteger;
|
||||
Insert_Manufacturers_Info(aChange);
|
||||
end;
|
||||
|
||||
ctInsert: Insert_Manufacturers_Info(aChange);
|
||||
ctUpdate: Update_Manufacturers_Info(aChange);
|
||||
ctDelete: Delete_Manufacturers_Info(aChange);
|
||||
end;
|
||||
|
||||
@ -37,23 +37,11 @@ uses
|
||||
|
||||
procedure TBizOscOrderServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ADataset : IDADataset;
|
||||
begin
|
||||
ASchema := Sender.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(Sender);
|
||||
|
||||
inherited;
|
||||
|
||||
case aChange.ChangeType of
|
||||
ctInsert: begin
|
||||
ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
|
||||
aChange.NewValueByName[fld_osc_Ordersorders_id] := ADataSet.FieldByName('last_id').AsInteger;
|
||||
Insert_Orders_Info(aChange);
|
||||
end;
|
||||
|
||||
ctInsert: Insert_Orders_Info(aChange);
|
||||
ctUpdate: Update_Orders_Info(aChange);
|
||||
ctDelete: Delete_Orders_Info(aChange);
|
||||
end;
|
||||
|
||||
@ -43,20 +43,11 @@ const
|
||||
|
||||
procedure TBizOscProductServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ADataset : IDADataset;
|
||||
begin
|
||||
ASchema := Sender.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(Sender);
|
||||
|
||||
inherited;
|
||||
|
||||
case aChange.ChangeType of
|
||||
ctInsert: begin
|
||||
ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
|
||||
aChange.NewValueByName[fld_osc_Productsproducts_id] := ADataSet.FieldByName('last_id').AsInteger;
|
||||
Insert_Products_Description(aChange);
|
||||
Insert_Products_to_categories(aChange);
|
||||
end;
|
||||
|
||||
@ -11,7 +11,6 @@ const
|
||||
|
||||
type
|
||||
TBizTiendaWebServer = class(TTiendaWebBusinessProcessorRules)
|
||||
procedure BeforeProcessChange(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -20,19 +19,8 @@ uses
|
||||
Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
|
||||
schTiendaWebClient_Intf, uBusinessUtils, uROClasses;
|
||||
|
||||
{ TBizRemesasClienteServer }
|
||||
|
||||
{ TBizTiendaWebServer }
|
||||
|
||||
procedure TBizTiendaWebServer.BeforeProcessChange(Sender: TDABusinessProcessor;
|
||||
aChangeType: TDAChangeType; aChange: TDADeltaChange;
|
||||
var ProcessChange: boolean);
|
||||
begin
|
||||
inherited;
|
||||
showMessage('Hola');
|
||||
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(BIZ_SERVER_TIENDA_WEB, TBizTiendaWebServer);
|
||||
|
||||
|
||||
@ -66,8 +66,7 @@ end;
|
||||
procedure TPluginTiendaWeb.actActualizarTiendaUpdate(Sender: TObject);
|
||||
begin
|
||||
//La tienda solo estará activa para la empresa Luis León Representaciones
|
||||
if (Sender as TAction).Enabled then
|
||||
(Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
|
||||
(Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
|
||||
end;
|
||||
|
||||
procedure TPluginTiendaWeb.actConfigurarTiendaExecute(Sender: TObject);
|
||||
@ -83,8 +82,7 @@ end;
|
||||
procedure TPluginTiendaWeb.actConfigurarTiendaUpdate(Sender: TObject);
|
||||
begin
|
||||
//La tienda solo estará activa para la empresa Luis León Representaciones
|
||||
if (Sender as TAction).Enabled then
|
||||
(Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
|
||||
(Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
|
||||
end;
|
||||
|
||||
procedure TPluginTiendaWeb.actRecogerPedidosExecute(Sender: TObject);
|
||||
@ -101,8 +99,7 @@ procedure TPluginTiendaWeb.actRecogerPedidosUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
//La tienda solo estará activa para la empresa Luis León Representaciones
|
||||
if (Sender as TAction).Enabled then
|
||||
(Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
|
||||
(Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
|
||||
end;
|
||||
|
||||
constructor TPluginTiendaWeb.Create(AOwner: TComponent);
|
||||
|
||||
@ -7,8 +7,6 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
ServiceDataStreamer = Bin2DataStreamer
|
||||
ExportedDataTables = <>
|
||||
BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
|
||||
ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
|
||||
ValidateCommandExecution = DataAbstractServiceValidateCommandExecution
|
||||
Height = 377
|
||||
Width = 583
|
||||
object schTiendaWeb: TDASchema
|
||||
@ -137,10 +135,12 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
item
|
||||
Name = 'date_account_created'
|
||||
DataType = datDateTime
|
||||
ReadOnly = True
|
||||
end
|
||||
item
|
||||
Name = 'date_account_last_modified'
|
||||
DataType = datDateTime
|
||||
ReadOnly = True
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -250,7 +250,7 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
Fields = <
|
||||
item
|
||||
Name = 'address_book_id'
|
||||
DataType = datInteger
|
||||
DataType = datAutoInc
|
||||
Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
|
||||
ServerAutoRefresh = True
|
||||
InPrimaryKey = True
|
||||
@ -805,7 +805,7 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
Fields = <
|
||||
item
|
||||
Name = 'orders_id'
|
||||
DataType = datInteger
|
||||
DataType = datAutoInc
|
||||
Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
|
||||
ServerAutoRefresh = True
|
||||
InPrimaryKey = True
|
||||
@ -1115,6 +1115,90 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
Name = 'comments'
|
||||
DataType = datMemo
|
||||
end>
|
||||
end
|
||||
item
|
||||
IsPublic = False
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'MySQL'
|
||||
SQL = 'SELECT last_insert_id() as customers_id'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'customers_id'
|
||||
TableField = 'customers_id'
|
||||
end>
|
||||
end>
|
||||
Name = 'osc_Customers-Refresh'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'customers_id'
|
||||
DataType = datLargeInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
IsPublic = False
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'MySQL'
|
||||
SQL = 'SELECT last_insert_id() as address_book_id'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'address_book_id'
|
||||
TableField = 'address_book_id'
|
||||
end>
|
||||
end>
|
||||
Name = 'osc_AddressBook-Refresh'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'address_book_id'
|
||||
DataType = datLargeInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
IsPublic = False
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'MySQL'
|
||||
SQL = 'SELECT last_insert_id() as manufacturers_id'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'manufacturers_id'
|
||||
TableField = 'manufacturers_id'
|
||||
end>
|
||||
end>
|
||||
Name = 'osc_Manufacturers-Refresh'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'manufacturers_id'
|
||||
DataType = datLargeInt
|
||||
end>
|
||||
end
|
||||
item
|
||||
IsPublic = False
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'MySQL'
|
||||
SQL = 'SELECT last_insert_id() as products_id'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'products_id'
|
||||
TableField = 'products_id'
|
||||
end>
|
||||
end>
|
||||
Name = 'osc_Products-Refresh'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'products_id'
|
||||
DataType = datLargeInt
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
@ -2872,22 +2956,22 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
end
|
||||
object bp_osc_Customers: TDABusinessProcessor
|
||||
Schema = schTiendaWeb
|
||||
InsertCommandName = 'Insert_Customers'
|
||||
DeleteCommandName = 'Delete_Customers'
|
||||
UpdateCommandName = 'Update_Customers'
|
||||
RefreshDatasetName = 'osc_Customers-Refresh'
|
||||
ReferencedDataset = 'osc_Customers'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poAutoGenerateInsert, poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 384
|
||||
Top = 22
|
||||
end
|
||||
object bp_osc_AddressBook: TDABusinessProcessor
|
||||
Schema = schTiendaWeb
|
||||
InsertCommandName = 'Insert_AddressBook'
|
||||
DeleteCommandName = 'Delete_AddressBook'
|
||||
UpdateCommandName = 'Update_AddressBook'
|
||||
RefreshDatasetName = 'osc_AddressBook-Refresh'
|
||||
ReferencedDataset = 'osc_AddressBook'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poAutoGenerateInsert, poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 384
|
||||
Top = 86
|
||||
@ -2897,8 +2981,9 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
InsertCommandName = 'Insert_osc_Manufacturers'
|
||||
DeleteCommandName = 'Delete_osc_Manufacturers'
|
||||
UpdateCommandName = 'Update_osc_Manufacturers'
|
||||
RefreshDatasetName = 'osc_Manufacturers-Refresh'
|
||||
ReferencedDataset = 'osc_Manufacturers'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 496
|
||||
Top = 22
|
||||
@ -2908,19 +2993,20 @@ object srvTiendaWeb: TsrvTiendaWeb
|
||||
InsertCommandName = 'Insert_osc_Products'
|
||||
DeleteCommandName = 'Delete_osc_Products'
|
||||
UpdateCommandName = 'Update_osc_Products'
|
||||
RefreshDatasetName = 'osc_Products-Refresh'
|
||||
ReferencedDataset = 'osc_Products'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 496
|
||||
Top = 86
|
||||
end
|
||||
object bp_osc_Orders: TDABusinessProcessor
|
||||
OnBeforeProcessDelta = bp_osc_OrdersBeforeProcessDelta
|
||||
Schema = schTiendaWeb
|
||||
DeleteCommandName = 'Delete_osc_Orders'
|
||||
UpdateCommandName = 'Update_osc_Orders'
|
||||
RefreshDatasetName = 'osc_Orders-Refresh'
|
||||
ReferencedDataset = 'osc_Orders'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
ProcessorOptions = [poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 48
|
||||
Top = 166
|
||||
|
||||
@ -13,7 +13,7 @@ uses
|
||||
{vcl:} Classes, SysUtils,
|
||||
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Used RODLs:} DataAbstract4_Intf,
|
||||
{Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
|
||||
uDAScriptingProvider, uDAClasses, uDADelta,
|
||||
FactuGES_Intf, uDAInterfaces, uDABinAdapter;
|
||||
@ -40,23 +40,10 @@ type
|
||||
const aDataset: IDADataset; const aIncludeSchema: Boolean;
|
||||
const aMaxRecords: Integer);
|
||||
procedure DataAbstractServiceCreate(Sender: TObject);
|
||||
procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
|
||||
const aConnection: IDAConnection; const aDatasetName: string;
|
||||
const aParamNames: array of string; const aParamValues: array of Variant;
|
||||
aSchema: TDASchema; var Allowed: Boolean);
|
||||
procedure DataAbstractServiceValidateCommandExecution(Sender: TObject;
|
||||
const aConnection: IDAConnection; const aDatasetName: string;
|
||||
const aParamNames: array of string; const aParamValues: array of Variant;
|
||||
aSchema: TDASchema; var Allowed: Boolean);
|
||||
procedure bp_osc_OrdersBeforeProcessDelta(Sender: TDABusinessProcessor;
|
||||
const aDelta: IDADelta);
|
||||
private
|
||||
procedure AsignarConexion (const AConnectionName: string);
|
||||
|
||||
function GetConnectionForObject(const aName: string): IDAConnection; override;
|
||||
protected
|
||||
function GetNextAutoInc(const GeneratorName: AnsiString): Integer;
|
||||
function GetNextAutoIncOSC(const TableName: AnsiString): Integer;
|
||||
// function UpdateDataOSC(const Delta: Binary): Binary;
|
||||
function HayConexionConTienda: Boolean;
|
||||
end;
|
||||
|
||||
@ -83,7 +70,7 @@ procedure TsrvTiendaWeb.AsignarConexion(const AConnectionName: string);
|
||||
begin
|
||||
// En el caso de conexión MySQL también solicito otra conexión nueva
|
||||
// para evitar problemas.
|
||||
if (AConnectionName <> Self.ConnectionName) or (AConnectionName = 'MySQL') then
|
||||
if (AConnectionName <> Self.ConnectionName) then
|
||||
begin
|
||||
if Connection.InTransaction then
|
||||
Connection.CommitTransaction;
|
||||
@ -93,19 +80,10 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvTiendaWeb.bp_osc_OrdersBeforeProcessDelta(
|
||||
Sender: TDABusinessProcessor; const aDelta: IDADelta);
|
||||
begin
|
||||
// AsignarConexion('MySQL');
|
||||
end;
|
||||
|
||||
procedure TsrvTiendaWeb.DataAbstractServiceBeforeGetDatasetData(
|
||||
aSender: TObject; const aDataset: IDADataset; const aIncludeSchema: Boolean;
|
||||
const aMaxRecords: Integer);
|
||||
begin
|
||||
if aDataSet.Name = nme_TiendaWeb then
|
||||
AsignarConexion('IBX');
|
||||
|
||||
{ Aquí se asegura que el usuario sólo accede a los RemesasCliente
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
filtrando DataSet por ID_EMPRESA. }
|
||||
@ -125,78 +103,15 @@ begin
|
||||
bp_osc_Orders.BusinessRulesID := BIZ_SERVER_OSC_ORDER;
|
||||
end;
|
||||
|
||||
procedure TsrvTiendaWeb.DataAbstractServiceValidateCommandExecution(
|
||||
Sender: TObject; const aConnection: IDAConnection; const aDatasetName: string;
|
||||
const aParamNames: array of string; const aParamValues: array of Variant;
|
||||
aSchema: TDASchema; var Allowed: Boolean);
|
||||
var
|
||||
i: integer;
|
||||
ConName: string;
|
||||
function TsrvTiendaWeb.GetConnectionForObject(
|
||||
const aName: string): IDAConnection;
|
||||
begin
|
||||
ConName := '';
|
||||
if aName = nme_TiendaWeb then
|
||||
AsignarConexion('IBX')
|
||||
else
|
||||
AsignarConexion('MySQL');
|
||||
|
||||
for i := 0 to aSchema.Datasets.Count - 1 do
|
||||
if AnsiSameText(aSchema.Datasets[i].Name, aDatasetName) then begin
|
||||
ConName := aSchema.Datasets[i].Statements[0].Connection;
|
||||
break;
|
||||
end;
|
||||
|
||||
if not AnsiSameText(ConName, aConnection.Name) then begin
|
||||
Connection := aSchema.ConnectionManager.NewConnection(ConName);
|
||||
|
||||
{ for i := 0 to aSchema.ConnectionManager.Connections.Count - 1 do
|
||||
aSchema.ConnectionManager.Connections[i].Default :=
|
||||
AnsiSameText(aSchema.ConnectionManager.Connections[i].Name, ConName);
|
||||
}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvTiendaWeb.DataAbstractServiceValidateDatasetAccess(
|
||||
Sender: TObject; const aConnection: IDAConnection; const aDatasetName: string;
|
||||
const aParamNames: array of string; const aParamValues: array of Variant;
|
||||
aSchema: TDASchema; var Allowed: Boolean);
|
||||
var
|
||||
i: integer;
|
||||
ConName: string;
|
||||
begin
|
||||
ConName := '';
|
||||
|
||||
for i := 0 to aSchema.Datasets.Count - 1 do
|
||||
if AnsiSameText(aSchema.Datasets[i].Name, aDatasetName) then begin
|
||||
ConName := aSchema.Datasets[i].Statements[0].Connection;
|
||||
break;
|
||||
end;
|
||||
|
||||
if not AnsiSameText(ConName, aConnection.Name) then begin
|
||||
Connection := aSchema.ConnectionManager.NewConnection(ConName);
|
||||
|
||||
{ for i := 0 to aSchema.ConnectionManager.Connections.Count - 1 do
|
||||
aSchema.ConnectionManager.Connections[i].Default :=
|
||||
AnsiSameText(aSchema.ConnectionManager.Connections[i].Name, ConName);
|
||||
}
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvTiendaWeb.GetNextAutoInc(const GeneratorName: AnsiString): Integer;
|
||||
begin
|
||||
Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
|
||||
end;
|
||||
|
||||
function TsrvTiendaWeb.GetNextAutoIncOSC(const TableName: AnsiString): Integer;
|
||||
var
|
||||
vConn : IDAConnection;
|
||||
ds: IDADataset;
|
||||
begin
|
||||
vConn := dmServer.ConnectionManager.NewConnection('MySQL');
|
||||
vConn.BeginTransaction;
|
||||
try
|
||||
ds := vConn.NewDataset(Format('SHOW TABLE STATUS WHERE NAME=''%s''', [TableName]));
|
||||
ds.Open;
|
||||
Result := ds.FieldByName('Auto_increment').AsInteger;
|
||||
finally
|
||||
vConn.CommitTransaction;
|
||||
ds := NIL;
|
||||
end;
|
||||
Result := inherited GetConnectionForObject(aName);
|
||||
end;
|
||||
|
||||
function TsrvTiendaWeb.HayConexionConTienda: Boolean;
|
||||
|
||||
Binary file not shown.
@ -19,8 +19,8 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
|
||||
inherited pnlBotones: TPanel
|
||||
Top = 235
|
||||
Width = 474
|
||||
ExplicitTop = 383
|
||||
ExplicitWidth = 638
|
||||
ExplicitTop = 235
|
||||
ExplicitWidth = 474
|
||||
inherited btnAceptar: TButton
|
||||
Left = 312
|
||||
ExplicitLeft = 312
|
||||
@ -32,7 +32,7 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
|
||||
end
|
||||
inherited pnlHeader: TPanel
|
||||
Width = 474
|
||||
ExplicitWidth = 638
|
||||
ExplicitWidth = 474
|
||||
inherited lblInstruccion: TLabel
|
||||
Width = 424
|
||||
Caption = 'Elija el contenido a actualizar'
|
||||
@ -50,8 +50,8 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
|
||||
inherited pnlCuerpo: TPanel
|
||||
Width = 474
|
||||
Height = 167
|
||||
ExplicitWidth = 638
|
||||
ExplicitHeight = 315
|
||||
ExplicitWidth = 474
|
||||
ExplicitHeight = 167
|
||||
object Label1: TLabel
|
||||
Left = 69
|
||||
Top = 55
|
||||
@ -60,16 +60,17 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
|
||||
Caption = 'Actualiza los clientes con acceso permitido a la tienda web'
|
||||
end
|
||||
object Image1: TImage
|
||||
Left = 110
|
||||
Top = 29
|
||||
Left = 133
|
||||
Top = 33
|
||||
Width = 16
|
||||
Height = 20
|
||||
Height = 16
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000010
|
||||
0000001008060000001FF3FF61000000017352474200AECE1CE9000000046741
|
||||
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
|
||||
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
|
||||
17110000171101CA26F33F000001CD49444154384FA593CB4B546118C6C73FA0
|
||||
17100000171001186111DB000001CD49444154384FA593CB4B546118C6C73FA0
|
||||
95FB961384B7390B571564428BC490C88C460261A02090A845EDDCB81235BCB4
|
||||
481D8E32CE98055E20C20CAD598897C60B72B0D4F188979A066FD974D4D3E82F
|
||||
BF0F66F2C310725E78E083EF3CBFF7795FBE93063852AA9E418354E410E644C5
|
||||
@ -86,18 +87,20 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
|
||||
ECFC716C9EC191393581789A62A6FF55F2298BC369E510BF732AFA030F32BF8A
|
||||
1940D9410000000049454E44AE426082}
|
||||
Transparent = True
|
||||
Visible = False
|
||||
end
|
||||
object Image2: TImage
|
||||
Left = 133
|
||||
Top = 86
|
||||
Width = 17
|
||||
Height = 19
|
||||
Width = 16
|
||||
Height = 16
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000010
|
||||
0000001008060000001FF3FF61000000017352474200AECE1CE9000000046741
|
||||
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
|
||||
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
|
||||
17110000171101CA26F33F000001C949444154384FA593CD4B545118C6A73FC0
|
||||
17100000171001186111DB000001C949444154384FA593CD4B545118C6A73FC0
|
||||
FF205AEA66D469C45C079A0BC1905083460461A02090B085EEDCB412952C5B68
|
||||
0E373F6614C1C64584159A2EC4514713B968E974C58F1A074DB3F19AD7D15F73
|
||||
0ECCE841116C5EF8C181739FE77DDE9773AF01B6946A704427156C429CA86864
|
||||
@ -114,18 +117,19 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
|
||||
5A6624B0A426104F53CC7455924F591CFE179BF89D53E11F96DABFE183CE91E1
|
||||
0000000049454E44AE426082}
|
||||
Transparent = True
|
||||
Visible = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 69
|
||||
Top = 113
|
||||
Width = 289
|
||||
Width = 280
|
||||
Height = 13
|
||||
Caption = 'Actualizar los proveedores de la tienda web y sus art'#237'culos'
|
||||
end
|
||||
object cbClientes: TCheckBox
|
||||
Left = 50
|
||||
Top = 32
|
||||
Width = 55
|
||||
Width = 77
|
||||
Height = 17
|
||||
Caption = 'Clientes'
|
||||
Checked = True
|
||||
|
||||
@ -1026,22 +1026,6 @@
|
||||
<Interfaces>
|
||||
<Interface Name="Default" UID="{A0C6D311-18C5-4851-AA96-02B3CA95BE75}">
|
||||
<Operations>
|
||||
<Operation Name="GetNextAutoInc" UID="{7253690A-E2F4-479A-86CB-9689EACC15AF}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Integer" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="GeneratorName" DataType="AnsiString" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="GetNextAutoIncOSC" UID="{F57C49DF-BBF0-4C99-BCCA-0446623FFAA0}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Integer" Flag="Result">
|
||||
</Parameter>
|
||||
<Parameter Name="TableName" DataType="AnsiString" Flag="In" >
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="HayConexionConTienda" UID="{80C6DA8A-B243-4FE5-9648-E86CBFB99606}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="Boolean" Flag="Result">
|
||||
|
||||
@ -930,8 +930,6 @@ type
|
||||
{ IsrvTiendaWeb }
|
||||
IsrvTiendaWeb = interface(IDataAbstractService)
|
||||
['{A0C6D311-18C5-4851-AA96-02B3CA95BE75}']
|
||||
function GetNextAutoInc(const GeneratorName: AnsiString): Integer;
|
||||
function GetNextAutoIncOSC(const TableName: AnsiString): Integer;
|
||||
function HayConexionConTienda: Boolean;
|
||||
end;
|
||||
|
||||
@ -945,8 +943,6 @@ type
|
||||
protected
|
||||
function __GetInterfaceName:string; override;
|
||||
|
||||
function GetNextAutoInc(const GeneratorName: AnsiString): Integer;
|
||||
function GetNextAutoIncOSC(const TableName: AnsiString): Integer;
|
||||
function HayConexionConTienda: Boolean;
|
||||
end;
|
||||
|
||||
@ -2988,38 +2984,6 @@ begin
|
||||
result := 'srvTiendaWeb';
|
||||
end;
|
||||
|
||||
function TsrvTiendaWeb_Proxy.GetNextAutoInc(const GeneratorName: AnsiString): Integer;
|
||||
begin
|
||||
try
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoInc');
|
||||
__Message.Write('GeneratorName', TypeInfo(AnsiString), GeneratorName, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
|
||||
__Message.Read('Result', TypeInfo(Integer), result, []);
|
||||
finally
|
||||
__Message.UnsetAttributes(__TransportChannel);
|
||||
__Message.FreeStream;
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvTiendaWeb_Proxy.GetNextAutoIncOSC(const TableName: AnsiString): Integer;
|
||||
begin
|
||||
try
|
||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoIncOSC');
|
||||
__Message.Write('TableName', TypeInfo(AnsiString), TableName, []);
|
||||
__Message.Finalize;
|
||||
|
||||
__TransportChannel.Dispatch(__Message);
|
||||
|
||||
__Message.Read('Result', TypeInfo(Integer), result, []);
|
||||
finally
|
||||
__Message.UnsetAttributes(__TransportChannel);
|
||||
__Message.FreeStream;
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvTiendaWeb_Proxy.HayConexionConTienda: Boolean;
|
||||
begin
|
||||
try
|
||||
|
||||
@ -352,8 +352,6 @@ type
|
||||
public
|
||||
constructor Create; override;
|
||||
published
|
||||
procedure Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_GetNextAutoIncOSC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_HayConexionConTienda(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
end;
|
||||
|
||||
@ -2602,46 +2600,6 @@ begin
|
||||
FAbstract := False;
|
||||
end;
|
||||
|
||||
procedure TsrvTiendaWeb_Invoker.Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GetNextAutoInc(const GeneratorName: AnsiString): Integer; }
|
||||
var
|
||||
GeneratorName: AnsiString;
|
||||
lResult: Integer;
|
||||
begin
|
||||
try
|
||||
__Message.Read('GeneratorName', TypeInfo(AnsiString), GeneratorName, []);
|
||||
|
||||
lResult := (__Instance as IsrvTiendaWeb).GetNextAutoInc(GeneratorName);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvTiendaWeb', 'GetNextAutoIncResponse');
|
||||
__Message.Write('Result', TypeInfo(Integer), lResult, []);
|
||||
__Message.Finalize;
|
||||
__Message.UnsetAttributes(__Transport);
|
||||
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvTiendaWeb_Invoker.Invoke_GetNextAutoIncOSC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function GetNextAutoIncOSC(const TableName: AnsiString): Integer; }
|
||||
var
|
||||
TableName: AnsiString;
|
||||
lResult: Integer;
|
||||
begin
|
||||
try
|
||||
__Message.Read('TableName', TypeInfo(AnsiString), TableName, []);
|
||||
|
||||
lResult := (__Instance as IsrvTiendaWeb).GetNextAutoIncOSC(TableName);
|
||||
|
||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvTiendaWeb', 'GetNextAutoIncOSCResponse');
|
||||
__Message.Write('Result', TypeInfo(Integer), lResult, []);
|
||||
__Message.Finalize;
|
||||
__Message.UnsetAttributes(__Transport);
|
||||
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvTiendaWeb_Invoker.Invoke_HayConexionConTienda(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function HayConexionConTienda: Boolean; }
|
||||
var
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -1,392 +1,392 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</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.8.3.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.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
|
||||
<Form>srvImpresiones</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
|
||||
<Form>RptPedidosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<Form>srvPedidosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
|
||||
<Form>srvRegistroCorreos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<Form>RptRemesasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
|
||||
<Form>RptRemesasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
|
||||
<Form>srvTiendaWeb</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionOSC.pas">
|
||||
<Form>frConexionOSC</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas" />
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas" />
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
<DCCReference Include="Utiles\uTiendaWebUtils.pas" />
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</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.8.3.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.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
|
||||
<Form>srvProvinciasPoblaciones_Impl</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
|
||||
<Form>srvUsuarios</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
|
||||
<Form>RptWordAlbaranCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
|
||||
<Form>RptAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
|
||||
<Form>RptWordAlbaranProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
|
||||
<Form>srvArticulos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
|
||||
<Form>RptComisiones</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
|
||||
<Form>srvComisiones</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
|
||||
<Form>RptEtiquetasContacto</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
|
||||
<Form>RptFichasEmpleado</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
|
||||
<Form>srvFabricantes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
|
||||
<Form>RptWordFacturaCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
|
||||
<Form>RptFacturasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
|
||||
<Form>srvFamilias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||
<Form>srvFormasPago</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||
<Form>srvGestorDocumentos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
|
||||
<Form>srvGestorInformes</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
|
||||
<Form>srvImpresiones</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||
<Form>srvObras</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
|
||||
<Form>RptPedidosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
|
||||
<Form>RptWordPedidoProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
|
||||
<Form>RptPedidosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos de cliente\Servidor\srvPedidosCliente_Impl.pas">
|
||||
<Form>srvPedidosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
|
||||
<Form>RptWordCertificadoTrabajo</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
|
||||
<Form>RptWordPresupuestoCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
|
||||
<Form>RptRecibosCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
|
||||
<Form>RptRecibosProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas">
|
||||
<Form>srvRegistroCorreos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
|
||||
<Form>RptRemesasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
|
||||
<Form>RptRemesasProveedor</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
|
||||
<Form>srvTiendaWeb</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
|
||||
<Form>srvTiposIVA</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionOSC.pas">
|
||||
<Form>frConexionOSC</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\AHWord97.pas"/>
|
||||
<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uTiendaWebUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.8.3.0\0"
|
||||
VALUE "ProductVersion", "1.8.3.0\0"
|
||||
VALUE "CompileDate", "miércoles, 22 de septiembre de 2010 11:37\0"
|
||||
VALUE "CompileDate", "jueves, 23 de septiembre de 2010 12:05\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
@ -40,7 +40,7 @@ object dmServer: TdmServer
|
||||
Name = 'MySQL'
|
||||
ConnectionString =
|
||||
'MyDAC?Server=localhost;Database=luisleonosc_local;UserID=root;Pa' +
|
||||
'ssword=proyec01;Port=3306;'
|
||||
'ssword=root;Port=3306;'
|
||||
end
|
||||
item
|
||||
Name = 'IBX'
|
||||
@ -88,12 +88,4 @@ object dmServer: TdmServer
|
||||
Left = 224
|
||||
Top = 80
|
||||
end
|
||||
object DAADODataTable1: TDAADODataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
Left = 224
|
||||
Top = 144
|
||||
end
|
||||
end
|
||||
|
||||
@ -25,7 +25,6 @@ type
|
||||
JvLogFile1: TJvLogFile;
|
||||
DAIBXDriver: TDAIBXDriver;
|
||||
ConnectionManager: TDAConnectionManager;
|
||||
DAADODataTable1: TDAADODataTable;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
procedure HTTPServerBeforeServerActivate(Sender: TObject);
|
||||
|
||||
Reference in New Issue
Block a user