AcotaCocinas/AlonsoYSal_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Subida a produccion

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@19 40301925-124e-1c4e-b97d-170ad7a8785b
This commit is contained in:
roberto 2020-02-10 10:32:15 +00:00
parent 368730858e
commit 157a316315
225 changed files with 2046 additions and 2141 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

BIN
Resources/LOGO ALONSO Y SAL.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 29 KiB

2
Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm
View File

@ -66,7 +66,9 @@ object PluginEjercicios: TPluginEjercicios
object actEjercicios: TAction
Category = 'Ejercicios'
Caption = 'Ejercicios'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actEjerciciosExecute
end
end

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -701,8 +701,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
object Contabilidad1: TMenuItem
Tag = 6000
Action = actMenuContabilidad
Enabled = False
Visible = False
end
object Informes1: TMenuItem
Tag = 7000

4
Source/Cliente/uPantallaPrincipal.pas
View File

@ -196,12 +196,14 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_LOGISTICA) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR)) then
begin
Informes1.Enabled := False;
Informes1.Visible := False;
Contabilidad1.Enabled := False;
Contabilidad1.Visible := False;
Compras1.Enabled := False;
Compras1.Visible := False;
Informacindeempresa1.Visible := False;
end;

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Servidor\Base.dcp" />
<DCCReference Include="..\Servidor\ccpackD11.dcp" />
<DCCReference Include="..\Servidor\cxDataD11.dcp" />
<DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
<DCCReference Include="..\Servidor\cxExportD11.dcp" />
<DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Servidor\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Servidor\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\Servidor\frx11.dcp" />
<DCCReference Include="..\Servidor\frxe11.dcp" />
<DCCReference Include="..\Servidor\fs11.dcp" />
<DCCReference Include="..\Servidor\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Servidor\JvGlobusD11R.dcp" />
<DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
<DCCReference Include="..\Servidor\PNG_D10.dcp" />
<DCCReference Include="..\Servidor\rtl.dcp" />
<DCCReference Include="..\Servidor\tb2k_d10.dcp" />
<DCCReference Include="..\Servidor\tbx_d10.dcp" />
<DCCReference Include="..\Servidor\vcl.dcp" />
<DCCReference Include="..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\Servidor\vcldb.dcp" />
<DCCReference Include="..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\Servidor\vclx.dcp" />
<DCCReference Include="..\..\Resources\Base.dcp" />
<DCCReference Include="..\..\Resources\ccpackD11.dcp" />
<DCCReference Include="..\..\Resources\cxDataD11.dcp" />
<DCCReference Include="..\..\Resources\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Resources\cxExportD11.dcp" />
<DCCReference Include="..\..\Resources\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Resources\dbrtl.dcp" />
<DCCReference Include="..\..\Resources\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Resources\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Resources\dxPScxCommonD11.dcp" />
<DCCReference Include="..\..\Resources\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\..\Resources\dxThemeD11.dcp" />
<DCCReference Include="..\..\Resources\frx11.dcp" />
<DCCReference Include="..\..\Resources\frxe11.dcp" />
<DCCReference Include="..\..\Resources\fs11.dcp" />
<DCCReference Include="..\..\Resources\JvAppFrmD11R.dcp" />
<DCCReference Include="..\..\Resources\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Resources\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Resources\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Resources\PNG_D10.dcp" />
<DCCReference Include="..\..\Resources\rtl.dcp" />
<DCCReference Include="..\..\Resources\tb2k_d10.dcp" />
<DCCReference Include="..\..\Resources\tbx_d10.dcp" />
<DCCReference Include="..\..\Resources\vcl.dcp" />
<DCCReference Include="..\..\Resources\vclactnband.dcp" />
<DCCReference Include="..\..\Resources\vcldb.dcp" />
<DCCReference Include="..\..\Resources\vcljpg.dcp" />
<DCCReference Include="..\..\Resources\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

102
Source/GUIBase/uViewTotales.dfm
View File

@ -1,14 +1,14 @@
inherited frViewTotales: TfrViewTotales
Width = 935
Height = 266
Width = 1064
Height = 206
Align = alBottom
ExplicitWidth = 935
ExplicitHeight = 266
ExplicitWidth = 1063
ExplicitHeight = 206
object dxLayoutControl1: TdxLayoutControl
AlignWithMargins = True
Left = 0
Top = 0
Width = 935
Width = 1064
Height = 217
Margins.Left = 0
Margins.Top = 0
@ -21,14 +21,14 @@ inherited frViewTotales: TfrViewTotales
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
object Bevel3: TBevel
Left = 534
Left = 520
Top = 28
Width = 3
Height = 122
Shape = bsRightLine
end
object Bevel4: TBevel
Left = 646
Left = 632
Top = 70
Width = 210
Height = 9
@ -36,7 +36,7 @@ inherited frViewTotales: TfrViewTotales
end
object ImporteDto: TcxDBCurrencyEdit
Left = 175
Top = 82
Top = 55
AutoSize = False
DataBinding.DataField = 'IMPORTE_DESCUENTO'
DataBinding.DataSource = DADataSource
@ -61,12 +61,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
TabOrder = 2
Height = 21
Width = 93
end
object ImporteIVA: TcxDBCurrencyEdit
Left = 717
Left = 703
Top = 105
AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA'
@ -92,12 +92,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
TabOrder = 9
Height = 21
Width = 137
end
object ImporteTotal: TcxDBCurrencyEdit
Left = 647
Left = 633
Top = 159
AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL'
@ -124,13 +124,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13
TabOrder = 12
Height = 21
Width = 137
end
object edtDescuento: TcxDBSpinEdit
Left = 104
Top = 82
Top = 55
AutoSize = False
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = DADataSource
@ -154,12 +154,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
TabOrder = 1
Height = 21
Width = 65
end
object edtIVA: TcxDBSpinEdit
Left = 646
Left = 632
Top = 105
AutoSize = False
DataBinding.DataField = 'IVA'
@ -191,12 +191,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
TabOrder = 8
Height = 21
Width = 65
end
object ImporteBase: TcxDBCurrencyEdit
Left = 646
Left = 632
Top = 28
AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE'
@ -221,12 +221,12 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
TabOrder = 7
Height = 21
Width = 92
end
object edtRE: TcxDBSpinEdit
Left = 646
Left = 632
Top = 132
AutoSize = False
DataBinding.DataField = 'RE'
@ -258,12 +258,12 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
TabOrder = 10
Height = 21
Width = 65
end
object ImporteRE: TcxDBCurrencyEdit
Left = 717
Left = 703
Top = 132
AutoSize = False
DataBinding.DataField = 'IMPORTE_RE'
@ -289,13 +289,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
TabOrder = 11
Height = 21
Width = 56
end
object eImporteNeto: TcxDBCurrencyEdit
Left = 104
Top = 55
Top = 28
AutoSize = False
DataBinding.DataField = 'IMPORTE_NETO'
DataBinding.DataSource = DADataSource
@ -320,13 +320,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
TabOrder = 0
Height = 21
Width = 147
end
object ePorte: TcxDBCurrencyEdit
Left = 104
Top = 109
Top = 82
AutoSize = False
DataBinding.DataField = 'IMPORTE_PORTE'
DataBinding.DataSource = DADataSource
@ -350,13 +350,13 @@ inherited frViewTotales: TfrViewTotales
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 3
Height = 21
Width = 147
end
object eIVA: TcxDBLookupComboBox
Left = 104
Top = 136
Top = 109
DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@ -383,20 +383,20 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 4
Width = 81
end
object bTiposIVA: TButton
Left = 386
Top = 136
Left = 372
Top = 109
Width = 132
Height = 21
Caption = 'Ver los tipos de IVA...'
TabOrder = 6
TabOrder = 5
end
object cbRecargoEquivalencia: TcxDBCheckBox
Left = 104
Top = 163
Top = 136
Caption = 'Aplicar recargo de equivalencia'
DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
DataBinding.DataSource = DADataSource
@ -417,37 +417,9 @@ inherited frViewTotales: TfrViewTotales
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
TabOrder = 6
Width = 219
end
object eImporteDetalleResumen: TcxDBCurrencyEdit
Left = 104
Top = 28
AutoSize = False
ParentFont = False
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
Properties.UseLeftAlignmentOnEditing = False
Properties.UseThousandSeparator = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -11
Style.Font.Name = 'Tahoma'
Style.Font.Style = [fsBold]
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.TextColor = clWindowText
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 21
Width = 342
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -461,12 +433,6 @@ inherited frViewTotales: TfrViewTotales
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Item10: TdxLayoutItem
Caption = 'ImporteNeto:'
Visible = False
Control = eImporteDetalleResumen
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient

2
Source/GUIBase/uViewTotales.pas
View File

@ -59,8 +59,6 @@ type
cbRecargoEquivalencia: TcxDBCheckBox;
dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Item10: TdxLayoutItem;
eImporteDetalleResumen: TcxDBCurrencyEdit;
public
{ Public declarations }
end;

46
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

63
Source/Informes/1/InfComision.fr3
View File

