Ticket #133 -> Permitir desbloquear un documento de sólo lectura para modicarlo puntualmente.
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@608 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
84516859b6
commit
33bb03ed57
@ -46,27 +46,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -81,27 +60,27 @@
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contactos\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PLuginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Base.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\IndyCore.dcp" />
|
||||
<DCCReference Include="..\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\IndySystem.dcp" />
|
||||
<DCCReference Include="..\JvJansD11R.dcp" />
|
||||
<DCCReference Include="..\pckMD5.dcp" />
|
||||
<DCCReference Include="..\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\PLuginSDK_D10R.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\VclSmp.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||
@ -123,7 +102,7 @@
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Empresas\Views\uViewEmpresa.pas">
|
||||
<Form>TfrViewEmpresa</Form>
|
||||
<Form>frViewEmpresa</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas" />
|
||||
|
||||
@ -53,58 +53,58 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\adortl.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\designide.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\dsnap.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\Jcl.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\rtl.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\vcl.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\vcldb.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\vclx.dcp" />
|
||||
<DCCReference Include="C:\GUISDK\Packages\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -58,30 +58,30 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxTreeListD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -414,13 +414,14 @@ var
|
||||
i: integer;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if ReadOnly then
|
||||
for i:=0 to Self.ComponentCount-1 do
|
||||
begin
|
||||
If Self.Components[i] Is TfrViewBase then
|
||||
(Self.Components[i] as TfrViewBase).ReadOnly := ReadOnly
|
||||
end;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
for i:=0 to Self.ComponentCount-1 do
|
||||
begin
|
||||
if Self.Components[i] is TfrViewBase then
|
||||
(Self.Components[i] as TfrViewBase).ReadOnly := Self.ReadOnly
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.Show;
|
||||
|
||||
@ -3,23 +3,51 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
Top = 321
|
||||
Caption = 'fEditorDBItem'
|
||||
ClientHeight = 461
|
||||
ClientWidth = 652
|
||||
ExplicitWidth = 660
|
||||
ClientWidth = 901
|
||||
ExplicitWidth = 909
|
||||
ExplicitHeight = 495
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 652
|
||||
ExplicitWidth = 652
|
||||
Width = 901
|
||||
ExplicitWidth = 901
|
||||
inherited Image1: TImage
|
||||
Left = 625
|
||||
Left = 874
|
||||
ExplicitLeft = 627
|
||||
ExplicitHeight = 19
|
||||
end
|
||||
object lblDesbloquear: TcxLabel
|
||||
AlignWithMargins = True
|
||||
Left = 776
|
||||
Top = 0
|
||||
Margins.Left = 8
|
||||
Margins.Top = 0
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 0
|
||||
Align = alRight
|
||||
AutoSize = False
|
||||
Caption = 'Desbloquear'
|
||||
ParentFont = False
|
||||
Properties.Alignment.Horz = taCenter
|
||||
Properties.Alignment.Vert = taVCenter
|
||||
Style.HotTrack = True
|
||||
Style.LookAndFeel.NativeStyle = False
|
||||
Style.TextColor = clWindow
|
||||
StyleDisabled.LookAndFeel.NativeStyle = False
|
||||
StyleFocused.BorderStyle = ebsNone
|
||||
StyleFocused.LookAndFeel.NativeStyle = False
|
||||
StyleHot.BorderStyle = ebsNone
|
||||
StyleHot.LookAndFeel.NativeStyle = False
|
||||
StyleHot.TextStyle = [fsUnderline]
|
||||
Transparent = True
|
||||
OnClick = lblDesbloquearClick
|
||||
Height = 27
|
||||
Width = 90
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 652
|
||||
ExplicitWidth = 652
|
||||
Width = 901
|
||||
ExplicitWidth = 901
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 605
|
||||
inherited TBXItem26: TTBXItem
|
||||
@ -30,7 +58,7 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 652
|
||||
ExplicitWidth = 901
|
||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||
Visible = False
|
||||
end
|
||||
@ -40,29 +68,25 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 79
|
||||
Width = 646
|
||||
Width = 895
|
||||
Height = 360
|
||||
ActivePage = pagGeneral
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 442
|
||||
Width = 652
|
||||
Width = 901
|
||||
Panels = <
|
||||
item
|
||||
Width = 200
|
||||
Control = imgStatus
|
||||
end>
|
||||
ExplicitTop = 442
|
||||
ExplicitWidth = 652
|
||||
ExplicitWidth = 901
|
||||
object imgStatus: TImage
|
||||
Left = 3
|
||||
Top = 3
|
||||
|
||||
@ -10,7 +10,8 @@ uses
|
||||
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
||||
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
||||
JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels,
|
||||
JvExComCtrls, JvStatusBar, uDAInterfaces;
|
||||
JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit,
|
||||
cxLabel;
|
||||
|
||||
type
|
||||
IEditorDBItem = interface(IEditorDBBase)
|
||||
@ -21,6 +22,8 @@ type
|
||||
pgPaginas: TPageControl;
|
||||
pagGeneral: TTabSheet;
|
||||
imgStatus: TImage;
|
||||
lblDesbloquear: TcxLabel;
|
||||
procedure lblDesbloquearClick(Sender: TObject);
|
||||
protected
|
||||
procedure EliminarInterno; override;
|
||||
procedure PrevisualizarInterno; override;
|
||||
@ -31,7 +34,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorBase, uDialogUtils;
|
||||
uEditorBase, uDialogUtils, uDataTableUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -40,6 +43,9 @@ begin
|
||||
inherited;
|
||||
if HayDatos then
|
||||
begin
|
||||
if lblDesbloquear.Enabled then
|
||||
lblDesbloquear.Visible := ReadOnly;
|
||||
|
||||
if (Self.Modified) and (dsDataTable.DataTable.State <> dsInsert) then
|
||||
begin
|
||||
StatusBar.Panels[0].Text := ' Se han producido cambios';
|
||||
@ -63,7 +69,7 @@ begin
|
||||
inherited;
|
||||
if Modified then
|
||||
begin
|
||||
if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #10#13 +
|
||||
if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #13#10 +
|
||||
'¿Desea guardarlos ahora?') = IDYES) then
|
||||
actGuardar.Execute
|
||||
else
|
||||
@ -71,6 +77,21 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorDBItem.lblDesbloquearClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if (ShowConfirmMessage('¿Desbloquear los datos para permitir cambios?', 'Actualmente, los datos de esta ficha no se pueden modificar.' + #13#10 +
|
||||
'Temporalmente puede desbloquear la ficha para realizar cambios puntuales. ¿Desea continuar?') = IDYES) then
|
||||
begin
|
||||
lblDesbloquear.Visible := False;
|
||||
lblDesbloquear.Enabled := False;
|
||||
SetDataTableReadOnly(dsDataTable.DataTable, False);
|
||||
Self.ReadOnly := False;
|
||||
ActualizarEstadoEditor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorDBItem.PrevisualizarInterno;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
@ -41,16 +41,18 @@ var
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if ReadOnly then
|
||||
for i:=0 to Self.ComponentCount-1 do
|
||||
begin
|
||||
If (Self.Components[i] Is TfrViewBase) then
|
||||
(Self.Components[i] as TfrViewBase).ReadOnly := ReadOnly;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
If (Self.Components[i] Is TcxControl)
|
||||
and (not (Self.Components[i] Is TdxLayoutControl)) then
|
||||
(Self.Components[i] as TcxControl).Enabled := not ReadOnly;
|
||||
end;
|
||||
for i:=0 to Self.ComponentCount-1 do
|
||||
begin
|
||||
if (Self.Components[i] is TfrViewBase) then
|
||||
(Self.Components[i] as TfrViewBase).ReadOnly := Self.ReadOnly;
|
||||
|
||||
if (Self.Components[i] is TcxControl)
|
||||
and (not (Self.Components[i] Is TdxLayoutControl)) then
|
||||
(Self.Components[i] as TcxControl).Enabled := not Self.ReadOnly;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -48,15 +48,15 @@
|
||||
<DelphiCompile Include="AlbaranesCliente_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\..\..\adortl.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\..\..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\dsnap.dcp" />
|
||||
<DCCReference Include="..\..\..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\..\..\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\vcldb.dcp" />
|
||||
<DCCReference Include="uDataModuleAlbaranesCliente.pas">
|
||||
<Form>DataModuleAlbaranesCliente</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -48,14 +48,14 @@
|
||||
<DelphiCompile Include="AlbaranesProveedor_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\AlbaranesProveedor_data.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Pedidos a proveedor\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesProveedor_data.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\..\..\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\..\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="uAlbaranesProveedorController.pas" />
|
||||
<DCCReference Include="uAlbaranesProveedorReportController.pas" />
|
||||
<DCCReference Include="uArticulosAlbaranProveedorController.pas" />
|
||||
|
||||
@ -48,7 +48,7 @@
|
||||
<DelphiCompile Include="AlbaranesProveedor_data.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="uDataModuleAlbaranesProveedor.pas">
|
||||
<Form>DataModuleAlbaranesProveedor</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -58,11 +58,15 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 1
|
||||
Width = 765
|
||||
end
|
||||
@ -109,11 +113,15 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 3
|
||||
Width = 765
|
||||
end
|
||||
|
||||
@ -289,12 +289,13 @@ end;
|
||||
procedure TfrViewDireccionEntregaAlbaranProv.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if ReadOnly then
|
||||
begin
|
||||
rdxDestino1.Enabled := False;
|
||||
rdxDestino2.Enabled := False;
|
||||
RadioButton1.Enabled := False;
|
||||
end;
|
||||
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
rdxDestino1.Enabled := not ReadOnly;
|
||||
rdxDestino2.Enabled := not ReadOnly;
|
||||
RadioButton1.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntregaAlbaranProv.txtDireccionDblClick(Sender: TObject);
|
||||
|
||||
@ -234,11 +234,11 @@ procedure TfrViewDatosYSeleccionCliente.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if ReadOnly then
|
||||
begin
|
||||
actAnadirContacto.Enabled := False;
|
||||
actElegirContacto.Enabled := False;
|
||||
end;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
actAnadirContacto.Enabled := not ReadOnly;
|
||||
actElegirContacto.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -294,13 +294,13 @@ procedure TfrViewDatosYSeleccionClienteBase.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if ReadOnly then
|
||||
begin
|
||||
actAnadirContacto.Enabled := False;
|
||||
actElegirContacto.Enabled := False;
|
||||
actElegirDireccion.Enabled := False;
|
||||
actElegirPersonaContacto.Enabled := False;
|
||||
end;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
actAnadirContacto.Enabled := not ReadOnly;
|
||||
actElegirContacto.Enabled := not ReadOnly;
|
||||
actElegirDireccion.Enabled := not ReadOnly;
|
||||
actElegirPersonaContacto.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClienteBase.VerFichaCliente;
|
||||
|
||||
@ -220,11 +220,11 @@ procedure TfrViewDatosYSeleccionProveedor.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if ReadOnly then
|
||||
begin
|
||||
actAnadirContacto.Enabled := False;
|
||||
actElegirContacto.Enabled := False;
|
||||
end;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
actAnadirContacto.Enabled := not ReadOnly;
|
||||
actElegirContacto.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionProveedor.VerFichaProveedorInternal;
|
||||
|
||||
@ -48,14 +48,14 @@
|
||||
<DelphiCompile Include="FacturasProveedor_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasProveedor_data.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RecibosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\FacturasProveedor_data.dcp" />
|
||||
<DCCReference Include="..\..\..\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\FormasPago_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\RecibosProveedor_controller.dcp" />
|
||||
<DCCReference Include="uArticulosFacturaProveedorController.pas" />
|
||||
<DCCReference Include="uDetallesFacturaProveedorController.pas" />
|
||||
<DCCReference Include="uFacturasProveedorController.pas" />
|
||||
|
||||
@ -46,16 +46,16 @@
|
||||
<DelphiCompile Include="Inventario_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Inventario_data.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Obras_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\Obras_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Articulos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Inventario_data.dcp" />
|
||||
<DCCReference Include="..\..\..\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Obras_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Obras_model.dcp" />
|
||||
<DCCReference Include="..\..\..\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\PresupuestosCliente_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\PresupuestosCliente_model.dcp" />
|
||||
<DCCReference Include="..\Utiles\uInventarioUtils.pas">
|
||||
<Form>dmInventarioUtils</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
|
||||
@ -49,36 +49,42 @@
|
||||
<DelphiCompile Include="PedidosProveedor_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="Almacenes_controller.dcp" />
|
||||
<DCCReference Include="Almacenes_model.dcp" />
|
||||
<DCCReference Include="Articulos_view.dcp" />
|
||||
<DCCReference Include="ccpackD11.dcp" />
|
||||
<DCCReference Include="cfpack_d11.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="Contactos_view.dcp" />
|
||||
<DCCReference Include="cxDataD11.dcp" />
|
||||
<DCCReference Include="cxEditorsD11.dcp" />
|
||||
<DCCReference Include="cxLibraryD11.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxComnD11.dcp" />
|
||||
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="dxThemeD11.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="GUISDK_D11.dcp" />
|
||||
<DCCReference Include="Obras_controller.dcp" />
|
||||
<DCCReference Include="Obras_model.dcp" />
|
||||
<DCCReference Include="PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="PedProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="..\adortl.dcp" />
|
||||
<DCCReference Include="..\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\Articulos_view.dcp" />
|
||||
<DCCReference Include="..\ccpackD11.dcp" />
|
||||
<DCCReference Include="..\cfpack_d11.dcp" />
|
||||
<DCCReference Include="..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\Contactos_view.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxComnD11.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\GUIBase.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Obras_controller.dcp" />
|
||||
<DCCReference Include="..\Obras_model.dcp" />
|
||||
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\PedProv_AlbProv_relation.dcp" />
|
||||
<DCCReference Include="..\PedProv_FacProv_relation.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<DCCReference Include="..\vcl.dcp" />
|
||||
<DCCReference Include="..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\vcldb.dcp" />
|
||||
<DCCReference Include="..\vcljpg.dcp" />
|
||||
<DCCReference Include="..\vclx.dcp" />
|
||||
<DCCReference Include="..\xmlrtl.dcp" />
|
||||
<DCCReference Include="uDialogOpcionesImpresion.pas">
|
||||
<Form>fDialogOpcionesImpresion</Form>
|
||||
<DesignClass>T</DesignClass>
|
||||
@ -144,12 +150,6 @@
|
||||
<Form>frViewProveedorPedido</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="vcljpg.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
@ -291,12 +291,13 @@ end;
|
||||
procedure TfrViewDireccionEntregaPedidoProv.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
if ReadOnly then
|
||||
begin
|
||||
rdxDestino1.Enabled := False;
|
||||
rdxDestino2.Enabled := False;
|
||||
RadioButton1.Enabled := False;
|
||||
end;
|
||||
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
rdxDestino1.Enabled := not ReadOnly;
|
||||
rdxDestino2.Enabled := not ReadOnly;
|
||||
RadioButton1.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDireccionEntregaPedidoProv.txtDireccionDblClick(
|
||||
|
||||
@ -672,11 +672,10 @@ end;
|
||||
function TPresupuestosClienteController.EsModificable(APresupuesto: IBizPresupuestoCliente): Boolean;
|
||||
begin
|
||||
if not Assigned(APresupuesto) then
|
||||
raise Exception.Create ('Presupuesto no asignado: EsModificable');
|
||||
raise Exception.Create ('Presupuesto no asignado (EsModificable)');
|
||||
|
||||
Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE);
|
||||
|
||||
//Result := (APresupuesto.SITUACION = SITUACION_PRESUPUESTO_PENDIENTE);
|
||||
// En Tecsitel, todos los presupuestos son modificables independientemente
|
||||
// de su situación.
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
|
||||
@ -399,11 +399,11 @@ procedure TfrViewDatosYSeleccionClientePresupuesto.SetReadOnly(Value: Boolean);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if ReadOnly then
|
||||
begin
|
||||
actAnadirContacto.Enabled := False;
|
||||
actElegirContacto.Enabled := False;
|
||||
end;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
actAnadirContacto.Enabled := not ReadOnly;
|
||||
actElegirContacto.Enabled := not ReadOnly;
|
||||
end;
|
||||
|
||||
procedure TfrViewDatosYSeleccionClientePresupuesto.VerFichaCliente;
|
||||
|
||||
@ -42,78 +42,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcl31w100.bpl">Delphi 1.0 Compatibility Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclmid100.bpl">Borland MyBase DataAccess Components</Excluded_Packages>
|
||||
@ -157,27 +85,26 @@
|
||||
<DelphiCompile Include="PedProv_AlbProv_relation.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contactos_controller.dcp" />
|
||||
<DCCReference Include="Contactos_model.dcp" />
|
||||
<DCCReference Include="designide.dcp" />
|
||||
<DCCReference Include="Inventario_controller.dcp" />
|
||||
<DCCReference Include="Inventario_model.dcp" />
|
||||
<DCCReference Include="JSDialog100.dcp" />
|
||||
<DCCReference Include="PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="PNG_D10.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\AlbaranesProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\Contactos_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Contactos_model.dcp" />
|
||||
<DCCReference Include="..\..\..\designide.dcp" />
|
||||
<DCCReference Include="..\..\..\Inventario_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Inventario_model.dcp" />
|
||||
<DCCReference Include="..\..\..\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\..\..\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\PedidosProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\..\..\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\vclactnband.dcp" />
|
||||
<DCCReference Include="..\..\..\vclx.dcp" />
|
||||
<DCCReference Include="..\..\..\xmlrtl.dcp" />
|
||||
<DCCReference Include="uGenerarAlbaranesProvUtils.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vclactnband.dcp" />
|
||||
<DCCReference Include="vclx.dcp" />
|
||||
<DCCReference Include="xmlrtl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6011
|
||||
|
||||
@ -41,186 +41,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcl31w100.bpl">Delphi 1.0 Compatibility Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclmid100.bpl">Borland MyBase DataAccess Components</Excluded_Packages>
|
||||
@ -264,10 +84,10 @@
|
||||
<DelphiCompile Include="PedProv_FacProv_relation.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\Lib\Base.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Base.dcp" />
|
||||
<DCCReference Include="..\..\..\FacturasProveedor_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\FacturasProveedor_model.dcp" />
|
||||
<DCCReference Include="..\..\..\PedidosProveedor_controller.dcp" />
|
||||
<DCCReference Include="uGenerarFacturasProvPedUtils.pas">
|
||||
<Form>dmGenerarFacturasProvPed</Form>
|
||||
</DCCReference>
|
||||
|
||||
Binary file not shown.
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.3.4.0\0"
|
||||
VALUE "ProductVersion", "1.3.4.0\0"
|
||||
VALUE "CompileDate", "lunes, 22 de septiembre de 2008 18:51\0"
|
||||
VALUE "CompileDate", "martes, 23 de septiembre de 2008 16:52\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user