Obras: usar la tabla de almacenes para almacenar las obras. Se añade la tabla OBRAS_DATOS para guardar los datos extras de una obra.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@363 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
f3c5a1cdab
commit
079703bf06
@ -154,9 +154,6 @@ SET GENERATOR GEN_INFORMES_ID TO 1;
|
||||
CREATE GENERATOR GEN_MOVIMIENTOS_ID;
|
||||
SET GENERATOR GEN_MOVIMIENTOS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_OBRAS_ID;
|
||||
SET GENERATOR GEN_OBRAS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_PAGOS_CLIENTE_ID;
|
||||
SET GENERATOR GEN_PAGOS_CLIENTE_ID TO 1;
|
||||
|
||||
@ -363,6 +360,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
|
||||
CREATE TABLE ALMACENES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
TIPO_ALMACEN VARCHAR(10),
|
||||
NOMBRE VARCHAR(255),
|
||||
CALLE VARCHAR(255),
|
||||
PROVINCIA VARCHAR(255),
|
||||
@ -614,26 +612,6 @@ CREATE TABLE EMPRESAS_USUARIOS (
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE F_PERFILES (
|
||||
ID TIPO_ID NOT NULL,
|
||||
PERFIL TIPO_PERFIL NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE F_PERFILES_USUARIOS (
|
||||
ID_PERFIL TIPO_ID NOT NULL,
|
||||
ID_USUARIO TIPO_ID NOT NULL
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE F_USUARIOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
USUARIO TIPO_USUARIO NOT NULL,
|
||||
ACTIVO TIPO_BOOLEANO,
|
||||
LAST_LOGIN TIMESTAMP,
|
||||
PASS VARCHAR(10)
|
||||
);
|
||||
|
||||
CREATE TABLE FABRICANTES (
|
||||
ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
|
||||
DESCRIPCION VARCHAR(255)
|
||||
@ -792,24 +770,10 @@ CREATE TABLE MOVIMIENTOS (
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE OBRAS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
NOMBRE VARCHAR(255),
|
||||
CALLE VARCHAR(255),
|
||||
PROVINCIA VARCHAR(255),
|
||||
POBLACION VARCHAR(255),
|
||||
CODIGO_POSTAL VARCHAR(10),
|
||||
TELEFONO VARCHAR(25),
|
||||
MOVIL VARCHAR(25),
|
||||
FAX VARCHAR(25),
|
||||
PERSONA_CONTACTO VARCHAR(255),
|
||||
OBSERVACIONES TIPO_NOTAS,
|
||||
CREATE TABLE OBRAS_DATOS (
|
||||
ID_ALMACEN TIPO_ID NOT NULL,
|
||||
ID_CLIENTE TIPO_ID,
|
||||
ID_SUBCONTRATA TIPO_ID,
|
||||
FECHA_ALTA TIMESTAMP,
|
||||
FECHA_MODIFICACION TIMESTAMP,
|
||||
USUARIO TIPO_USUARIO
|
||||
ID_SUBCONTRATA TIPO_ID
|
||||
);
|
||||
|
||||
|
||||
@ -1419,6 +1383,31 @@ FROM
|
||||
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
|
||||
;
|
||||
|
||||
/* View: V_ALMACENES */
|
||||
CREATE VIEW V_ALMACENES (
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
NOMBRE,
|
||||
CALLE,
|
||||
PROVINCIA,
|
||||
POBLACION,
|
||||
CODIGO_POSTAL,
|
||||
TELEFONO,
|
||||
MOVIL,
|
||||
FAX,
|
||||
PERSONA_CONTACTO,
|
||||
OBSERVACIONES,
|
||||
FECHA_ALTA,
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO)
|
||||
AS
|
||||
SELECT ALMACENES.ID, ALMACENES.ID_EMPRESA, ALMACENES.NOMBRE,
|
||||
ALMACENES.CALLE, ALMACENES.PROVINCIA, ALMACENES.POBLACION, ALMACENES.CODIGO_POSTAL,
|
||||
ALMACENES.TELEFONO, ALMACENES.MOVIL, ALMACENES.FAX, ALMACENES.PERSONA_CONTACTO,
|
||||
ALMACENES.OBSERVACIONES, ALMACENES.FECHA_ALTA, ALMACENES.FECHA_MODIFICACION, ALMACENES.USUARIO
|
||||
FROM ALMACENES
|
||||
WHERE ALMACENES.TIPO_ALMACEN = 'ALMACEN'
|
||||
;
|
||||
|
||||
|
||||
/* View: V_ARTICULOS */
|
||||
@ -1706,15 +1695,17 @@ CREATE VIEW V_OBRAS (
|
||||
FECHA_MODIFICACION,
|
||||
USUARIO)
|
||||
AS
|
||||
SELECT OBRAS.ID, OBRAS.ID_EMPRESA, OBRAS.NOMBRE,
|
||||
OBRAS.CALLE, OBRAS.PROVINCIA, OBRAS.POBLACION, OBRAS.CODIGO_POSTAL,
|
||||
OBRAS.TELEFONO, OBRAS.MOVIL, OBRAS.FAX, OBRAS.PERSONA_CONTACTO,
|
||||
OBRAS.OBSERVACIONES, OBRAS.ID_CLIENTE, CLIENTES.NOMBRE AS NOMBRE_CLIENTE,
|
||||
OBRAS.ID_SUBCONTRATA, SUBCONTRATAS.NOMBRE AS NOMBRE_SUBCONTRATA,
|
||||
OBRAS.FECHA_ALTA, OBRAS.FECHA_MODIFICACION, OBRAS.USUARIO
|
||||
FROM OBRAS
|
||||
LEFT OUTER JOIN CONTACTOS AS CLIENTES ON (CLIENTES .ID = OBRAS.ID_CLIENTE)
|
||||
LEFT OUTER JOIN CONTACTOS AS SUBCONTRATAS ON (SUBCONTRATAS.ID = OBRAS.ID_SUBCONTRATA)
|
||||
SELECT ALMACENES.ID, ALMACENES.ID_EMPRESA, ALMACENES.NOMBRE,
|
||||
ALMACENES.CALLE, ALMACENES.PROVINCIA, ALMACENES.POBLACION, ALMACENES.CODIGO_POSTAL,
|
||||
ALMACENES.TELEFONO, ALMACENES.MOVIL, ALMACENES.FAX, ALMACENES.PERSONA_CONTACTO,
|
||||
ALMACENES.OBSERVACIONES, OBRAS_DATOS.ID_CLIENTE, CLIENTES.NOMBRE AS NOMBRE_CLIENTE,
|
||||
OBRAS_DATOS.ID_SUBCONTRATA, SUBCONTRATAS.NOMBRE AS NOMBRE_SUBCONTRATA,
|
||||
ALMACENES.FECHA_ALTA, ALMACENES.FECHA_MODIFICACION, ALMACENES.USUARIO
|
||||
FROM ALMACENES
|
||||
INNER JOIN OBRAS_DATOS ON (OBRAS_DATOS.ID_ALMACEN = ALMACENES.ID)
|
||||
LEFT OUTER JOIN CONTACTOS AS CLIENTES ON (CLIENTES.ID = OBRAS_DATOS.ID_CLIENTE)
|
||||
LEFT OUTER JOIN CONTACTOS AS SUBCONTRATAS ON (SUBCONTRATAS.ID = OBRAS_DATOS.ID_SUBCONTRATA)
|
||||
WHERE ALMACENES.TIPO_ALMACEN = 'OBRA'
|
||||
;
|
||||
|
||||
|
||||
@ -2290,7 +2281,7 @@ FROM
|
||||
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
|
||||
LEFT OUTER JOIN OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA)
|
||||
LEFT OUTER JOIN ALMACENES AS OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA)
|
||||
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
|
||||
;
|
||||
|
||||
@ -2588,7 +2579,6 @@ ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT PK_FACTURAS_PROVEEDOR PRIMARY KEY
|
||||
ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
|
||||
ALTER TABLE FORMAS_PAGO ADD PRIMARY KEY (ID);
|
||||
ALTER TABLE FORMAS_PAGO_PLAZOS ADD PRIMARY KEY (ID);
|
||||
ALTER TABLE F_PERFILES_USUARIOS ADD CONSTRAINT PK_PERFILES_USUARIOS PRIMARY KEY (ID_PERFIL, ID_USUARIO);
|
||||
ALTER TABLE INFORMES ADD CONSTRAINT PK_INFORMES PRIMARY KEY (ID);
|
||||
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT PK_MOVIMIENTOS PRIMARY KEY (ID);
|
||||
ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT PK_PAGOS_CLIENTE PRIMARY KEY (ID);
|
||||
|
||||
@ -46,13 +46,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -67,27 +60,27 @@
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.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\GUIBase.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\JvJansD11R.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\PLuginSDK_D10R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.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="..\Modulos\Obras\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\PLuginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\xmlrtl.dcp" />
|
||||
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||
|
||||
@ -51,6 +51,9 @@ implementation
|
||||
|
||||
{ TfEditorUsuario }
|
||||
|
||||
uses
|
||||
uDialogUtils;
|
||||
|
||||
var
|
||||
FIDNuevoGuardado : Integer = -1;
|
||||
|
||||
@ -83,7 +86,7 @@ end;
|
||||
|
||||
procedure TfEditorPerfilUsuario.EliminarInterno;
|
||||
begin
|
||||
if (Application.MessageBox('¿Desea borrar este perfil?', 'Atención', MB_YESNO) = IDYES) then
|
||||
if (ShowConfirmMessage('Eliminar el perfil', '¿Desea eliminar este perfil?') = IDYES) then
|
||||
begin
|
||||
inherited;
|
||||
if not FController.EliminarPerfil(FPerfilUsuario) then
|
||||
|
||||
@ -1,7 +1,5 @@
|
||||
inherited fEditorUsuario: TfEditorUsuario
|
||||
Caption = 'fEditorUsuario'
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited TBXDock: TTBXDock
|
||||
@ -24,10 +22,6 @@ inherited fEditorUsuario: TfEditorUsuario
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 638
|
||||
ExplicitHeight = 332
|
||||
inline frViewUsuario1: TfrViewUsuario
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
||||
@ -44,86 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -134,6 +54,57 @@
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<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\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_D11.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>
|
||||
@ -157,54 +128,10 @@
|
||||
<Form>dmBase</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\adortl.dcp" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
|
||||
<DCCReference Include="Utiles\cxDataD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxExportD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxGridD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="Utiles\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="Utiles\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\dbrtl.dcp" />
|
||||
<DCCReference Include="Utiles\dclIndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\designide.dcp" />
|
||||
<DCCReference Include="Utiles\dsnap.dcp" />
|
||||
<DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="Utiles\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="Utiles\dxThemeD11.dcp" />
|
||||
<DCCReference Include="Utiles\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Utiles\IndyCore.dcp" />
|
||||
<DCCReference Include="Utiles\IndyProtocols.dcp" />
|
||||
<DCCReference Include="Utiles\IndySystem.dcp" />
|
||||
<DCCReference Include="Utiles\Jcl.dcp" />
|
||||
<DCCReference Include="Utiles\JclVcl.dcp" />
|
||||
<DCCReference Include="Utiles\JSDialog100.dcp" />
|
||||
<DCCReference Include="Utiles\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvMMD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvNetD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="Utiles\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="Utiles\pckMD5.dcp" />
|
||||
<DCCReference Include="Utiles\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="Utiles\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="Utiles\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="Utiles\PNG_D10.dcp" />
|
||||
<DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="Utiles\rtl.dcp" />
|
||||
<DCCReference Include="Utiles\TB2k_D10.dcp" />
|
||||
<DCCReference Include="Utiles\tbx_d10.dcp" />
|
||||
<DCCReference Include="Utiles\uAppInfoUtils.pas" />
|
||||
<DCCReference Include="Utiles\uCalculosUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDataTableUtils.pas" />
|
||||
@ -219,13 +146,6 @@
|
||||
<DCCReference Include="Utiles\uPasswordUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSistemaFunc.pas" />
|
||||
<DCCReference Include="Utiles\uStringsUtils.pas" />
|
||||
<DCCReference Include="Utiles\vcl.dcp" />
|
||||
<DCCReference Include="Utiles\vclactnband.dcp" />
|
||||
<DCCReference Include="Utiles\vcldb.dcp" />
|
||||
<DCCReference Include="Utiles\vcljpg.dcp" />
|
||||
<DCCReference Include="Utiles\VclSmp.dcp" />
|
||||
<DCCReference Include="Utiles\vclx.dcp" />
|
||||
<DCCReference Include="Utiles\xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -58,22 +58,22 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Obras\vcldb.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -47,10 +47,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
TabOrder = 2
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
|
||||
@ -9,7 +9,7 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Almacenes = '{EE679D71-1729-4CD1-8CB9-1A2CE6B05493}';
|
||||
RID_Almacenes = '{2C7335CF-335F-4E82-AEE3-BCD4BE4B4706}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Almacenes = 'Almacenes';
|
||||
@ -51,7 +51,7 @@ const
|
||||
type
|
||||
{ IAlmacenes }
|
||||
IAlmacenes = interface(IDAStronglyTypedDataTable)
|
||||
['{A51A2256-3355-4ABC-83D8-C6C5F3FB8FED}']
|
||||
['{CF373551-0AC4-4B83-90F6-AB8DB3BF1C4A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,12 +9,12 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_AlmacenesDelta = '{F091F4FA-70AD-40E6-9C14-082208660CFF}';
|
||||
RID_AlmacenesDelta = '{7744482C-0E1F-4815-8945-935E26DB7BE8}';
|
||||
|
||||
type
|
||||
{ IAlmacenesDelta }
|
||||
IAlmacenesDelta = interface(IAlmacenes)
|
||||
['{F091F4FA-70AD-40E6-9C14-082208660CFF}']
|
||||
['{7744482C-0E1F-4815-8945-935E26DB7BE8}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
|
||||
@ -12,7 +12,7 @@ object srvAlmacenes: TsrvAlmacenes
|
||||
Width = 343
|
||||
object Diagrams: TDADiagrams
|
||||
Left = 150
|
||||
Top = 74
|
||||
Top = 82
|
||||
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
||||
end
|
||||
object DataDictionary: TDADataDictionary
|
||||
@ -117,7 +117,7 @@ object srvAlmacenes: TsrvAlmacenes
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'ALMACENES'
|
||||
TargetTable = 'V_ALMACENES'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -274,7 +274,171 @@ object srvAlmacenes: TsrvAlmacenes
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
UnionDataTables = <>
|
||||
Commands = <>
|
||||
Commands = <
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_ALMACENES_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = '[TABLENAME]'
|
||||
SQL =
|
||||
'INSERT'#10' INTO "[TABLENAME]"'#10' (ID, ID_EMPRESA, TIPO_ALMACEN, N' +
|
||||
'OMBRE, CALLE, PROVINCIA, '#10' POBLACION, CODIGO_POSTAL, TELEFON' +
|
||||
'O, MOVIL, FAX, PERSONA_CONTACTO, '#10' OBSERVACIONES, FECHA_ALTA' +
|
||||
', USUARIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, '#39'Almacen'#39', :NOMBRE, :' +
|
||||
'CALLE, :PROVINCIA,'#10' :POBLACION, :CODIGO_POSTAL, :TELEFONO, :' +
|
||||
'MOVIL, :FAX, '#10' :PERSONA_CONTACTO, :OBSERVACIONES, CURRENT_DA' +
|
||||
'TE, :USUARIO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Insert_ALMACENES'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
DataType = datInteger
|
||||
Value = '0'
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = '[TABLENAME]'
|
||||
SQL = 'DELETE '#10' FROM'#10' "[TABLENAME]"'#10' WHERE'#10' (ID = :OLD_ID)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_ALMACENES'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'NOMBRE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CALLE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PROVINCIA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'POBLACION'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'CODIGO_POSTAL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TELEFONO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'MOVIL'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FAX'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'PERSONA_CONTACTO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OBSERVACIONES'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = '[TABLENAME]'
|
||||
SQL =
|
||||
'UPDATE "[TABLENAME]"'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' NO' +
|
||||
'MBRE = :NOMBRE,'#10' CALLE = :CALLE, '#10' PROVINCIA = :PROVINCIA,' +
|
||||
' '#10' POBLACION = :POBLACION, '#10' CODIGO_POSTAL = :CODIGO_POSTA' +
|
||||
'L, '#10' TELEFONO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :F' +
|
||||
'AX, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' OBSERVACIONE' +
|
||||
'S = :OBSERVACIONES, '#10' FECHA_MODIFICACION = CURRENT_DATE,'#10' ' +
|
||||
'USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_ALMACENES'
|
||||
end>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
Version = 0
|
||||
@ -285,4 +449,15 @@ object srvAlmacenes: TsrvAlmacenes
|
||||
Left = 48
|
||||
Top = 80
|
||||
end
|
||||
object bpAlmacenes: TDABusinessProcessor
|
||||
Schema = schAlmacenes
|
||||
InsertCommandName = 'Insert_ALMACENES'
|
||||
DeleteCommandName = 'Delete_ALMACENES'
|
||||
UpdateCommandName = 'Update_ALMACENES'
|
||||
ReferencedDataset = 'Almacenes'
|
||||
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
|
||||
UpdateMode = updWhereKeyOnly
|
||||
Left = 240
|
||||
Top = 24
|
||||
end
|
||||
end
|
||||
|
||||
@ -23,6 +23,7 @@ type
|
||||
TsrvAlmacenes = class(TDataAbstractService, IsrvAlmacenes)
|
||||
Diagrams: TDADiagrams;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
bpAlmacenes: TDABusinessProcessor;
|
||||
schAlmacenes: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset;
|
||||
|
||||
@ -77,8 +77,6 @@ begin
|
||||
Delete_Datos_Contacto(aChange);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
end;
|
||||
|
||||
procedure TBizContactosServer.BeforeProcessDelta(Sender: TDABusinessProcessor;
|
||||
|
||||
@ -49,38 +49,38 @@
|
||||
<DelphiCompile Include="Contactos_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.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\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\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.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\vclx.dcp" />
|
||||
<DCCReference Include="..\..\Obras\adortl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\..\Obras\Base.dcp" />
|
||||
<DCCReference Include="..\..\Obras\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Obras\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\Obras\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\Obras\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\Obras\FormasPago_model.dcp" />
|
||||
<DCCReference Include="..\..\Obras\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Obras\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="..\..\Obras\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\..\Obras\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\Obras\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\Obras\rtl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\TiposIVA_controller.dcp" />
|
||||
<DCCReference Include="..\..\Obras\TiposIVA_model.dcp" />
|
||||
<DCCReference Include="..\..\Obras\vcl.dcp" />
|
||||
<DCCReference Include="..\..\Obras\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\Obras\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\Obras\vcljpg.dcp" />
|
||||
<DCCReference Include="..\..\Obras\vclx.dcp" />
|
||||
<DCCReference Include="uContactosViewRegister.pas" />
|
||||
<DCCReference Include="uEditorCliente.pas">
|
||||
<Form>fEditorCliente</Form>
|
||||
|
||||
@ -40,14 +40,14 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Obras_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Obras_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Obras_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\GUIBase\Obras_model.dcp" />
|
||||
<DCCReference Include="..\Obras_model.dcp" />
|
||||
<DCCReference Include="uDataModuleObras.pas">
|
||||
<Form>DataModuleObras</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -29,7 +29,7 @@ inherited DataModuleObras: TDataModuleObras
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_Obras_ID'
|
||||
GeneratorName = 'GEN_ALMACENES_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'Obras_ID'
|
||||
InPrimaryKey = True
|
||||
|
||||
@ -9,7 +9,7 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Obras = '{CCB7D10C-3660-4703-987A-0EBE16DB0AB8}';
|
||||
RID_Obras = '{927DED8A-A584-4D02-9453-3251ED3BEE55}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Obras = 'Obras';
|
||||
@ -59,7 +59,7 @@ const
|
||||
type
|
||||
{ IObras }
|
||||
IObras = interface(IDAStronglyTypedDataTable)
|
||||
['{AEBE7430-B1DA-45EC-AD12-02499BF04C0C}']
|
||||
['{6614086B-6CF1-4B8F-AE93-DF04EE439FA2}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
|
||||
@ -9,12 +9,12 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ObrasDelta = '{F9AE7533-AB09-4DE5-BAC9-97D14691072A}';
|
||||
RID_ObrasDelta = '{44665455-E349-4CA4-AAB6-2AFE8C829C04}';
|
||||
|
||||
type
|
||||
{ IObrasDelta }
|
||||
IObrasDelta = interface(IObras)
|
||||
['{F9AE7533-AB09-4DE5-BAC9-97D14691072A}']
|
||||
['{44665455-E349-4CA4-AAB6-2AFE8C829C04}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
|
||||
142
Source/Modulos/Obras/Model/uBizObrasServer.pas
Normal file
142
Source/Modulos/Obras/Model/uBizObrasServer.pas
Normal file
@ -0,0 +1,142 @@
|
||||
unit uBizObrasServer;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils, schObrasServer_Intf, uDAInterfaces,
|
||||
uDADataTable, uDABusinessProcessor, uDADelta;
|
||||
|
||||
const
|
||||
BIZ_SERVER_OBRA = 'Server.Obra';
|
||||
|
||||
type
|
||||
TBizObrasServer = class(TObrasBusinessProcessorRules)
|
||||
protected
|
||||
procedure Insert_Datos_Obra(aChange: TDADeltaChange);
|
||||
procedure Update_Datos_Obra(aChange: TDADeltaChange);
|
||||
procedure Delete_Datos_Obra(aChange: TDADeltaChange);
|
||||
|
||||
procedure AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean;
|
||||
var CanRemoveFromDelta: Boolean); override;
|
||||
|
||||
procedure ProcessError(Sender: TDABusinessProcessor;
|
||||
aChangeType: TDAChangeType; aChange: TDADeltaChange;
|
||||
const aCommand: IDASQLCommand; var CanRemoveFromDelta: Boolean;
|
||||
Error: Exception); override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{ TBizObrasServer }
|
||||
|
||||
uses
|
||||
uDataModuleServer, uDAClasses, Variants,
|
||||
schObrasClient_Intf, uBusinessUtils;
|
||||
|
||||
|
||||
procedure TBizObrasServer.AfterProcessChange(Sender: TDABusinessProcessor;
|
||||
aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
{ Por defecto, mantenemos los deltas por si alguna tabla hija los necesita }
|
||||
CanRemoveFromDelta := False;
|
||||
|
||||
case aChange.ChangeType of
|
||||
ctInsert: begin
|
||||
Insert_Datos_Obra(aChange);
|
||||
end;
|
||||
ctUpdate: begin
|
||||
Update_Datos_Obra(aChange);
|
||||
end;
|
||||
ctDelete: begin
|
||||
Delete_Datos_Obra(aChange);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBizObrasServer.Delete_Datos_Obra(aChange: TDADeltaChange);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ACommand : IDASQLCommand;
|
||||
begin
|
||||
ASchema := BusinessProcessor.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_OBRAS_DATOS');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('OLD_ID_ALMACEN').Value := aChange.OldValueByName[fld_ObrasID];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBizObrasServer.Insert_Datos_Obra(aChange: TDADeltaChange);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ACommand : IDASQLCommand;
|
||||
begin
|
||||
ASchema := BusinessProcessor.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Insert_OBRAS_DATOS');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('ID_ALMACEN').Value := aChange.NewValueByName[fld_ObrasID];
|
||||
ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ObrasID_CLIENTE];
|
||||
ParamByName('ID_SUBCONTRATA').Value := aChange.NewValueByName[fld_ObrasID_SUBCONTRATA];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TBizObrasServer.ProcessError(Sender: TDABusinessProcessor;
|
||||
aChangeType: TDAChangeType; aChange: TDADeltaChange;
|
||||
const aCommand: IDASQLCommand; var CanRemoveFromDelta: Boolean;
|
||||
Error: Exception);
|
||||
begin
|
||||
inherited;
|
||||
//IMPORTANTE ESTO HACE QUE EL CLIENTE SE ENTERE DEL ERROR Y LOS BP ASOCIADOS EN EL
|
||||
//SCHEMA HAGAN ROLLBACK TAMBIEN
|
||||
CanRemoveFromDelta := True;
|
||||
raise Exception.Create(Error.Message);
|
||||
end;
|
||||
|
||||
procedure TBizObrasServer.Update_Datos_Obra(aChange: TDADeltaChange);
|
||||
var
|
||||
ASchema : TDASchema;
|
||||
ACurrentConn : IDAConnection;
|
||||
ACommand : IDASQLCommand;
|
||||
begin
|
||||
ASchema := BusinessProcessor.Schema;
|
||||
ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
|
||||
|
||||
ACommand := ASchema.NewCommand(ACurrentConn, 'Update_OBRAS_DATOS');
|
||||
try
|
||||
with ACommand do
|
||||
begin
|
||||
ParamByName('OLD_ID_ALMACEN').Value := aChange.NewValueByName[fld_ObrasID];
|
||||
ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ObrasID_CLIENTE];
|
||||
ParamByName('ID_SUBCONTRATA').Value := aChange.NewValueByName[fld_ObrasID_SUBCONTRATA];
|
||||
Execute;
|
||||
end;
|
||||
finally
|
||||
ACommand := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(BIZ_SERVER_OBRA, TBizObrasServer);
|
||||
|
||||
end.
|
||||
|
||||
@ -67,7 +67,7 @@ object srvObras: TsrvObras
|
||||
item
|
||||
Name = 'Obras_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_Obras_ID'
|
||||
GeneratorName = 'GEN_ALMACENES_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
@ -222,7 +222,7 @@ object srvObras: TsrvObras
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_Obras_ID'
|
||||
GeneratorName = 'GEN_ALMACENES_ID'
|
||||
DictionaryEntry = 'Obras_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
@ -338,7 +338,7 @@ object srvObras: TsrvObras
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_OBRAS_ID'
|
||||
GeneratorName = 'GEN_ALMACENES_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
@ -385,14 +385,6 @@ object srvObras: TsrvObras
|
||||
Name = 'OBSERVACIONES'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCONTRATA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'USUARIO'
|
||||
Value = ''
|
||||
@ -401,15 +393,14 @@ object srvObras: TsrvObras
|
||||
item
|
||||
Connection = 'IBX'
|
||||
Default = True
|
||||
TargetTable = 'OBRAS'
|
||||
TargetTable = 'ALMACENES'
|
||||
SQL =
|
||||
'INSERT'#10' INTO OBRAS'#10' (ID, ID_EMPRESA, NOMBRE, CALLE, PROVINCI' +
|
||||
'A, POBLACION, CODIGO_POSTAL,'#10' TELEFONO, MOVIL, FAX, PERSONA_' +
|
||||
'CONTACTO, OBSERVACIONES, '#10' ID_CLIENTE, ID_SUBCONTRATA, FECHA' +
|
||||
'_ALTA,'#10' USUARIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :NOMBRE, :C' +
|
||||
'ALLE, :PROVINCIA, :POBLACION,'#10' :CODIGO_POSTAL, :TELEFONO, :M' +
|
||||
'OVIL, :FAX, :PERSONA_CONTACTO, '#10' :OBSERVACIONES, :ID_CLIENTE' +
|
||||
', :ID_SUBCONTRATA, CURRENT_DATE,'#10' :USUARIO)'#10
|
||||
'INSERT'#10' INTO ALMACENES'#10' (ID, ID_EMPRESA, NOMBRE, CALLE, PROV' +
|
||||
'INCIA, POBLACION, CODIGO_POSTAL,'#10' TELEFONO, MOVIL, FAX, PERS' +
|
||||
'ONA_CONTACTO, OBSERVACIONES, '#10' FECHA_ALTA, USUARIO)'#10' VALUES' +
|
||||
#10' (:ID, :ID_EMPRESA, :NOMBRE, :CALLE, :PROVINCIA, :POBLACION,' +
|
||||
#10' :CODIGO_POSTAL, :TELEFONO, :MOVIL, :FAX, :PERSONA_CONTACTO' +
|
||||
', '#10' :OBSERVACIONES, CURRENT_DATE, :USUARIO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -425,7 +416,7 @@ object srvObras: TsrvObras
|
||||
item
|
||||
Connection = 'IBX'
|
||||
Default = True
|
||||
TargetTable = 'OBRAS'
|
||||
TargetTable = 'ALMACENES'
|
||||
SQL = 'DELETE '#10' FROM'#10' OBRAS'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
@ -434,10 +425,6 @@ object srvObras: TsrvObras
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_SUBCONTRATA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
@ -482,10 +469,6 @@ object srvObras: TsrvObras
|
||||
Name = 'OBSERVACIONES'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_MODIFICACION'
|
||||
Value = ''
|
||||
@ -502,20 +485,97 @@ object srvObras: TsrvObras
|
||||
item
|
||||
Connection = 'IBX'
|
||||
Default = True
|
||||
TargetTable = 'OBRAS'
|
||||
TargetTable = 'ALMACENES'
|
||||
SQL =
|
||||
'UPDATE OBRAS'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA, '#10' NOMBRE = ' +
|
||||
':NOMBRE, '#10' CALLE = :CALLE, '#10' PROVINCIA = :PROVINCIA, '#10' ' +
|
||||
'POBLACION = :POBLACION, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' ' +
|
||||
' TELEFONO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' ' +
|
||||
' PERSONA_CONTACTO = :PERSONA_CONTACTO, '#10' OBSERVACIONES = :O' +
|
||||
'BSERVACIONES, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ID_SUBCONTRATA' +
|
||||
' = :ID_SUBCONTRATA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION' +
|
||||
','#10' USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
'BSERVACIONES, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' ' +
|
||||
' USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_Obras'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
Value = '0'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
DataType = datInteger
|
||||
Value = '0'
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCONTRATA'
|
||||
DataType = datInteger
|
||||
Value = '0'
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'OBRAS_DATOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO OBRAS_DATOS'#10' (ID_ALMACEN, ID_CLIENTE, ID_SUBCON' +
|
||||
'TRATA)'#10' VALUES'#10' (:ID_ALMACEN, :ID_CLIENTE, :ID_SUBCONTRATA)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Insert_OBRAS_DATOS'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'OLD_ID_ALMACEN'
|
||||
DataType = datInteger
|
||||
Value = '0'
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'OBRAS_DATOS'
|
||||
SQL =
|
||||
'DELETE '#10' FROM'#10' OBRAS_DATOS'#10' WHERE'#10' (ID_ALMACEN = :OLD_ID' +
|
||||
'_ALMACEN)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Delete_OBRAS_DATOS'
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CLIENTE'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCONTRATA'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'OLD_ID_ALMACEN'
|
||||
Value = ''
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'OBRAS_DATOS'
|
||||
SQL =
|
||||
'UPDATE OBRAS_DATOS'#10' SET '#10' ID_CLIENTE = :ID_CLIENTE,'#10' ID_S' +
|
||||
'UBCONTRATA = :ID_SUBCONTRATA'#10' WHERE'#10' (ID_ALMACEN = :OLD_ID_A' +
|
||||
'LMACEN)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
Name = 'Update_OBRAS_DATOS'
|
||||
end>
|
||||
RelationShips = <>
|
||||
UpdateRules = <>
|
||||
|
||||
@ -38,7 +38,8 @@ implementation
|
||||
{$R *.dfm}
|
||||
uses
|
||||
{Generated:} FactuGES_Invk, uDataModuleServer,
|
||||
uDatabaseUtils, schObrasClient_Intf, uRestriccionesUsuarioUtils;
|
||||
uDatabaseUtils, schObrasClient_Intf, uRestriccionesUsuarioUtils,
|
||||
uBizObrasServer;
|
||||
|
||||
procedure Create_srvObras(out anInstance : IUnknown);
|
||||
begin
|
||||
@ -50,7 +51,7 @@ procedure TsrvObras.DARemoteServiceAfterGetDatasetData(
|
||||
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||
const MaxRecords: Integer);
|
||||
begin
|
||||
if DataSet.Name = nme_Obras then
|
||||
if Assigned(Dataset.FindField(fld_ObrasID_EMPRESA)) then
|
||||
begin
|
||||
{ Aquí se asegura que el usuario sólo accede a los Obras
|
||||
de las empresas a las que tiene permiso para acceder
|
||||
@ -62,6 +63,8 @@ end;
|
||||
procedure TsrvObras.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
|
||||
bpObras.BusinessRulesID := BIZ_SERVER_OBRA;
|
||||
end;
|
||||
|
||||
procedure TsrvObras.DataAbstractServiceBeforeAcquireConnection(
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -59,8 +59,6 @@ uses
|
||||
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
|
||||
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
|
||||
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
|
||||
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
||||
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
|
||||
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
|
||||
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
|
||||
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService},
|
||||
@ -119,10 +117,13 @@ uses
|
||||
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
|
||||
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
|
||||
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
|
||||
schObrasClient_Intf in '..\Modulos\Obras\Model\schObrasClient_Intf.pas',
|
||||
schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
|
||||
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
|
||||
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
|
||||
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
||||
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
|
||||
uBizObrasServer in '..\Modulos\Obras\Model\uBizObrasServer.pas',
|
||||
schObrasClient_Intf in '..\Modulos\Obras\Model\schObrasClient_Intf.pas',
|
||||
schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -1,4 +1,4 @@
|
||||
<?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>
|
||||
@ -152,6 +152,7 @@
|
||||
</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"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.3.0\0"
|
||||
VALUE "ProductVersion", "1.0.3.0\0"
|
||||
VALUE "CompileDate", "jueves, 27 de marzo de 2008 13:33\0"
|
||||
VALUE "CompileDate", "miércoles, 16 de abril de 2008 13:08\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user