@ -1,63 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39589,7948251157" ReportOptions.Description.Text="" ReportOptions.LastChange="39590,5636514352" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10; &#13;&#10;procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if not Engine.FinalPass then&#13;&#10; Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10; if Engine.FinalPass then&#13;&#10; Set('Pagina', (&#60;Pagina&#62; + 1));&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Header1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; ColumnHeader1.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3600000020446174615365743D226672784442446574616C6C6573312220446174615365744E616D653D226672784442446574616C6C6573312200010C3600000020446174615365743D226672784442446574616C6C6573322220446174615365744E616D653D226672784442446574616C6C657332220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E6173220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="28" Left="0" Top="312" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles1" DataSetName="frxDBDetalles1" RowCount="0" Stretched="True">
<TfrxMemoView Name="Memo14" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo29" Left="4" Top="3" Width="104" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo30" Left="615" Top="3" Width="100" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo2" Left="117" Top="3" Width="84" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo3" Left="213" Top="3" Width="388" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles1.&#34;NOMBRE&#34;]"/>
<TfrxLineView Name="LineaCorta0" Left="110" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line1" Left="204" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line2" Left="610" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Height="20" Left="0" Top="688" Width="718,1107">
<TfrxMemoView Name="Memo1" Left="642,5201" Top="0" Width="75,5906" Height="18,89765" HAlign="haRight" Text="[Page#]"/>
</TfrxPageFooter>
<TfrxPageHeader Name="PageHeader1" Height="176" Left="0" Top="16" Width="718,1107" OnBeforePrint="PageHeader1OnBeforePrint">
<TfrxMemoView Name="Memo15" Left="348" Top="4" Width="366,39394" Height="28,25201" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="11053757" Font.Height="-27" Font.Name="Tahoma" Font.Style="1" Frame.Color="14211288" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisiones de vendedores"/>
<TfrxMemoView Name="Memo5" Left="88" Top="46" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo18" Left="14" Top="11" Width="68,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Empresa:"/>
<TfrxMemoView Name="Memo7" Left="81,25201" Top="11" Width="253,63791" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="Empresa"/>
<TfrxMemoView Name="Memo6" Left="12" Top="46" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Referencia:"/>
<TfrxMemoView Name="Memo9" Left="12" Top="104" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Página nº:"/>
<TfrxMemoView Name="Memo10" Left="88,25201" Top="104" Width="181,63791" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[&#60;Pagina&#62;] / [&#60;TotalPaginas&#62;]"/>
<TfrxMemoView Name="Memo8" Left="88" Top="66" Width="200" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA&#34;]"/>
<TfrxMemoView Name="Memo11" Left="12" Top="66" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Fecha:"/>
<TfrxMemoView Name="Memo12" Left="88" Top="84" Width="628" Height="20" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBCabecera.&#34;DESCRIPCION&#34;]"/>
<TfrxMemoView Name="Memo13" Left="12" Top="84" Width="76,47248" Height="18,89765" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Descripción:"/>
<TfrxMemoView Name="Memo27" Left="0" Top="138,92981" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Facturas asociadas a la liquidación "/>
</TfrxPageHeader>
<TfrxGroupHeader Name="GroupHeader2" Height="0" Left="0" Top="292" Width="718,1107" Condition="frxDBDetalles1.&#34;ID_COMISION_LIQUIDADA&#34;"/>
<TfrxGroupFooter Name="GroupFooter2" Height="26,45669291" Left="0" Top="360" Width="718,1107">
<TfrxMemoView Name="Memo19" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo20" Left="140" Top="3" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de facturas: [SUM(&#60;frxDBDetalles1.&#34;BASE_IMPONIBLE&#34;&#62;,MasterData1)]"/>
</TfrxGroupFooter>
<TfrxMasterData Name="MasterData2" Height="26,47" Left="0" Top="532" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles2" DataSetName="frxDBDetalles2" RowCount="0">
<TfrxMemoView Name="Memo34" Left="0" Top="0" Width="718,15" Height="26,45669291" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo4" Left="4" Top="5" Width="476" Height="16" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[frxDBDetalles2.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo24" Left="505" Top="4" Width="60" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;COMISION&#34;]"/>
<TfrxMemoView Name="Memo25" Left="588" Top="4" Width="128" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxLineView Name="Line3" Left="486" Top="0" Width="0" Height="26" Frame.Typ="1"/>
<TfrxLineView Name="Line4" Left="580" Top="0" Width="0" Height="26" Frame.Typ="1"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader3" Height="0" Left="0" Top="512" Width="718,1107" Condition="frxDBDetalles2.&#34;ID_COMISION&#34;"/>
<TfrxGroupFooter Name="GroupFooter3" Height="48" Left="0" Top="580" Width="718,1107">
<TfrxMemoView Name="Memo26" Left="0" Top="0" Width="719" Height="26,45669291" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxMemoView Name="Memo31" Left="140" Top="4" Width="576" Height="16" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 € " DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="Importe total de comisiones: [SUM(&#60;frxDBDetalles2.&#34;IMPORTE_TOTAL&#34;&#62;,MasterData2)]"/>
</TfrxGroupFooter>
<TfrxColumnHeader Name="ColumnHeader1" Height="20" Left="0" Top="212" Width="718,1107">
<TfrxMemoView Name="Memo28" Align="baBottom" Left="0" Top="0" Width="110,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Ref. factura"/>
<TfrxMemoView Name="Memo17" Align="baBottom" Left="610" Top="0" Width="108" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo16" Align="baBottom" Left="110" Top="0" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
<TfrxMemoView Name="Memo33" Align="baBottom" Left="204" Top="0" Width="406,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Razón social"/>
</TfrxColumnHeader>
<TfrxHeader Name="Header1" Height="84" Left="0" Top="408" Width="718,1107" OnBeforePrint="Header1OnBeforePrint">
<TfrxMemoView Name="Memo21" Align="baBottom" Left="0" Top="64" Width="486,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Vendedor"/>
<TfrxMemoView Name="Memo22" Align="baBottom" Left="486" Top="64" Width="94,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Comisión"/>
<TfrxMemoView Name="Memo23" Align="baBottom" Left="580" Top="64" Width="138,15" Height="20" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo32" Left="0" Top="30" Width="714,15" Height="32" DisplayFormat.DecimalSeparator="," Font.Charset="0" Font.Color="1310975" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" ParentFont="False" VAlign="vaCenter" Text="Vendedores asociados a la liquidación "/>
</TfrxHeader>
</TfrxReportPage>
</TfrxReport>

41
Source/Informes/1/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

124
Source/Informes/1/InfFacturaCliente.fr3
View File

File diff suppressed because one or more lines are too long

96
Source/Informes/1/InfReciboCliente.fr3
View File

File diff suppressed because one or more lines are too long

87
Source/Informes/1/InformeIVAClientes.fr3
View File

File diff suppressed because one or more lines are too long

84
Source/Informes/1/InformeIVAClientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

69
Source/Informes/1/InformeIVAProveedores.fr3
View File

File diff suppressed because one or more lines are too long

73
Source/Informes/1/InformeIVAProveedoresDesglosado.fr3
View File

@ -1,73 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.8.11" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42143,6524281134" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10; begin&#13;&#10; if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10; begin &#13;&#10; mContinua.Visible := False;&#13;&#10; end &#13;&#10; else&#13;&#10; begin &#13;&#10; mContinua.Visible := True;&#13;&#10; end &#13;&#10; end; &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403A90003546F70021008446174617365747301010C5000000020446174615365743D226672784442496E666F726D654C69737461646F46616374757261732220446174615365744E616D653D226672784442496E666F726D654C69737461646F46616374757261732200010C5E00000020446174615365743D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E2220446174615365744E616D653D226672784442496E666F726D654C69737461646F4661637475726173526573756D656E220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="14,9992291666667" RightMargin="14,9992291666667" TopMargin="14,9992291666667" BottomMargin="19,9998541666667" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,14033677542" OnBeforePrint="Band1OnBeforePrint">
<TfrxShapeView Name="Shape5" Left="464,24428" Top="37,10235" Width="544" Height="99" ShowHint="False" Shape="skRoundRectangle"/>
<TfrxMemoView Name="NombreCliente" Left="468,54329" Top="44,10235" Width="532,45671" Height="23" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO DE IVA DE FACTURAS DE PROVEEDOR"/>
<TfrxMemoView Name="Memo3" Left="469" Top="69,10235" Width="531" Height="61" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
<TfrxMemoView Name="Memo22" Left="12" Top="71" Width="265" Height="63" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" ParentFont="False" VAlign="vaBottom" Text="Aliso Design S.L. B86913910&#13;&#10;C/ La Fundición, 27. Pol. Santa Ana&#13;&#10;Rivas Vaciamadrid 28522 Madrid&#13;&#10;tel. 91 301 65 57 / fax. 91 301 65 58&#13;&#10;info@acanainteriorismo.com - www.acanainteriorismo.com"/>
<TfrxPictureView Name="Picture1" Left="12" Top="0" Width="264" Height="67" ShowHint="False" HightQuality="False"/>
</TfrxPageHeader>
<TfrxPageFooter Name="" Height="23,77953" Left="0" Top="668" Width="1009,14033677542" PrintOnLastPage="False">
<TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>
</TfrxPageFooter>
<TfrxGroupHeader Name="" Height="40" Left="0" Restrictions="2" Top="256" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;NOMBRE&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo1" Left="7,55906" Top="3,77953" Width="485,37013" Height="18,89764024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo27" Left="0" Top="25" Width="115,23624" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Nº factura"/>
<TfrxMemoView Name="Memo28" Left="113,45671" Top="25" Width="417" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo49" Left="530,67716535" Top="25" Width="101,33859" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="NIF/CIF"/>
<TfrxMemoView Name="Memo50" Left="724" Top="25" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo51" Left="818,57483" Top="25" Width="95,24409449" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo52" Left="913,88976378" Top="25" Width="94,48818898" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo8" Left="632" Top="25" Width="92,67718" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Fecha"/>
</TfrxGroupHeader>
<TfrxMasterData Name="DatosMaestros1" Height="17,007874015748" Left="0" Top="316" Width="1009,14033677542" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="frxDBInformeListadoFacturas" DataSetName="frxDBInformeListadoFacturas" RowCount="0">
<TfrxMemoView Name="Memo18" Left="0" Top="0" Width="113,41369" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;REFERENCIA_PROVEEDOR&#34;]"/>
<TfrxMemoView Name="Memo4" Left="113,46" Top="0" Width="417" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo20" Left="530,68" Top="0" Width="101,25984252" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo21" Left="631,93700787" Top="0" Width="92,5984252" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text=" [frxDBInformeListadoFacturas.&#34;FECHA_FACTURA&#34;]"/>
<TfrxMemoView Name="Memo29" Left="724,53543307" Top="0" Width="94,48818898" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo30" Left="818,64566929" Top="0" Width="95,24409449" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo31" Left="913,86501" Top="0" Width="94,64276" Height="17,007874015748" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;]"/>
</TfrxMasterData>
<TfrxGroupFooter Name="" Height="20,78740402" Left="0" Top="352" Width="1009,14033677542">
<TfrxMemoView Name="Memo6" Left="914,11812" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo14" Left="816,22936" Top="0,37774772" Width="97,51181102" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo15" Left="724,35436" Top="0,37774772" Width="94,48818898" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturas.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros1)]"/>
<TfrxMemoView Name="Memo53" Left="0" Top="0,37774772" Width="724,57139" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES [frxDBInformeListadoFacturas.&#34;TITULO&#34;]:"/>
</TfrxGroupFooter>
<TfrxMemoView Name="Memo2" Align="baRight" Left="938,140336775416" Top="651" Width="71" Height="13" OnBeforePrint="Memo2OnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-9" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text=""/>
<TfrxGroupHeader Name="GroupHeader1" Height="22,67718" Left="0" Top="212" Width="1009,14033677542" Condition="frxDBInformeListadoFacturas.&#34;MES&#34;">
<TfrxMemoView Name="Memo7" Left="1,77953" Top="2,77953" Width="485,37013" Height="15,1181102362205" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="[frxDBInformeListadoFacturas.&#34;TITULO&#34;]"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter1" Height="22,67718" Left="0" Top="392" Width="1009,14033677542"/>
<TfrxHeader Name="Header1" Height="50" Left="0" Top="436" Width="1009,14033677542">
<TfrxMemoView Name="Memo23" Left="0" Top="31" Width="485,37013" Height="15,11811024" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Color="8421504" ParentFont="False" Text="Resumen por proveedor"/>
</TfrxHeader>
<TfrxMasterData Name="DAtosMaestros2" Height="17" Left="0" Top="548" Width="1009,14033677542" ColumnWidth="0" ColumnGap="0" DataSet="frxDBInformeListadoFacturasResumen" DataSetName="frxDBInformeListadoFacturasResumen" RowCount="0">
<TfrxMemoView Name="Memo24" Left="190" Top="0" Width="250" Height="17,00787402" ShowHint="False" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NOMBRE&#34;]"/>
<TfrxMemoView Name="Memo37" Left="0" Top="0" Width="100" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;REFERENCIA&#34;]"/>
<TfrxMemoView Name="Memo38" Left="100" Top="0" Width="90" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;NIF_CIF&#34;]"/>
<TfrxMemoView Name="Memo25" Left="640" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;]"/>
<TfrxMemoView Name="Memo26" Left="735" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;]"/>
<TfrxMemoView Name="Memo32" Left="830" Top="0" Width="95" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" HAlign="haRight" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Memo39" Left="440" Top="0" Width="200" Height="17,00787402" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" ParentFont="False" Text="[frxDBInformeListadoFacturasResumen.&#34;POBLACION&#34;]"/>
</TfrxMasterData>
<TfrxGroupHeader Name="GroupHeader2" Height="25" Left="0" Top="504" Width="1009,14033677542" Condition="frxDBInformeListadoFacturasResumen.&#34;ID_EMPRESA&#34;" ReprintOnNewPage="True">
<TfrxMemoView Name="Memo13" Left="190" Top="10" Width="250" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Proveedor"/>
<TfrxMemoView Name="Memo16" Left="640" Top="10" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
<TfrxMemoView Name="Memo17" Left="735" Top="10" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe IVA"/>
<TfrxMemoView Name="Memo19" Left="830" Top="10" Width="95" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Importe total"/>
<TfrxMemoView Name="Memo34" Left="0" Top="10" Width="100" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Referencia prov."/>
<TfrxMemoView Name="Memo35" Left="100" Top="10" Width="90" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="CIF"/>
<TfrxMemoView Name="Memo36" Left="440" Top="10" Width="200" Height="15" ShowHint="False" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="Población"/>
</TfrxGroupHeader>
<TfrxGroupFooter Name="GroupFooter2" Height="25" Left="0" Top="584" Width="1009,14033677542">
<TfrxMemoView Name="Memo10" Align="baLeft" Left="0" Top="0" Width="639,63" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="13" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="TOTALES:"/>
<TfrxMemoView Name="Memo11" Left="829,63" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_TOTAL&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo12" Left="734,63" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;IMPORTE_IVA&#34;&#62;,DatosMaestros2)]"/>
<TfrxMemoView Name="Memo33" Left="639,63" Top="0" Width="95" Height="16" ShowHint="False" StretchMode="smMaxHeight" Color="14672103" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="1310975" Font.Height="-11" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="[SUM(&#60;frxDBInformeListadoFacturasResumen.&#34;BASE_IMPONIBLE&#34;&#62;,DatosMaestros2)]"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>

69
Source/Informes/1/InformeListadoFacturasCliente.fr3
View File

File diff suppressed because one or more lines are too long

77
Source/Informes/1/InformeListadoFacturasClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

64
Source/Informes/1/InformeListadoFacturasClientePendientes.fr3
View File

File diff suppressed because one or more lines are too long

68
Source/Informes/1/InformeListadoFacturasClientePendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

71
Source/Informes/1/InformeListadoFacturasProveedor.fr3
View File

File diff suppressed because one or more lines are too long

75
Source/Informes/1/InformeListadoFacturasProveedorDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

66
Source/Informes/1/InformeListadoFacturasProveedorPendientes.fr3
View File

File diff suppressed because one or more lines are too long

70
Source/Informes/1/InformeListadoFacturasProveedorPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

40
Source/Informes/1/InformeListadoRecibosCliPendientes.fr3
View File

File diff suppressed because one or more lines are too long

44
Source/Informes/1/InformeListadoRecibosCliPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

40
Source/Informes/1/InformeListadoRecibosCliente.fr3
View File

File diff suppressed because one or more lines are too long

44
Source/Informes/1/InformeListadoRecibosClienteDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

40
Source/Informes/1/InformeListadoRecibosProvPendientes.fr3
View File

File diff suppressed because one or more lines are too long

44
Source/Informes/1/InformeListadoRecibosProvPendientesDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

40
Source/Informes/1/InformeListadoRecibosProveedor.fr3
View File

File diff suppressed because one or more lines are too long

44
Source/Informes/1/InformeListadoRecibosProveedorDesglosado.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Lib/ApplicationBase.dcp
View File

Binary file not shown.

BIN
Source/Lib/Base.dcp
View File

Binary file not shown.

BIN
Source/Lib/GUIBase.dcp
View File

Binary file not shown.

28
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo
Width = 451
Height = 304
Width = 1010
Height = 444
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -10,18 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl
Left = 0
Top = 0
Width = 451
Width = 1010
Height = 393
Align = alTop
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth]
ExplicitWidth = 451
DesignSize = (
451
1010
393)
object PngSpeedButton2: TPngSpeedButton
Left = 546
Left = 965
Top = 28
Width = 23
Height = 22
@ -48,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton1: TPngSpeedButton
Left = 546
Left = 965
Top = 56
Width = 23
Height = 22
@ -121,7 +122,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 144
end
object eImagen: TcxImage
Left = 409
Left = 691
Top = 28
Properties.GraphicClassName = 'TJPEGImage'
Properties.PopupMenuLayout.MenuItems = []
@ -167,7 +168,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 70
end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 219
Left = 638
Top = 166
Width = 350
Height = 202
@ -179,7 +180,7 @@ inherited frViewArticulo: TfrViewArticulo
ParentFont = False
TabOrder = 12
ReadOnly = False
ExplicitLeft = 219
ExplicitLeft = 638
ExplicitTop = 166
inherited dxLayoutControl1: TdxLayoutControl
inherited edtNIFCIF: TcxDBTextEdit
@ -206,6 +207,7 @@ inherited frViewArticulo: TfrViewArticulo
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = 14745599
@ -222,6 +224,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 193
DataBinding.DataField = 'PRECIO_COSTE'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -242,6 +245,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 220
DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000
@ -290,6 +294,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 274
DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -306,7 +311,7 @@ inherited frViewArticulo: TfrViewArticulo
Width = 86
end
object cbNoInventariable: TcxDBCheckBox
Left = 242
Left = 414
Top = 109
Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE'
@ -334,6 +339,7 @@ inherited frViewArticulo: TfrViewArticulo
Top = 301
DataBinding.DataField = 'PRECIO_PVP'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Properties.Alignment.Horz = taRightJustify
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@ -459,6 +465,8 @@ inherited frViewArticulo: TfrViewArticulo
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Datos del proveedor para el art'#237'culo'
Enabled = False
Visible = False
object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:'
Visible = False

