Se arregla pedidos proveedor porque esta mal hecho (en las vistas no se deben de tocar campos del modelo de datos, para eso esta el controller), falta todavia detalles de funcionamiento de interfaz no tocar
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@744 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
debb7661ed
commit
bea103d6c2
@ -53,58 +53,58 @@
|
|||||||
<DelphiCompile Include="Base.dpk">
|
<DelphiCompile Include="Base.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxExtEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxGridD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntl6D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntlPrintSys3D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\cxPageControlD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxPSCoreD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Indy_D11.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\TB2k_D10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\VclSmp.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
|
||||||
|
<DCCReference Include="..\Modulos\Albaranes de proveedor\xmlrtl.dcp" />
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<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">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
@ -2,7 +2,6 @@ program FactuGES;
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
// ExceptionLog,
|
// ExceptionLog,
|
||||||
ExceptionLog,
|
|
||||||
Forms,
|
Forms,
|
||||||
Windows,
|
Windows,
|
||||||
SysUtils,
|
SysUtils,
|
||||||
|
|||||||
@ -55,30 +55,6 @@
|
|||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
|
||||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||||
|
|||||||
@ -138,7 +138,7 @@ function TAlmacenesController.DarListaAlmacenes: TStringList;
|
|||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
Result := FDataModule.DarListaAlmacenes;
|
Result := FDataModule.DarListaAlmacenes(AppFactuGES.EmpresaActiva.ID);
|
||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -27,7 +27,7 @@ type
|
|||||||
function GetItems : IBizAlmacen;
|
function GetItems : IBizAlmacen;
|
||||||
function GetItem(const ID : Integer) : IBizAlmacen;
|
function GetItem(const ID : Integer) : IBizAlmacen;
|
||||||
function NewItem : IBizAlmacen;
|
function NewItem : IBizAlmacen;
|
||||||
function DarListaAlmacenes : TStringList;
|
function DarListaAlmacenes(const IDEmpresa: Integer): TStringList;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -51,11 +51,11 @@ begin
|
|||||||
RORemoteService.Message := dmConexion.Message;
|
RORemoteService.Message := dmConexion.Message;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleAlmacenes.DarListaAlmacenes: TStringList;
|
function TDataModuleAlmacenes.DarListaAlmacenes(const IDEmpresa: Integer): TStringList;
|
||||||
var
|
var
|
||||||
ABinary : Binary;
|
ABinary : Binary;
|
||||||
begin
|
begin
|
||||||
ABinary := (RORemoteService as IsrvAlmacenes).DarListaAlmacenes;
|
ABinary := (RORemoteService as IsrvAlmacenes).DarListaAlmacenes(IDEmpresa);
|
||||||
Result := TStringList.Create;
|
Result := TStringList.Create;
|
||||||
Result.LoadFromStream(ABinary);
|
Result.LoadFromStream(ABinary);
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -11,7 +11,7 @@ type
|
|||||||
function GetItems: IBizAlmacen;
|
function GetItems: IBizAlmacen;
|
||||||
function GetItem(const ID : Integer) : IBizAlmacen;
|
function GetItem(const ID : Integer) : IBizAlmacen;
|
||||||
function NewItem : IBizAlmacen;
|
function NewItem : IBizAlmacen;
|
||||||
function DarListaAlmacenes : TStringList;
|
function DarListaAlmacenes(const IDEmpresa: Integer): TStringList;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|||||||
@ -113,16 +113,22 @@ object srvAlmacenes: TsrvAlmacenes
|
|||||||
Diagrams = Diagrams
|
Diagrams = Diagrams
|
||||||
Datasets = <
|
Datasets = <
|
||||||
item
|
item
|
||||||
Params = <>
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
ConnectionType = 'Interbase'
|
ConnectionType = 'Interbase'
|
||||||
Default = True
|
Default = True
|
||||||
TargetTable = 'ALMACENES'
|
TargetTable = 'ALMACENES'
|
||||||
Name = 'IBX'
|
Name = 'IBX'
|
||||||
SQL =
|
SQL =
|
||||||
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'ALMACEN'#39#10 +
|
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'ALMACEN'#39#10 +
|
||||||
'order by NOMBRE'#10#10
|
'and ID_EMPRESA = :ID_EMPRESA'#10'order by NOMBRE'#10#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
|
|||||||
@ -32,7 +32,7 @@ type
|
|||||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||||
var aConnectionName: string);
|
var aConnectionName: string);
|
||||||
protected
|
protected
|
||||||
function DarListaAlmacenes: Binary;
|
function DarListaAlmacenes(const IDEmpresa: Integer): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -66,7 +66,7 @@ begin
|
|||||||
SessionManager := dmServer.SessionManager;
|
SessionManager := dmServer.SessionManager;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvAlmacenes.DarListaAlmacenes: Binary;
|
function TsrvAlmacenes.DarListaAlmacenes(const IDEmpresa: Integer): Binary;
|
||||||
var
|
var
|
||||||
ASchema : TDASchema;
|
ASchema : TDASchema;
|
||||||
AConn : IDAConnection;
|
AConn : IDAConnection;
|
||||||
@ -79,7 +79,7 @@ begin
|
|||||||
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
||||||
|
|
||||||
try
|
try
|
||||||
dsData := ASchema.NewDataset(AConn, 'ListaAlmacenes');
|
dsData := ASchema.NewDataset(AConn, 'ListaAlmacenes', ['ID_EMPRESA'], [IntToStr(IDEmpresa)]);
|
||||||
except
|
except
|
||||||
RaiseError('No existe la tabla ALMACENES');
|
RaiseError('No existe la tabla ALMACENES');
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -8,6 +8,10 @@ uses
|
|||||||
type
|
type
|
||||||
IEditorDetalleReservas = interface(IEditorGridBase)
|
IEditorDetalleReservas = interface(IEditorGridBase)
|
||||||
['{EE301C2F-98DC-49CD-B7EA-D29D0B9326D8}']
|
['{EE301C2F-98DC-49CD-B7EA-D29D0B9326D8}']
|
||||||
|
function GetTipoReservas: String;
|
||||||
|
procedure SetTipoReservas(const Value: String);
|
||||||
|
property TipoReservas: String read GetTipoReservas write SetTipoReservas;
|
||||||
|
|
||||||
function GetController : IInventarioController;
|
function GetController : IInventarioController;
|
||||||
procedure SetController (const Value : IInventarioController);
|
procedure SetController (const Value : IInventarioController);
|
||||||
property Controller : IInventarioController read GetController write SetController;
|
property Controller : IInventarioController read GetController write SetController;
|
||||||
|
|||||||
@ -22,7 +22,7 @@ type
|
|||||||
|
|
||||||
function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean;
|
function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean;
|
||||||
procedure VerTodos(AInventario: IBizInventario; const pTipoInventario: String);
|
procedure VerTodos(AInventario: IBizInventario; const pTipoInventario: String);
|
||||||
procedure VerReservas(AArticulo: IBizInventario);
|
procedure VerReservas(AArticulo: IBizInventario; const ATipoReservas: String);
|
||||||
|
|
||||||
function BuscarTodos: IBizInventario;
|
function BuscarTodos: IBizInventario;
|
||||||
function BuscarTodosAlmacenes: IBizInventario;
|
function BuscarTodosAlmacenes: IBizInventario;
|
||||||
@ -138,7 +138,7 @@ type
|
|||||||
procedure VerTodos(AInventario: IBizInventario; const pTipoInventario: String);
|
procedure VerTodos(AInventario: IBizInventario; const pTipoInventario: String);
|
||||||
function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean;
|
function Ver(AArticulos: IBizInventario; AInventario : IBizInventario; APedido: IBizPedidoProveedor = Nil): Boolean;
|
||||||
|
|
||||||
procedure VerReservas(AArticulo: IBizInventario);
|
procedure VerReservas(AArticulo: IBizInventario; const ATipoReservas: String);
|
||||||
|
|
||||||
function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String; AValidar:Boolean = True): Boolean;
|
function Guardar(AArticulos : IBizInventario; const FechaMovimiento: TDateTime; const CausaMovimiento: String; AValidar:Boolean = True): Boolean;
|
||||||
|
|
||||||
@ -553,7 +553,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TInventarioController.VerReservas(AArticulo: IBizInventario);
|
procedure TInventarioController.VerReservas(AArticulo: IBizInventario; const ATipoReservas: String);
|
||||||
var
|
var
|
||||||
AEditor : IEditorDetalleReservas;
|
AEditor : IEditorDetalleReservas;
|
||||||
begin
|
begin
|
||||||
@ -565,6 +565,7 @@ begin
|
|||||||
with AEditor do
|
with AEditor do
|
||||||
begin
|
begin
|
||||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||||
|
TipoReservas := ATipoReservas;
|
||||||
DetalleReservas := FDataModule.GetDetalleReservas;
|
DetalleReservas := FDataModule.GetDetalleReservas;
|
||||||
Articulo := AArticulo;
|
Articulo := AArticulo;
|
||||||
MultiSelect := True;
|
MultiSelect := True;
|
||||||
|
|||||||
@ -170,15 +170,6 @@
|
|||||||
<Target Name="AlbaranesProveedor_controller:Make">
|
<Target Name="AlbaranesProveedor_controller:Make">
|
||||||
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="Make" />
|
<MSBuild Projects="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" Targets="Make" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="PedidosProveedor_controller">
|
|
||||||
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="" />
|
|
||||||
</Target>
|
|
||||||
<Target Name="PedidosProveedor_controller:Clean">
|
|
||||||
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Clean" />
|
|
||||||
</Target>
|
|
||||||
<Target Name="PedidosProveedor_controller:Make">
|
|
||||||
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
|
|
||||||
</Target>
|
|
||||||
<Target Name="PedidosProveedor_view">
|
<Target Name="PedidosProveedor_view">
|
||||||
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
|
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
|
||||||
</Target>
|
</Target>
|
||||||
@ -188,6 +179,15 @@
|
|||||||
<Target Name="PedidosProveedor_view:Make">
|
<Target Name="PedidosProveedor_view:Make">
|
||||||
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
|
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
|
||||||
</Target>
|
</Target>
|
||||||
|
<Target Name="PedidosProveedor_controller">
|
||||||
|
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="PedidosProveedor_controller:Clean">
|
||||||
|
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Clean" />
|
||||||
|
</Target>
|
||||||
|
<Target Name="PedidosProveedor_controller:Make">
|
||||||
|
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
|
||||||
|
</Target>
|
||||||
<Target Name="Articulos_controller">
|
<Target Name="Articulos_controller">
|
||||||
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
|
<MSBuild Projects="..\Articulos\Controller\Articulos_controller.dproj" Targets="" />
|
||||||
</Target>
|
</Target>
|
||||||
@ -252,13 +252,13 @@
|
|||||||
<MSBuild Projects="..\Almacenes\Model\Almacenes_model.dproj" Targets="Make" />
|
<MSBuild Projects="..\Almacenes\Model\Almacenes_model.dproj" Targets="Make" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Build">
|
<Target Name="Build">
|
||||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_controller;PedidosProveedor_view;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model" />
|
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;Inventario_model;Inventario_data;Inventario_controller;PedProv_AlbProv_relation;Inventario_view;Inventario_plugin;FactuGES;FactuGES_Server;Obras_controller;AlbaranesProveedor_controller;PedidosProveedor_view;PedidosProveedor_controller;Articulos_controller;AlbaranesProveedor_data;Almacenes_controller;Almacenes_data;Obras_data;Obras_model;Almacenes_model" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Clean">
|
<Target Name="Clean">
|
||||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean" />
|
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;Inventario_model:Clean;Inventario_data:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;Inventario_view:Clean;Inventario_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Obras_controller:Clean;AlbaranesProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;Articulos_controller:Clean;AlbaranesProveedor_data:Clean;Almacenes_controller:Clean;Almacenes_data:Clean;Obras_data:Clean;Obras_model:Clean;Almacenes_model:Clean" />
|
||||||
</Target>
|
</Target>
|
||||||
<Target Name="Make">
|
<Target Name="Make">
|
||||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make" />
|
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;Inventario_model:Make;Inventario_data:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;Inventario_view:Make;Inventario_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Obras_controller:Make;AlbaranesProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;Articulos_controller:Make;AlbaranesProveedor_data:Make;Almacenes_controller:Make;Almacenes_data:Make;Obras_data:Make;Obras_model:Make;Almacenes_model:Make" />
|
||||||
</Target>
|
</Target>
|
||||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||||
</Project>
|
</Project>
|
||||||
Binary file not shown.
@ -122,7 +122,7 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
|
|||||||
ExplicitHeight = 419
|
ExplicitHeight = 419
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 669
|
Width = 669
|
||||||
Height = 291
|
Height = 250
|
||||||
ExplicitWidth = 669
|
ExplicitWidth = 669
|
||||||
ExplicitHeight = 291
|
ExplicitHeight = 291
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
@ -219,6 +219,12 @@ inherited fEditorDetalleReservas: TfEditorDetalleReservas
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited pnlAlmacenes: TPanel
|
||||||
|
Width = 669
|
||||||
|
inherited cxListaAlmacenesObras: TcxComboBox
|
||||||
|
ExplicitWidth = 510
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
ReportDocument.CreationDate = 39280.678861030090000000
|
ReportDocument.CreationDate = 39280.678861030090000000
|
||||||
|
|||||||
@ -12,7 +12,7 @@ uses
|
|||||||
uViewBase, uViewBarraSeleccion, JvComponentBase, uEditorGridBase,
|
uViewBase, uViewBarraSeleccion, JvComponentBase, uEditorGridBase,
|
||||||
uIEditorDetalleReservas, uBizInventario, uViewGridBase,
|
uIEditorDetalleReservas, uBizInventario, uViewGridBase,
|
||||||
JvExComCtrls, JvStatusBar, uViewGrid2Niveles, JSDialog, uDAInterfaces,
|
JvExComCtrls, JvStatusBar, uViewGrid2Niveles, JSDialog, uDAInterfaces,
|
||||||
uInventarioController;
|
uInventarioController, uEditorInventario;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
@ -31,10 +31,12 @@ type
|
|||||||
procedure actTrasladarReservadosExecute(Sender: TObject);
|
procedure actTrasladarReservadosExecute(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
function SeleccionarAlmacen(Descripcion: String): Integer;
|
function Seleccionar(Descripcion: String; TipoSeleccion: TEnumSeleccion): Variant;
|
||||||
function DarIDAlmacenSeleccionado(Descripcion: String): Integer;
|
function DarIDAlmacenSeleccionado(Descripcion: String): Integer;
|
||||||
|
function DarIDObraSeleccionada(Descripcion: String): Integer;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
|
FTipoReservas: String;
|
||||||
FArticulo: IBizInventario;
|
FArticulo: IBizInventario;
|
||||||
FDetalleReservas: IBizDetalleReservas;
|
FDetalleReservas: IBizDetalleReservas;
|
||||||
FController : IInventarioController;
|
FController : IInventarioController;
|
||||||
@ -43,7 +45,8 @@ type
|
|||||||
procedure SetArticulo(const Value: IBizInventario);
|
procedure SetArticulo(const Value: IBizInventario);
|
||||||
function GetDetalleReservas: IBizDetalleReservas;
|
function GetDetalleReservas: IBizDetalleReservas;
|
||||||
procedure SetDetalleReservas(const Value: IBizDetalleReservas);
|
procedure SetDetalleReservas(const Value: IBizDetalleReservas);
|
||||||
|
function GetTipoReservas: String;
|
||||||
|
procedure SetTipoReservas(const Value: String);
|
||||||
function GetController : IInventarioController; virtual;
|
function GetController : IInventarioController; virtual;
|
||||||
procedure SetController (const Value : IInventarioController); virtual;
|
procedure SetController (const Value : IInventarioController); virtual;
|
||||||
|
|
||||||
@ -58,6 +61,7 @@ type
|
|||||||
property Articulo: IBizInventario read GetArticulo write SetArticulo;
|
property Articulo: IBizInventario read GetArticulo write SetArticulo;
|
||||||
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
|
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
|
||||||
property Controller : IInventarioController read GetController write SetController;
|
property Controller : IInventarioController read GetController write SetController;
|
||||||
|
property TipoReservas: String read GetTipoReservas write SetTipoReservas;
|
||||||
// property ArticulosSeleccionados: IBizDetalleReservas read GetArticulosSeleccionados;
|
// property ArticulosSeleccionados: IBizDetalleReservas read GetArticulosSeleccionados;
|
||||||
// property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
// property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||||
|
|
||||||
@ -70,10 +74,10 @@ implementation
|
|||||||
{$R *.DFM}
|
{$R *.DFM}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
cxControls, uGridStatusUtils, uDataModuleInventario, uDataModuleUsuarios,
|
cxControls, Variants, uGridStatusUtils, uDataModuleInventario, uDataModuleUsuarios,
|
||||||
uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView,
|
uEditorBase, uDBSelectionListUtils, cxGridDBTableView, cxGridCustomTableView,
|
||||||
uAlmacenesController, uBizAlmacenes, uFactuGES_App, uDialogUtils,
|
uAlmacenesController, uBizAlmacenes, uFactuGES_App, uDialogUtils,
|
||||||
// uGenerarAlbaranesProvUtils,
|
uEditorElegirAlmacenObraOperacion,
|
||||||
schInventarioClient_Intf;
|
schInventarioClient_Intf;
|
||||||
|
|
||||||
{, uDBSelectionList, uDataModulePedidosProveedor,
|
{, uDBSelectionList, uDataModulePedidosProveedor,
|
||||||
@ -141,11 +145,25 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorDetalleReservas.DarIDAlmacenSeleccionado(Descripcion: String): Integer;
|
function TfEditorDetalleReservas.DarIDAlmacenSeleccionado(Descripcion: String): Integer;
|
||||||
|
var
|
||||||
|
IDAlmacen: Variant;
|
||||||
begin
|
begin
|
||||||
if (ViewGrid._Grid.ActiveLevel.Tag = -1) then
|
IDAlmacen := (ViewGrid as IViewDetalleReservas).DarIDAlmacenObraSeleccionada;
|
||||||
Result := SeleccionarAlmacen(Descripcion)
|
if not VarIsNull(IDAlmacen) then
|
||||||
|
Result := IDAlmacen
|
||||||
else
|
else
|
||||||
Result := ViewGrid._Grid.ActiveLevel.Tag;
|
Result := Seleccionar(Descripcion, tAlmacen)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorDetalleReservas.DarIDObraSeleccionada(Descripcion: String): Integer;
|
||||||
|
var
|
||||||
|
IDObra: Variant;
|
||||||
|
begin
|
||||||
|
IDObra := (ViewGrid as IViewDetalleReservas).DarIDAlmacenObraSeleccionada;
|
||||||
|
if not VarIsNull(IDObra) then
|
||||||
|
Result := IDObra
|
||||||
|
else
|
||||||
|
Result := Seleccionar(Descripcion, TObra)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
destructor TfEditorDetalleReservas.Destroy;
|
destructor TfEditorDetalleReservas.Destroy;
|
||||||
@ -194,6 +212,11 @@ function TfEditorDetalleReservas.GetDetalleReservas: IBizDetalleReservas;
|
|||||||
begin
|
begin
|
||||||
Result := FDetalleReservas;
|
Result := FDetalleReservas;
|
||||||
end;
|
end;
|
||||||
|
function TfEditorDetalleReservas.GetTipoReservas: String;
|
||||||
|
begin
|
||||||
|
Result := FTipoReservas;
|
||||||
|
end;
|
||||||
|
|
||||||
{
|
{
|
||||||
function TfEditorDetalleReservas.GetMultiSelect: Boolean;
|
function TfEditorDetalleReservas.GetMultiSelect: Boolean;
|
||||||
begin
|
begin
|
||||||
@ -218,10 +241,10 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorDetalleReservas.SeleccionarAlmacen(Descripcion: String): Integer;
|
{function TfEditorDetalleReservas.SeleccionarAlmacen(Descripcion: String): Integer;
|
||||||
{var
|
var
|
||||||
AAlmacenes : IBizAlmacen;
|
AAlmacenes : IBizAlmacen;
|
||||||
Respuesta : integer;}
|
Respuesta : integer;
|
||||||
begin
|
begin
|
||||||
Result := -1;
|
Result := -1;
|
||||||
{
|
{
|
||||||
@ -248,7 +271,6 @@ begin
|
|||||||
Respuesta := JsElegirAlmacenDialog.Execute;
|
Respuesta := JsElegirAlmacenDialog.Execute;
|
||||||
if Respuesta <> IDCANCEL then
|
if Respuesta <> IDCANCEL then
|
||||||
Result := JsElegirAlmacenDialog.RadioResult - 1000;
|
Result := JsElegirAlmacenDialog.RadioResult - 1000;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
{
|
{
|
||||||
procedure TfEditorDetalleReservas.SetController(const Value: IDetalleReservasController);
|
procedure TfEditorDetalleReservas.SetController(const Value: IDetalleReservasController);
|
||||||
@ -262,10 +284,68 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
}
|
}
|
||||||
|
function TfEditorDetalleReservas.Seleccionar(Descripcion: String; TipoSeleccion: TEnumSeleccion): Variant;
|
||||||
|
var
|
||||||
|
ALista : TStringList;
|
||||||
|
AListaAux : TStringList;
|
||||||
|
Respuesta : Variant;
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Result := Null;
|
||||||
|
|
||||||
|
with TfEditorElegirAlmacenObraOperacion.Create(NIL) do
|
||||||
|
try
|
||||||
|
case TipoSeleccion of
|
||||||
|
tAlmacen: begin
|
||||||
|
Caption := Descripcion;
|
||||||
|
eDescripcion.Caption := 'Elija sobre qué almacén desea realizar la operación.';
|
||||||
|
eEtiqueta.Caption := 'Almacén:';
|
||||||
|
ALista := Controller.AlmacenesController.DarListaAlmacenes;
|
||||||
|
end;
|
||||||
|
tObra: begin
|
||||||
|
Caption := Descripcion;
|
||||||
|
eDescripcion.Caption := 'Elija sobre qué obra desea realizar la operación.';
|
||||||
|
eEtiqueta.Caption := 'Obra:';
|
||||||
|
ALista := Controller.ObrasController.DarListaObras;
|
||||||
|
end;
|
||||||
|
tAlmacenObra: begin
|
||||||
|
Caption := Descripcion;
|
||||||
|
eDescripcion.Caption := 'Elija sobre qué almacén u obra desea realizar la operación.';
|
||||||
|
eEtiqueta.Caption := 'Almacén/Obra:';
|
||||||
|
ALista := Controller.AlmacenesController.DarListaAlmacenes;
|
||||||
|
AListaAux := Controller.ObrasController.DarListaObras;
|
||||||
|
|
||||||
|
for i := 0 to AListaAux.Count - 1 do
|
||||||
|
ALista.Add(Format('%s=%s', [AListaAux.Names[i], AListaAux.Values[AListaAux.Names[i]]]));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with cxListaAlmacenesObras.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to ALista.Count - 1 do
|
||||||
|
Add(ALista.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (ShowModal = mrOk) then
|
||||||
|
Result := ALista.Values[cxListaAlmacenesObras.EditValue];
|
||||||
|
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorDetalleReservas.SetArticulo(const Value: IBizInventario);
|
procedure TfEditorDetalleReservas.SetArticulo(const Value: IBizInventario);
|
||||||
begin
|
begin
|
||||||
FArticulo := Value;
|
FArticulo := Value;
|
||||||
if Assigned(FArticulo) then
|
if Assigned(FArticulo)
|
||||||
|
and (FArticulo.RESERVA > 0) then
|
||||||
begin
|
begin
|
||||||
tbxEditFiltro.Text := FArticulo.REFERENCIA;
|
tbxEditFiltro.Text := FArticulo.REFERENCIA;
|
||||||
end;
|
end;
|
||||||
@ -284,6 +364,25 @@ begin
|
|||||||
if Assigned(ViewGrid) then
|
if Assigned(ViewGrid) then
|
||||||
(ViewGrid as IViewDetalleReservas).DetalleReservas := FDetalleReservas;
|
(ViewGrid as IViewDetalleReservas).DetalleReservas := FDetalleReservas;
|
||||||
end;
|
end;
|
||||||
|
procedure TfEditorDetalleReservas.SetTipoReservas(const Value: String);
|
||||||
|
begin
|
||||||
|
FTipoReservas := Value;
|
||||||
|
|
||||||
|
if not Assigned(FController) then
|
||||||
|
raise Exception.Create('No hay ningún controlador asignado');
|
||||||
|
|
||||||
|
if (FTipoReservas = CTE_INV_ALMACEN) then
|
||||||
|
begin
|
||||||
|
if Assigned(ViewGrid) then
|
||||||
|
(ViewGrid as IViewDetalleReservas).Almacenes := FController.AlmacenesController.DarListaAlmacenes;
|
||||||
|
end
|
||||||
|
else if (FTipoReservas = CTE_INV_OBRA) then
|
||||||
|
begin
|
||||||
|
if Assigned(ViewGrid) then
|
||||||
|
(ViewGrid as IViewDetalleReservas).Obras := FController.ObrasController.DarListaObras;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
{
|
{
|
||||||
procedure TfEditorDetalleReservas.SetMultiSelect(AValue: Boolean);
|
procedure TfEditorDetalleReservas.SetMultiSelect(AValue: Boolean);
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -328,6 +328,7 @@ inherited fEditorInventario: TfEditorInventario
|
|||||||
Caption = 'Recibir pedido'
|
Caption = 'Recibir pedido'
|
||||||
ImageIndex = 24
|
ImageIndex = 24
|
||||||
OnExecute = actRecibirPedidoExecute
|
OnExecute = actRecibirPedidoExecute
|
||||||
|
OnUpdate = actRecibirPedidoUpdate
|
||||||
end
|
end
|
||||||
object actTrasladar: TAction
|
object actTrasladar: TAction
|
||||||
Category = 'Logistica'
|
Category = 'Logistica'
|
||||||
@ -341,6 +342,7 @@ inherited fEditorInventario: TfEditorInventario
|
|||||||
Caption = 'Reservar'
|
Caption = 'Reservar'
|
||||||
ImageIndex = 25
|
ImageIndex = 25
|
||||||
OnExecute = actReservarExecute
|
OnExecute = actReservarExecute
|
||||||
|
OnUpdate = actReservarUpdate
|
||||||
end
|
end
|
||||||
object actLiberar: TAction
|
object actLiberar: TAction
|
||||||
Category = 'Logistica'
|
Category = 'Logistica'
|
||||||
@ -363,8 +365,8 @@ inherited fEditorInventario: TfEditorInventario
|
|||||||
OnExecute = actContraerExecute
|
OnExecute = actContraerExecute
|
||||||
end
|
end
|
||||||
object actReservados: TAction
|
object actReservados: TAction
|
||||||
|
Category = 'Logistica'
|
||||||
Caption = 'Ver reservados'
|
Caption = 'Ver reservados'
|
||||||
Enabled = False
|
|
||||||
ImageIndex = 25
|
ImageIndex = 25
|
||||||
OnExecute = actReservadosExecute
|
OnExecute = actReservadosExecute
|
||||||
OnUpdate = actReservadosUpdate
|
OnUpdate = actReservadosUpdate
|
||||||
|
|||||||
@ -45,6 +45,10 @@ type
|
|||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure actReservadosUpdate(Sender: TObject);
|
procedure actReservadosUpdate(Sender: TObject);
|
||||||
procedure actReservadosExecute(Sender: TObject);
|
procedure actReservadosExecute(Sender: TObject);
|
||||||
|
procedure actNuevoUpdate(Sender: TObject);
|
||||||
|
procedure actEliminarUpdate(Sender: TObject);
|
||||||
|
procedure actRecibirPedidoUpdate(Sender: TObject);
|
||||||
|
procedure actReservarUpdate(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
function Seleccionar(Descripcion: String; TipoSeleccion: TEnumSeleccion): Variant;
|
function Seleccionar(Descripcion: String; TipoSeleccion: TEnumSeleccion): Variant;
|
||||||
@ -173,17 +177,24 @@ begin
|
|||||||
// inherited;
|
// inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorInventario.actNuevoUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorInventario.actReservadosExecute(Sender: TObject);
|
procedure TfEditorInventario.actReservadosExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
FController.VerReservas(Inventario);
|
FController.VerReservas(Inventario, TipoInventario);
|
||||||
RefrescarInterno;
|
RefrescarInterno;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorInventario.actReservadosUpdate(Sender: TObject);
|
procedure TfEditorInventario.actReservadosUpdate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
(Sender as TAction).Enabled := (Inventario.RESERVA > 0);
|
// (Sender as TAction).Enabled := (Inventario.RESERVA > 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfEditorInventario.GetArticulosSeleccionados: IBizInventario;
|
function TfEditorInventario.GetArticulosSeleccionados: IBizInventario;
|
||||||
@ -361,6 +372,13 @@ begin
|
|||||||
RefrescarInterno;
|
RefrescarInterno;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorInventario.actRecibirPedidoUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorInventario.actTrasladarExecute(Sender: TObject);
|
procedure TfEditorInventario.actTrasladarExecute(Sender: TObject);
|
||||||
var
|
var
|
||||||
IDAlmacenOrigen, IDAlmacenDestino: Variant;
|
IDAlmacenOrigen, IDAlmacenDestino: Variant;
|
||||||
@ -402,12 +420,29 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorInventario.actReservarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := Assigned(dsDataTable.DataTable);
|
||||||
|
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorInventario.actContraerExecute(Sender: TObject);
|
procedure TfEditorInventario.actContraerExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if Assigned(ViewGrid) then
|
if Assigned(ViewGrid) then
|
||||||
ViewGrid.ContraerTodo;
|
ViewGrid.ContraerTodo;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorInventario.actEliminarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (Sender as TAction).Enabled then
|
||||||
|
(Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfEditorInventario.actExpandirExecute(Sender: TObject);
|
procedure TfEditorInventario.actExpandirExecute(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if Assigned(ViewGrid) then
|
if Assigned(ViewGrid) then
|
||||||
@ -423,12 +458,11 @@ end;
|
|||||||
procedure TfEditorInventario.actTrasladarUpdate(Sender: TObject);
|
procedure TfEditorInventario.actTrasladarUpdate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
{
|
if (Sender as TAction).Enabled then
|
||||||
if Assigned(dsDataTable.DataTable) then
|
(Sender as TAction).Enabled := Assigned(dsDataTable.DataTable);
|
||||||
(Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
|
|
||||||
else
|
if (Sender as TAction).Enabled then
|
||||||
(Sender as TAction).Enabled := False;
|
(Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia;
|
||||||
}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfEditorInventario.actLiberarUpdate(Sender: TObject);
|
procedure TfEditorInventario.actLiberarUpdate(Sender: TObject);
|
||||||
|
|||||||
@ -1,7 +1,8 @@
|
|||||||
inherited frViewDetalleReservas: TfrViewDetalleReservas
|
inherited frViewDetalleReservas: TfrViewDetalleReservas
|
||||||
|
OnShow = CustomViewShow
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
RootLevelOptions.DetailTabsPosition = dtpTop
|
Top = 143
|
||||||
OnActiveTabChanged = cxGridActiveTabChanged
|
Height = 272
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
DataController.KeyFieldNames = 'RecID'
|
DataController.KeyFieldNames = 'RecID'
|
||||||
DataController.Summary.DefaultGroupSummaryItems = <
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
@ -163,12 +164,50 @@ inherited frViewDetalleReservas: TfrViewDetalleReservas
|
|||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 383
|
ExplicitLeft = 383
|
||||||
ExplicitWidth = 215
|
|
||||||
Width = 215
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object pnlAlmacenes: TPanel [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 102
|
||||||
|
Width = 607
|
||||||
|
Height = 41
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 3
|
||||||
|
ExplicitLeft = -71
|
||||||
|
ExplicitWidth = 678
|
||||||
|
DesignSize = (
|
||||||
|
607
|
||||||
|
41)
|
||||||
|
object eAlmacen: TLabel
|
||||||
|
Left = 10
|
||||||
|
Top = 16
|
||||||
|
Width = 44
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Almac'#233'n:'
|
||||||
|
end
|
||||||
|
object cxListaAlmacenesObras: TcxComboBox
|
||||||
|
Left = 87
|
||||||
|
Top = 14
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
|
Properties.DropDownRows = 25
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.OnEditValueChanged = cxListaAlmacenesObrasPropertiesEditValueChanged
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 0
|
||||||
|
ExplicitWidth = 581
|
||||||
|
Width = 510
|
||||||
|
end
|
||||||
|
end
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
ReportDocument.CreationDate = 38673.741107951390000000
|
ReportDocument.CreationDate = 38673.741107951390000000
|
||||||
|
|||||||
@ -15,7 +15,7 @@ uses
|
|||||||
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
|
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
|
||||||
uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
|
uBizInventario, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
|
||||||
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController,
|
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uAlmacenesController,
|
||||||
uDAInterfaces;
|
uDAInterfaces, cxContainer, cxMaskEdit, cxDropDownEdit;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewDetalleReservas = interface(IViewGrid)
|
IViewDetalleReservas = interface(IViewGrid)
|
||||||
@ -23,9 +23,14 @@ type
|
|||||||
function GetDetalleReservas: IBizDetalleReservas;
|
function GetDetalleReservas: IBizDetalleReservas;
|
||||||
procedure SetDetalleReservas(const Value: IBizDetalleReservas);
|
procedure SetDetalleReservas(const Value: IBizDetalleReservas);
|
||||||
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
|
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
|
||||||
function GetAlmacenes: IBizAlmacen;
|
function GetAlmacenes: TStringList;
|
||||||
procedure SetAlmacenes(const Value: IBizAlmacen);
|
procedure SetAlmacenes(const Value: TStringList);
|
||||||
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
property Almacenes: TStringList read GetAlmacenes write SetAlmacenes;
|
||||||
|
function GetObras: TStringList;
|
||||||
|
procedure SetObras(const Value: TStringList);
|
||||||
|
property Obras: TStringList read GetObras write SetObras;
|
||||||
|
function DarIDAlmacenObraSeleccionada: Variant;
|
||||||
|
function ListaAlmacenesObrasVacia: Boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewDetalleReservas = class(TfrViewGrid, IViewDetalleReservas)
|
TfrViewDetalleReservas = class(TfrViewGrid, IViewDetalleReservas)
|
||||||
@ -47,31 +52,52 @@ type
|
|||||||
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
|
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
|
||||||
cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn;
|
cxGridViewID_ALMACEN_RESERVA: TcxGridDBColumn;
|
||||||
cxGridViewALMACEN_RESERVA: TcxGridDBColumn;
|
cxGridViewALMACEN_RESERVA: TcxGridDBColumn;
|
||||||
|
pnlAlmacenes: TPanel;
|
||||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
eAlmacen: TLabel;
|
||||||
|
cxListaAlmacenesObras: TcxComboBox;
|
||||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||||
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
|
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
|
||||||
AStyle: TcxStyle);
|
AStyle: TcxStyle);
|
||||||
|
procedure cxListaAlmacenesObrasPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
FAlmacenesController: IAlmacenesController;
|
|
||||||
FAlmacenes: IBizAlmacen;
|
|
||||||
function GetAlmacenes: IBizAlmacen;
|
|
||||||
procedure SetAlmacenes(const Value: IBizAlmacen);
|
|
||||||
|
|
||||||
//Filtros relativos a la vista
|
//Filtros relativos a la vista
|
||||||
procedure AnadirFiltroAlmacenes;
|
procedure AnadirFiltroAlmacenesObras;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
|
FAlmacenes: TStringList;
|
||||||
|
FObras: TStringList;
|
||||||
FDetalleReservas: IBizDetalleReservas;
|
FDetalleReservas: IBizDetalleReservas;
|
||||||
|
|
||||||
|
function GetAlmacenes: TStringList;
|
||||||
|
procedure SetAlmacenes(const Value: TStringList);
|
||||||
|
function GetObras: TStringList;
|
||||||
|
procedure SetObras(const Value: TStringList);
|
||||||
function GetDetalleReservas: IBizDetalleReservas;
|
function GetDetalleReservas: IBizDetalleReservas;
|
||||||
procedure SetDetalleReservas(const Value: IBizDetalleReservas);
|
procedure SetDetalleReservas(const Value: IBizDetalleReservas);
|
||||||
|
|
||||||
|
|
||||||
|
// FAlmacenesController: IAlmacenesController;
|
||||||
|
// function GetAlmacenes: IBizAlmacen;
|
||||||
|
// procedure SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
|
||||||
|
|
||||||
public
|
public
|
||||||
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
|
||||||
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
|
property DetalleReservas: IBizDetalleReservas read GetDetalleReservas write SetDetalleReservas;
|
||||||
procedure AnadirOtrosFiltros; override;
|
procedure AnadirOtrosFiltros; override;
|
||||||
constructor Create(AOwner: TComponent); override;
|
|
||||||
|
// property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
||||||
|
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function DarIDAlmacenObraSeleccionada: Variant;
|
||||||
|
function ListaAlmacenesObrasVacia: Boolean;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -79,16 +105,16 @@ implementation
|
|||||||
|
|
||||||
uses uDataModuleInventario, schInventarioClient_Intf;
|
uses uDataModuleInventario, schInventarioClient_Intf;
|
||||||
|
|
||||||
procedure TfrViewDetalleReservas.AnadirFiltroAlmacenes;
|
procedure TfrViewDetalleReservas.AnadirFiltroAlmacenesObras;
|
||||||
var
|
var
|
||||||
FFiltro : TcxFilterCriteriaItemList;
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
CodigoAlmacen: String;
|
CodigoAlmacen: Variant;
|
||||||
begin
|
begin
|
||||||
|
|
||||||
FFiltro := AddFilterGrid(fboAnd);
|
FFiltro := AddFilterGrid(fboAnd);
|
||||||
|
|
||||||
CodigoAlmacen := IntToStr(cxGrid.Levels.Items[cxGrid.ActiveLevel.Index].Tag);
|
CodigoAlmacen := DarIDAlmacenObraSeleccionada;
|
||||||
if CodigoAlmacen <> '-1' then
|
|
||||||
|
if not VarIsNull(CodigoAlmacen) then
|
||||||
begin
|
begin
|
||||||
FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
|
FFiltro.AddItem(cxGridViewID_ALMACEN, foEqual, CodigoAlmacen, CodigoAlmacen);
|
||||||
cxGridViewALMACEN.Visible := False;
|
cxGridViewALMACEN.Visible := False;
|
||||||
@ -101,7 +127,7 @@ procedure TfrViewDetalleReservas.AnadirOtrosFiltros;
|
|||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|
||||||
AnadirFiltroAlmacenes;
|
AnadirFiltroAlmacenesObras;
|
||||||
|
|
||||||
//Finalmente activamos el filtro si tenemos algo
|
//Finalmente activamos el filtro si tenemos algo
|
||||||
if cxGridView.DataController.Filter.IsEmpty
|
if cxGridView.DataController.Filter.IsEmpty
|
||||||
@ -110,17 +136,14 @@ begin
|
|||||||
cxGrid.ActiveLevel.GridView := cxGridView;
|
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
constructor TfrViewDetalleReservas.Create(AOwner: TComponent);
|
procedure TfrViewDetalleReservas.CustomViewShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
FAlmacenesController := TAlmacenesController.Create;
|
if Assigned(FAlmacenes) or Assigned(FObras) then
|
||||||
Almacenes := FAlmacenesController.BuscarTodos;
|
cxListaAlmacenesObras.ItemIndex := 0
|
||||||
end;
|
//En el caso de ser la vista para la selección de articulos de un determinado almacén
|
||||||
|
else
|
||||||
procedure TfrViewDetalleReservas.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
pnlAlmacenes.Visible:= False;
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
RefrescarFiltro;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDetalleReservas.cxGridViewStylesGetContentStyle(Sender:
|
procedure TfrViewDetalleReservas.cxGridViewStylesGetContentStyle(Sender:
|
||||||
@ -142,15 +165,33 @@ begin
|
|||||||
}
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDetalleReservas.cxListaAlmacenesObrasPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarFiltro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewDetalleReservas.DarIDAlmacenObraSeleccionada: Variant;
|
||||||
|
begin
|
||||||
|
//INV_ALMACENES
|
||||||
|
if Assigned(FAlmacenes) then
|
||||||
|
Result := FAlmacenes.Values[cxListaAlmacenesObras.EditValue]
|
||||||
|
//INV_OBRAS
|
||||||
|
else if Assigned(FObras) then
|
||||||
|
Result := FObras.Values[cxListaAlmacenesObras.EditValue]
|
||||||
|
else
|
||||||
|
Raise Exception.Create('No se ha asignado ninguna lista de ALMACENES');
|
||||||
|
end;
|
||||||
|
|
||||||
destructor TfrViewDetalleReservas.Destroy;
|
destructor TfrViewDetalleReservas.Destroy;
|
||||||
begin
|
begin
|
||||||
FAlmacenesController := Nil;
|
|
||||||
FAlmacenes := Nil;
|
FAlmacenes := Nil;
|
||||||
|
FObras := Nil;
|
||||||
FDetalleReservas := Nil;
|
FDetalleReservas := Nil;
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewDetalleReservas.GetAlmacenes: IBizAlmacen;
|
function TfrViewDetalleReservas.GetAlmacenes: TStringList;
|
||||||
begin
|
begin
|
||||||
Result := FAlmacenes;
|
Result := FAlmacenes;
|
||||||
end;
|
end;
|
||||||
@ -160,24 +201,42 @@ begin
|
|||||||
Result := FDetalleReservas;
|
Result := FDetalleReservas;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDetalleReservas.SetAlmacenes(const Value: IBizAlmacen);
|
function TfrViewDetalleReservas.GetObras: TStringList;
|
||||||
|
begin
|
||||||
|
Result := FObras;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewDetalleReservas.ListaAlmacenesObrasVacia: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (cxListaAlmacenesObras.Properties.Items.Count = 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDetalleReservas.SetAlmacenes(const Value: TStringList);
|
||||||
var
|
var
|
||||||
Nivel: TcxGridLevel;
|
Nivel: TcxGridLevel;
|
||||||
|
i: integer;
|
||||||
begin
|
begin
|
||||||
FAlmacenes := Value;
|
FAlmacenes := Value;
|
||||||
|
eAlmacen.Caption := 'Almacén';
|
||||||
|
|
||||||
if Assigned(FAlmacenes) then
|
if Assigned(FAlmacenes) then
|
||||||
begin
|
begin
|
||||||
if not FAlmacenes.DataTable.Active then
|
cxGrid.BeginUpdate;
|
||||||
FAlmacenes.DataTable.Active := True;
|
try
|
||||||
|
with cxListaAlmacenesObras.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FAlmacenes.Count - 1 do
|
||||||
|
Add(FAlmacenes.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
FAlmacenes.First;
|
finally
|
||||||
while not FAlmacenes.EOF do
|
cxGrid.EndUpdate;
|
||||||
begin
|
|
||||||
Nivel := cxGrid.Levels.Add;
|
|
||||||
Nivel.Caption := FAlmacenes.NOMBRE;
|
|
||||||
Nivel.Tag := FAlmacenes.ID;
|
|
||||||
FAlmacenes.Next;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -191,4 +250,34 @@ begin
|
|||||||
dsDataSource.DataTable := Nil;
|
dsDataSource.DataTable := Nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDetalleReservas.SetObras(const Value: TStringList);
|
||||||
|
var
|
||||||
|
Nivel: TcxGridLevel;
|
||||||
|
i: integer;
|
||||||
|
begin
|
||||||
|
FObras := Value;
|
||||||
|
eAlmacen.Caption := 'Obra';
|
||||||
|
|
||||||
|
if Assigned(FObras) then
|
||||||
|
begin
|
||||||
|
cxGrid.BeginUpdate;
|
||||||
|
try
|
||||||
|
with cxListaAlmacenesObras.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FObras.Count - 1 do
|
||||||
|
Add(FObras.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
finally
|
||||||
|
cxGrid.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -31,6 +31,7 @@ type
|
|||||||
procedure SetObras(const Value: TStringList);
|
procedure SetObras(const Value: TStringList);
|
||||||
property Obras: TStringList read GetObras write SetObras;
|
property Obras: TStringList read GetObras write SetObras;
|
||||||
function DarIDAlmacenObraSeleccionada: Variant;
|
function DarIDAlmacenObraSeleccionada: Variant;
|
||||||
|
function ListaAlmacenesObrasVacia: Boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewInventario = class(TfrViewGrid, IViewInventario)
|
TfrViewInventario = class(TfrViewGrid, IViewInventario)
|
||||||
@ -79,6 +80,7 @@ type
|
|||||||
procedure AnadirOtrosFiltros; override;
|
procedure AnadirOtrosFiltros; override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
function DarIDAlmacenObraSeleccionada: Variant;
|
function DarIDAlmacenObraSeleccionada: Variant;
|
||||||
|
function ListaAlmacenesObrasVacia: Boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -146,8 +148,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewInventario.cxListaObrasPropertiesEditValueChanged(
|
procedure TfrViewInventario.cxListaObrasPropertiesEditValueChanged(Sender: TObject);
|
||||||
Sender: TObject);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
RefrescarFiltro;
|
RefrescarFiltro;
|
||||||
@ -188,6 +189,11 @@ begin
|
|||||||
Result := FObras;
|
Result := FObras;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewInventario.ListaAlmacenesObrasVacia: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (cxListaAlmacenesObras.Properties.Items.Count = 0);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewInventario.SetAlmacenes(const Value: TStringList);
|
procedure TfrViewInventario.SetAlmacenes(const Value: TStringList);
|
||||||
var
|
var
|
||||||
Nivel: TcxGridLevel;
|
Nivel: TcxGridLevel;
|
||||||
|
|||||||
@ -263,7 +263,7 @@ function TObrasController.DarListaObras: TStringList;
|
|||||||
begin
|
begin
|
||||||
ShowHourglassCursor;
|
ShowHourglassCursor;
|
||||||
try
|
try
|
||||||
Result := FDataModule.DarListaObras;
|
Result := FDataModule.DarListaObras(AppFactuGES.EmpresaActiva.ID);
|
||||||
finally
|
finally
|
||||||
HideHourglassCursor;
|
HideHourglassCursor;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -35,7 +35,7 @@ type
|
|||||||
function GetItems : IBizObra;
|
function GetItems : IBizObra;
|
||||||
function GetItem(const ID : Integer) : IBizObra;
|
function GetItem(const ID : Integer) : IBizObra;
|
||||||
function NewItem : IBizObra;
|
function NewItem : IBizObra;
|
||||||
function DarListaObras : TStringList;
|
function DarListaObras(const IDEmpresa: Integer): TStringList;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -113,11 +113,11 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TDataModuleObras.DarListaObras: TStringList;
|
function TDataModuleObras.DarListaObras(const IDEmpresa: Integer): TStringList;
|
||||||
var
|
var
|
||||||
ABinary : Binary;
|
ABinary : Binary;
|
||||||
begin
|
begin
|
||||||
ABinary := (RORemoteService as IsrvObras).DarListaObras;
|
ABinary := (RORemoteService as IsrvObras).DarListaObras(IdEmpresa);
|
||||||
Result := TStringList.Create;
|
Result := TStringList.Create;
|
||||||
Result.LoadFromStream(ABinary);
|
Result.LoadFromStream(ABinary);
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -12,7 +12,7 @@ type
|
|||||||
function GetItems: IBizObra;
|
function GetItems: IBizObra;
|
||||||
function GetItem(const ID : Integer) : IBizObra;
|
function GetItem(const ID : Integer) : IBizObra;
|
||||||
function NewItem : IBizObra;
|
function NewItem : IBizObra;
|
||||||
function DarListaObras : TStringList;
|
function DarListaObras(const IDEmpresa: Integer) : TStringList;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|||||||
@ -39,11 +39,11 @@ object srvObras: TsrvObras
|
|||||||
Top = 82
|
Top = 82
|
||||||
DiagramData =
|
DiagramData =
|
||||||
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
|
||||||
'idth="1202" Height="535">'#13#10' <Entity Name="Obras" Left="0,00" ' +
|
'idth="1202" Height="535">'#13#10' <Entity Name="ObrasEjecucionesPed' +
|
||||||
'Top="110,00" />'#13#10' <Entity Name="ObrasEjecucionesPresupuestos"' +
|
'idosProveedor" Left="426,74" Top="188,62" />'#13#10' <Entity Name="' +
|
||||||
' Left="426,48" Top="0,02" />'#13#10' <Entity Name="ObrasEjecuciones' +
|
'ObrasEjecuciones" Left="180,50" Top="0,00" />'#13#10' <Entity Name=' +
|
||||||
'" Left="180,50" Top="0,00" />'#13#10' <Entity Name="ObrasEjecucione' +
|
'"ObrasEjecucionesPresupuestos" Left="426,48" Top="0,02" />'#13#10' ' +
|
||||||
'sPedidosProveedor" Left="426,74" Top="188,62" />'#13#10' </Diagram>'#13#10 +
|
'<Entity Name="Obras" Left="0,00" Top="110,00" />'#13#10' </Diagram>'#13#10 +
|
||||||
'</Diagrams>'#13#10
|
'</Diagrams>'#13#10
|
||||||
end
|
end
|
||||||
object DataDictionary: TDADataDictionary
|
object DataDictionary: TDADataDictionary
|
||||||
@ -395,7 +395,12 @@ object srvObras: TsrvObras
|
|||||||
Diagrams = Diagrams
|
Diagrams = Diagrams
|
||||||
Datasets = <
|
Datasets = <
|
||||||
item
|
item
|
||||||
Params = <>
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
Value = ''
|
||||||
|
ParamType = daptInput
|
||||||
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
item
|
item
|
||||||
Connection = 'IBX'
|
Connection = 'IBX'
|
||||||
@ -404,8 +409,8 @@ object srvObras: TsrvObras
|
|||||||
TargetTable = 'OBRAS'
|
TargetTable = 'OBRAS'
|
||||||
Name = 'IBX'
|
Name = 'IBX'
|
||||||
SQL =
|
SQL =
|
||||||
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'OBRA'#39#10'ord' +
|
'Select ID, NOMBRE'#10'from ALMACENES'#10'where TIPO_ALMACEN = '#39'OBRA'#39#10'and' +
|
||||||
'er by NOMBRE'#10#10
|
' ID_EMPRESA = :ID_EMPRESA'#10'order by NOMBRE'#10#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <
|
ColumnMappings = <
|
||||||
item
|
item
|
||||||
|
|||||||
@ -99,7 +99,7 @@ type
|
|||||||
private
|
private
|
||||||
procedure Log(Astr: string);
|
procedure Log(Astr: string);
|
||||||
protected
|
protected
|
||||||
function DarListaObras: Binary;
|
function DarListaObras(const IDEmpresa: Integer): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -405,7 +405,7 @@ begin
|
|||||||
dmServer.EscribirLog(Astr)
|
dmServer.EscribirLog(Astr)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvObras.DarListaObras: Binary;
|
function TsrvObras.DarListaObras(const IDEmpresa: Integer): Binary;
|
||||||
var
|
var
|
||||||
ASchema : TDASchema;
|
ASchema : TDASchema;
|
||||||
AConn : IDAConnection;
|
AConn : IDAConnection;
|
||||||
@ -418,7 +418,7 @@ begin
|
|||||||
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
||||||
|
|
||||||
try
|
try
|
||||||
dsData := ASchema.NewDataset(AConn, 'ListaObras');
|
dsData := ASchema.NewDataset(AConn, 'ListaObras', ['ID_EMPRESA'], [IntToStr(IDEmpresa)]);
|
||||||
except
|
except
|
||||||
RaiseError('No existe la tabla ALMACENES');
|
RaiseError('No existe la tabla ALMACENES');
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -52,6 +52,7 @@ type
|
|||||||
procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
|
procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
|
||||||
procedure EnviarPedidoPorEMail(APedido: IBizPedidoProveedor);
|
procedure EnviarPedidoPorEMail(APedido: IBizPedidoProveedor);
|
||||||
|
|
||||||
|
Procedure AsignarIDObra(APedido: IBizPedidoProveedor; const IDObra: Variant);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController)
|
TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController)
|
||||||
@ -117,6 +118,8 @@ type
|
|||||||
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
|
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
|
||||||
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
|
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
|
||||||
procedure EnviarPedidoPorEMail(APedido: IBizPedidoProveedor);
|
procedure EnviarPedidoPorEMail(APedido: IBizPedidoProveedor);
|
||||||
|
|
||||||
|
Procedure AsignarIDObra(APedido: IBizPedidoProveedor; const IDObra: Variant);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -142,6 +145,22 @@ begin
|
|||||||
FDataModule := TDataModulePedidosProveedor.Create(Nil);
|
FDataModule := TDataModulePedidosProveedor.Create(Nil);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TPedidosProveedorController.AsignarIDObra(APedido: IBizPedidoProveedor; const IDObra: Variant);
|
||||||
|
begin
|
||||||
|
if Assigned(APedido) then
|
||||||
|
begin
|
||||||
|
if not APedido.DataTable.Editing then
|
||||||
|
APedido.DataTable.Edit;
|
||||||
|
|
||||||
|
if VarIsNull(IDObra) then
|
||||||
|
APedido.ID_OBRAIsNull := true
|
||||||
|
else
|
||||||
|
APedido.ID_OBRA := IDObra;
|
||||||
|
|
||||||
|
APedido.DataTable.Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TPedidosProveedorController.Buscar(const ID: Integer): IBizPedidoProveedor;
|
function TPedidosProveedorController.Buscar(const ID: Integer): IBizPedidoProveedor;
|
||||||
begin
|
begin
|
||||||
Result := FDataModule.GetItem(ID);
|
Result := FDataModule.GetItem(ID);
|
||||||
|
|||||||
@ -112,29 +112,28 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
|||||||
ExplicitHeight = 506
|
ExplicitHeight = 506
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 865
|
Width = 865
|
||||||
Height = 51
|
Height = 46
|
||||||
ExplicitWidth = 865
|
ExplicitWidth = 865
|
||||||
ExplicitHeight = 51
|
ExplicitHeight = 46
|
||||||
inherited ToolButton3: TToolButton
|
inherited ToolButton3: TToolButton
|
||||||
Wrap = False
|
Wrap = False
|
||||||
end
|
end
|
||||||
inherited ToolButton4: TToolButton
|
inherited ToolButton4: TToolButton
|
||||||
Left = 278
|
Left = 278
|
||||||
Top = 0
|
Top = 0
|
||||||
|
Wrap = True
|
||||||
ExplicitLeft = 278
|
ExplicitLeft = 278
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton
|
inherited FontName: TJvFontComboBox
|
||||||
Left = 334
|
Left = 0
|
||||||
Top = 0
|
|
||||||
Wrap = False
|
|
||||||
ExplicitLeft = 334
|
ExplicitLeft = 334
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontName: TJvFontComboBox
|
inherited ToolButton14: TToolButton
|
||||||
Left = 399
|
Left = 479
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 399
|
ExplicitLeft = 479
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontSize: TEdit
|
inherited FontSize: TEdit
|
||||||
@ -145,7 +144,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
|||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
ExplicitWidth = 278
|
ExplicitWidth = 278
|
||||||
end
|
end
|
||||||
inherited ToolButton13: TToolButton [7]
|
inherited UpDown1: TUpDown
|
||||||
|
Left = 822
|
||||||
|
Top = 0
|
||||||
|
ExplicitLeft = 822
|
||||||
|
ExplicitTop = 0
|
||||||
|
end
|
||||||
|
inherited ToolButton13: TToolButton
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Wrap = True
|
Wrap = True
|
||||||
@ -153,52 +158,49 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
|||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
ExplicitHeight = 27
|
ExplicitHeight = 27
|
||||||
end
|
end
|
||||||
inherited UpDown1: TUpDown [8]
|
inherited ToolButton11: TToolButton
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton
|
|
||||||
Left = 17
|
|
||||||
Top = 27
|
|
||||||
ExplicitLeft = 17
|
|
||||||
ExplicitTop = 27
|
|
||||||
end
|
|
||||||
inherited ToolButton7: TToolButton
|
|
||||||
Left = 83
|
|
||||||
Top = 27
|
|
||||||
ExplicitLeft = 83
|
|
||||||
ExplicitTop = 27
|
|
||||||
end
|
|
||||||
inherited ToolButton8: TToolButton
|
|
||||||
Left = 150
|
|
||||||
Top = 27
|
|
||||||
ExplicitLeft = 150
|
|
||||||
ExplicitTop = 27
|
|
||||||
end
|
|
||||||
inherited ToolButton12: TToolButton
|
inherited ToolButton12: TToolButton
|
||||||
Left = 233
|
Left = 141
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 233
|
Wrap = False
|
||||||
|
ExplicitLeft = 141
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
|
ExplicitHeight = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton
|
inherited ToolButton9: TToolButton
|
||||||
Left = 241
|
Left = 149
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 241
|
ExplicitLeft = 149
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton
|
inherited ToolButton10: TToolButton
|
||||||
Left = 386
|
Left = 294
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 386
|
ExplicitLeft = 294
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton11: TToolButton
|
inherited ToolButton6: TToolButton
|
||||||
Left = 511
|
Left = 419
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 511
|
ExplicitLeft = 419
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton7: TToolButton
|
||||||
|
Left = 485
|
||||||
|
Top = 27
|
||||||
|
Wrap = False
|
||||||
|
ExplicitLeft = 485
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton8: TToolButton
|
||||||
|
Left = 552
|
||||||
|
Top = 27
|
||||||
|
ExplicitLeft = 552
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -298,7 +298,9 @@ begin
|
|||||||
|
|
||||||
if Assigned(FController) then
|
if Assigned(FController) then
|
||||||
begin
|
begin
|
||||||
ViewPedido.ViewProveedorPedido.Controller := Controller.ProveedorController;
|
if Assigned(FViewPedido) then
|
||||||
|
FViewPedido.Controller := Controller;
|
||||||
|
|
||||||
frViewDetallesPedidoProveedor1.Controller := Controller.DetallesController;
|
frViewDetallesPedidoProveedor1.Controller := Controller.DetallesController;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -1,6 +1,7 @@
|
|||||||
inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
||||||
Width = 484
|
Width = 484
|
||||||
Height = 240
|
Height = 240
|
||||||
|
OnShow = CustomViewShow
|
||||||
ExplicitWidth = 484
|
ExplicitWidth = 484
|
||||||
ExplicitHeight = 240
|
ExplicitHeight = 240
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
@ -23,6 +24,12 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
|||||||
Height = 2
|
Height = 2
|
||||||
Shape = bsTopLine
|
Shape = bsTopLine
|
||||||
end
|
end
|
||||||
|
object lblObra: TLabel
|
||||||
|
Left = 247
|
||||||
|
Top = 37
|
||||||
|
Width = 3
|
||||||
|
Height = 13
|
||||||
|
end
|
||||||
object rdxDestino1: TRadioButton
|
object rdxDestino1: TRadioButton
|
||||||
Left = 10
|
Left = 10
|
||||||
Top = 12
|
Top = 12
|
||||||
@ -32,7 +39,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = True
|
TabStop = True
|
||||||
end
|
end
|
||||||
object rdxDestino2: TRadioButton
|
object rdxDestino3: TRadioButton
|
||||||
Left = 10
|
Left = 10
|
||||||
Top = 67
|
Top = 67
|
||||||
Width = 566
|
Width = 566
|
||||||
@ -95,7 +102,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
|||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
OnDblClick = txtDireccionDblClick
|
OnDblClick = txtDireccionDblClick
|
||||||
end
|
end
|
||||||
object RadioButton1: TRadioButton
|
object rdxDestino2: TRadioButton
|
||||||
Left = 10
|
Left = 10
|
||||||
Top = 39
|
Top = 39
|
||||||
Width = 231
|
Width = 231
|
||||||
@ -135,7 +142,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
|||||||
Width = 334
|
Width = 334
|
||||||
end
|
end
|
||||||
object lblNombreObra: TcxDBLabel
|
object lblNombreObra: TcxDBLabel
|
||||||
Left = 247
|
Left = 256
|
||||||
Top = 37
|
Top = 37
|
||||||
DataBinding.DataField = 'NOMBRE_OBRA'
|
DataBinding.DataField = 'NOMBRE_OBRA'
|
||||||
DataBinding.DataSource = dsPedido
|
DataBinding.DataSource = dsPedido
|
||||||
@ -188,7 +195,14 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
|||||||
AutoAligns = [aaHorizontal]
|
AutoAligns = [aaHorizontal]
|
||||||
AlignVert = avCenter
|
AlignVert = avCenter
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Control = RadioButton1
|
Control = rdxDestino2
|
||||||
|
ControlOptions.AutoColor = True
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item6: TdxLayoutItem
|
||||||
|
Caption = 'Label1'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = lblObra
|
||||||
ControlOptions.AutoColor = True
|
ControlOptions.AutoColor = True
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
@ -207,7 +221,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
|
|||||||
Caption = 'New Item'
|
Caption = 'New Item'
|
||||||
Offsets.Top = 3
|
Offsets.Top = 3
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Control = rdxDestino2
|
Control = rdxDestino3
|
||||||
ControlOptions.AutoColor = True
|
ControlOptions.AutoColor = True
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
|||||||
@ -22,7 +22,7 @@ type
|
|||||||
TfrViewDireccionEntregaPedidoProv = class(TfrViewBase, IViewDireccionEntregaPedidoProv)
|
TfrViewDireccionEntregaPedidoProv = class(TfrViewBase, IViewDireccionEntregaPedidoProv)
|
||||||
dxLayoutControl1: TdxLayoutControl;
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
rdxDestino1: TRadioButton;
|
rdxDestino1: TRadioButton;
|
||||||
rdxDestino2: TRadioButton;
|
rdxDestino3: TRadioButton;
|
||||||
cbListaAlmacenes: TcxDBLookupComboBox;
|
cbListaAlmacenes: TcxDBLookupComboBox;
|
||||||
dxLayoutGroup1: TdxLayoutGroup;
|
dxLayoutGroup1: TdxLayoutGroup;
|
||||||
dxLayoutItem1: TdxLayoutItem;
|
dxLayoutItem1: TdxLayoutItem;
|
||||||
@ -38,7 +38,7 @@ type
|
|||||||
txtDireccion: TStaticText;
|
txtDireccion: TStaticText;
|
||||||
dxLayoutControl1Item5: TdxLayoutItem;
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
dxLayoutControl1Item4: TdxLayoutItem;
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
RadioButton1: TRadioButton;
|
rdxDestino2: TRadioButton;
|
||||||
dsObras: TDADataSource;
|
dsObras: TDADataSource;
|
||||||
actListaObras: TAction;
|
actListaObras: TAction;
|
||||||
Bevel1: TBevel;
|
Bevel1: TBevel;
|
||||||
@ -50,6 +50,8 @@ type
|
|||||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
||||||
lblNombreObra: TcxDBLabel;
|
lblNombreObra: TcxDBLabel;
|
||||||
dxLayoutControl1Item9: TdxLayoutItem;
|
dxLayoutControl1Item9: TdxLayoutItem;
|
||||||
|
lblObra: TLabel;
|
||||||
|
dxLayoutControl1Item6: TdxLayoutItem;
|
||||||
procedure actListaAlmacenesExecute(Sender: TObject);
|
procedure actListaAlmacenesExecute(Sender: TObject);
|
||||||
procedure actOtroExecute(Sender: TObject);
|
procedure actOtroExecute(Sender: TObject);
|
||||||
procedure cbListaAlmacenesPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
procedure cbListaAlmacenesPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
@ -59,6 +61,9 @@ type
|
|||||||
procedure edtEntregarAPropertiesButtonClick(Sender: TObject;
|
procedure edtEntregarAPropertiesButtonClick(Sender: TObject;
|
||||||
AButtonIndex: Integer);
|
AButtonIndex: Integer);
|
||||||
procedure dsPedidoDataChange(Sender: TObject; Field: TField);
|
procedure dsPedidoDataChange(Sender: TObject; Field: TField);
|
||||||
|
procedure OnObraReservaEditValueChanged(Sender: TObject);
|
||||||
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FAlmacenesController : IAlmacenesController;
|
FAlmacenesController : IAlmacenesController;
|
||||||
FAlmacenes: IBizAlmacen;
|
FAlmacenes: IBizAlmacen;
|
||||||
@ -71,12 +76,13 @@ type
|
|||||||
procedure CambioDireccionAlmacen;
|
procedure CambioDireccionAlmacen;
|
||||||
procedure RefrescarControles;
|
procedure RefrescarControles;
|
||||||
procedure SetReadOnly(Value: Boolean); override;
|
procedure SetReadOnly(Value: Boolean); override;
|
||||||
procedure RecuperarObra;
|
|
||||||
public
|
public
|
||||||
property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor;
|
property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor;
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
procedure PrepararObra;
|
procedure PrepararObra;
|
||||||
|
procedure RecuperarObra;
|
||||||
procedure CambioDireccionObra;
|
procedure CambioDireccionObra;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -173,8 +179,16 @@ begin
|
|||||||
FObra := NIL;
|
FObra := NIL;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDireccionEntregaPedidoProv.CustomViewShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
// lblNombreObra.Properties.OnEditValueChanged := OnObraReservaEditValueChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
destructor TfrViewDireccionEntregaPedidoProv.Destroy;
|
destructor TfrViewDireccionEntregaPedidoProv.Destroy;
|
||||||
begin
|
begin
|
||||||
|
// lblNombreObra.Properties.OnEditValueChanged := Nil;
|
||||||
|
|
||||||
//cbListaObras.Properties.OnValidate := Nil;
|
//cbListaObras.Properties.OnValidate := Nil;
|
||||||
cbListaAlmacenes.Properties.OnValidate := Nil;
|
cbListaAlmacenes.Properties.OnValidate := Nil;
|
||||||
|
|
||||||
@ -199,7 +213,7 @@ begin
|
|||||||
if actListaObras.Enabled then
|
if actListaObras.Enabled then
|
||||||
begin
|
begin
|
||||||
if not Assigned(FObra) then
|
if not Assigned(FObra) then
|
||||||
RecuperarObra;
|
RecuperarObra;
|
||||||
CambioDireccionObra
|
CambioDireccionObra
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
@ -240,6 +254,12 @@ begin
|
|||||||
Result := FPedido;
|
Result := FPedido;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDireccionEntregaPedidoProv.OnObraReservaEditValueChanged(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
// showmessage('hola');
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewDireccionEntregaPedidoProv.RecuperarObra;
|
procedure TfrViewDireccionEntregaPedidoProv.RecuperarObra;
|
||||||
begin
|
begin
|
||||||
if Assigned(FObra) and (FObra.ID = FPedido.ID_OBRA) then
|
if Assigned(FObra) and (FObra.ID = FPedido.ID_OBRA) then
|
||||||
@ -291,7 +311,7 @@ begin
|
|||||||
actListaObras.Enabled := False;
|
actListaObras.Enabled := False;
|
||||||
|
|
||||||
if actListaObras.Checked then
|
if actListaObras.Checked then
|
||||||
actListaAlmacenes.Execute;
|
actListaAlmacenes.Execute;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
actListaObras.Enabled := True;
|
actListaObras.Enabled := True;
|
||||||
@ -333,7 +353,7 @@ begin
|
|||||||
|
|
||||||
rdxDestino1.Enabled := not ReadOnly;
|
rdxDestino1.Enabled := not ReadOnly;
|
||||||
rdxDestino2.Enabled := not ReadOnly;
|
rdxDestino2.Enabled := not ReadOnly;
|
||||||
RadioButton1.Enabled := not ReadOnly;
|
rdxDestino3.Enabled := not ReadOnly;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDireccionEntregaPedidoProv.txtDireccionDblClick(
|
procedure TfrViewDireccionEntregaPedidoProv.txtDireccionDblClick(
|
||||||
|
|||||||
@ -1,28 +1,31 @@
|
|||||||
inherited frViewObraReserva: TfrViewObraReserva
|
inherited frViewObraReserva: TfrViewObraReserva
|
||||||
Width = 586
|
Width = 529
|
||||||
Height = 68
|
Height = 74
|
||||||
OnShow = CustomViewShow
|
OnShow = CustomViewShow
|
||||||
ExplicitWidth = 586
|
ExplicitWidth = 529
|
||||||
ExplicitHeight = 68
|
ExplicitHeight = 74
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 586
|
Width = 529
|
||||||
Height = 68
|
Height = 74
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
|
DesignSize = (
|
||||||
|
529
|
||||||
|
74)
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 10
|
Left = 10
|
||||||
Top = 10
|
Top = 10
|
||||||
Width = 235
|
Width = 202
|
||||||
Height = 13
|
Height = 13
|
||||||
Caption = 'Reservar el material de este pedido para la obra:'
|
Caption = 'El material de este pedido es para la obra:'
|
||||||
end
|
end
|
||||||
object Button3: TBitBtn
|
object Button3: TBitBtn
|
||||||
Left = 432
|
Left = 375
|
||||||
Top = 29
|
Top = 29
|
||||||
Width = 144
|
Width = 144
|
||||||
Height = 25
|
Height = 25
|
||||||
@ -65,17 +68,33 @@ inherited frViewObraReserva: TfrViewObraReserva
|
|||||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
end
|
end
|
||||||
object cbObraReserva: TComboBox
|
object cbObraReserva: TcxComboBox
|
||||||
Left = 10
|
Left = 10
|
||||||
Top = 31
|
Top = 29
|
||||||
Width = 475
|
Anchors = [akLeft, akTop, akRight]
|
||||||
Height = 21
|
Properties.DropDownListStyle = lsEditFixedList
|
||||||
AutoDropDown = True
|
Properties.DropDownRows = 25
|
||||||
AutoCloseUp = True
|
Properties.ImmediatePost = True
|
||||||
Style = csDropDownList
|
Properties.OnEditValueChanged = cbObraReservaPropertiesEditValueChanged
|
||||||
ItemHeight = 13
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
OnChange = cbObraReservaChange
|
Width = 581
|
||||||
end
|
end
|
||||||
object dxLayoutGroup1: TdxLayoutGroup
|
object dxLayoutGroup1: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
@ -93,11 +112,9 @@ inherited frViewObraReserva: TfrViewObraReserva
|
|||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControl1Item5: TdxLayoutItem
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
AutoAligns = []
|
AutoAligns = [aaVertical]
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
AlignVert = avCenter
|
|
||||||
ShowCaption = False
|
|
||||||
Control = cbObraReserva
|
Control = cbObraReserva
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
@ -111,10 +128,6 @@ inherited frViewObraReserva: TfrViewObraReserva
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dsPedido: TDADataSource
|
|
||||||
Left = 200
|
|
||||||
Top = 8
|
|
||||||
end
|
|
||||||
object PngImageList: TPngImageList
|
object PngImageList: TPngImageList
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
|
|||||||
@ -8,21 +8,17 @@ uses
|
|||||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||||
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
||||||
ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController,
|
ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController,
|
||||||
Buttons, uDAInterfaces, uBizObras, uObrasController, cxButtonEdit, cxDBEdit,
|
Buttons, uDAInterfaces, uBizObras, cxButtonEdit, cxDBEdit, uObrasController,
|
||||||
ExtCtrls, ImgList, PngImageList;
|
ExtCtrls, ImgList, PngImageList;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewDireccionEntregaPedidoProv = interface(IViewBase)
|
IViewObraReserva = interface(IViewBase)
|
||||||
['{7467855C-066F-4A60-B88F-2837C8050B1E}']
|
['{571462BF-ECF3-47F1-A6F4-2C31175D0B33}']
|
||||||
function GetPedidoProveedor: IBizPedidoProveedor;
|
|
||||||
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
|
|
||||||
property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewObraReserva = class(TfrViewBase, IViewDireccionEntregaPedidoProv)
|
TfrViewObraReserva = class(TfrViewBase, IViewObraReserva)
|
||||||
dxLayoutControl1: TdxLayoutControl;
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
dxLayoutGroup1: TdxLayoutGroup;
|
dxLayoutGroup1: TdxLayoutGroup;
|
||||||
dsPedido: TDADataSource;
|
|
||||||
Label1: TLabel;
|
Label1: TLabel;
|
||||||
dxLayoutControl1Item1: TdxLayoutItem;
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
dxLayoutControl1Item2: TdxLayoutItem;
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
@ -30,28 +26,31 @@ type
|
|||||||
PngImageList: TPngImageList;
|
PngImageList: TPngImageList;
|
||||||
ActionList1: TActionList;
|
ActionList1: TActionList;
|
||||||
actVerObra: TAction;
|
actVerObra: TAction;
|
||||||
cbObraReserva: TComboBox;
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
dxLayoutControl1Item5: TdxLayoutItem;
|
cbObraReserva: TcxComboBox;
|
||||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
procedure actVerObraExecute(Sender: TObject);
|
procedure actVerObraExecute(Sender: TObject);
|
||||||
procedure actVerObraUpdate(Sender: TObject);
|
procedure actVerObraUpdate(Sender: TObject);
|
||||||
procedure cbObraReservaChange(Sender: TObject);
|
|
||||||
procedure CustomViewShow(Sender: TObject);
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
procedure cbObraReservaPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
private
|
||||||
|
FObras : TStringList;
|
||||||
|
FObrasController: IObrasController;
|
||||||
|
function GetObrasController: IObrasController;
|
||||||
|
procedure SetObrasController(const Value: IObrasController);
|
||||||
|
function GetObras: TStringList;
|
||||||
|
procedure SetObras(const Value: TStringList);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FObrasController : IObrasController;
|
|
||||||
FListaObras : TStringList;
|
|
||||||
//FObras: IBizObra;
|
|
||||||
FPedido : IBizPedidoProveedor;
|
|
||||||
FController : IPedidosProveedorController;
|
|
||||||
function GetPedidoProveedor: IBizPedidoProveedor;
|
|
||||||
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
|
|
||||||
procedure CargarObra;
|
|
||||||
procedure SalvarObra;
|
procedure SalvarObra;
|
||||||
procedure SetReadOnly(Value: Boolean); override;
|
procedure SetReadOnly(Value: Boolean); override;
|
||||||
|
|
||||||
public
|
public
|
||||||
property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor;
|
property Obras: TStringList read GetObras write SetObras;
|
||||||
constructor Create(AOwner: TComponent); override;
|
property ObrasController: IObrasController read GetObrasController write SetObrasController;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
procedure ActivarObra(const IDObra:Integer);
|
||||||
|
function DarIDObraSeleccionada: Variant;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
@ -68,8 +67,7 @@ var
|
|||||||
AID : Integer;
|
AID : Integer;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
AID := StrToInt(FListaObras.Values[FListaObras.Names[cbObraReserva.ItemIndex-1]]);
|
AObra := FObrasController.Buscar(DarIDObraSeleccionada);
|
||||||
AObra := FObrasController.Buscar(AID);
|
|
||||||
if Assigned(AObra) then
|
if Assigned(AObra) then
|
||||||
try
|
try
|
||||||
FObrasController.Ver(AObra);
|
FObrasController.Ver(AObra);
|
||||||
@ -81,55 +79,30 @@ end;
|
|||||||
procedure TfrViewObraReserva.actVerObraUpdate(Sender: TObject);
|
procedure TfrViewObraReserva.actVerObraUpdate(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
(Sender as TAction).Enabled := Assigned(FListaObras) and
|
(Sender as TAction).Enabled := (cbObraReserva.Properties.Items.Count > 0)
|
||||||
(not EsCadenaVacia(cbObraReserva.Text));
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewObraReserva.CargarObra;
|
procedure TfrViewObraReserva.ActivarObra(const IDObra: Integer);
|
||||||
var
|
var
|
||||||
i : integer;
|
i : integer;
|
||||||
begin
|
begin
|
||||||
cbObraReserva.ItemIndex := 0;
|
cbObraReserva.ItemIndex := 0;
|
||||||
|
for i := 0 to FObras.Count - 1 do
|
||||||
if not FPedido.Active then
|
|
||||||
FPedido.Open;
|
|
||||||
|
|
||||||
if not FPedido.ID_OBRAIsNull then
|
|
||||||
begin
|
begin
|
||||||
for i := 0 to FListaObras.Count - 1 do
|
if IntToStr(IDObra) = FObras.Values[FObras.Names[i]] then
|
||||||
begin
|
begin
|
||||||
if IntToStr(FPedido.ID_OBRA) = FListaObras.Values[FListaObras.Names[i]] then
|
cbObraReserva.ItemIndex := i + 1;
|
||||||
begin
|
Exit;
|
||||||
cbObraReserva.ItemIndex := i + 1;
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewObraReserva.cbObraReservaChange(Sender: TObject);
|
procedure TfrViewObraReserva.cbObraReservaPropertiesEditValueChanged(
|
||||||
|
Sender: TObject);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
SalvarObra;
|
showmessage('hola');
|
||||||
end;
|
// SalvarObra;
|
||||||
|
|
||||||
constructor TfrViewObraReserva.Create(AOwner: TComponent);
|
|
||||||
var
|
|
||||||
i: Integer;
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
FController := TPedidosProveedorController.Create;
|
|
||||||
FObrasController := TObrasController.Create;
|
|
||||||
FListaObras := FObrasController.DarListaObras;
|
|
||||||
|
|
||||||
cbObraReserva.Items.BeginUpdate;
|
|
||||||
try
|
|
||||||
cbObraReserva.Items.Add(''); // Para poder indicar sin obra
|
|
||||||
for i := 0 to FListaObras.Count - 1 do
|
|
||||||
cbObraReserva.Items.Add(FListaObras.Names[i]);
|
|
||||||
finally
|
|
||||||
cbObraReserva.Items.EndUpdate;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewObraReserva.CustomViewShow(Sender: TObject);
|
procedure TfrViewObraReserva.CustomViewShow(Sender: TObject);
|
||||||
@ -138,49 +111,78 @@ begin
|
|||||||
cbObraReserva.Enabled := not Self.ReadOnly;
|
cbObraReserva.Enabled := not Self.ReadOnly;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewObraReserva.DarIDObraSeleccionada: Variant;
|
||||||
|
begin
|
||||||
|
if Assigned(FObras) then
|
||||||
|
Result := FObras.Values[cbObraReserva.EditValue]
|
||||||
|
else
|
||||||
|
Raise Exception.Create('No se ha asignado ninguna lista de ALMACENES');
|
||||||
|
end;
|
||||||
|
|
||||||
destructor TfrViewObraReserva.Destroy;
|
destructor TfrViewObraReserva.Destroy;
|
||||||
begin
|
begin
|
||||||
FObrasController := Nil;
|
FObrasController := Nil;
|
||||||
FController := NIL;
|
FObras := Nil;
|
||||||
|
|
||||||
FreeANDNIL(FListaObras);
|
|
||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewObraReserva.GetPedidoProveedor: IBizPedidoProveedor;
|
function TfrViewObraReserva.GetObras: TStringList;
|
||||||
begin
|
begin
|
||||||
Result := FPedido;
|
Result := FObras;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewObraReserva.GetObrasController: IObrasController;
|
||||||
|
begin
|
||||||
|
Result := FObrasController;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewObraReserva.SalvarObra;
|
procedure TfrViewObraReserva.SalvarObra;
|
||||||
var
|
var
|
||||||
AID : String;
|
AID : String;
|
||||||
begin
|
begin
|
||||||
|
{
|
||||||
// En el item 0 no hay nada
|
// En el item 0 no hay nada
|
||||||
if (cbObraReserva.ItemIndex > 0) then
|
if (cbObraReserva.ItemIndex > 0) then
|
||||||
begin
|
begin
|
||||||
AID := FListaObras.Values[FListaObras.Names[cbObraReserva.ItemIndex-1]];
|
AID := FListaObras.Values[cbObraReserva.EditValue];
|
||||||
FPedido.Edit;
|
FPedido.Edit;
|
||||||
FPedido.ID_OBRA := StrToInt(AID);
|
FPedido.ID_OBRA := StrToInt(AID);
|
||||||
FPedido.NOMBRE_OBRA := FListaObras.Names[cbObraReserva.ItemIndex-1];
|
FPedido.NOMBRE_OBRA := cbObraReserva.EditValue;
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
FPedido.Edit;
|
FPedido.Edit;
|
||||||
FPedido.ClearField('ID_OBRA');
|
FPedido.ClearField('ID_OBRA');
|
||||||
FPedido.ClearField('NOMBRE_OBRA');
|
FPedido.ClearField('NOMBRE_OBRA');
|
||||||
end;
|
end;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewObraReserva.SetPedidoProveedor(
|
procedure TfrViewObraReserva.SetObras(const Value: TStringList);
|
||||||
const Value: IBizPedidoProveedor);
|
var
|
||||||
|
i: Integer;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
dsPedido.DataTable := nil;
|
FObras := Value;
|
||||||
|
|
||||||
FPedido := Value;
|
if Assigned(FObras) then
|
||||||
dsPedido.DataTable := FPedido.DataTable;
|
with cbObraReserva.Properties.Items do
|
||||||
CargarObra;
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
// Add('');
|
||||||
|
for i := 0 to FObras.Count - 1 do
|
||||||
|
Add(FObras.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewObraReserva.SetObrasController(const Value: IObrasController);
|
||||||
|
begin
|
||||||
|
FObrasController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewObraReserva.SetReadOnly(Value: Boolean);
|
procedure TfrViewObraReserva.SetReadOnly(Value: Boolean);
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -3,6 +3,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
|||||||
Height = 560
|
Height = 560
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
|
OnShow = CustomViewShow
|
||||||
ExplicitWidth = 965
|
ExplicitWidth = 965
|
||||||
ExplicitHeight = 560
|
ExplicitHeight = 560
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
@ -167,21 +168,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
|||||||
248)
|
248)
|
||||||
inherited Bevel1: TBevel
|
inherited Bevel1: TBevel
|
||||||
Top = 200
|
Top = 200
|
||||||
Width = 566
|
|
||||||
ExplicitTop = 200
|
ExplicitTop = 200
|
||||||
ExplicitWidth = 566
|
|
||||||
end
|
end
|
||||||
inherited rdxDestino2: TRadioButton
|
inherited lblObra: TLabel
|
||||||
Width = 566
|
Left = 239
|
||||||
ExplicitWidth = 566
|
ExplicitLeft = 239
|
||||||
end
|
end
|
||||||
inherited cbListaAlmacenes: TcxDBLookupComboBox
|
inherited cbListaAlmacenes: TcxDBLookupComboBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 551
|
|
||||||
Width = 551
|
|
||||||
end
|
end
|
||||||
inherited bModificar: TBitBtn
|
inherited bModificar: TBitBtn
|
||||||
Left = 294
|
Left = 294
|
||||||
@ -190,12 +187,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
|||||||
ExplicitTop = 164
|
ExplicitTop = 164
|
||||||
end
|
end
|
||||||
inherited txtDireccion: TStaticText
|
inherited txtDireccion: TStaticText
|
||||||
Width = 882
|
|
||||||
Height = 68
|
Height = 68
|
||||||
ExplicitWidth = 882
|
|
||||||
ExplicitHeight = 68
|
ExplicitHeight = 68
|
||||||
end
|
end
|
||||||
inherited RadioButton1: TRadioButton
|
inherited rdxDestino2: TRadioButton
|
||||||
Width = 223
|
Width = 223
|
||||||
ExplicitWidth = 223
|
ExplicitWidth = 223
|
||||||
end
|
end
|
||||||
@ -206,18 +201,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
|||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitTop = 231
|
ExplicitTop = 231
|
||||||
ExplicitWidth = 334
|
|
||||||
Width = 334
|
|
||||||
end
|
end
|
||||||
inherited lblNombreObra: TcxDBLabel
|
inherited lblNombreObra: TcxDBLabel
|
||||||
Left = 239
|
Left = 248
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 239
|
ExplicitLeft = 248
|
||||||
ExplicitWidth = 121
|
|
||||||
Width = 121
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ActionList1: TActionList
|
inherited ActionList1: TActionList
|
||||||
@ -456,23 +447,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
|||||||
Height = 72
|
Height = 72
|
||||||
ExplicitWidth = 432
|
ExplicitWidth = 432
|
||||||
ExplicitHeight = 72
|
ExplicitHeight = 72
|
||||||
inherited Label1: TLabel
|
|
||||||
Width = 235
|
|
||||||
ExplicitWidth = 235
|
|
||||||
end
|
|
||||||
inherited Button3: TBitBtn
|
inherited Button3: TBitBtn
|
||||||
Left = 278
|
Left = 278
|
||||||
ExplicitLeft = 278
|
ExplicitLeft = 278
|
||||||
end
|
end
|
||||||
inherited cbObraReserva: TComboBox
|
inherited cbObraReserva: TcxComboBox
|
||||||
Width = 475
|
Properties.OnEditValueChanged = nil
|
||||||
ExplicitWidth = 475
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dsPedido: TDADataSource
|
|
||||||
Left = 192
|
|
||||||
Top = 24
|
|
||||||
end
|
|
||||||
inherited PngImageList: TPngImageList
|
inherited PngImageList: TPngImageList
|
||||||
Left = 224
|
Left = 224
|
||||||
Top = 24
|
Top = 24
|
||||||
|
|||||||
@ -13,7 +13,8 @@ uses
|
|||||||
uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit,
|
uViewDireccionEntregaPedidoProv, cxLookupEdit, cxDBLookupEdit,
|
||||||
// uBizPedidosCliente, uPedidosClienteController,
|
// uBizPedidosCliente, uPedidosClienteController,
|
||||||
cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago,
|
cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago,
|
||||||
uViewProveedorPedido, uViewObraReserva;
|
uViewProveedorPedido, uViewObraReserva, uObrasController,
|
||||||
|
uPedidosProveedorController;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewPedidoProveedor = interface(IViewBase)
|
IViewPedidoProveedor = interface(IViewBase)
|
||||||
@ -22,6 +23,10 @@ type
|
|||||||
procedure SetPedido(const Value: IBizPedidoProveedor);
|
procedure SetPedido(const Value: IBizPedidoProveedor);
|
||||||
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
||||||
|
|
||||||
|
function GetController : IPedidosProveedorController;
|
||||||
|
procedure SetController (const Value : IPedidosProveedorController);
|
||||||
|
property Controller : IPedidosProveedorController read GetController write SetController;
|
||||||
|
|
||||||
function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor;
|
function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor;
|
||||||
procedure SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor);
|
procedure SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor);
|
||||||
property ViewProveedorPedido: TfrViewDatosYSeleccionProveedor read GetViewProveedorPedido write SetViewProveedorPedido;
|
property ViewProveedorPedido: TfrViewDatosYSeleccionProveedor read GetViewProveedorPedido write SetViewProveedorPedido;
|
||||||
@ -78,23 +83,31 @@ type
|
|||||||
procedure actVerPedidoCliUpdate(Sender: TObject);
|
procedure actVerPedidoCliUpdate(Sender: TObject);
|
||||||
procedure frViewProveedorPedidoButton1Click(Sender: TObject);
|
procedure frViewProveedorPedidoButton1Click(Sender: TObject);
|
||||||
procedure frViewProveedorPedidoButton2Click(Sender: TObject);
|
procedure frViewProveedorPedidoButton2Click(Sender: TObject);
|
||||||
procedure frViewObraReserva1cbListaObrasReservaPropertiesEditValueChanged(
|
procedure ObraReservaEditValueChanged(Sender: TObject);
|
||||||
Sender: TObject);
|
procedure CustomViewShow(Sender: TObject);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FPedido : IBizPedidoProveedor;
|
FPedido : IBizPedidoProveedor;
|
||||||
|
FController : IPedidosProveedorController;
|
||||||
FViewProveedorPedido : TfrViewDatosYSeleccionProveedor;
|
FViewProveedorPedido : TfrViewDatosYSeleccionProveedor;
|
||||||
FFormasPago : IBizFormaPago;
|
FFormasPago : IBizFormaPago;
|
||||||
FFormasPagoController : IFormasPagoController;
|
FFormasPagoController : IFormasPagoController;
|
||||||
|
FObras: TStringList;
|
||||||
|
FObrasController : IObrasController;
|
||||||
// FPedidoCliAsociado : IBizPedidoCliente;
|
// FPedidoCliAsociado : IBizPedidoCliente;
|
||||||
// FPedidoCliController : IPedidosClienteController;
|
// FPedidoCliController : IPedidosClienteController;
|
||||||
|
|
||||||
function GetPedido: IBizPedidoProveedor;
|
function GetPedido: IBizPedidoProveedor;
|
||||||
procedure SetPedido(const Value: IBizPedidoProveedor); virtual;
|
procedure SetPedido(const Value: IBizPedidoProveedor); virtual;
|
||||||
|
function GetController : IPedidosProveedorController;
|
||||||
|
procedure SetController (const Value : IPedidosProveedorController);
|
||||||
|
|
||||||
function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor;
|
function GetViewProveedorPedido: TfrViewDatosYSeleccionProveedor;
|
||||||
procedure SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor);
|
procedure SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor);
|
||||||
|
|
||||||
public
|
public
|
||||||
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
|
||||||
|
property Controller : IPedidosProveedorController read GetController write SetController;
|
||||||
property ViewProveedorPedido: TfrViewDatosYSeleccionProveedor read GetViewProveedorPedido;
|
property ViewProveedorPedido: TfrViewDatosYSeleccionProveedor read GetViewProveedorPedido;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -130,6 +143,8 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
FFormasPago := Nil;
|
FFormasPago := Nil;
|
||||||
FFormasPagoController := TFormasPagoController.Create;
|
FFormasPagoController := TFormasPagoController.Create;
|
||||||
|
FObrasController := TObrasController.Create;
|
||||||
|
FObras := FObrasController.DarListaObras;
|
||||||
FViewProveedorPedido := frViewProveedorPedido1;
|
FViewProveedorPedido := frViewProveedorPedido1;
|
||||||
FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.';
|
FViewProveedorPedido.MsgElegirProveedor := 'Elija el proveedor al que se le realizará el pedido.';
|
||||||
eReferencia.Enabled := False;
|
eReferencia.Enabled := False;
|
||||||
@ -141,18 +156,52 @@ end;
|
|||||||
procedure TfrViewPedidoProveedor.CustomViewDestroy(Sender: TObject);
|
procedure TfrViewPedidoProveedor.CustomViewDestroy(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
FViewProveedorPedido := Nil;
|
FViewProveedorPedido := Nil;
|
||||||
|
FController := Nil;
|
||||||
FFormasPago := Nil;
|
FFormasPago := Nil;
|
||||||
FFormasPagoController := NIL;
|
FFormasPagoController := NIL;
|
||||||
inherited;
|
FObrasController := Nil;
|
||||||
|
FreeAndNil(FObras)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPedidoProveedor.frViewObraReserva1cbListaObrasReservaPropertiesEditValueChanged(
|
procedure TfrViewPedidoProveedor.CustomViewShow(Sender: TObject);
|
||||||
Sender: TObject);
|
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
ShowMessage('Hola');
|
if not FPedido.ID_OBRAISNull then
|
||||||
|
frViewObraReserva1.ActivarObra(FPedido.ID_OBRA);
|
||||||
|
|
||||||
|
frViewObraReserva1.cbObraReserva.Properties.OnEditValueChanged := ObraReservaEditValueChanged;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPedidoProveedor.ObraReservaEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
IDObra: Variant;
|
||||||
|
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
IDObra := frViewObraReserva1.DarIDObraSeleccionada;
|
||||||
|
Controller.AsignarIDObra(FPedido, IDObra);
|
||||||
|
|
||||||
|
if not VarIsNull(IDObra) then
|
||||||
|
begin
|
||||||
|
frViewDireccionEntregaPedidoProv1.rdxDestino2.Checked := True;
|
||||||
|
frViewDireccionEntregaPedidoProv1.RecuperarObra;
|
||||||
|
frViewDireccionEntregaPedidoProv1.CambioDireccionObra;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
showmessage('Cambio a radio buton de entraga de obra');
|
||||||
|
showmessage('cargo direccion de la obnra');
|
||||||
|
|
||||||
|
{showmessage('hola2');
|
||||||
frViewDireccionEntregaPedidoProv1.PrepararObra;
|
frViewDireccionEntregaPedidoProv1.PrepararObra;
|
||||||
|
frViewDireccionEntregaPedidoProv1.RecuperarObra;
|
||||||
frViewDireccionEntregaPedidoProv1.CambioDireccionObra;
|
frViewDireccionEntregaPedidoProv1.CambioDireccionObra;
|
||||||
|
frViewDireccionEntregaPedidoProv1.rdxDestino2.Checked := true;
|
||||||
|
}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPedidoProveedor.frViewProveedorPedidoButton1Click(Sender: TObject);
|
procedure TfrViewPedidoProveedor.frViewProveedorPedidoButton1Click(Sender: TObject);
|
||||||
@ -177,6 +226,11 @@ begin
|
|||||||
frViewProveedorPedido1.actAnadirContacto.Execute;
|
frViewProveedorPedido1.actAnadirContacto.Execute;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TfrViewPedidoProveedor.GetController: IPedidosProveedorController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewPedidoProveedor.GetPedido: IBizPedidoProveedor;
|
function TfrViewPedidoProveedor.GetPedido: IBizPedidoProveedor;
|
||||||
begin
|
begin
|
||||||
Result := FPedido;
|
Result := FPedido;
|
||||||
@ -187,6 +241,15 @@ begin
|
|||||||
Result := FViewProveedorPedido;
|
Result := FViewProveedorPedido;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewPedidoProveedor.SetController(const Value: IPedidosProveedorController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
|
||||||
|
if Assigned(FController)
|
||||||
|
and Assigned(FViewProveedorPedido) then
|
||||||
|
ViewProveedorPedido.Controller := Controller.ProveedorController;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrViewPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor);
|
procedure TfrViewPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor);
|
||||||
begin
|
begin
|
||||||
FPedido := Value;
|
FPedido := Value;
|
||||||
@ -213,6 +276,15 @@ begin
|
|||||||
// end
|
// end
|
||||||
// else
|
// else
|
||||||
// eReferenciaPedidoCli.Text := 'No hay pedido asociado';
|
// eReferenciaPedidoCli.Text := 'No hay pedido asociado';
|
||||||
|
|
||||||
|
frViewProveedorPedido1.Proveedor := FPedido.Proveedor;
|
||||||
|
frViewDireccionEntregaPedidoProv1.PedidoProveedor := FPedido;
|
||||||
|
|
||||||
|
|
||||||
|
frViewObraReserva1.Obras := FObras;
|
||||||
|
frViewObraReserva1.ObrasController := FObrasController;
|
||||||
|
|
||||||
|
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
DADataSource.DataTable := NIL;
|
DADataSource.DataTable := NIL;
|
||||||
@ -220,9 +292,9 @@ begin
|
|||||||
// FPedidoCliAsociado := NIL;
|
// FPedidoCliAsociado := NIL;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
frViewProveedorPedido1.Proveedor := FPedido.Proveedor;
|
|
||||||
frViewDireccionEntregaPedidoProv1.PedidoProveedor := FPedido;
|
|
||||||
frViewObraReserva1.PedidoProveedor := FPedido;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewPedidoProveedor.SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor);
|
procedure TfrViewPedidoProveedor.SetViewProveedorPedido(const Value: TfrViewDatosYSeleccionProveedor);
|
||||||
|
|||||||
@ -394,8 +394,9 @@ begin
|
|||||||
AAlbaranesProveedorController.Guardar(AAlbaran);
|
AAlbaranesProveedorController.Guardar(AAlbaran);
|
||||||
AAlbaranesProveedorController.Ver(AAlbaran);
|
AAlbaranesProveedorController.Ver(AAlbaran);
|
||||||
|
|
||||||
//Si el pedido tiene obra de reserva, preguntamos si quiere automatizar el proceso de reserva de los materiales
|
//Si el pedido tiene obra de relacionada y el destino del pedido no es esa obra, preguntamos si quiere reservar de los materiales para esa obra
|
||||||
if (APedido.ID_OBRA > 0) then
|
if (APedido.ID_OBRA > 0)
|
||||||
|
and (APedido.ID_OBRA <> APedido.ID_ALMACEN) then
|
||||||
begin
|
begin
|
||||||
if Application.MessageBox(PChar('Desea realizar la reserva del material recibido para la obra ' + APedido.NOMBRE_OBRA + ', asociada al pedido'), 'Atención', MB_YESNO) = IDYES then
|
if Application.MessageBox(PChar('Desea realizar la reserva del material recibido para la obra ' + APedido.NOMBRE_OBRA + ', asociada al pedido'), 'Atención', MB_YESNO) = IDYES then
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -160,6 +160,8 @@
|
|||||||
<Parameters>
|
<Parameters>
|
||||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||||
</Parameter>
|
</Parameter>
|
||||||
|
<Parameter Name="IDEmpresa" DataType="Integer" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
</Parameters>
|
</Parameters>
|
||||||
</Operation>
|
</Operation>
|
||||||
</Operations>
|
</Operations>
|
||||||
@ -453,6 +455,8 @@
|
|||||||
<Parameters>
|
<Parameters>
|
||||||
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||||
</Parameter>
|
</Parameter>
|
||||||
|
<Parameter Name="IDEmpresa" DataType="Integer" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
</Parameters>
|
</Parameters>
|
||||||
</Operation>
|
</Operation>
|
||||||
</Operations>
|
</Operations>
|
||||||
|
|||||||
@ -388,7 +388,7 @@ type
|
|||||||
{ IsrvAlmacenes }
|
{ IsrvAlmacenes }
|
||||||
IsrvAlmacenes = interface(IDataAbstractService)
|
IsrvAlmacenes = interface(IDataAbstractService)
|
||||||
['{F984D2A1-9922-4790-9B2D-A78ACFDAE82B}']
|
['{F984D2A1-9922-4790-9B2D-A78ACFDAE82B}']
|
||||||
function DarListaAlmacenes: Binary;
|
function DarListaAlmacenes(const IDEmpresa: Integer): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ CosrvAlmacenes }
|
{ CosrvAlmacenes }
|
||||||
@ -401,7 +401,7 @@ type
|
|||||||
protected
|
protected
|
||||||
function __GetInterfaceName:string; override;
|
function __GetInterfaceName:string; override;
|
||||||
|
|
||||||
function DarListaAlmacenes: Binary;
|
function DarListaAlmacenes(const IDEmpresa: Integer): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ IsrvArticulos }
|
{ IsrvArticulos }
|
||||||
@ -684,7 +684,7 @@ type
|
|||||||
{ IsrvObras }
|
{ IsrvObras }
|
||||||
IsrvObras = interface(IDataAbstractService)
|
IsrvObras = interface(IDataAbstractService)
|
||||||
['{39277224-A0BD-4249-9ACA-39D238798B25}']
|
['{39277224-A0BD-4249-9ACA-39D238798B25}']
|
||||||
function DarListaObras: Binary;
|
function DarListaObras(const IDEmpresa: Integer): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ CosrvObras }
|
{ CosrvObras }
|
||||||
@ -697,7 +697,7 @@ type
|
|||||||
protected
|
protected
|
||||||
function __GetInterfaceName:string; override;
|
function __GetInterfaceName:string; override;
|
||||||
|
|
||||||
function DarListaObras: Binary;
|
function DarListaObras(const IDEmpresa: Integer): Binary;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ IsrvProvinciasPoblaciones }
|
{ IsrvProvinciasPoblaciones }
|
||||||
@ -1488,11 +1488,12 @@ begin
|
|||||||
result := 'srvAlmacenes';
|
result := 'srvAlmacenes';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvAlmacenes_Proxy.DarListaAlmacenes: Binary;
|
function TsrvAlmacenes_Proxy.DarListaAlmacenes(const IDEmpresa: Integer): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaAlmacenes');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaAlmacenes');
|
||||||
|
__Message.Write('IDEmpresa', TypeInfo(Integer), IDEmpresa, []);
|
||||||
__Message.Finalize;
|
__Message.Finalize;
|
||||||
|
|
||||||
__TransportChannel.Dispatch(__Message);
|
__TransportChannel.Dispatch(__Message);
|
||||||
@ -2014,11 +2015,12 @@ begin
|
|||||||
result := 'srvObras';
|
result := 'srvObras';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TsrvObras_Proxy.DarListaObras: Binary;
|
function TsrvObras_Proxy.DarListaObras(const IDEmpresa: Integer): Binary;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
result := nil;
|
result := nil;
|
||||||
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaObras');
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaObras');
|
||||||
|
__Message.Write('IDEmpresa', TypeInfo(Integer), IDEmpresa, []);
|
||||||
__Message.Finalize;
|
__Message.Finalize;
|
||||||
|
|
||||||
__TransportChannel.Dispatch(__Message);
|
__TransportChannel.Dispatch(__Message);
|
||||||
|
|||||||
@ -435,14 +435,17 @@ end;
|
|||||||
{ TsrvAlmacenes_Invoker }
|
{ TsrvAlmacenes_Invoker }
|
||||||
|
|
||||||
procedure TsrvAlmacenes_Invoker.Invoke_DarListaAlmacenes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvAlmacenes_Invoker.Invoke_DarListaAlmacenes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function DarListaAlmacenes: Binary; }
|
{ function DarListaAlmacenes(const IDEmpresa: Integer): Binary; }
|
||||||
var
|
var
|
||||||
|
IDEmpresa: Integer;
|
||||||
lResult: Binary;
|
lResult: Binary;
|
||||||
__lObjectDisposer: TROObjectDisposer;
|
__lObjectDisposer: TROObjectDisposer;
|
||||||
begin
|
begin
|
||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
lResult := (__Instance as IsrvAlmacenes).DarListaAlmacenes;
|
__Message.Read('IDEmpresa', TypeInfo(Integer), IDEmpresa, []);
|
||||||
|
|
||||||
|
lResult := (__Instance as IsrvAlmacenes).DarListaAlmacenes(IDEmpresa);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlmacenes', 'DarListaAlmacenesResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlmacenes', 'DarListaAlmacenesResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
@ -1002,14 +1005,17 @@ end;
|
|||||||
{ TsrvObras_Invoker }
|
{ TsrvObras_Invoker }
|
||||||
|
|
||||||
procedure TsrvObras_Invoker.Invoke_DarListaObras(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
procedure TsrvObras_Invoker.Invoke_DarListaObras(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
{ function DarListaObras: Binary; }
|
{ function DarListaObras(const IDEmpresa: Integer): Binary; }
|
||||||
var
|
var
|
||||||
|
IDEmpresa: Integer;
|
||||||
lResult: Binary;
|
lResult: Binary;
|
||||||
__lObjectDisposer: TROObjectDisposer;
|
__lObjectDisposer: TROObjectDisposer;
|
||||||
begin
|
begin
|
||||||
lResult := nil;
|
lResult := nil;
|
||||||
try
|
try
|
||||||
lResult := (__Instance as IsrvObras).DarListaObras;
|
__Message.Read('IDEmpresa', TypeInfo(Integer), IDEmpresa, []);
|
||||||
|
|
||||||
|
lResult := (__Instance as IsrvObras).DarListaObras(IDEmpresa);
|
||||||
|
|
||||||
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvObras', 'DarListaObrasResponse');
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvObras', 'DarListaObrasResponse');
|
||||||
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -17,10 +17,10 @@ uses
|
|||||||
srvLogin_Impl in 'srvLogin_Impl.pas' {srvLogin: TDARemoteService},
|
srvLogin_Impl in 'srvLogin_Impl.pas' {srvLogin: TDARemoteService},
|
||||||
srvEmpresas_Impl in '..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},
|
srvEmpresas_Impl in '..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},
|
||||||
srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService},
|
srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService},
|
||||||
srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas',
|
srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas' {srvFamilias: TDataAbstractService},
|
||||||
srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas',
|
srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas' {srvFormasPago: TDataAbstractService},
|
||||||
srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas',
|
srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas' {srvTiposIVA: TDataAbstractService},
|
||||||
srvUsuarios_Impl in '..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas',
|
srvUsuarios_Impl in '..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas' {srvUsuarios: TDataAbstractService},
|
||||||
RegExpr in 'Utiles\RegExpr.pas',
|
RegExpr in 'Utiles\RegExpr.pas',
|
||||||
uBusinessUtils in 'Utiles\uBusinessUtils.pas',
|
uBusinessUtils in 'Utiles\uBusinessUtils.pas',
|
||||||
uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
|
uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
|
||||||
@ -89,10 +89,10 @@ uses
|
|||||||
schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
|
schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
|
||||||
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
|
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
|
||||||
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
|
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
|
||||||
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
|
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas' {srvObras: TDataAbstractService},
|
||||||
uBizObrasServer in '..\Modulos\Obras\Model\uBizObrasServer.pas',
|
uBizObrasServer in '..\Modulos\Obras\Model\uBizObrasServer.pas',
|
||||||
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
|
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
|
||||||
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas',
|
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas' {srvProvinciasPoblaciones_Impl: TDataModule},
|
||||||
uBizArticulosServer in '..\Modulos\Articulos\Model\uBizArticulosServer.pas',
|
uBizArticulosServer in '..\Modulos\Articulos\Model\uBizArticulosServer.pas',
|
||||||
uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
|
uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
|
||||||
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
||||||
|
|||||||
@ -49,10 +49,16 @@
|
|||||||
<Form>srvEmpresas</Form>
|
<Form>srvEmpresas</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
|
<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\schUsuariosClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.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\schBase_Intf.pas"/>
|
||||||
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
|
||||||
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
|
||||||
@ -143,10 +149,16 @@
|
|||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.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\schFormasPagoClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
|
||||||
|
<Form>srvFormasPago</Form>
|
||||||
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
|
||||||
<Form>srvGestorDocumentos</Form>
|
<Form>srvGestorDocumentos</Form>
|
||||||
<DesignClass>TDataAbstractService</DesignClass>
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
@ -170,7 +182,10 @@
|
|||||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
|
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
|
||||||
|
<Form>srvUsuarios</Form>
|
||||||
|
<DesignClass>TDataAbstractService</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
<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\schPedidosProveedorServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||||
@ -247,7 +262,10 @@
|
|||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
<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\Model\schTiposIVAServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.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\schUnidadesMedidaClient_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||||
|
|||||||
@ -14,7 +14,7 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "1.4.3.0\0"
|
VALUE "FileVersion", "1.4.3.0\0"
|
||||||
VALUE "ProductVersion", "1.4.3.0\0"
|
VALUE "ProductVersion", "1.4.3.0\0"
|
||||||
VALUE "CompileDate", "jueves, 06 de noviembre de 2008 11:20\0"
|
VALUE "CompileDate", "viernes, 07 de noviembre de 2008 12:02\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user