cambios varios solicitados en reunion
This commit is contained in:
parent
c0b648df4c
commit
cee5e36166
BIN
Build/Build.fbl6
BIN
Build/Build.fbl6
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -44,13 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\Bin\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>
|
||||
@ -65,54 +58,54 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxGridD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dclIndyCore.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\designide.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\GUISDK_D11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\IndyCore.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\IndyProtocols.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\IndySystem.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Jcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JclVcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JSDialog100.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvMMD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvNetD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\pckMD5.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PluginSDK_D11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\TB2k_D10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\VclSmp.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
|
||||
@ -52,7 +52,16 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<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">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">6</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">4.7.6.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">4.7.6.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">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">8</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">4.7.8.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">4.7.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
@ -58,34 +58,34 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.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\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.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\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.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\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\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\vclx.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\ccpackD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxDataD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxExportD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\dxThemeD11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\frx11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\frxe11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\fs11.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\JvGlobusD11R.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\PNG_D10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tb2k_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\tbx_d10.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclactnband.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vcljpg.dcp" />
|
||||
<DCCReference Include="$(SystemRoot)\system32\vclx.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
Binary file not shown.
@ -22,7 +22,7 @@ object fEditorBase: TfEditorBase
|
||||
TextHeight = 13
|
||||
object JvNavPanelHeader: TJvNavPanelHeader
|
||||
Left = 0
|
||||
Top = 49
|
||||
Top = 51
|
||||
Width = 946
|
||||
Align = alTop
|
||||
Caption = 'Editor'
|
||||
@ -37,6 +37,7 @@ object fEditorBase: TfEditorBase
|
||||
ImageIndex = 0
|
||||
StyleManager = dmBase.StyleManager
|
||||
ParentStyleManager = False
|
||||
ExplicitTop = 49
|
||||
object Image1: TImage
|
||||
Left = 919
|
||||
Top = 0
|
||||
@ -71,10 +72,10 @@ object fEditorBase: TfEditorBase
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 946
|
||||
Height = 49
|
||||
Height = 51
|
||||
object tbxMain: TTBXToolbar
|
||||
Left = 0
|
||||
Top = 23
|
||||
Top = 25
|
||||
Caption = 'tbxMain'
|
||||
ChevronHint = 'M'#225's botones|'
|
||||
DockMode = dmCannotFloatOrChangeDocks
|
||||
|
||||
@ -463,13 +463,14 @@ var
|
||||
i: integer;
|
||||
begin
|
||||
inherited;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
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 Self.Components[i] is TfrViewBase then
|
||||
(Self.Components[i] as TfrViewBase).ReadOnly := Self.ReadOnly
|
||||
end
|
||||
end;
|
||||
|
||||
procedure TfEditorBase.Show;
|
||||
|
||||
@ -4,7 +4,7 @@ inherited fEditorDBBase: TfEditorDBBase
|
||||
Caption = 'fEditorDBBase'
|
||||
ClientHeight = 454
|
||||
ClientWidth = 646
|
||||
ExplicitWidth = 654
|
||||
ExplicitWidth = 662
|
||||
ExplicitHeight = 492
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
|
||||
@ -4,24 +4,57 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
Caption = 'fEditorDBItem'
|
||||
ClientHeight = 459
|
||||
ClientWidth = 650
|
||||
ExplicitWidth = 658
|
||||
ExplicitHeight = 493
|
||||
ExplicitWidth = 666
|
||||
ExplicitHeight = 497
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 650
|
||||
ExplicitTop = 51
|
||||
ExplicitWidth = 650
|
||||
inherited Image1: TImage
|
||||
Left = 623
|
||||
ExplicitLeft = 627
|
||||
ExplicitHeight = 19
|
||||
end
|
||||
object lblDesbloquear: TcxLabel
|
||||
AlignWithMargins = True
|
||||
Left = 525
|
||||
Top = 0
|
||||
Margins.Left = 8
|
||||
Margins.Top = 0
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 0
|
||||
Align = alRight
|
||||
AutoSize = False
|
||||
Caption = 'Desbloquear'
|
||||
Enabled = False
|
||||
ParentFont = False
|
||||
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]
|
||||
Properties.Alignment.Horz = taCenter
|
||||
Properties.Alignment.Vert = taVCenter
|
||||
Transparent = True
|
||||
Visible = False
|
||||
OnClick = lblDesbloquearClick
|
||||
Height = 27
|
||||
Width = 90
|
||||
AnchorX = 570
|
||||
AnchorY = 14
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 650
|
||||
ExplicitWidth = 650
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 650
|
||||
ExplicitWidth = 647
|
||||
inherited TBXItem26: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -77,14 +110,12 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
object pgPaginas: TPageControl [3]
|
||||
AlignWithMargins = True
|
||||
Left = 3
|
||||
Top = 112
|
||||
Top = 111
|
||||
Width = 644
|
||||
Height = 325
|
||||
Height = 326
|
||||
ActivePage = pagGeneral
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 109
|
||||
ExplicitHeight = 328
|
||||
object pagGeneral: TTabSheet
|
||||
Caption = 'General'
|
||||
ExplicitLeft = 0
|
||||
@ -95,7 +126,7 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
end
|
||||
object PnlComentario: TPanel [4]
|
||||
Left = 0
|
||||
Top = 79
|
||||
Top = 78
|
||||
Width = 650
|
||||
Height = 30
|
||||
Align = alTop
|
||||
@ -105,7 +136,6 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
ParentBackground = False
|
||||
TabOrder = 4
|
||||
VerticalAlignment = taAlignTop
|
||||
ExplicitTop = 76
|
||||
object lbComentario: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 6
|
||||
|
||||
@ -9,7 +9,8 @@ uses
|
||||
JvNavigationPane, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||
StdCtrls, uDAScriptingProvider, uDACDSDataTable, AppEvnts, uCustomView,
|
||||
uViewBase, JvAppStorage, JvAppRegistryStorage, ExtCtrls, uDAInterfaces,
|
||||
JvComponentBase, JvFormPlacement, JvExComCtrls, JvStatusBar, pngimage;
|
||||
JvComponentBase, JvFormPlacement, JvExComCtrls, JvStatusBar, pngimage,
|
||||
cxControls, cxContainer, cxEdit, cxLabel;
|
||||
|
||||
type
|
||||
IEditorDBItem = interface(IEditorDBBase)
|
||||
@ -25,6 +26,8 @@ type
|
||||
imgStatus: TImage;
|
||||
PnlComentario: TPanel;
|
||||
lbComentario: TLabel;
|
||||
lblDesbloquear: TcxLabel;
|
||||
procedure lblDesbloquearClick(Sender: TObject);
|
||||
|
||||
protected
|
||||
FComentario: Variant;
|
||||
@ -42,7 +45,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uEditorBase, uDialogUtils;
|
||||
uEditorBase, uDialogUtils, uDataTableUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -80,6 +83,22 @@ begin
|
||||
Result := FComentario;
|
||||
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.SetComentario(const Value: Variant);
|
||||
begin
|
||||
FComentario := Value;
|
||||
|
||||
@ -40,16 +40,17 @@ var
|
||||
i: integer;
|
||||
begin
|
||||
inherited;
|
||||
if (csLoading in Self.ComponentState) then
|
||||
Exit;
|
||||
|
||||
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 (Self.Components[i] is TfrViewBase) then
|
||||
(Self.Components[i] as TfrViewBase).ReadOnly := Self.ReadOnly;
|
||||
|
||||
If (Self.Components[i] Is TcxControl)
|
||||
if (Self.Components[i] is TcxControl)
|
||||
and (not (Self.Components[i] Is TdxLayoutControl)) then
|
||||
(Self.Components[i] as TcxControl).Enabled := not ReadOnly;
|
||||
(Self.Components[i] as TcxControl).Enabled := not Self.ReadOnly;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -24,17 +24,17 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
inherited tbxMain: TTBXToolbar
|
||||
Align = alLeft
|
||||
DockPos = -6
|
||||
ExplicitWidth = 142
|
||||
ExplicitWidth = 139
|
||||
inherited TBXItem36: TTBXItem
|
||||
Action = actAnchoAuto2
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
Left = 84
|
||||
Left = 101
|
||||
Align = alLeft
|
||||
DockPos = 101
|
||||
DockRow = 1
|
||||
ExplicitLeft = 84
|
||||
ExplicitLeft = 101
|
||||
inherited TBXItem34: TTBXItem
|
||||
Action = actQuitarFiltro2
|
||||
end
|
||||
@ -43,11 +43,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
|
||||
ExplicitWidth = 656
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 304
|
||||
Left = 317
|
||||
DockPos = 536
|
||||
DockRow = 1
|
||||
Visible = False
|
||||
ExplicitLeft = 304
|
||||
ExplicitLeft = 317
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
|
||||
@ -1561,9 +1561,13 @@ end;
|
||||
function TContratosClienteController.MandarFabrica(AContrato: IBizContratoCliente; AClonarContrato: Boolean = true): Boolean;
|
||||
var
|
||||
AContratoFabrica : IBizContratoCliente;
|
||||
AFormasPago : IBizFormaPago;
|
||||
AFormasPagoController : IFormasPagoController;
|
||||
|
||||
begin
|
||||
Result := false;
|
||||
AFormasPagoController := TFormasPagoController.Create;
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
|
||||
@ -1622,9 +1626,16 @@ begin
|
||||
TELEFONO := AContratoFabrica.Cliente.TELEFONO_1;
|
||||
MOVIL := AContratoFabrica.Cliente.MOVIL_1;
|
||||
|
||||
//LA DIRECCIÖN DE ENVIO SE MANTIENE LA COPIADA DEL CLIENTE FINAL
|
||||
//FORMA DE PAGO DEL CLIENTE GRADEN/GUNNI Y COMERCIALES ASOCIADOS
|
||||
AContratoFabrica.ID_AGENTE := AContratoFabrica.Cliente.ID_AGENTE;
|
||||
AContratoFabrica.NOMBRE_AGENTE := AContratoFabrica.Cliente.AGENTE;
|
||||
AContratoFabrica.DELEGACION := AContratoFabrica.Cliente.DELEGACION;
|
||||
|
||||
AContratoFabrica.ID_FORMA_PAGO := AContratoFabrica.Cliente.ID_FORMA_PAGO;
|
||||
AFormasPago := AFormasPagoController.Buscar(AContrato.ID_FORMA_PAGO);
|
||||
AFormasPago.Open;
|
||||
AContratoFabrica.FORMA_PAGO.Add(AFormasPago.DESCRIPCION);
|
||||
|
||||
AContratoFabrica.ID_TIPO_IVA := AContratoFabrica.Cliente.ID_TIPO_IVA;
|
||||
AContratoFabrica.IDIOMA_ISO := AContratoFabrica.Cliente.IDIOMA_ISO;
|
||||
AContratoFabrica.IDIOMA := AContratoFabrica.Cliente.IDIOMA;
|
||||
@ -1651,6 +1662,8 @@ begin
|
||||
end;
|
||||
|
||||
finally
|
||||
AFormasPago:= Nil;
|
||||
AFormasPagoController := Nil;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -3,7 +3,7 @@ unit schContratosClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
@ -319,7 +319,7 @@ type
|
||||
end;
|
||||
|
||||
{ TValoresDataTableRules }
|
||||
TValoresDataTableRules = class(TDADataTableRules, IValores)
|
||||
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -378,7 +378,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPropiedadesDataTableRules }
|
||||
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
|
||||
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -425,7 +425,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosContratosDataTableRules }
|
||||
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
|
||||
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -544,7 +544,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContratosClienteBeneficiosDataTableRules }
|
||||
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
|
||||
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1079,7 +1079,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContratosClienteDataTableRules }
|
||||
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
|
||||
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
|
||||
private
|
||||
f_FORMA_PAGO: IROStrings;
|
||||
f_PLAZO_ENTREGA: IROStrings;
|
||||
@ -1571,7 +1571,7 @@ type
|
||||
end;
|
||||
|
||||
{ TTiposCapitulosDataTableRules }
|
||||
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
|
||||
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1744,7 +1744,7 @@ type
|
||||
end;
|
||||
|
||||
{ TContratosCliente_DetallesDataTableRules }
|
||||
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
|
||||
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
|
||||
@ -5,14 +5,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
ClientHeight = 649
|
||||
ClientWidth = 1334
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 1342
|
||||
ExplicitWidth = 1350
|
||||
ExplicitHeight = 687
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 1334
|
||||
Caption = 'Nuevo contrato de cliente'
|
||||
ExplicitTop = 52
|
||||
ExplicitWidth = 1334
|
||||
inherited Image1: TImage
|
||||
Left = 1307
|
||||
@ -125,12 +124,18 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
960000000049454E44AE426082}
|
||||
ExplicitLeft = 735
|
||||
end
|
||||
inherited lblDesbloquear: TcxLabel
|
||||
Left = 1209
|
||||
ExplicitLeft = 1209
|
||||
AnchorX = 1254
|
||||
AnchorY = 14
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 1334
|
||||
ExplicitWidth = 1334
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 551
|
||||
ExplicitWidth = 518
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -174,17 +179,16 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 1328
|
||||
Height = 321
|
||||
Height = 322
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 1328
|
||||
ExplicitHeight = 321
|
||||
ExplicitHeight = 322
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 293
|
||||
ExplicitHeight = 294
|
||||
end
|
||||
object pagContenido: TTabSheet
|
||||
Caption = 'Contenido'
|
||||
@ -193,7 +197,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1320
|
||||
Height = 293
|
||||
Height = 294
|
||||
Align = alClient
|
||||
BiDiMode = bdLeftToRight
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -206,20 +210,33 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 293
|
||||
ExplicitHeight = 294
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 1320
|
||||
Height = 24
|
||||
ButtonWidth = 110
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 24
|
||||
inherited ToolButton4: TToolButton
|
||||
Wrap = False
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 109
|
||||
end
|
||||
inherited ToolButton14: TToolButton
|
||||
Left = 334
|
||||
Top = 0
|
||||
ExplicitLeft = 334
|
||||
ExplicitTop = 0
|
||||
Left = 109
|
||||
ExplicitLeft = 109
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
Left = 143
|
||||
ExplicitLeft = 143
|
||||
ExplicitWidth = 114
|
||||
end
|
||||
inherited ToolButton3: TToolButton
|
||||
Left = 257
|
||||
ExplicitLeft = 257
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 312
|
||||
Wrap = False
|
||||
ExplicitLeft = 312
|
||||
end
|
||||
inherited FontName: TJvFontComboBox
|
||||
Left = 368
|
||||
@ -230,73 +247,73 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
inherited FontSize: TEdit
|
||||
Left = 513
|
||||
Top = 0
|
||||
Width = 108
|
||||
Width = 124
|
||||
ExplicitLeft = 513
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 108
|
||||
ExplicitWidth = 124
|
||||
end
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 621
|
||||
inherited UpDown1: TUpDown [7]
|
||||
Left = 637
|
||||
Top = 0
|
||||
ExplicitLeft = 621
|
||||
ExplicitLeft = 637
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton6: TToolButton [8]
|
||||
Left = 654
|
||||
Top = 0
|
||||
ExplicitLeft = 654
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 638
|
||||
Left = 688
|
||||
Top = 0
|
||||
ExplicitLeft = 638
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 646
|
||||
Top = 0
|
||||
ExplicitLeft = 646
|
||||
ExplicitLeft = 688
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 680
|
||||
Left = 696
|
||||
Top = 0
|
||||
ExplicitLeft = 680
|
||||
ExplicitLeft = 696
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 714
|
||||
Left = 730
|
||||
Top = 0
|
||||
ExplicitLeft = 714
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 748
|
||||
Top = 0
|
||||
ExplicitLeft = 748
|
||||
ExplicitLeft = 730
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton9: TToolButton
|
||||
Left = 756
|
||||
Left = 764
|
||||
Top = 0
|
||||
ExplicitLeft = 756
|
||||
ExplicitLeft = 764
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton12: TToolButton
|
||||
Left = 798
|
||||
Top = 0
|
||||
ExplicitLeft = 798
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton10: TToolButton
|
||||
Left = 790
|
||||
Left = 806
|
||||
Top = 0
|
||||
ExplicitLeft = 790
|
||||
ExplicitLeft = 806
|
||||
ExplicitTop = 0
|
||||
end
|
||||
inherited ToolButton11: TToolButton
|
||||
Left = 824
|
||||
Left = 840
|
||||
Top = 0
|
||||
ExplicitLeft = 824
|
||||
ExplicitLeft = 840
|
||||
ExplicitTop = 0
|
||||
end
|
||||
end
|
||||
inherited cxGrid: TcxGrid
|
||||
Top = 50
|
||||
Width = 1320
|
||||
Height = 243
|
||||
Height = 244
|
||||
ExplicitTop = 50
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 243
|
||||
ExplicitHeight = 244
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewPROPIEDAD: TcxGridDBColumn
|
||||
IsCaptionAssigned = True
|
||||
@ -312,7 +329,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 1042
|
||||
DockPos = 1042
|
||||
ExplicitLeft = 1042
|
||||
ExplicitWidth = 130
|
||||
ExplicitWidth = 122
|
||||
inherited TBXLabelItem2: TTBXLabelItem
|
||||
Caption = ' Descuento cap'#237'tulo'
|
||||
end
|
||||
@ -322,7 +339,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
AutoResize = False
|
||||
DockPos = 2
|
||||
ExplicitLeft = 2
|
||||
ExplicitWidth = 839
|
||||
ExplicitWidth = 799
|
||||
inherited TBXLabelItem1: TTBXLabelItem
|
||||
Caption = ' Precio punto'
|
||||
end
|
||||
@ -388,7 +405,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1320
|
||||
Height = 293
|
||||
Height = 294
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -399,7 +416,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 293
|
||||
ExplicitHeight = 294
|
||||
inherited pnlSup: TPanel
|
||||
Width = 1320
|
||||
ExplicitWidth = 1320
|
||||
@ -409,13 +426,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
Width = 1320
|
||||
Height = 265
|
||||
Height = 266
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 265
|
||||
ExplicitHeight = 266
|
||||
inherited eIncidencias: TcxDBMemo
|
||||
ExplicitWidth = 1316
|
||||
ExplicitHeight = 248
|
||||
Height = 248
|
||||
ExplicitHeight = 249
|
||||
Height = 249
|
||||
Width = 1316
|
||||
end
|
||||
end
|
||||
@ -428,7 +445,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1320
|
||||
Height = 293
|
||||
Height = 294
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -439,17 +456,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 293
|
||||
ExplicitHeight = 294
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 1320
|
||||
ExplicitWidth = 1320
|
||||
end
|
||||
inherited ListView1: TListView
|
||||
Width = 1320
|
||||
Height = 267
|
||||
ExplicitTop = 26
|
||||
Height = 269
|
||||
ExplicitTop = 25
|
||||
ExplicitWidth = 1320
|
||||
ExplicitHeight = 267
|
||||
ExplicitHeight = 269
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Left = 8
|
||||
@ -460,7 +477,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
||||
end
|
||||
inherited PnlComentario: TPanel
|
||||
Width = 1334
|
||||
ExplicitTop = 79
|
||||
ExplicitWidth = 1334
|
||||
inherited lbComentario: TLabel
|
||||
Width = 1324
|
||||
|
||||
@ -263,6 +263,18 @@ begin
|
||||
if not Assigned(Contrato) then
|
||||
raise Exception.Create('No hay ningún Contrato asignado');
|
||||
|
||||
//El usuario GERENCIA)
|
||||
if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_GERENCIA)
|
||||
or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) then
|
||||
begin
|
||||
lblDesbloquear.Visible := True;
|
||||
|
||||
if Self.ReadOnly then
|
||||
lblDesbloquear.Enabled := True
|
||||
else
|
||||
lblDesbloquear.Enabled := False;
|
||||
end;
|
||||
|
||||
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
|
||||
|
||||
//PRECIO_PUNTO EVENTOS
|
||||
|
||||
@ -1,14 +1,6 @@
|
||||
inherited fEditorElegirArticulosContratoCliente: TfEditorElegirArticulosContratoCliente
|
||||
Caption = 'fEditorElegirArticulosContratoCliente'
|
||||
ExplicitWidth = 320
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited pnlHeader: TPanel
|
||||
inherited lblTitle: TLabel
|
||||
Width = 606
|
||||
end
|
||||
inherited lblComments: TLabel
|
||||
Width = 581
|
||||
Height = 27
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -813,8 +813,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
SQL =
|
||||
'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_PROVE' +
|
||||
'EDOR, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SU' +
|
||||
'M(BASE_IMPONIBLE) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_PROVE' +
|
||||
'EDOR'#10'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10
|
||||
'M(IMPORTE_TOTAL) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_PROVEE' +
|
||||
'DOR'#10'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -909,8 +909,8 @@ object RptFacturasCliente: TRptFacturasCliente
|
||||
SQL =
|
||||
'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_CLIEN' +
|
||||
'TE, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SUM(' +
|
||||
'BASE_IMPONIBLE) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_CLIENTE' +
|
||||
#10'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10
|
||||
'IMPORTE_TOTAL) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_CLIENTE'#10 +
|
||||
'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
|
||||
@ -60,8 +60,8 @@ type
|
||||
frxDBInforme347FacturasProveedor: TfrxDBDataset;
|
||||
DADSInforme347FacturasProveedor: TDADataSource;
|
||||
tbl_Informe347FacturasProveedor: TDAMemDataTable;
|
||||
schReport: TDASchema;
|
||||
frxPDFExport1: TfrxPDFExport;
|
||||
schReport: TDASchema;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
procedure DataModuleDestroy(Sender: TObject);
|
||||
private
|
||||
|
||||
Binary file not shown.
@ -28,7 +28,13 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">6</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">4.7.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 16 de octubre de 2024 15:49</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">8</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">4.7.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.7.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 11 de diciembre de 2024 17:56</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user