2
Source/Modulos/Comisiones/Plugin/uPluginComisiones.pas
View File

@ -64,7 +64,7 @@ begin
uComisionesViewRegister.RegisterViews;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_LOGISTICA) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR)) then
actComisiones.Visible := False;
end;

4
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
View File

@ -613,7 +613,9 @@ object PluginContabilidad: TPluginContabilidad
object actEpigrafes: TAction
Category = 'Contabilidad'
Caption = 'Epigrafes'
Enabled = False
ImageIndex = 3
Visible = False
OnExecute = actEpigrafesExecute
OnUpdate = actEpigrafesUpdate
end
@ -652,7 +654,9 @@ object PluginContabilidad: TPluginContabilidad
object actDiario: TAction
Category = 'Contabilidad'
Caption = 'Libro de diario'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actDiarioExecute
OnUpdate = actDiarioUpdate
end

13
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas
View File

@ -184,11 +184,18 @@ begin
inherited;
uContabilidadViewRegister.RegisterViews;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
//Solo lo verá el perfil Administrador
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PERFIL_ADMINISTRADOR) then
begin
actSubCuentas.Visible := False;
actCuentas.Visible := False;
end;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_LOGISTICA) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR)) then
begin
actCuentasEspeciales.Visible := False;
actBalances.Visible := False;
actBalances.Visible := False;
end;
end;

BIN
Source/Modulos/Contabilidad/Views/Contabilidad_view.res
View File

Binary file not shown.

27
Source/Modulos/Contabilidad/Views/uEditorApunte.dfm
View File

@ -94,6 +94,14 @@ inherited fEditorApunte: TfEditorApunte
end
end
end
inherited StatusBar: TJvStatusBar
Width = 632
Panels = <
item
Width = 200
end>
ExplicitWidth = 632
end
inherited pgPaginas: TPageControl
Width = 626
ExplicitWidth = 626
@ -103,28 +111,25 @@ inherited fEditorApunte: TfEditorApunte
ExplicitWidth = 618
end
end
inherited StatusBar: TJvStatusBar
inherited PnlComentario: TPanel
Width = 632
Panels = <
item
Width = 200
end>
ExplicitWidth = 632
inherited lbComentario: TLabel
Width = 622
Height = 25
end
end
inherited EditorActionList: TActionList
Top = 128
end
inherited SmallImages: TPngImageList
Top = 112
end
inherited dsDataTable: TDADataSource [6]
Left = 168
Top = 120
end
inherited LargeImages: TPngImageList [7]
inherited LargeImages: TPngImageList
Top = 112
end
inherited JvFormStorage: TJvFormStorage [8]
inherited SmallImages: TPngImageList [9]
Top = 112
end
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
Left = 320

58
Source/Modulos/Contabilidad/Views/uEditorAsiento.dfm
View File

@ -97,30 +97,39 @@ inherited fEditorAsiento: TfEditorAsiento
end
end
end
inherited StatusBar: TJvStatusBar
Top = 576
Width = 869
Panels = <
item
Width = 200
end>
ExplicitTop = 576
ExplicitWidth = 869
end
inherited pgPaginas: TPageControl
Width = 863
Height = 494
ExplicitLeft = 3
ExplicitTop = 79
Height = 464
ExplicitTop = 109
ExplicitWidth = 863
ExplicitHeight = 494
ExplicitHeight = 464
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 855
ExplicitHeight = 466
ExplicitHeight = 436
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 855
Height = 466
Height = 436
Align = alClient
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
855
466)
436)
object edtOrden: TcxDBSpinEdit
Left = 293
Top = 10
@ -224,20 +233,6 @@ inherited fEditorAsiento: TfEditorAsiento
end>
end
end
inherited ToolBar1: TToolBar
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@ -277,30 +272,25 @@ inherited fEditorAsiento: TfEditorAsiento
end
end
end
inherited StatusBar: TJvStatusBar
Top = 576
inherited PnlComentario: TPanel
Width = 869
Panels = <
item
Width = 200
end>
ExplicitTop = 576
ExplicitWidth = 869
inherited lbComentario: TLabel
Width = 859
Height = 25
end
end
inherited EditorActionList: TActionList
Top = 128
end
inherited SmallImages: TPngImageList
Top = 112
end
inherited dsDataTable: TDADataSource [6]
Left = 16
Top = 168
end
inherited LargeImages: TPngImageList [7]
inherited LargeImages: TPngImageList
Top = 112
end
inherited JvFormStorage: TJvFormStorage [8]
inherited SmallImages: TPngImageList [9]
Top = 112
end
inherited StatusBarImages: TPngImageList
Left = 24

39
Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
View File

@ -2,13 +2,15 @@ inherited fEditorDiario: TfEditorDiario
Left = 489
Top = 325
Caption = 'Libro de diario'
ExplicitWidth = 320
ExplicitHeight = 240
ClientWidth = 572
ExplicitWidth = 580
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 572
Caption = 'Libro de diario'
inherited Image1: TImage
Left = 545
Picture.Data = {
0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
@ -33,6 +35,10 @@ inherited fEditorDiario: TfEditorDiario
end
end
inherited TBXDock: TTBXDock
Width = 572
inherited tbxMain: TTBXToolbar
ExplicitWidth = 572
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem
@ -42,22 +48,27 @@ inherited fEditorDiario: TfEditorDiario
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 572
end
inherited TBXTMain2: TTBXToolbar
Left = 275
DockPos = 275
Visible = True
ExplicitLeft = 275
ExplicitWidth = 176
object TBXItem38: TTBXItem
Action = actPuntear
DisplayMode = nbdmImageAndText
end
end
end
inherited StatusBar: TJvStatusBar
Width = 572
end
inline frViewDiario1: TfrViewDiario [3]
Left = 0
Top = 102
Width = 543
Width = 572
Height = 323
Align = alClient
Font.Charset = DEFAULT_CHARSET
@ -72,7 +83,7 @@ inherited fEditorDiario: TfEditorDiario
ExplicitWidth = 543
ExplicitHeight = 323
inherited cxGrid: TcxGrid
Width = 543
Width = 572
Height = 195
ExplicitWidth = 543
ExplicitHeight = 195
@ -102,12 +113,12 @@ inherited fEditorDiario: TfEditorDiario
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 543
Width = 572
ExplicitWidth = 543
inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 543
inherited dxLayoutControl1: TdxLayoutControl
Width = 543
Width = 572
ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
@ -126,21 +137,21 @@ inherited fEditorDiario: TfEditorDiario
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 337
Left = 355
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337
ExplicitLeft = 355
ExplicitWidth = 121
Width = 121
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 543
Width = 572
ExplicitWidth = 543
inherited tbxBotones: TTBXToolbar
Width = 533
Width = 562
ExplicitWidth = 533
end
end
@ -151,10 +162,10 @@ inherited fEditorDiario: TfEditorDiario
ExplicitTop = 297
ExplicitWidth = 543
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 543
Width = 572
ExplicitWidth = 543
inherited TBXToolbar1: TTBXToolbar
Width = 533
Width = 562
ExplicitWidth = 533
end
end
@ -191,7 +202,9 @@ inherited fEditorDiario: TfEditorDiario
object actPuntear: TAction
Category = 'OperacionesEspeciales'
Caption = 'Puntear/Despuntear asiento'
Enabled = False
ImageIndex = 24
Visible = False
OnExecute = actPuntearExecute
OnUpdate = actPuntearUpdate
end

41
Source/Modulos/Contabilidad/Views/uEditorElegirSubCuentas.dfm
View File

@ -10,8 +10,7 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas
Width = 851
Caption = 'Lista de subcuentas'
Visible = False
ExplicitLeft = -8
ExplicitTop = -10
ExplicitTop = 64
ExplicitWidth = 851
inherited Image1: TImage
Left = 824
@ -22,6 +21,7 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas
Top = 91
Width = 851
Height = 49
ExplicitTop = 91
ExplicitWidth = 851
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar
@ -113,13 +113,14 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas
Top = 140
Width = 851
Height = 236
ExplicitTop = 140
ExplicitWidth = 851
ExplicitHeight = 274
ExplicitHeight = 236
inherited cxGrid: TcxGrid
Width = 851
Height = 108
ExplicitWidth = 851
ExplicitHeight = 146
ExplicitHeight = 108
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -146,16 +147,24 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas
Width = 851
ExplicitWidth = 851
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 286
ExplicitLeft = 286
Left = 372
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 372
ExplicitWidth = 421
Width = 421
end
@ -172,7 +181,7 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 210
ExplicitTop = 248
ExplicitTop = 210
ExplicitWidth = 851
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 851
@ -211,8 +220,6 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
ExplicitLeft = -8
ExplicitTop = -21
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
@ -251,7 +258,13 @@ inherited fEditorElegirSubCuentas: TfEditorElegirSubCuentas
Left = 112
Top = 192
end
inherited dsDataTable: TDADataSource
inherited JvFormStorage: TJvFormStorage [9]
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end
inherited StatusBarImages: TPngImageList [11]
end
inherited dsDataTable: TDADataSource [12]
Left = 8
Top = 192
end

2
Source/Modulos/Contabilidad/Views/uViewCuentas.pas
View File

@ -14,7 +14,7 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
cxImageComboBox, cxTextEdit;
cxImageComboBox, cxTextEdit, uCustomView, uViewBase;
type
IViewCuentas = interface(IViewGrid)

2
Source/Modulos/Contabilidad/Views/uViewDiario.pas
View File

@ -14,7 +14,7 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
cxImageComboBox, cxTextEdit, cxCurrencyEdit;
cxImageComboBox, cxTextEdit, cxCurrencyEdit, uCustomView, uViewBase;
type
IViewDiario = interface(IViewGrid)

34
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
View File

@ -1,7 +1,13 @@
inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
Width = 950
Height = 639
OnDestroy = CustomViewDestroy
OnShow = CustomViewShow
ExplicitWidth = 950
ExplicitHeight = 639
inherited cxGrid: TcxGrid
Width = 950
Height = 511
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
inherited cxGridView: TcxGridDBTableView
@ -76,18 +82,24 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
object cxGridViewORDEN: TcxGridDBColumn
Caption = 'Orden asiento'
DataBinding.FieldName = 'ORDEN_ASIENTO'
Visible = False
SortIndex = 1
SortOrder = soDescending
VisibleForCustomization = False
end
object cxGridViewREF_SUBCUENTA: TcxGridDBColumn
Caption = 'Ref. subcuenta'
DataBinding.FieldName = 'REF_SUBCUENTA'
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
VisibleForCustomization = False
Width = 304
end
object cxGridViewSUBCUENTA: TcxGridDBColumn
Caption = 'Subcuenta'
DataBinding.FieldName = 'SUBCUENTA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewCONCEPTO: TcxGridDBColumn
Caption = 'Concepto'
@ -98,6 +110,8 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
object cxGridViewDOCUMENTO: TcxGridDBColumn
Caption = 'Documento'
DataBinding.FieldName = 'DOCUMENTO'
Visible = False
VisibleForCustomization = False
end
object cxGridViewDEBE: TcxGridDBColumn
Caption = 'Debe'
@ -124,8 +138,10 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 950
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
Width = 950
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -143,20 +159,32 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
Width = 242
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 346
Left = 585
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 346
ExplicitLeft = 585
ExplicitWidth = 198
Width = 198
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 950
inherited tbxBotones: TTBXToolbar
Width = 940
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 554
Top = 613
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 950
inherited TBXToolbar1: TTBXToolbar
Width = 940
end
end
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink

2
Source/Modulos/Contabilidad/Views/uViewSubCuentas.pas
View File

@ -14,7 +14,7 @@ uses
dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
cxImageComboBox, cxTextEdit, cxCurrencyEdit;
cxImageComboBox, cxTextEdit, cxCurrencyEdit, uCustomView, uViewBase;
type
IViewSubCuentas = interface(IViewGrid)

2
Source/Modulos/Contactos/Plugin/uPluginContactos.pas
View File

@ -145,7 +145,7 @@ begin
uContactosViewRegister.RegisterViews;
//El usuario vendedor y logistica será restringido
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = 5) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = 4)) then
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_LOGISTICA) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR)) then
actVendedores.Visible := False;
end;

6
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -1931,12 +1931,6 @@ inherited fEditorClientes: TfEditorClientes
item
Caption = 'Previsualizar la lista de clientes actual'
Value = 200
end
item
Caption =
'Previsulalizar lista de clientes seleccionados (SOLO DATOS CONTA' +
'CTO)'
Value = 300
end>
ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom

3
Source/Modulos/Contactos/Views/uEditorClientes.pas
View File

@ -199,6 +199,7 @@ begin
if Assigned(AClientes) then
(FController as IClientesController).PreviewInformeEtiquetas(AClientes, AllItems);
end;
{
300 : begin // Elemento Seleccionado
if AllItems then
begin
@ -211,7 +212,7 @@ begin
if Assigned(AClientes) then
(FController as IClientesController).PreviewInformeListaDatosContacto(AClientes, AllItems);
end;
}
end;
end;
end;

2
Source/Modulos/Contactos/Views/uEditorContactos.dfm
View File

@ -2,8 +2,6 @@ inherited fEditorContactos: TfEditorContactos
Left = 285
Top = 448
Caption = 'Lista de contactos'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

44
Source/Modulos/Contactos/Views/uEditorElegirClientes.dfm
View File

@ -23,17 +23,17 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
ExplicitWidth = 683
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar
ExplicitWidth = 378
ExplicitWidth = 266
inherited TBXItem36: TTBXItem
Action = actAnchoAuto2
end
end
inherited tbxFiltro: TTBXToolbar
Left = 378
Left = 266
Top = 23
DockPos = 96
DockRow = 1
ExplicitLeft = 378
ExplicitLeft = 266
ExplicitTop = 23
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
@ -145,9 +145,25 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited dxLayoutControl1: TdxLayoutControl
Width = 663
ExplicitWidth = 663
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 388
ExplicitLeft = 388
Left = 466
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 466
ExplicitWidth = 232
Width = 232
end
@ -250,12 +266,6 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited EditorActionList: TActionList [6]
Left = 112
Top = 192
inherited actNuevo: TAction
Visible = False
end
inherited actModificar: TAction
Visible = False
end
inherited actGuardarCerrar: TAction
Visible = False
end
@ -268,6 +278,14 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actConfPagina: TAction
Visible = False
end
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
inherited actDeshacer: TEditUndo
Visible = False
end
@ -310,6 +328,10 @@ inherited fEditorElegirClientes: TfEditorElegirClientes
inherited actDuplicar: TAction
Visible = False
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
inherited actGruposCliente: TAction
Visible = False
end

2
Source/Modulos/Contactos/Views/uEditorElegirClientes.pas
View File

@ -69,7 +69,7 @@ end;
procedure TfEditorElegirClientes.FormShow(Sender: TObject);
begin
inherited;
EditorActionList.State := asSuspended;
// EditorActionList.State := asSuspended;
frViewClientes1.cxViewGridPopupMenu.PopupMenus.Items[0].HitTypes := [];
end;

61
Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
View File

@ -23,7 +23,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitTop = 91
ExplicitWidth = 656
inherited tbxMain: TTBXToolbar
ExplicitWidth = 387
ExplicitWidth = 266
inherited TBXItem2: TTBXItem
Images = frViewProveedores1.PngImageList
end
@ -32,11 +32,11 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
end
end
inherited tbxFiltro: TTBXToolbar
Left = 387
Left = 266
Top = 23
DockPos = 108
DockRow = 1
ExplicitLeft = 387
ExplicitLeft = 266
ExplicitTop = 23
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
@ -118,7 +118,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ExplicitLeft = 10
ExplicitTop = 112
ExplicitWidth = 636
ExplicitHeight = 180
ExplicitHeight = 116
inherited cxGridView: TcxGridDBTableView
DataController.Summary.FooterSummaryItems = <
item
@ -142,9 +142,31 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited dxLayoutControl1: TdxLayoutControl
Width = 636
ExplicitWidth = 636
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 460
Width = 460
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 207
Width = 207
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 376
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376
ExplicitWidth = 201
Width = 201
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -161,7 +183,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Left = 10
Top = 228
ExplicitLeft = 10
ExplicitTop = 292
ExplicitTop = 228
ExplicitWidth = 636
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 636
@ -204,13 +226,11 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Padding.Bottom = 8
ParentBackground = False
TabOrder = 5
ExplicitLeft = -8
ExplicitTop = -37
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 135
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
@ -224,28 +244,25 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 135
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 3
Height = 13
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited EditorActionList: TActionList [6]
Left = 112
Top = 192
inherited actNuevo: TAction
Visible = False
end
inherited actModificar: TAction
Visible = False
end
inherited actGuardarCerrar: TAction
Visible = False
end
@ -258,6 +275,14 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited actConfPagina: TAction
Visible = False
end
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
inherited actDeshacer: TEditUndo
Visible = False
end
@ -300,6 +325,10 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
inherited actDuplicar: TAction
Visible = False
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList [7]
end

9
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -268,6 +268,7 @@ inherited frViewContacto: TfrViewContacto
Top = 109
DataBinding.DataField = 'FAX'
DataBinding.DataSource = dsContacto
Enabled = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
@ -603,23 +604,25 @@ inherited frViewContacto: TfrViewContacto
object dxLayoutControlContactoGroup2: TdxLayoutGroup
Caption = 'Tel'#233'fonos'
object dxLayoutControlContactoItem10: TdxLayoutItem
Caption = 'Tlf. trabajo:'
Caption = 'Tlf.1:'
Control = eTlfTrabajo
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem9: TdxLayoutItem
Caption = 'Tlf. particular:'
Caption = 'Tlf.2:'
Visible = False
Control = eTlfParticular
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem11: TdxLayoutItem
Caption = 'M'#243'vil:'
Caption = 'Tlf.3:'
Control = eTlfMovil
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem12: TdxLayoutItem
Caption = 'Fax:'
Enabled = False
Visible = False
Control = eFax
ControlOptions.ShowBorder = False
end

9
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -355,6 +355,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'FACTURA_ASOCIADA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_PREVISTA_MONTAJE'
DataType = datDateTime
end
item
Name = 'CAMPO_LIBRE'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

114
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -3,19 +3,19 @@ unit schContratosClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Valores = '{FF170B3B-0B30-4A6E-B36F-AED5E8250AC5}';
RID_Propiedades = '{2CA5D47F-7A40-4C99-8D82-62D14C8611F9}';
RID_ListaAnosContratos = '{CB4AC0C2-A13B-4E20-B34C-FA4B4B7AAAB7}';
RID_ContratosClienteBeneficios = '{C8F49F14-3BD4-4EDC-B535-1084245828BA}';
RID_ContratosCliente = '{84BF7884-DAEC-4F6F-82D1-6F65B0955416}';
RID_TiposCapitulos = '{B2D051D8-4424-4B02-AD1F-C5BAE040894B}';
RID_ContratosCliente_Detalles = '{9DBF2D50-49C9-4CE5-BFBD-D0DBFCE0EA8E}';
RID_Valores = '{15E11A92-F4CF-4E0E-B5D8-6184059DD8CE}';
RID_Propiedades = '{B429EF7C-4158-41C1-BE6D-922C169CF14E}';
RID_ListaAnosContratos = '{30057A80-16CD-42BE-8D5D-EDAFE97E8C5A}';
RID_ContratosClienteBeneficios = '{2A70B854-D3DC-4787-87AD-051A0184E82C}';
RID_ContratosCliente = '{0DB07217-A4E5-4685-BE8F-F2170E3AB1CA}';
RID_TiposCapitulos = '{3C034371-9C2C-46CB-A282-6F62EFA16CB7}';
RID_ContratosCliente_Detalles = '{AC6A2500-FFA3-4A5B-A26B-AA952998F27F}';
{ Data table names }
nme_Valores = 'Valores';
@ -138,6 +138,8 @@ const
fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES';
fld_ContratosClienteFECHA_DECISION = 'FECHA_DECISION';
fld_ContratosClienteFACTURA_ASOCIADA = 'FACTURA_ASOCIADA';
fld_ContratosClienteFECHA_PREVISTA_MONTAJE = 'FECHA_PREVISTA_MONTAJE';
fld_ContratosClienteCAMPO_LIBRE = 'CAMPO_LIBRE';
{ ContratosCliente field indexes }
idx_ContratosClienteID = 0;
@ -191,6 +193,8 @@ const
idx_ContratosClienteLISTA_NOMBRES = 48;
idx_ContratosClienteFECHA_DECISION = 49;
idx_ContratosClienteFACTURA_ASOCIADA = 50;
idx_ContratosClienteFECHA_PREVISTA_MONTAJE = 51;
idx_ContratosClienteCAMPO_LIBRE = 52;
{ TiposCapitulos fields }
fld_TiposCapitulosID = 'ID';
@ -249,7 +253,7 @@ const
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{37D9C952-11C7-44D0-8A56-023852645B0F}']
['{9648EEF6-67C0-48F2-98D0-3F28225AE35F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -275,7 +279,7 @@ type
end;
{ TValoresDataTableRules }
TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@ -308,7 +312,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{5252B717-197E-41E3-A902-78CD6A804EBD}']
['{DAB78C0C-ABB8-4638-A964-D66FCE695D0B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -334,7 +338,7 @@ type
end;
{ TPropiedadesDataTableRules }
TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@ -367,7 +371,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{C59F0AC9-2FA9-46DB-B506-352CCE2AAA5E}']
['{803D3DE4-AE98-4631-A877-1D0F20987BC1}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -381,7 +385,7 @@ type
end;
{ TListaAnosContratosDataTableRules }
TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
TListaAnosContratosDataTableRules = class(TDADataTableRules, IListaAnosContratos)
private
protected
{ Property getters and setters }
@ -402,7 +406,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{6EFAD955-7B1E-45EF-9DA1-D7596933323F}']
['{80E97C0A-AA60-4FA0-9AE7-25932450F7FA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -500,7 +504,7 @@ type
end;
{ TContratosClienteBeneficiosDataTableRules }
TContratosClienteBeneficiosDataTableRules = class(TIntfObjectDADataTableRules, IContratosClienteBeneficios)
TContratosClienteBeneficiosDataTableRules = class(TDADataTableRules, IContratosClienteBeneficios)
private
protected
{ Property getters and setters }
@ -605,7 +609,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{C292C53E-7CE7-4DAC-8FED-D5984431BAF6}']
['{C90AFE40-BB27-4460-A9A5-3EF0A0DD8972}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -805,6 +809,14 @@ type
procedure SetFACTURA_ASOCIADAValue(const aValue: String);
function GetFACTURA_ASOCIADAIsNull: Boolean;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean);
function GetFECHA_PREVISTA_MONTAJEValue: DateTime;
procedure SetFECHA_PREVISTA_MONTAJEValue(const aValue: DateTime);
function GetFECHA_PREVISTA_MONTAJEIsNull: Boolean;
procedure SetFECHA_PREVISTA_MONTAJEIsNull(const aValue: Boolean);
function GetCAMPO_LIBREValue: String;
procedure SetCAMPO_LIBREValue(const aValue: String);
function GetCAMPO_LIBREIsNull: Boolean;
procedure SetCAMPO_LIBREIsNull(const aValue: Boolean);
{ Properties }
@ -910,10 +922,14 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property FECHA_PREVISTA_MONTAJE: DateTime read GetFECHA_PREVISTA_MONTAJEValue write SetFECHA_PREVISTA_MONTAJEValue;
property FECHA_PREVISTA_MONTAJEIsNull: Boolean read GetFECHA_PREVISTA_MONTAJEIsNull write SetFECHA_PREVISTA_MONTAJEIsNull;
property CAMPO_LIBRE: String read GetCAMPO_LIBREValue write SetCAMPO_LIBREValue;
property CAMPO_LIBREIsNull: Boolean read GetCAMPO_LIBREIsNull write SetCAMPO_LIBREIsNull;
end;
{ TContratosClienteDataTableRules }
TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
TContratosClienteDataTableRules = class(TDADataTableRules, IContratosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@ -1127,6 +1143,14 @@ type
procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual;
function GetFACTURA_ASOCIADAIsNull: Boolean; virtual;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual;
function GetFECHA_PREVISTA_MONTAJEValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_MONTAJEValue(const aValue: DateTime); virtual;
function GetFECHA_PREVISTA_MONTAJEIsNull: Boolean; virtual;
procedure SetFECHA_PREVISTA_MONTAJEIsNull(const aValue: Boolean); virtual;
function GetCAMPO_LIBREValue: String; virtual;
procedure SetCAMPO_LIBREValue(const aValue: String); virtual;
function GetCAMPO_LIBREIsNull: Boolean; virtual;
procedure SetCAMPO_LIBREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -1231,6 +1255,10 @@ type
property FECHA_DECISIONIsNull: Boolean read GetFECHA_DECISIONIsNull write SetFECHA_DECISIONIsNull;
property FACTURA_ASOCIADA: String read GetFACTURA_ASOCIADAValue write SetFACTURA_ASOCIADAValue;
property FACTURA_ASOCIADAIsNull: Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property FECHA_PREVISTA_MONTAJE: DateTime read GetFECHA_PREVISTA_MONTAJEValue write SetFECHA_PREVISTA_MONTAJEValue;
property FECHA_PREVISTA_MONTAJEIsNull: Boolean read GetFECHA_PREVISTA_MONTAJEIsNull write SetFECHA_PREVISTA_MONTAJEIsNull;
property CAMPO_LIBRE: String read GetCAMPO_LIBREValue write SetCAMPO_LIBREValue;
property CAMPO_LIBREIsNull: Boolean read GetCAMPO_LIBREIsNull write SetCAMPO_LIBREIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1243,7 +1271,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{6FD186D4-E64F-45A9-88A6-163E72D11671}']
['{1EAC55ED-FD74-4C09-BA7C-01071428BF24}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1287,7 +1315,7 @@ type
end;
{ TTiposCapitulosDataTableRules }
TTiposCapitulosDataTableRules = class(TIntfObjectDADataTableRules, ITiposCapitulos)
TTiposCapitulosDataTableRules = class(TDADataTableRules, ITiposCapitulos)
private
protected
{ Property getters and setters }
@ -1338,7 +1366,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{43B88BE1-14BC-4332-889D-8091C7420325}']
['{0C09878D-60CA-4203-BC67-10838C9E8EAA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1448,7 +1476,7 @@ type
end;
{ TContratosCliente_DetallesDataTableRules }
TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
TContratosCliente_DetallesDataTableRules = class(TDADataTableRules, IContratosCliente_Detalles)
private
protected
{ Property getters and setters }
@ -3191,6 +3219,48 @@ begin
DataTable.Fields[idx_ContratosClienteFACTURA_ASOCIADA].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetFECHA_PREVISTA_MONTAJEValue: DateTime;
begin
result := DataTable.Fields[idx_ContratosClienteFECHA_PREVISTA_MONTAJE].AsDateTime;
end;
procedure TContratosClienteDataTableRules.SetFECHA_PREVISTA_MONTAJEValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ContratosClienteFECHA_PREVISTA_MONTAJE].AsDateTime := aValue;
end;
function TContratosClienteDataTableRules.GetFECHA_PREVISTA_MONTAJEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteFECHA_PREVISTA_MONTAJE].IsNull;
end;
procedure TContratosClienteDataTableRules.SetFECHA_PREVISTA_MONTAJEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteFECHA_PREVISTA_MONTAJE].AsVariant := Null;
end;
function TContratosClienteDataTableRules.GetCAMPO_LIBREValue: String;
begin
result := DataTable.Fields[idx_ContratosClienteCAMPO_LIBRE].AsString;
end;
procedure TContratosClienteDataTableRules.SetCAMPO_LIBREValue(const aValue: String);
begin
DataTable.Fields[idx_ContratosClienteCAMPO_LIBRE].AsString := aValue;
end;
function TContratosClienteDataTableRules.GetCAMPO_LIBREIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosClienteCAMPO_LIBRE].IsNull;
end;
procedure TContratosClienteDataTableRules.SetCAMPO_LIBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosClienteCAMPO_LIBRE].AsVariant := Null;
end;
{ TTiposCapitulosDataTableRules }
constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

114
Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
View File

@ -9,18 +9,18 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ValoresDelta = '{8D6C76F9-F425-4A12-A6DA-CDADFCB371D5}';
RID_PropiedadesDelta = '{785FA853-7F7C-4D4B-A3F1-F605B64D365A}';
RID_ListaAnosContratosDelta = '{9AED0858-AA56-4911-97AE-7FA8F5BA1BDF}';
RID_ContratosClienteBeneficiosDelta = '{0A6BE4D0-4128-48DD-8E05-87DB06C0181F}';
RID_ContratosClienteDelta = '{13EC691D-B231-48FE-BE2D-E8EC546D4FDA}';
RID_TiposCapitulosDelta = '{ABCB3BD5-D32A-405C-9799-900FAB730F45}';
RID_ContratosCliente_DetallesDelta = '{09923382-3A40-4992-9F2C-903B5B6CA290}';
RID_ValoresDelta = '{3B063834-C8A8-4844-ACC8-234467330330}';
RID_PropiedadesDelta = '{619FA028-3343-49AB-9A72-A6DF0667FC32}';
RID_ListaAnosContratosDelta = '{7F13079B-DB22-4617-A28C-01007AF43172}';
RID_ContratosClienteBeneficiosDelta = '{28BA457E-2509-4B11-9724-10E60AFB2BA9}';
RID_ContratosClienteDelta = '{DFEAF2D7-9D59-40C6-8205-677DCCD6C526}';
RID_TiposCapitulosDelta = '{74EAAE1F-DEB6-49BD-BF6C-FAE257428A2D}';
RID_ContratosCliente_DetallesDelta = '{72FC35AB-AC55-43FB-B58A-152274E2A1CC}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
['{8D6C76F9-F425-4A12-A6DA-CDADFCB371D5}']
['{3B063834-C8A8-4844-ACC8-234467330330}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
['{785FA853-7F7C-4D4B-A3F1-F605B64D365A}']
['{619FA028-3343-49AB-9A72-A6DF0667FC32}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
['{9AED0858-AA56-4911-97AE-7FA8F5BA1BDF}']
['{7F13079B-DB22-4617-A28C-01007AF43172}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
['{0A6BE4D0-4128-48DD-8E05-87DB06C0181F}']
['{28BA457E-2509-4B11-9724-10E60AFB2BA9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@ -372,7 +372,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
['{13EC691D-B231-48FE-BE2D-E8EC546D4FDA}']
['{DFEAF2D7-9D59-40C6-8205-677DCCD6C526}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -425,6 +425,8 @@ type
function GetOldLISTA_NOMBRESValue : String;
function GetOldFECHA_DECISIONValue : DateTime;
function GetOldFACTURA_ASOCIADAValue : String;
function GetOldFECHA_PREVISTA_MONTAJEValue : DateTime;
function GetOldCAMPO_LIBREValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -478,6 +480,8 @@ type
property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue;
property OldFECHA_DECISION : DateTime read GetOldFECHA_DECISIONValue;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldFECHA_PREVISTA_MONTAJE : DateTime read GetOldFECHA_PREVISTA_MONTAJEValue;
property OldCAMPO_LIBRE : String read GetOldCAMPO_LIBREValue;
end;
{ TContratosClienteBusinessProcessorRules }
@ -797,6 +801,18 @@ type
function GetOldFACTURA_ASOCIADAIsNull: Boolean; virtual;
procedure SetFACTURA_ASOCIADAValue(const aValue: String); virtual;
procedure SetFACTURA_ASOCIADAIsNull(const aValue: Boolean); virtual;
function GetFECHA_PREVISTA_MONTAJEValue: DateTime; virtual;
function GetFECHA_PREVISTA_MONTAJEIsNull: Boolean; virtual;
function GetOldFECHA_PREVISTA_MONTAJEValue: DateTime; virtual;
function GetOldFECHA_PREVISTA_MONTAJEIsNull: Boolean; virtual;
procedure SetFECHA_PREVISTA_MONTAJEValue(const aValue: DateTime); virtual;
procedure SetFECHA_PREVISTA_MONTAJEIsNull(const aValue: Boolean); virtual;
function GetCAMPO_LIBREValue: String; virtual;
function GetCAMPO_LIBREIsNull: Boolean; virtual;
function GetOldCAMPO_LIBREValue: String; virtual;
function GetOldCAMPO_LIBREIsNull: Boolean; virtual;
procedure SetCAMPO_LIBREValue(const aValue: String); virtual;
procedure SetCAMPO_LIBREIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1003,6 +1019,14 @@ type
property FACTURA_ASOCIADAIsNull : Boolean read GetFACTURA_ASOCIADAIsNull write SetFACTURA_ASOCIADAIsNull;
property OldFACTURA_ASOCIADA : String read GetOldFACTURA_ASOCIADAValue;
property OldFACTURA_ASOCIADAIsNull : Boolean read GetOldFACTURA_ASOCIADAIsNull;
property FECHA_PREVISTA_MONTAJE : DateTime read GetFECHA_PREVISTA_MONTAJEValue write SetFECHA_PREVISTA_MONTAJEValue;
property FECHA_PREVISTA_MONTAJEIsNull : Boolean read GetFECHA_PREVISTA_MONTAJEIsNull write SetFECHA_PREVISTA_MONTAJEIsNull;
property OldFECHA_PREVISTA_MONTAJE : DateTime read GetOldFECHA_PREVISTA_MONTAJEValue;
property OldFECHA_PREVISTA_MONTAJEIsNull : Boolean read GetOldFECHA_PREVISTA_MONTAJEIsNull;
property CAMPO_LIBRE : String read GetCAMPO_LIBREValue write SetCAMPO_LIBREValue;
property CAMPO_LIBREIsNull : Boolean read GetCAMPO_LIBREIsNull write SetCAMPO_LIBREIsNull;
property OldCAMPO_LIBRE : String read GetOldCAMPO_LIBREValue;
property OldCAMPO_LIBREIsNull : Boolean read GetOldCAMPO_LIBREIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1012,7 +1036,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
['{ABCB3BD5-D32A-405C-9799-900FAB730F45}']
['{74EAAE1F-DEB6-49BD-BF6C-FAE257428A2D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@ -1106,7 +1130,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
['{09923382-3A40-4992-9F2C-903B5B6CA290}']
['{72FC35AB-AC55-43FB-B58A-152274E2A1CC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@ -3695,6 +3719,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFACTURA_ASOCIADA] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetFECHA_PREVISTA_MONTAJEValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_PREVISTA_MONTAJE];
end;
function TContratosClienteBusinessProcessorRules.GetFECHA_PREVISTA_MONTAJEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_PREVISTA_MONTAJE]);
end;
function TContratosClienteBusinessProcessorRules.GetOldFECHA_PREVISTA_MONTAJEValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_PREVISTA_MONTAJE];
end;
function TContratosClienteBusinessProcessorRules.GetOldFECHA_PREVISTA_MONTAJEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteFECHA_PREVISTA_MONTAJE]);
end;
procedure TContratosClienteBusinessProcessorRules.SetFECHA_PREVISTA_MONTAJEValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_PREVISTA_MONTAJE] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetFECHA_PREVISTA_MONTAJEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_PREVISTA_MONTAJE] := Null;
end;
function TContratosClienteBusinessProcessorRules.GetCAMPO_LIBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCAMPO_LIBRE];
end;
function TContratosClienteBusinessProcessorRules.GetCAMPO_LIBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCAMPO_LIBRE]);
end;
function TContratosClienteBusinessProcessorRules.GetOldCAMPO_LIBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCAMPO_LIBRE];
end;
function TContratosClienteBusinessProcessorRules.GetOldCAMPO_LIBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteCAMPO_LIBRE]);
end;
procedure TContratosClienteBusinessProcessorRules.SetCAMPO_LIBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCAMPO_LIBRE] := aValue;
end;
procedure TContratosClienteBusinessProcessorRules.SetCAMPO_LIBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteCAMPO_LIBRE] := Null;
end;
{ TTiposCapitulosBusinessProcessorRules }
constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

66
Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
View File

@ -486,6 +486,14 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'FACTURA_ASOCIADA'
TableField = 'FACTURA_ASOCIADA'
end
item
DatasetField = 'FECHA_PREVISTA_MONTAJE'
TableField = 'FECHA_PREVISTA_MONTAJE'
end
item
DatasetField = 'CAMPO_LIBRE'
TableField = 'CAMPO_LIBRE'
end>
end>
Name = 'ContratosCliente'
@ -769,6 +777,15 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'FACTURA_ASOCIADA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_PREVISTA_MONTAJE'
DataType = datDateTime
end
item
Name = 'CAMPO_LIBRE'
DataType = datString
Size = 255
end>
end
item
@ -1238,6 +1255,17 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'FECHA_DECISION'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_PREVISTA_MONTAJE'
DataType = datDateTime
Value = ''
end
item
Name = 'CAMPO_LIBRE'
DataType = datString
Size = 255
Value = ''
end>
Statements = <
item
@ -1254,17 +1282,18 @@ object srvContratosCliente: TsrvContratosCliente
'_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' +
' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' +
'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' +
'ENCIA_CLIENTE, FECHA_DECISION)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :' +
'NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,' +
#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, ' +
':FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, ' +
':INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE' +
'_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BAS' +
'E_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :' +
'ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO,' +
' :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL' +
', :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIENTE,' +
#10' :FECHA_DECISION)'#10#10
'ENCIA_CLIENTE, FECHA_DECISION, FECHA_PREVISTA_MONTAJE, CAMPO_LIB' +
'RE)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIREC' +
'CION, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFE' +
'RENCIA, :FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_EN' +
'TREGA, :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRE' +
'NT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DES' +
'CUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, ' +
':IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIE' +
'NDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO' +
'_EQUIVALENCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIO' +
'NES, :CALIDADES, :REFERENCIA_CLIENTE,'#10' :FECHA_DECISION, :FEC' +
'HA_PREVISTA_MONTAJE, :CAMPO_LIBRE)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1509,6 +1538,17 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_PREVISTA_MONTAJE'
DataType = datDateTime
Value = ''
end
item
Name = 'CAMPO_LIBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1539,7 +1579,9 @@ object srvContratosCliente: TsrvContratosCliente
'NO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' TIPO_CONTRATO = :TIPO_CO' +
'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' +
'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' FECHA_DECI' +
'SION = :FECHA_DECISION'#10' WHERE'#10' (ID = :OLD_ID)'#10#10
'SION = :FECHA_DECISION,'#10' FECHA_PREVISTA_MONTAJE = :FECHA_PREV' +
'ISTA_MONTAJE,'#10' CAMPO_LIBRE = :CAMPO_LIBRE'#10' WHERE'#10' (ID = :' +
'OLD_ID)'#10#10
StatementType = stSQL
ColumnMappings = <>
end>

146
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -175,6 +175,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl
Width = 866
Height = 473
ActivePage = pagInicidencias
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitTop = 109
@ -202,17 +203,15 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 858
ExplicitHeight = 445
inherited edtFechaContrato: TcxDBDateEdit
Left = 103
Top = 84
ExplicitLeft = 103
ExplicitTop = 84
ExplicitWidth = 129
Width = 129
end
inherited memObservaciones: TcxDBMemo
Left = 451
Left = 464
Top = 330
ExplicitLeft = 451
ExplicitLeft = 464
ExplicitTop = 330
ExplicitWidth = 404
ExplicitHeight = 139
@ -220,29 +219,24 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 404
end
inherited eReferencia: TcxDBTextEdit
Left = 103
Top = 30
ExplicitLeft = 103
ExplicitTop = 30
ExplicitWidth = 122
Width = 122
end
inherited cbFormaPago: TcxDBLookupComboBox
Left = 103
Top = 165
ExplicitLeft = 103
ExplicitTop = 165
Top = 192
ExplicitTop = 192
ExplicitWidth = 122
Width = 122
end
inherited bFormasPago: TButton
Left = 291
Top = 165
ExplicitLeft = 291
ExplicitTop = 165
Left = 304
Top = 192
ExplicitLeft = 304
ExplicitTop = 192
end
inherited cbSituacion: TcxDBImageComboBox
Left = 103
Top = 138
Properties.Items = <
item
@ -258,57 +252,52 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Description = 'RECHAZADO'
Value = 'RECHAZADO'
end>
ExplicitLeft = 103
ExplicitTop = 138
ExplicitWidth = 260
Width = 260
end
inherited memFormaPago: TcxDBMemo
Top = 243
ExplicitTop = 243
Top = 270
ExplicitTop = 270
ExplicitWidth = 396
ExplicitHeight = 100
Height = 100
Width = 396
end
inherited memPlazoEntrega: TcxDBMemo
Top = 351
ExplicitTop = 351
Top = 365
ExplicitTop = 365
ExplicitWidth = 396
ExplicitHeight = 100
Height = 100
Width = 396
end
inherited cbVendedor: TcxDBLookupComboBox
Left = 103
Top = 192
ExplicitLeft = 103
ExplicitTop = 192
Top = 219
ExplicitTop = 219
ExplicitWidth = 27
Width = 27
end
inherited cbTipoContrato: TcxDBComboBox
Left = 320
Left = 339
Top = 84
ExplicitLeft = 320
ExplicitLeft = 339
ExplicitTop = 84
ExplicitWidth = 113
Width = 113
end
inherited edtlREF_CLIENTE: TcxDBTextEdit
Left = 103
Top = 57
Enabled = False
ExplicitLeft = 103
ExplicitTop = 57
ExplicitWidth = 335
Width = 335
end
inherited frViewClienteContrato1: TfrViewClienteContrato
Left = 451
Left = 464
Top = 30
Width = 357
ExplicitLeft = 451
ExplicitLeft = 464
ExplicitTop = 30
ExplicitWidth = 357
inherited dxLayoutControl1: TdxLayoutControl
@ -371,10 +360,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 707
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 292
Left = 279
Top = 176
DataBinding.DataSource = dsDataTable
ExplicitLeft = 292
ExplicitLeft = 279
ExplicitTop = 176
end
inherited Button1: TBitBtn
@ -390,9 +379,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 11
end
inherited Button3: TBitBtn
Left = 182
Left = 169
Top = 230
ExplicitLeft = 182
ExplicitLeft = 169
ExplicitTop = 230
end
inherited cxDBTextEdit1: TcxDBTextEdit
@ -406,13 +395,17 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
inherited edtFechaDecision: TcxDBDateEdit
Left = 103
Top = 111
ExplicitLeft = 103
ExplicitTop = 111
ExplicitWidth = 115
Width = 115
end
inherited edtFechaPrevMontaje: TcxDBDateEdit
Top = 165
ExplicitTop = 165
ExplicitWidth = 295
Width = 295
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group8: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -468,57 +461,56 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontSize: TEdit [5]
inherited FontName: TJvFontComboBox
Left = 0
Width = 110
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 110
ExplicitLeft = 145
ExplicitWidth = 110
end
inherited UpDown1: TUpDown [6]
Left = 110
ExplicitLeft = 110
end
inherited FontName: TJvFontComboBox [7]
Left = 127
ExplicitLeft = 127
inherited UpDown1: TUpDown
Left = 271
ExplicitLeft = 271
end
inherited ToolButton13: TToolButton
Left = 272
ExplicitLeft = 272
Left = 288
ExplicitLeft = 288
end
inherited ToolButton6: TToolButton
Left = 280
ExplicitLeft = 280
Left = 296
ExplicitLeft = 296
end
inherited ToolButton7: TToolButton
Left = 314
ExplicitLeft = 314
Left = 330
ExplicitLeft = 330
end
inherited ToolButton8: TToolButton
Left = 348
ExplicitLeft = 348
Left = 364
ExplicitLeft = 364
end
inherited ToolButton12: TToolButton
Left = 382
ExplicitLeft = 382
Left = 398
ExplicitLeft = 398
end
inherited ToolButton9: TToolButton
Left = 390
ExplicitLeft = 390
Left = 406
ExplicitLeft = 406
end
inherited ToolButton10: TToolButton
Left = 424
ExplicitLeft = 424
Left = 440
ExplicitLeft = 440
end
inherited ToolButton11: TToolButton
Left = 458
ExplicitLeft = 458
Left = 474
ExplicitLeft = 474
end
end
inherited cxGrid: TcxGrid
Width = 858
Height = 373
ExplicitTop = 72
ExplicitWidth = 858
ExplicitHeight = 373
end
@ -641,6 +633,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
DesignSize = (
858
445)
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -661,7 +656,9 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 858
ExplicitWidth = 858
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitWidth = 173
ExplicitHeight = 21
Width = 173
end
end
inherited GroupBox1: TGroupBox
@ -677,6 +674,31 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end
end
end
object eCampoLibre: TcxDBTextEdit
Left = 176
Top = 4
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CAMPO_LIBRE'
DataBinding.DataSource = frViewIncidenciasCli.DADataSource
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 305
end
end
object pagDocumentos: TTabSheet
Caption = 'Documentos'

1
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -48,6 +48,7 @@ type
dxLayoutGroup1: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
frViewContratoCliente1: TfrViewContratoCliente;
eCampoLibre: TcxDBTextEdit;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);

16
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

@ -132,27 +132,19 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
DisplayMode = nbdmImageAndText
ImageIndex = 22
object bCocina: TTBXItem
Caption = 'Contrato de cocina'
Caption = 'Presupuesto de cocina'
OnClick = bCocinaClick
end
object bArmario: TTBXItem
Caption = 'Contrato de armario'
OnClick = bArmarioClick
end
object bBano: TTBXItem
Caption = 'Contrato de ba'#241'o'
Caption = 'Presupuesto de ba'#241'o'
OnClick = bBanoClick
end
object bElectrodomestico: TTBXItem
Caption = 'Contrato de electrodom'#233'stico'
Caption = 'Presupuesto de electrodom'#233'stico'
OnClick = bElectrodomesticoClick
end
object bObra: TTBXItem
Caption = 'Contrato de obra'
OnClick = bObraClick
end
object bVarios: TTBXItem
Caption = 'Contrato de varios'
Caption = 'Presupuesto de varios'
OnClick = bVariosClick
end
end

1
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

@ -43,7 +43,6 @@ type
actListadoBeneficios: TAction;
TBXItem42: TTBXItem;
TBXSubmenuItem3: TTBXSubmenuItem;
bObra: TTBXItem;
TBXItem43: TTBXItem;
Generaralbarndecliente1: TMenuItem;
actGenerarPedidoProv: TAction;

126
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm
View File

@ -19,7 +19,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
817
491)
object edtFechaContrato: TcxDBDateEdit
Left = 104
Left = 131
Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONTRATO'
@ -42,7 +42,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 129
end
object memObservaciones: TcxDBMemo
Left = 429
Left = 441
Top = 334
Align = alClient
DataBinding.DataField = 'OBSERVACIONES'
@ -59,12 +59,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
TabOrder = 13
Height = 139
Width = 404
end
object eReferencia: TcxDBTextEdit
Left = 104
Left = 131
Top = 28
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
@ -89,8 +89,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 122
end
object cbFormaPago: TcxDBLookupComboBox
Left = 104
Top = 163
Left = 131
Top = 190
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@ -115,20 +115,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 7
Width = 122
end
object bFormasPago: TButton
Left = 267
Top = 163
Left = 279
Top = 190
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 7
TabOrder = 8
OnClick = bFormasPagoClick
end
object cbSituacion: TcxDBImageComboBox
Left = 104
Left = 131
Top = 136
DataBinding.DataField = 'SITUACION'
DataBinding.DataSource = DADataSource
@ -159,7 +159,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
object memFormaPago: TcxDBMemo
Left = 22
Top = 247
Top = 274
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'FORMA_PAGO'
DataBinding.DataSource = DADataSource
@ -175,35 +175,35 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 376
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
Height = 100
Width = 396
end
object memPlazoEntrega: TcxDBMemo
Left = 22
Top = 390
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'PLAZO_ENTREGA'
DataBinding.DataSource = DADataSource
Properties.ScrollBars = ssVertical
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
Height = 100
Width = 396
end
object cbVendedor: TcxDBLookupComboBox
Left = 104
Top = 190
Left = 131
Top = 217
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@ -228,11 +228,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
TabOrder = 9
Width = 27
end
object cbTipoContrato: TcxDBComboBox
Left = 298
Left = 316
Top = 82
DataBinding.DataField = 'TIPO_CONTRATO'
DataBinding.DataSource = DADataSource
@ -258,7 +258,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 113
end
object edtlREF_CLIENTE: TcxDBTextEdit
Left = 104
Left = 131
Top = 55
Anchors = [akLeft, akTop, akRight]
AutoSize = False
@ -280,13 +280,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 335
end
inline frViewClienteContrato1: TfrViewClienteContrato
Left = 429
Left = 441
Top = 28
Width = 366
Height = 270
TabOrder = 11
TabOrder = 12
ReadOnly = False
ExplicitLeft = 429
ExplicitLeft = 441
ExplicitTop = 28
ExplicitWidth = 366
ExplicitHeight = 270
@ -316,12 +316,16 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Width = 707
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 274
ExplicitLeft = 274
Left = 262
ExplicitLeft = 262
end
inherited Button3: TBitBtn
Left = 164
ExplicitLeft = 164
Left = 152
ExplicitLeft = 152
end
inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283
Width = 283
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item10: TdxLayoutItem
@ -332,7 +336,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
end
end
object edtFechaDecision: TcxDBDateEdit
Left = 104
Left = 131
Top = 109
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_DECISION'
@ -354,6 +358,29 @@ inherited frViewContratoCliente: TfrViewContratoCliente
TabOrder = 4
Width = 115
end
object edtFechaPrevMontaje: TcxDBDateEdit
Left = 131
Top = 163
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_PREVISTA_MONTAJE'
DataBinding.DataSource = DADataSource
Properties.DateButtons = [btnToday]
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clInfoBk
Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True
Style.Shadow = False
Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 295
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -413,6 +440,11 @@ inherited frViewContratoCliente: TfrViewContratoCliente
Control = cbSituacion
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
Caption = 'Fecha prev. montaje:'
Control = edtFechaPrevMontaje
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False
Hidden = True

2
Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas
View File

@ -69,6 +69,8 @@ type
frViewClienteContrato1: TfrViewClienteContrato;
dxLayoutControl1Item13: TdxLayoutItem;
edtFechaDecision: TcxDBDateEdit;
dxLayoutControl1Item14: TdxLayoutItem;
edtFechaPrevMontaje: TcxDBDateEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);

9
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -31,6 +31,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Kind = skSum
Column = cxGridViewIMPORTE_TOTAL
end>
object cxGridViewCAMPO_LIBRE: TcxGridDBColumn
Caption = '-'
DataBinding.FieldName = 'CAMPO_LIBRE'
end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -77,6 +81,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Caption = 'Fecha decisi'#243'n'
DataBinding.FieldName = 'FECHA_DECISION'
end
object cxGridViewFECHA_PREVISTA_MONTAJE: TcxGridDBColumn
Caption = 'Fecha prev. montaje'
DataBinding.FieldName = 'FECHA_PREVISTA_MONTAJE'
end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO'
BestFitMaxWidth = 25
@ -118,6 +126,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Visible = False
end
object cxGridViewPROVINCIA: TcxGridDBColumn
Caption = 'Provincia'
DataBinding.FieldName = 'PROVINCIA'
Visible = False
end

2
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -50,6 +50,8 @@ type
cxGridLevelRechazados: TcxGridLevel;
cxGridViewFECHA_DECISION: TcxGridDBColumn;
cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn;
cxGridViewFECHA_PREVISTA_MONTAJE: TcxGridDBColumn;
cxGridViewCAMPO_LIBRE: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

108
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
View File

@ -1,89 +1,5 @@
inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 855
Height = 510
inherited ToolBar1: TToolBar
Width = 855
Height = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 855
Height = 460
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 57
@ -110,6 +26,7 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 186
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.Alignment.Horz = taRightJustify
VisibleForCustomization = False
Width = 20
end
@ -118,6 +35,10 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 26
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 20
end
@ -126,25 +47,20 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
VisibleForCustomization = False
Width = 29
end
inherited cxGridViewVISIBLE: TcxGridDBColumn [13]
Visible = True
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14]
end
inherited cxGridViewVISIBLE2: TcxGridDBColumn [15]
Visible = True
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
VisibleForCustomization = False
Width = 22
end
inherited cxGridViewVISIBLE: TcxGridDBColumn
Visible = True
end
inherited cxGridViewVISIBLE2: TcxGridDBColumn
Visible = True
end
end
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 855
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665
object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText

BIN
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.RES
View File

Binary file not shown.

10
Source/Modulos/Facturas de cliente/Views/uViewDetallesFacturaCliente.dfm
View File

@ -1,6 +1,16 @@
inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.Alignment.Horz = taRightJustify
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Properties.Alignment.Horz = taCenter
FooterAlignmentHorz = taCenter
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False

5
Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
View File

@ -9,7 +9,7 @@ uses
type
IDetallesFacturaProveedorController = interface(IControllerDetallesArticulos)
['{49F6199E-E031-42F5-AEA5-E70C3E3479A1}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
procedure AnadirDetalleFacturaAsociadaAbono(ADetalles: IBizDetallesFacturaProveedor; AReferencia: String; AFecha: String);
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
@ -25,10 +25,11 @@ type
procedure AsignarController; override;
//Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; override;
procedure ValidarCampos(DataTable: TDADataTable); override;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; override;
public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;

16
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -257,14 +257,6 @@ begin
if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignada (Anadir)');
AFactura.Insert;
FDetallesController.Add(AFactura.Detalles, TIPO_DETALLE_CONCEPTO);
if not AFactura.Detalles.DataTable.Editing then
AFactura.Detalles.DataTable.Edit;
AFactura.Detalles.CANTIDAD := 1;
AFactura.Detalles.IMPORTE_UNIDAD := 0;
AFactura.Detalles.Post;
Result := True;
end;
@ -708,8 +700,8 @@ begin
if (EsFechaVacia(AFactura.FECHA_FACTURA)) then
raise Exception.Create('Debe indicar la fecha de esta factura');
if (AFactura.Detalles.DataTable.RecordCount = 0) then
raise Exception.Create('La factura debe tener al menos un concepto en su contenido');
// if (AFactura.Detalles.DataTable.RecordCount = 0) then
// raise Exception.Create('La factura debe tener al menos un concepto en su contenido');
if (AFactura.IGNORAR_CONTABILIDAD = 0) then
begin
@ -1037,7 +1029,7 @@ begin
if Supports(ADataTable, IBizDetallesFacturaProveedor, ADetalles) and
Supports(ADetalles.DataTable.MasterSource.DataTable, IBizFacturaProveedor, AFactura) then
begin
RecalcularImportes(AFactura);
// RecalcularImportes(AFactura);
end;
end;
@ -1166,7 +1158,7 @@ begin
ShowHourglassCursor;
// Asegurarnos de que todos los importes están bien.
RecalcularImportes(AFactura);
// RecalcularImportes(AFactura);
try
AFactura.DataTable.ApplyUpdates;

107
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -82,7 +82,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited pgPaginas: TPageControl
Width = 1105
Height = 374
ActivePage = pagContenido
OnChanging = pgPaginasChanging
ExplicitTop = 109
ExplicitWidth = 1105
@ -205,11 +204,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end
inherited frViewObservaciones1: TfrViewObservaciones
Width = 671
Height = 228
ExplicitWidth = 671
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 1036
ExplicitHeight = 20
ExplicitWidth = 671
Height = 228
Width = 671
end
end
@ -219,6 +220,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
TabVisible = False
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0
Top = 0
@ -375,6 +377,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited ToolBar1: TToolBar
Width = 1097
ExplicitWidth = 1097
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end
@ -451,94 +465,94 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 1111
ExplicitWidth = 1111
inherited Bevel3: TBevel
Left = 630
Left = 587
Top = 30
Height = 122
ExplicitLeft = 630
ExplicitLeft = 587
ExplicitTop = 30
ExplicitHeight = 122
end
inherited Bevel4: TBevel
Left = 742
Left = 699
Top = 57
Width = 186
ExplicitLeft = 742
ExplicitLeft = 699
ExplicitTop = 57
ExplicitWidth = 186
end
inherited ImporteDto: TcxDBCurrencyEdit
Top = 84
Top = 57
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitTop = 57
ExplicitWidth = 207
Width = 207
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 813
Left = 770
Top = 77
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 813
ExplicitLeft = 770
ExplicitTop = 77
ExplicitWidth = 143
Width = 143
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 743
Left = 700
Top = 131
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 743
ExplicitLeft = 700
ExplicitTop = 131
ExplicitWidth = 213
Width = 213
end
inherited edtDescuento: TcxDBSpinEdit
Top = 84
Top = 57
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitTop = 57
end
inherited edtIVA: TcxDBSpinEdit
Left = 742
Left = 699
Top = 77
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 742
ExplicitLeft = 699
ExplicitTop = 77
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 742
Left = 699
Top = 30
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 742
ExplicitLeft = 699
ExplicitTop = 30
ExplicitWidth = 214
Width = 214
end
inherited edtRE: TcxDBSpinEdit
Left = 742
Left = 699
Top = 104
Properties.AssignedValues.MinValue = True
Style.LookAndFeel.SkinName = ''
@ -546,35 +560,37 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 742
ExplicitLeft = 699
ExplicitTop = 104
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 813
Left = 770
Top = 104
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 813
ExplicitLeft = 770
ExplicitTop = 104
ExplicitWidth = 143
Width = 143
end
inherited eImporteNeto: TcxDBCurrencyEdit
Top = 57
Top = 30
Enabled = True
Properties.ReadOnly = False
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitTop = 30
ExplicitWidth = 278
Width = 278
end
inherited ePorte: TcxDBCurrencyEdit
Top = 111
Top = 84
DataBinding.DataSource = dsDataTable
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
@ -583,62 +599,44 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
OnEditing = frViewTotales1ePorteEditing
ExplicitTop = 111
ExplicitTop = 84
ExplicitWidth = 278
Width = 278
end
inherited eIVA: TcxDBLookupComboBox
Top = 138
Top = 111
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitTop = 111
ExplicitWidth = 140
Width = 140
end
inherited bTiposIVA: TButton
Left = 482
Top = 138
Left = 439
Top = 111
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 482
ExplicitTop = 138
ExplicitLeft = 439
ExplicitTop = 111
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 165
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165
ExplicitTop = 138
ExplicitWidth = 278
Width = 278
end
inherited eImporteDetalleResumen: TcxDBCurrencyEdit
Top = 30
DataBinding.DataField = 'IMPORTE_UNIDAD'
DataBinding.DataSource = frViewDetallesFacturaProveedor1.DADataSource
Properties.ReadOnly = False
Properties.OnEditValueChanged = frViewTotales1eImporteDetalleResumenPropertiesEditValueChanged
Style.IsFontAssigned = True
ExplicitTop = 30
ExplicitWidth = 342
Width = 342
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = True
end
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Group10: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem
Visible = False
@ -647,6 +645,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Visible = False
end
end
inherited dxLayoutControl1Item9: TdxLayoutItem
Visible = False
end
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup

11
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -44,8 +44,8 @@ type
procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
procedure frViewTotales1eImporteDetalleResumenPropertiesEditValueChanged(
Sender: TObject); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor.
private
procedure RecalcularPortePorUnidad;
@ -198,13 +198,6 @@ begin
Factura.DESCUENTO := DisplayValue;
end;
procedure TfEditorFacturaProveedor.frViewTotales1eImporteDetalleResumenPropertiesEditValueChanged(
Sender: TObject);
begin
inherited;
showmessage('recalcular importes detalle');
end;
procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);

4
Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm
View File

@ -5,7 +5,11 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
Properties.Alignment.Horz = taRightJustify
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Properties.Alignment.Horz = taCenter
Visible = False
FooterAlignmentHorz = taCenter
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn

2
Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.dfm
View File

@ -53,7 +53,9 @@ object PluginFormasPago: TPluginFormasPago
object actFormasPago: TAction
Category = 'FormasPago'
Caption = 'Formas de pago'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actFormasPagoExecute
end
end

10
Source/Modulos/Formas de pago/Plugin/uPluginFormasPago.pas
View File

@ -31,7 +31,7 @@ implementation
{$R *.dfm}
uses
Forms, Dialogs, SysUtils,
Forms, Dialogs, SysUtils, uFactuGES_App,
uFormasPagoController, uBizFormasPago, uFormasPagoViewRegister;
function GetModule : TModuleController;
@ -56,6 +56,14 @@ constructor TPluginFormasPago.Create(AOwner: TComponent);
begin
inherited;
uFormasPagoViewRegister.RegisterViews;
//Solo lo verá el perfil Administrador
if ((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA)) then
begin
actFormasPago.Visible := True;
actFormasPago.Enabled := True;
end;
end;
destructor TPluginFormasPago.Destroy;

53
Source/Modulos/Formas de pago/Views/uEditorFormaPago.dfm
View File

@ -4,8 +4,8 @@ object fEditorFormaPago: TfEditorFormaPago
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Forma de pago'
ClientHeight = 390
ClientWidth = 484
ClientHeight = 435
ClientWidth = 493
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -26,21 +26,21 @@ object fEditorFormaPago: TfEditorFormaPago
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 484
Height = 390
Width = 493
Height = 435
Align = alClient
TabOrder = 0
TabStop = False
object Bevel4: TBevel
Left = 10
Top = 329
Top = 380
Width = 388
Height = 10
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 10
Top = 151
Top = 202
Width = 388
Height = 10
Shape = bsBottomLine
@ -56,20 +56,9 @@ object fEditorFormaPago: TfEditorFormaPago
DataSource = dsFormaPago
TabOrder = 0
end
object eDescripcion: TDBEdit
Left = 76
Top = 43
Width = 262
Height = 21
BorderStyle = bsNone
Color = clInfoBk
DataField = 'DESCRIPCION'
DataSource = dsFormaPago
TabOrder = 1
end
object ListaFormasPago: TcxGrid
Left = 10
Top = 167
Top = 218
Width = 246
Height = 156
TabOrder = 6
@ -112,7 +101,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object bAnadir: TButton
Left = 262
Top = 167
Top = 218
Width = 95
Height = 23
Action = actAnadir
@ -120,7 +109,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object bEliminar: TButton
Left = 262
Top = 196
Top = 247
Width = 95
Height = 23
Action = actEliminar
@ -128,7 +117,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object bAceptar: TButton
Left = 314
Top = 345
Top = 396
Width = 75
Height = 23
Action = actAceptar
@ -136,7 +125,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object bCancelar: TButton
Left = 395
Top = 345
Top = 396
Width = 75
Height = 23
Action = actCancelar
@ -145,7 +134,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object rdPagoPlazos: TcxRadioButton
Left = 10
Top = 125
Top = 176
Width = 388
Height = 20
Caption = 'Plazos del pago'
@ -154,7 +143,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object rdPagoVencimiento: TcxRadioButton
Left = 10
Top = 72
Top = 123
Width = 388
Height = 20
Caption = 'Pago por vencimiento'
@ -163,7 +152,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object cbSubcuenta: TcxDBLookupComboBox
Left = 74
Top = 98
Top = 149
DataBinding.DataField = 'ID_SUBCUENTA'
DataBinding.DataSource = dsFormaPago
Enabled = False
@ -194,7 +183,7 @@ object fEditorFormaPago: TfEditorFormaPago
end
object cxDBCheckBox1: TcxDBCheckBox
Left = 330
Top = 98
Top = 149
Caption = 'Ignorar en contabilidad'
DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
DataBinding.DataSource = dsFormaPago
@ -204,6 +193,18 @@ object fEditorFormaPago: TfEditorFormaPago
TabOrder = 4
Width = 140
end
object eDescripcion: TDBMemo
Left = 76
Top = 43
Width = 392
Height = 72
BorderStyle = bsNone
Color = clInfoBk
DataField = 'DESCRIPCION'
DataSource = dsFormaPago
ScrollBars = ssVertical
TabOrder = 1
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
AutoAligns = [aaVertical]
AlignHorz = ahClient

4
Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas
View File

@ -55,8 +55,6 @@ type
dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem;
eReferencia: TDBEdit;
dxLayoutControl1Item2: TdxLayoutItem;
eDescripcion: TDBEdit;
dxLayoutControl1Item3: TdxLayoutItem;
ListaFormasPago: TcxGrid;
ListaFormasPagoDBTableView1: TcxGridDBTableView;
@ -90,6 +88,8 @@ type
cxDBCheckBox1: TcxDBCheckBox;
checkIgnorarContabilidad: TdxLayoutItem;
panelVencimiento: TdxLayoutGroup;
dxLayoutControl1Item2: TdxLayoutItem;
eDescripcion: TDBMemo;
procedure FormShow(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);

4
Source/Modulos/Formas de pago/Views/uEditorFormasPago.pas
View File

@ -115,7 +115,7 @@ begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active and
(FFormasPago.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR);
((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA))
end;
procedure TfEditorFormasPago.actModificarExecute(Sender: TObject);
@ -128,7 +128,7 @@ begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active and
(FFormasPago.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR);
((AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) OR (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PREFIL_GERENCIA))
end;
constructor TfEditorFormasPago.Create(AOwner: TComponent);

BIN
Source/Modulos/Lib/AlbCli_FacCli_relation.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesCliente_controller.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesCliente_data.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesCliente_model.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesCliente_plugin.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesCliente_view.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesProveedor_controller.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesProveedor_data.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesProveedor_model.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesProveedor_plugin.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/AlbaranesProveedor_view.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Almacenes_controller.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Almacenes_data.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Almacenes_model.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Almacenes_plugin.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Almacenes_view.dcp
View File

Binary file not shown.

BIN
Source/Modulos/Lib/Articulos_controller.dcp
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More