Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@259 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Browse Source
This commit is contained in:
roberto 2017-05-12 09:36:01 +00:00
parent a01273651c
commit 85fc7faa6c
44 changed files with 745 additions and 534 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.6.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.6.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,4,8,0 FILEVERSION 4,6,1,0
PRODUCTVERSION 4,4,8,0 PRODUCTVERSION 4,6,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.4.8.0\0" VALUE "FileVersion", "4.6.1.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.4.8.0\0" VALUE "ProductVersion", "4.6.1.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

39
Source/Informes/6/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

38
Source/Informes/6/en/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

4
Source/Informes/6/en/InfPresupuestoCliente.fr3
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="42255,716466331" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String;&#13;&#10;begin&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Clear;&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + ' ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10; if (ACadena &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#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 frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ImprimirPrecio&#62; then&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := True; &#13;&#10; lImporteUnidad.Visible := True; &#13;&#10; eImporteTotal.Visible := True; &#13;&#10; lImporteTotal.Visible := True; &#13;&#10; ImporteUnidad.Visible := True; &#13;&#10; ImporteTotal.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := False; &#13;&#10; lImporteUnidad.Visible := False; &#13;&#10; eImporteTotal.Visible := False; &#13;&#10; lImporteTotal.Visible := False; &#13;&#10; ImporteUnidad.Visible := False; &#13;&#10; ImporteTotal.Visible := False;&#13;&#10; eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10; Concepto.Width :=eConcepto.Width - 10; &#13;&#10; end&#13;&#10;} &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ShowLogotipo&#62; then&#13;&#10; begin&#13;&#10; Overlay1.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; Overlay1.Visible := False; &#13;&#10; end&#13;&#10; } &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C650100"> <TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="42867,4552709375" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10; ACadena : String;&#13;&#10;begin&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Clear;&#13;&#10; if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + ' ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10; ACadena := '';&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10; if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10; if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10; ACadena := ACadena + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;;&#13;&#10;&#13;&#10; if (ACadena &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10; if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10; DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#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 frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; Set('Pagina', 0);&#13;&#10; Set('TotalPaginas', 0);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure eImporteUnidadOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ImprimirPrecio&#62; then&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := True; &#13;&#10; lImporteUnidad.Visible := True; &#13;&#10; eImporteTotal.Visible := True; &#13;&#10; lImporteTotal.Visible := True; &#13;&#10; ImporteUnidad.Visible := True; &#13;&#10; ImporteTotal.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; eImporteUnidad.Visible := False; &#13;&#10; lImporteUnidad.Visible := False; &#13;&#10; eImporteTotal.Visible := False; &#13;&#10; lImporteTotal.Visible := False; &#13;&#10; ImporteUnidad.Visible := False; &#13;&#10; ImporteTotal.Visible := False;&#13;&#10; eConcepto.Width := eConcepto.Width + ImporteTotal.Width + ImporteUnidad.Width;&#13;&#10; Concepto.Width :=eConcepto.Width - 10; &#13;&#10; end&#13;&#10;} &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Overlay1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{ &#13;&#10; if &#60;ShowLogotipo&#62; then&#13;&#10; begin&#13;&#10; Overlay1.Visible := True; &#13;&#10; end&#13;&#10; else&#13;&#10; begin &#13;&#10; Overlay1.Visible := False; &#13;&#10; end&#13;&#10; } &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F722200010C14000000204E616D653D2253686F774C6F676F7469706F220000055374796C650100">
<TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/> <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
<TfrxReportPage Name="Page1" PaperWidth="215,00041667" PaperHeight="297,00008333" PaperSize="256" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text=""> <TfrxReportPage Name="Page1" PaperWidth="215,00041667" PaperHeight="297,00008333" PaperSize="256" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
<TfrxMasterData Name="MasterData1" Height="21" Left="0" Top="376" Width="737,000475991765" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True"> <TfrxMasterData Name="MasterData1" Height="21" Left="0" Top="376" Width="737,000475991765" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
@ -9,7 +9,7 @@
<TfrxMemoView Name="ImporteTotal" Left="651" Top="1,5" Width="83,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="£ %2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/> <TfrxMemoView Name="ImporteTotal" Left="651" Top="1,5" Width="83,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="£ %2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
<TfrxMemoView Name="Concepto" Left="110" Top="1,5" Width="275" Height="18" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/> <TfrxMemoView Name="Concepto" Left="110" Top="1,5" Width="275" Height="18" ShowHint="False" StretchMode="smMaxHeight" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
<TfrxMemoView Name="Memo6" Left="449" Top="1" Width="67,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="£ %2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/> <TfrxMemoView Name="Memo6" Left="449" Top="1" Width="67,03148874" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="£ %2.2n" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
<TfrxMemoView Name="Memo17" Left="524" Top="1" Width="44" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/> <TfrxMemoView Name="Memo17" Left="521" Top="1" Width="54" Height="18" ShowHint="False" StretchMode="smMaxHeight" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="0" Font.Color="-16777208" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" GapY="3" HAlign="haRight" HideZeros="True" LineSpacing="4" ParentFont="False" Text="[frxDBDetalles.&#34;DESCUENTO&#34;]"/>
</TfrxMasterData> </TfrxMasterData>
<TfrxPageFooter Name="PageFooter1" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Arial" Font.Style="0" Height="140" Left="0" ParentFont="False" Top="1599" Width="737,000475991765"> <TfrxPageFooter Name="PageFooter1" Font.Charset="1" Font.Color="0" Font.Height="-7" Font.Name="Arial" Font.Style="0" Height="140" Left="0" ParentFont="False" Top="1599" Width="737,000475991765">
<TfrxMemoView Name="Memo24" Left="239" Top="24" Width="497" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Prices without tax"/> <TfrxMemoView Name="Memo24" Left="239" Top="24" Width="497" Height="16" ShowHint="False" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="Prices without tax"/>

262
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
View File

@ -2,19 +2,19 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 332 Left = 332
Top = 147 Top = 147
Caption = 'Nuevo albar'#225'n de proveedor' Caption = 'Nuevo albar'#225'n de proveedor'
ClientHeight = 619 ClientHeight = 662
ClientWidth = 765 ClientWidth = 778
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 786
ExplicitHeight = 653 ExplicitHeight = 696
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765 Width = 778
Caption = 'Nuevo albar'#225'n de proveedor' Caption = 'Nuevo albar'#225'n de proveedor'
ExplicitWidth = 765 ExplicitWidth = 765
inherited Image1: TImage inherited Image1: TImage
Left = 632 Left = 645
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -125,14 +125,14 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitLeft = 735 ExplicitLeft = 735
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 667 Left = 680
ExplicitLeft = 667 ExplicitLeft = 667
AnchorX = 712 AnchorX = 725
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 765 Width = 778
ExplicitWidth = 765 ExplicitWidth = 765
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
@ -147,12 +147,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 765 ExplicitWidth = 778
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 772
Height = 382 Height = 425
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 759 ExplicitWidth = 759
@ -166,15 +166,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0 ExplicitWidth = 751
ExplicitTop = 0 ExplicitHeight = 354
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 764
Height = 354 Height = 397
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -189,7 +187,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 354 ExplicitHeight = 354
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 764
Height = 51 Height = 51
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 51 ExplicitHeight = 51
@ -217,18 +215,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Left = 544
Top = 0 Top = 0
Width = 170 Width = 186
ExplicitLeft = 544 ExplicitLeft = 544
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 170 ExplicitWidth = 186
end end
inherited UpDown1: TUpDown inherited ToolButton13: TToolButton [7]
Left = 714
Top = 0
ExplicitLeft = 714
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
Wrap = True Wrap = True
@ -236,61 +228,67 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 0 ExplicitTop = 0
ExplicitHeight = 27 ExplicitHeight = 27
end end
inherited ToolButton6: TToolButton [9] inherited UpDown1: TUpDown [8]
Left = 0 Left = 0
Top = 27 Top = 27
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton [10] inherited ToolButton6: TToolButton [9]
Left = 66 Left = 17
Top = 27 Top = 27
ExplicitLeft = 66 ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton [11] inherited ToolButton8: TToolButton [11]
Left = 133 Left = 150
Top = 27 Top = 27
ExplicitLeft = 133 ExplicitLeft = 150
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton [12] inherited ToolButton12: TToolButton [12]
Left = 216 Left = 233
Top = 27 Top = 27
ExplicitLeft = 216 ExplicitLeft = 233
ExplicitTop = 27 ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [13] inherited ToolButton9: TToolButton [13]
Left = 224 Left = 241
Top = 27 Top = 27
ExplicitLeft = 224 ExplicitLeft = 241
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton [14]
Left = 369 Left = 386
Top = 27 Top = 27
ExplicitLeft = 369 ExplicitLeft = 386
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton11: TToolButton [15]
Left = 494 Left = 511
Top = 27 Top = 27
ExplicitLeft = 494 ExplicitLeft = 511
ExplicitTop = 27 ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 77 Top = 77
Width = 751 Width = 764
Height = 277 Height = 320
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 277 ExplicitHeight = 277
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 51
Width = 751 Width = 764
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 751 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
@ -311,15 +309,13 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0 ExplicitWidth = 751
ExplicitTop = 0 ExplicitHeight = 354
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 764
Height = 354 Height = 397
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -332,30 +328,30 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 354 ExplicitHeight = 354
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 764
ExplicitWidth = 751 ExplicitWidth = 751
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 764
Height = 326 Height = 369
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 326 ExplicitHeight = 326
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734 ExplicitWidth = 734
ExplicitHeight = 299 ExplicitHeight = 299
Height = 299 Height = 342
Width = 734 Width = 747
end end
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 600 Top = 643
Width = 765 Width = 778
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -365,8 +361,8 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 464 Top = 507
Width = 765 Width = 778
Height = 136 Height = 136
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -381,85 +377,85 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 765 ExplicitWidth = 765
ExplicitHeight = 136 ExplicitHeight = 136
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 765 Width = 778
Height = 136 Height = 136
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765 ExplicitWidth = 765
ExplicitHeight = 136 ExplicitHeight = 136
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 425 Left = 433
Top = 11 Top = -63
Height = 30 Height = 30
ExplicitLeft = 425 ExplicitLeft = 433
ExplicitTop = 11 ExplicitTop = -63
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 537 Left = 545
Top = 53 Top = -21
Width = 21 Width = 21
ExplicitLeft = 537 ExplicitLeft = 545
ExplicitTop = 53 ExplicitTop = -21
ExplicitWidth = 21 ExplicitWidth = 21
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 537 Left = 545
Top = 169 Top = 95
Width = 73 Width = 73
ExplicitLeft = 537 ExplicitLeft = 545
ExplicitTop = 169 ExplicitTop = 95
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel2: TBevel inherited Bevel2: TBevel
Left = 120 Left = 120
Top = 171 Top = 97
Width = 368 Width = 368
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 171 ExplicitTop = 97
ExplicitWidth = 368 ExplicitWidth = 368
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 191 Left = 191
Top = 38 Top = -36
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 191 ExplicitLeft = 191
ExplicitTop = 38 ExplicitTop = -36
ExplicitWidth = 199 ExplicitWidth = 199
Width = 199 Width = 199
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 608 Left = 616
Top = 88 Top = 14
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 608 ExplicitLeft = 616
ExplicitTop = 88 ExplicitTop = 14
ExplicitWidth = 192 ExplicitWidth = 192
Width = 192 Width = 192
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 538 Left = 546
Top = 142 Top = 68
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 546
ExplicitTop = 142 ExplicitTop = 68
ExplicitWidth = 262 ExplicitWidth = 262
Width = 262 Width = 262
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 120 Left = 120
Top = 38 Top = -36
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -467,73 +463,73 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 38 ExplicitTop = -36
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 537 Left = 545
Top = 88 Top = 14
Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537 ExplicitLeft = 545
ExplicitTop = 88 ExplicitTop = 14
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 537 Left = 545
Top = 11 Top = -63
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537 ExplicitLeft = 545
ExplicitTop = 11 ExplicitTop = -63
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 537 Left = 545
Top = 115 Top = 41
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537 ExplicitLeft = 545
ExplicitTop = 115 ExplicitTop = 41
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 608 Left = 616
Top = 115 Top = 41
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 608 ExplicitLeft = 616
ExplicitTop = 115 ExplicitTop = 41
ExplicitWidth = 192 ExplicitWidth = 192
Width = 192 Width = 192
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 120 Left = 120
Top = 11 Top = -63
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 11 ExplicitTop = -63
ExplicitWidth = 270 ExplicitWidth = 270
Width = 270 Width = 270
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 120 Left = 120
Top = 65 Top = -9
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -541,74 +537,74 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 65 ExplicitTop = -9
ExplicitWidth = 270 ExplicitWidth = 270
Width = 270 Width = 270
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 120 Left = 120
Top = 92 Top = 18
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 92 ExplicitTop = 18
ExplicitWidth = 132 ExplicitWidth = 132
Width = 132 Width = 132
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 277 Left = 285
Top = 92 Top = 18
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 277 ExplicitLeft = 285
ExplicitTop = 92 ExplicitTop = 18
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120 Left = 120
Top = 119 Top = 45
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 119 ExplicitTop = 45
ExplicitWidth = 270 ExplicitWidth = 270
Width = 270 Width = 270
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 537 Left = 545
Top = 189 Top = 115
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 537 ExplicitLeft = 545
ExplicitTop = 189 ExplicitTop = 115
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 608 Left = 616
Top = 189 Top = 115
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 608 ExplicitLeft = 616
ExplicitTop = 189 ExplicitTop = 115
ExplicitWidth = 180 ExplicitWidth = 180
Width = 180 Width = 180
end end
inherited edtFechaRetencion: TcxDBDateEdit inherited edtFechaRetencion: TcxDBDateEdit
Left = 120 Left = 120
Top = 191 Top = 117
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 191 ExplicitTop = 117
ExplicitWidth = 280 ExplicitWidth = 280
Width = 280 Width = 280
end end
@ -617,10 +613,15 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ShowCaption = False ShowCaption = False
ShowBorder = False ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False
end
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Group7: TdxLayoutGroup inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Item19: TdxLayoutItem inherited dxLayoutControl1Item19: TdxLayoutItem
@ -635,11 +636,18 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited dxLayoutControl1Item14: TdxLayoutItem inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
inherited dxLayoutControl1Item7: TdxLayoutItem inherited dxLayoutControl1Item7: TdxLayoutItem
Visible = True Visible = True
end end
end end
inherited dxLayoutControl1Item3: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False Visible = False
end end

12
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -18,7 +18,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewBASE_IMPONIBLE
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -33,7 +33,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewBASE_IMPONIBLE
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
@ -159,9 +159,9 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 52 Width = 52
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Base Imponible'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'BASE_IMPONIBLE'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
@ -225,6 +225,8 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447 ExplicitLeft = 447
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

2
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -37,7 +37,7 @@ type
cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn; cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn;
cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn; cxGridViewREF_PED_PROVEEDOR: TcxGridDBColumn;
cxGridViewREF_FACTURA: TcxGridDBColumn; cxGridViewREF_FACTURA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
actProveedor: TAction; actProveedor: TAction;
actAlmacen: TAction; actAlmacen: TAction;
TBXItem2: TTBXItem; TBXItem2: TTBXItem;

1
Source/Modulos/Articulos/Views/uViewProveedorArticulo.dfm
View File

@ -97,6 +97,7 @@ inherited frViewProveedorArticulo: TfrViewProveedorArticulo
Top = 136 Top = 136
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
Properties.DisplayFormat = '#,0.00%'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MaxValue = 100.000000000000000000 Properties.MaxValue = 100.000000000000000000
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame

2
Source/Modulos/Articulos/Views/uViewProveedorArticulo.pas
View File

@ -185,7 +185,7 @@ begin
DesactivarEventos; DesactivarEventos;
try try
eDescuento.DataBinding.DataSource.Edit; eDescuento.DataBinding.DataSource.Edit;
eDescuento.DataBinding.Field.AsFloat := RoundTo(ADescuento, -2); eDescuento.DataBinding.Field.AsFloat := ADescuento; //RoundTo(ADescuento, -2);
finally finally
ActivarEventos; ActivarEventos;
end; end;

11
Source/Modulos/Contactos/Controller/uAgentesController.pas
View File

@ -107,6 +107,13 @@ end;
function TAgentesController.Duplicar(AContacto: IBizContacto): IBizContacto; function TAgentesController.Duplicar(AContacto: IBizContacto): IBizContacto;
begin begin
Result := inherited Duplicar(AContacto); Result := inherited Duplicar(AContacto);
// if Assigned((Result as IBizAgente).ObjetivosAlbaranes) then
// DuplicarRegistros((AContacto as IBizAgente).ObjetivosAlbaranes.DataTable, (Result as IBizAgente).ObjetivosAlbaranes.DataTable, mdrTodos);
// if Assigned((Result as IBizAgente).ObjetivosFacturas) then
// DuplicarRegistros((AContacto as IBizAgente).ObjetivosFacturas.DataTable, (Result as IBizAgente).ObjetivosFacturas.DataTable, mdrTodos);
end; end;
function TAgentesController.ElegirContacto(AContactos: IBizContacto; function TAgentesController.ElegirContacto(AContactos: IBizContacto;
@ -202,8 +209,8 @@ function TAgentesController.Guardar(AContacto: IBizContacto): Boolean;
begin begin
if inherited Guardar(AContacto) then if inherited Guardar(AContacto) then
begin begin
(AContacto as IBizAgente).ObjetivosAlbaranes.DataTable.Refresh; // (AContacto as IBizAgente).ObjetivosAlbaranes.DataTable.Refresh;
(AContacto as IBizAgente).ObjetivosFacturas.DataTable.Refresh; // (AContacto as IBizAgente).ObjetivosFacturas.DataTable.Refresh;
end; end;
end; end;

4
Source/Modulos/Contactos/Views/uViewEmpleados.pas
View File

@ -88,9 +88,9 @@ begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_EmpleadosFECHA_BAJA).Index; IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_EmpleadosFECHA_BAJA).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if Length(ASituacion) = 0 then if Length(ASituacion) = 0 then
AStyle.TextColor := cxStyleActivos.TextColor AStyle := cxStyleActivos
else else
AStyle.TextColor := cxStyleInactivos.TextColor; AStyle := cxStyleInactivos;
end; end;
end; end;

5
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -298,6 +298,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
Name = 'NOMBRE_COMERCIAL' Name = 'NOMBRE_COMERCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'NOMBRE_AGENTE'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

51
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{02AB48F1-470E-474A-92D7-F25AE742845D}'; RID_ListaAnosFacturas = '{3B978089-46EE-45E5-B753-7FD013A73DC2}';
RID_FacturasCliente = '{5ACD68C9-AB25-461E-801E-2A702D4010FA}'; RID_FacturasCliente = '{EC537E6E-2DF3-4E4B-BAED-AAE2ECA9EBF2}';
RID_FacturasCliente_Detalles = '{106B1153-506B-4F4F-89BD-3ED3CFCAE27C}'; RID_FacturasCliente_Detalles = '{3F1D33DC-E40C-4F7F-9D31-CFE4CDDD7555}';
RID_FacturasClienteDeAlbaran = '{F35590A9-AE16-4478-B3B3-17A4E5A3A5F7}'; RID_FacturasClienteDeAlbaran = '{CF8A313F-0925-4AD4-B850-DB7ADC3D1075}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -73,6 +73,7 @@ const
fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN'; fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN';
fld_FacturasClientePAIS = 'PAIS'; fld_FacturasClientePAIS = 'PAIS';
fld_FacturasClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_FacturasClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_FacturasClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -121,6 +122,7 @@ const
idx_FacturasClienteID_ALBARAN = 43; idx_FacturasClienteID_ALBARAN = 43;
idx_FacturasClientePAIS = 44; idx_FacturasClientePAIS = 44;
idx_FacturasClienteNOMBRE_COMERCIAL = 45; idx_FacturasClienteNOMBRE_COMERCIAL = 45;
idx_FacturasClienteNOMBRE_AGENTE = 46;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -251,7 +253,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{BCBC17E8-5138-42CD-9874-B52C08C5748B}'] ['{1B46D9B4-3797-4541-82F0-6574118C088E}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -286,7 +288,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{4244914D-A271-4967-97C4-502EBBCABC1D}'] ['{C1D52241-E925-4005-B0F6-9F6FE2937B2D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -471,6 +473,10 @@ type
procedure SetNOMBRE_COMERCIALValue(const aValue: String); procedure SetNOMBRE_COMERCIALValue(const aValue: String);
function GetNOMBRE_COMERCIALIsNull: Boolean; function GetNOMBRE_COMERCIALIsNull: Boolean;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
function GetNOMBRE_AGENTEValue: String;
procedure SetNOMBRE_AGENTEValue(const aValue: String);
function GetNOMBRE_AGENTEIsNull: Boolean;
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -566,6 +572,8 @@ type
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -758,6 +766,10 @@ type
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual; function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_AGENTEValue: String; virtual;
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -852,6 +864,8 @@ type
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -861,7 +875,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{3C6995B4-07EA-4767-9854-BDD151D83BE5}'] ['{9F17C201-9C4F-4DED-855A-23CECA074B2D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1064,7 +1078,7 @@ type
{ IFacturasClienteDeAlbaran } { IFacturasClienteDeAlbaran }
IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable) IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable)
['{4326AA0D-927C-440F-9511-433694EC80D7}'] ['{37E2EB81-D03D-4D28-BDB1-53AF019A5989}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2634,6 +2648,27 @@ begin
DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsVariant := Null; DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

59
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{38B4B73D-66DC-44E6-9FD6-A497533203B1}'; RID_ListaAnosFacturasDelta = '{B718E26C-623C-41F8-BFF3-3DAFCEAB064A}';
RID_FacturasClienteDelta = '{6A8B4E4D-5FEE-4C32-AFBF-2084F66563F5}'; RID_FacturasClienteDelta = '{640B108D-0A95-4EE3-9C21-9C034ED5A0AD}';
RID_FacturasCliente_DetallesDelta = '{72D6D853-218D-4292-825E-633CC9413944}'; RID_FacturasCliente_DetallesDelta = '{EBF40DCF-0538-4B75-BFFC-C28CDD13FC5F}';
RID_FacturasClienteDeAlbaranDelta = '{1BD62FD7-DB5A-435A-8428-FFD60E2015FA}'; RID_FacturasClienteDeAlbaranDelta = '{82174611-294F-4A44-9CC6-941D23135874}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{38B4B73D-66DC-44E6-9FD6-A497533203B1}'] ['{B718E26C-623C-41F8-BFF3-3DAFCEAB064A}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{6A8B4E4D-5FEE-4C32-AFBF-2084F66563F5}'] ['{640B108D-0A95-4EE3-9C21-9C034ED5A0AD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -99,6 +99,7 @@ type
function GetOldID_ALBARANValue : String; function GetOldID_ALBARANValue : String;
function GetOldPAISValue : String; function GetOldPAISValue : String;
function GetOldNOMBRE_COMERCIALValue : String; function GetOldNOMBRE_COMERCIALValue : String;
function GetOldNOMBRE_AGENTEValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -147,6 +148,7 @@ type
property OldID_ALBARAN : String read GetOldID_ALBARANValue; property OldID_ALBARAN : String read GetOldID_ALBARANValue;
property OldPAIS : String read GetOldPAISValue; property OldPAIS : String read GetOldPAISValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -431,6 +433,12 @@ type
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_AGENTEValue: String; virtual;
function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
function GetOldNOMBRE_AGENTEValue: String; virtual;
function GetOldNOMBRE_AGENTEIsNull: Boolean; virtual;
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -617,6 +625,10 @@ type
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull; property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
property NOMBRE_AGENTEIsNull : Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
property OldNOMBRE_AGENTEIsNull : Boolean read GetOldNOMBRE_AGENTEIsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -626,7 +638,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{72D6D853-218D-4292-825E-633CC9413944}'] ['{EBF40DCF-0538-4B75-BFFC-C28CDD13FC5F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -828,7 +840,7 @@ type
{ IFacturasClienteDeAlbaranDelta } { IFacturasClienteDeAlbaranDelta }
IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran) IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran)
['{1BD62FD7-DB5A-435A-8428-FFD60E2015FA}'] ['{82174611-294F-4A44-9CC6-941D23135874}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -2870,6 +2882,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE];
end;
function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

9
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -231,6 +231,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'NOMBRE_COMERCIAL' DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL'
end
item
DatasetField = 'NOMBRE_AGENTE'
TableField = 'NOMBRE_AGENTE'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -473,6 +477,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'NOMBRE_COMERCIAL' Name = 'NOMBRE_COMERCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'NOMBRE_AGENTE'
DataType = datString
Size = 255
end> end>
end end
item item

14
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -193,6 +193,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Caption = 'Pa'#237's' Caption = 'Pa'#237's'
DataBinding.FieldName = 'PAIS' DataBinding.FieldName = 'PAIS'
end end
object cxGridViewAgente: TcxGridDBColumn
Caption = 'Agente'
DataBinding.FieldName = 'NOMBRE_AGENTE'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'
@ -283,6 +287,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
object TBXItem2: TTBXItem object TBXItem2: TTBXItem
Action = actPais Action = actPais
end end
object TBXSeparatorItem3: TTBXSeparatorItem
end
object TBXItem4: TTBXItem
Action = actAgente
end
end end
end end
end end
@ -323,6 +332,11 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
OnExecute = actPaisExecute OnExecute = actPaisExecute
OnUpdate = actPaisUpdate OnUpdate = actPaisUpdate
end end
object actAgente: TAction
Caption = 'Agente'
OnExecute = actAgenteExecute
OnUpdate = actAgenteUpdate
end
end end
inherited GridPNGImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <

54
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -62,6 +62,10 @@ type
cxGridViewIMPORTE_RE: TcxGridDBColumn; cxGridViewIMPORTE_RE: TcxGridDBColumn;
cxGridViewPAIS: TcxGridDBColumn; cxGridViewPAIS: TcxGridDBColumn;
cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn; cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
cxGridViewAgente: TcxGridDBColumn;
actAgente: TAction;
TBXSeparatorItem3: TTBXSeparatorItem;
TBXItem4: TTBXItem;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);
@ -79,6 +83,8 @@ type
procedure cxGridViewNUM_CORREOSCustomDrawHeader(Sender: TcxGridTableView; procedure cxGridViewNUM_CORREOSCustomDrawHeader(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo; ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
var ADone: Boolean); var ADone: Boolean);
procedure actAgenteExecute(Sender: TObject);
procedure actAgenteUpdate(Sender: TObject);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -99,13 +105,33 @@ type
implementation implementation
uses uses
uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils, uDataModuleFacturasCliente, DateUtils, uViewGridBase, uReferenciasUtils, schFacturasClienteClient_Intf ,
cxVariants; cxVariants;
{$R *.dfm} {$R *.dfm}
{ TfrViewFacturasCliente } { TfrViewFacturasCliente }
procedure TfrViewFacturasCliente.actAgenteExecute(Sender: TObject);
begin
if (cxGridViewAGENTE.GroupIndex < 0) then
begin
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
cxGridViewAGENTE.Visible := False;
end
else
begin
cxGridViewAGENTE.GroupIndex := -1;
cxGridViewAGENTE.Visible := True;
end;
end;
procedure TfrViewFacturasCliente.actAgenteUpdate(Sender: TObject);
begin
inherited;
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
end;
procedure TfrViewFacturasCliente.actClienteExecute(Sender: TObject); procedure TfrViewFacturasCliente.actClienteExecute(Sender: TObject);
begin begin
if (cxGridViewNOMBRE.GroupIndex < 0) then if (cxGridViewNOMBRE.GroupIndex < 0) then
@ -266,18 +292,22 @@ begin
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
IndiceCol := cxGridViewSITUACION.Index; //ESTILO SITUACIONES
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasClienteSITUACION)) then
if (ASituacion = CTE_PAGADA) then begin
AStyle.TextColor := cxStylePagada.TextColor IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasClienteSITUACION).Index;
else if (ASituacion = CTE_PENDIENTE) then ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
AStyle.TextColor := cxStylePendientes.TextColor if (ASituacion = CTE_PAGADA) then
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then AStyle := cxStylePagada
AStyle.TextColor := cxStyleParciales.TextColor; else if (ASituacion = CTE_PENDIENTE) then
AStyle := cxStylePendientes
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
AStyle := cxStyleParciales;
IndiceCol := cxGridViewIMPORTE_TOTAL.Index; IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasClienteIMPORTE_TOTAL).Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle.TextColor := cxStyleAbono.TextColor; AStyle := cxStyleAbono;
end;
end; end;
end; end;

16
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -27,7 +27,6 @@
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" /> <Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" /> <Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" /> <Projects Include="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" />
<Projects Include="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" /> <Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" /> <Projects Include="Model\FacturasProveedor_model.dproj" />
@ -238,15 +237,6 @@
<Target Name="FacturasCliente_view:Make"> <Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="PreCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="" />
</Target>
<Target Name="PreCli_FacCli_relation:Clean">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PreCli_FacCli_relation:Make">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_data"> <Target Name="PedidosProveedor_data">
<MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="" /> <MSBuild Projects="..\Pedidos a proveedor\Data\PedidosProveedor_data.dproj" Targets="" />
</Target> </Target>
@ -302,13 +292,13 @@
<MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

20
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -9,11 +9,11 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{39EC9E1B-2911-46D1-ACA9-FA1EF6E51A75}'; RID_ListaAnosFacturas = '{DE72C5AA-3A81-46F2-A596-E612C9A8E0DF}';
RID_FacturasProveedor = '{694516CA-63EE-41E4-82BB-75782E314DC8}'; RID_FacturasProveedor = '{CCA571D8-A9AA-42CC-B352-B028348D8BCE}';
RID_FacturasProveedor_Detalles = '{16B3A1FB-A523-4336-B56A-60823DDE3E24}'; RID_FacturasProveedor_Detalles = '{DFCD3856-B73B-4594-9663-8EAFA99403F2}';
RID_FacturasProveedor_Pedidos = '{6A7C212A-59AC-4E29-95AD-ACC947BB7D9A}'; RID_FacturasProveedor_Pedidos = '{0D6A1D92-CEE3-480C-ACAF-F8E6BD8AD400}';
RID_FacturasProveedorDeAlbaran = '{EE202C16-34F4-4B4C-B6BB-EB811D237AB6}'; RID_FacturasProveedorDeAlbaran = '{CE90EB16-10A3-4E23-A1E1-2BD2C0281449}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -237,7 +237,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{83DE52CB-0D48-4AE6-B88A-7162486BBBA8}'] ['{67A508CE-EAC3-4F10-8A21-C6AE7FC4A5B1}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -272,7 +272,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{AE58DD6C-AE26-4255-AE43-9D2D7B371A56}'] ['{EBBDE259-AFF4-499A-A384-232A7B003087}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -727,7 +727,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{745A7B7E-1729-48B9-BF23-444482E23AB7}'] ['{0EB649EC-EB49-4EDB-A5F8-F9224CA96190}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -942,7 +942,7 @@ type
{ IFacturasProveedor_Pedidos } { IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{3836DA85-3066-4BC8-974B-04C2148275B8}'] ['{B9E6740D-870F-4569-8F79-CA2B1E597A98}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1049,7 +1049,7 @@ type
{ IFacturasProveedorDeAlbaran } { IFacturasProveedorDeAlbaran }
IFacturasProveedorDeAlbaran = interface(IDAStronglyTypedDataTable) IFacturasProveedorDeAlbaran = interface(IDAStronglyTypedDataTable)
['{62E0726A-2187-4779-956B-09258612C07A}'] ['{04C6392D-0292-4E63-8735-340085D4B9AE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);

20
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -9,16 +9,16 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{D07287C5-EC7A-4659-B15A-6260065DCEEA}'; RID_ListaAnosFacturasDelta = '{907E16FE-0521-405C-A967-11989922E9D6}';
RID_FacturasProveedorDelta = '{745B5F49-A1E1-45BA-B8AE-0847024CEE5A}'; RID_FacturasProveedorDelta = '{1C45684B-EB3E-4CB6-BF48-C71FD3CB3219}';
RID_FacturasProveedor_DetallesDelta = '{12331A1D-2031-4A48-B546-AC5F8B49D841}'; RID_FacturasProveedor_DetallesDelta = '{9623AA50-5B1E-4752-B6BC-2ABB0044DD02}';
RID_FacturasProveedor_PedidosDelta = '{8EB730A8-ED88-46F8-96D9-C5DF0A86AFD9}'; RID_FacturasProveedor_PedidosDelta = '{C59F83C5-F496-4D6B-AD34-8A6673017C3B}';
RID_FacturasProveedorDeAlbaranDelta = '{804D2139-7836-4684-8A0B-E0D7E97E7F52}'; RID_FacturasProveedorDeAlbaranDelta = '{7793CA17-D13C-4B90-8243-B75F1DFA5BC2}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{D07287C5-EC7A-4659-B15A-6260065DCEEA}'] ['{907E16FE-0521-405C-A967-11989922E9D6}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -52,7 +52,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{745B5F49-A1E1-45BA-B8AE-0847024CEE5A}'] ['{1C45684B-EB3E-4CB6-BF48-C71FD3CB3219}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -507,7 +507,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{12331A1D-2031-4A48-B546-AC5F8B49D841}'] ['{9623AA50-5B1E-4752-B6BC-2ABB0044DD02}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -721,7 +721,7 @@ type
{ IFacturasProveedor_PedidosDelta } { IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos) IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{8EB730A8-ED88-46F8-96D9-C5DF0A86AFD9}'] ['{C59F83C5-F496-4D6B-AD34-8A6673017C3B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -827,7 +827,7 @@ type
{ IFacturasProveedorDeAlbaranDelta } { IFacturasProveedorDeAlbaranDelta }
IFacturasProveedorDeAlbaranDelta = interface(IFacturasProveedorDeAlbaran) IFacturasProveedorDeAlbaranDelta = interface(IFacturasProveedorDeAlbaran)
['{804D2139-7836-4684-8A0B-E0D7E97E7F52}'] ['{7793CA17-D13C-4B90-8243-B75F1DFA5BC2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;

2
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

@ -233,8 +233,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 388 ExplicitLeft = 388
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

29
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -94,7 +94,7 @@ implementation
uses uses
uDataModuleFacturasProveedor, DateUtils, uViewGridBase, uReferenciasUtils, uDataModuleFacturasProveedor, DateUtils, uViewGridBase, uReferenciasUtils,
cxVariants; cxVariants, schFacturasProveedorClient_Intf;
{$R *.dfm} {$R *.dfm}
@ -261,19 +261,22 @@ begin
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
//ESTILO SITUACIONES
if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProveedorSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProveedorSITUACION).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (ASituacion = CTE_PAGADA) then
AStyle := cxStylePagada
else if (ASituacion = CTE_PENDIENTE) then
AStyle := cxStylePendientes
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
AStyle := cxStyleParciales;
IndiceCol := cxGridViewSITUACION.Index; IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProveedorIMPORTE_TOTAL).Index;
ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol])); if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
if (ASituacion = CTE_PAGADA) then AStyle := cxStyleAbono;
AStyle.TextColor := cxStylePagada.TextColor end;
else if (ASituacion = CTE_PENDIENTE) then
AStyle.TextColor := cxStylePendientes.TextColor
else if (ASituacion = CTE_PARCIAMENTE_PAGADA) then
AStyle.TextColor := cxStyleParciales.TextColor;
IndiceCol := cxGridViewIMPORTE_TOTAL.Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle.TextColor := cxStyleAbono.TextColor;
end; end;
end; end;

25
Source/Modulos/Facturas proforma/Views/uViewFacturasProforma.pas
View File

@ -97,7 +97,7 @@ implementation
uses uses
uDataModuleFacturasProforma, DateUtils, uViewGridBase, uReferenciasUtils, uDataModuleFacturasProforma, DateUtils, uViewGridBase, uReferenciasUtils,
cxVariants; cxVariants, schFacturasProformaClient_Intf;
{$R *.dfm} {$R *.dfm}
@ -261,16 +261,21 @@ begin
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
IndiceCol := cxGridViewSITUACION.Index; //ESTILO SITUACIONES
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProformaSITUACION)) then
if (ASituacion = CTE_PAGADA) then begin
AStyle.TextColor := cxStylePagada.TextColor IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProformaSITUACION).Index;
else if (ASituacion = CTE_PENDIENTE) then
AStyle.TextColor := cxStylePendientes.TextColor;
IndiceCol := cxGridViewIMPORTE_TOTAL.Index; ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then if (ASituacion = CTE_PAGADA) then
AStyle.TextColor := cxStyleAbono.TextColor; AStyle := cxStylePagada
else if (ASituacion = CTE_PENDIENTE) then
AStyle := cxStylePendientes;
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_FacturasProformaIMPORTE_TOTAL).Index;
if (Pos('-', ARecord.DisplayTexts[IndiceCol]) > 0) then
AStyle := cxStyleAbono;
end;
end; end;
end; end;

2
Source/Modulos/Formas de pago/Views/uEditorFormasPago.dfm
View File

@ -61,7 +61,7 @@ object fEditorFormasPago: TfEditorFormasPago
end end
object bAnadir: TButton object bAnadir: TButton
Left = 284 Left = 284
Top = 31 Top = 32
Width = 95 Width = 95
Height = 23 Height = 23
Action = actAnadir Action = actAnadir

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

@ -79,7 +79,7 @@ implementation
{ TfEditorFormasPago } { TfEditorFormasPago }
uses uses
uDialogUtils; uDialogUtils, uFactuGES_App;
function TfEditorFormasPago.GetFormasPago: IBizFormaPago; function TfEditorFormasPago.GetFormasPago: IBizFormaPago;
begin begin
@ -114,7 +114,8 @@ procedure TfEditorFormasPago.actEliminarUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and (Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active and FFormasPago.DataTable.Active and
(FFormasPago.DataTable.RecordCount > 0); (FFormasPago.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end; end;
procedure TfEditorFormasPago.actModificarExecute(Sender: TObject); procedure TfEditorFormasPago.actModificarExecute(Sender: TObject);
@ -126,7 +127,8 @@ procedure TfEditorFormasPago.actModificarUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and (Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active and FFormasPago.DataTable.Active and
(FFormasPago.DataTable.RecordCount > 0); (FFormasPago.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end; end;
constructor TfEditorFormasPago.Create(AOwner: TComponent); constructor TfEditorFormasPago.Create(AOwner: TComponent);
@ -170,7 +172,8 @@ end;
procedure TfEditorFormasPago.actAnadirUpdate(Sender: TObject); procedure TfEditorFormasPago.actAnadirUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := Assigned(FFormasPago) and (Sender as TAction).Enabled := Assigned(FFormasPago) and
FFormasPago.DataTable.Active; FFormasPago.DataTable.Active and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end; end;
procedure TfEditorFormasPago.FormShow(Sender: TObject); procedure TfEditorFormasPago.FormShow(Sender: TObject);
@ -179,6 +182,11 @@ begin
FFormasPago.DataTable.Active := true; FFormasPago.DataTable.Active := true;
ListaFormasPago.SetFocus; ListaFormasPago.SetFocus;
if (AppFactuGES.UsuarioActivo.ID_PERFIL = 11) then
actAceptar.enabled:= True
else
actAceptar.enabled:= False;
end; end;
end. end.

3
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm
View File

@ -146,6 +146,9 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 128
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
Left = 400 Left = 400
Top = 160 Top = 160

3
Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas
View File

@ -14,7 +14,8 @@ uses
cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox, cxImageComboBox, ImgList, PngImageList, cxTextEdit, Grids, DBGrids, cxDBLookupComboBox,
cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid, cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, uViewGrid,
uBizHistoricoMovimientos, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX, uBizHistoricoMovimientos, uBizAlmacenes, cxSpinEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces; TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxCurrencyEdit, uDAInterfaces,
uCustomView, uViewBase;
type type
IViewHistoricoMovimientos = interface(IViewGrid) IViewHistoricoMovimientos = interface(IViewGrid)

4
Source/Modulos/Inventario/Views/uViewInventario.pas
View File

@ -167,9 +167,9 @@ begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_INVENTARIOSTOCK).Index; IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_INVENTARIOSTOCK).Index;
AStock := ARecord.DisplayTexts[IndiceCol]; AStock := ARecord.DisplayTexts[IndiceCol];
if (AStock < 0) then if (AStock < 0) then
AStyle.TextColor := cxStyleArticuloSinStock.TextColor AStyle := cxStyleArticuloSinStock
else else
AStyle.TextColor := cxStyleArticuloConStock.TextColor; AStyle := cxStyleArticuloConStock;
end; end;
end; end;

367
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -2,19 +2,20 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 332 Left = 332
Top = 147 Top = 147
Caption = 'Nuevo pedido a proveedor' Caption = 'Nuevo pedido a proveedor'
ClientHeight = 678 ClientHeight = 686
ClientWidth = 879 ClientWidth = 885
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 887 ExplicitTop = -7
ExplicitHeight = 712 ExplicitWidth = 893
ExplicitHeight = 720
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 879 Width = 885
Caption = 'Nuevo pedido a proveedor' Caption = 'Nuevo pedido a proveedor'
ExplicitWidth = 879 ExplicitWidth = 879
inherited Image1: TImage inherited Image1: TImage
Left = 852 Left = 858
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -42,14 +43,14 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitLeft = 735 ExplicitLeft = 735
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 754 Left = 760
ExplicitLeft = 754 ExplicitLeft = 754
AnchorX = 799 AnchorX = 805
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 879 Width = 885
ExplicitWidth = 879 ExplicitWidth = 879
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 596 ExplicitWidth = 596
@ -69,7 +70,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 879 ExplicitWidth = 885
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem7: TTBXItem object TBXItem7: TTBXItem
@ -79,31 +80,29 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 873 Width = 879
Height = 528 Height = 527
ActivePage = pagContenido ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 873 ExplicitWidth = 879
ExplicitHeight = 528 ExplicitHeight = 536
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 865 ExplicitWidth = 871
ExplicitHeight = 500 ExplicitHeight = 508
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0 ExplicitWidth = 865
ExplicitTop = 0 ExplicitHeight = 500
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 865 Width = 871
Height = 500 Height = 499
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -118,105 +117,108 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 865 ExplicitWidth = 865
ExplicitHeight = 500 ExplicitHeight = 500
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 865 Width = 871
Height = 46 Height = 51
ExplicitWidth = 865 ExplicitWidth = 865
ExplicitHeight = 46 ExplicitHeight = 51
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Left = 278 Left = 278
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 278 ExplicitLeft = 278
ExplicitTop = 0 ExplicitTop = 0
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton [4]
Left = 0 Left = 334
Wrap = False Top = 0
ExplicitLeft = 0 ExplicitLeft = 334
ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox [5]
Left = 65 Left = 399
Top = 22 Top = 0
ExplicitLeft = 65 ExplicitLeft = 399
ExplicitTop = 22 ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 210 Left = 544
Top = 22 Top = 0
Width = 58 Width = 58
ExplicitLeft = 210 ExplicitLeft = 544
ExplicitTop = 22 ExplicitTop = 0
ExplicitWidth = 58 ExplicitWidth = 58
end end
inherited UpDown1: TUpDown inherited ToolButton13: TToolButton [7]
Left = 268 Left = 0
Top = 22 Top = 0
ExplicitLeft = 268 Wrap = True
ExplicitTop = 22 ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end end
inherited ToolButton13: TToolButton inherited UpDown1: TUpDown [8]
Left = 285 Left = 0
Top = 22 Top = 27
ExplicitLeft = 285 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton [9]
Left = 293 Left = 17
Top = 22 Top = 27
ExplicitLeft = 293 ExplicitLeft = 17
ExplicitTop = 22 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton [10]
Left = 359 Left = 83
Top = 22 Top = 27
ExplicitLeft = 359 ExplicitLeft = 83
ExplicitTop = 22 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton [11]
Left = 426 Left = 150
Top = 22 Top = 27
ExplicitLeft = 426 ExplicitLeft = 150
ExplicitTop = 22 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton [12]
Left = 509 Left = 233
Top = 22 Top = 27
ExplicitLeft = 509 ExplicitLeft = 233
ExplicitTop = 22 ExplicitTop = 27
ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton [13]
Left = 517 Left = 241
Top = 22 Top = 27
ExplicitLeft = 517 ExplicitLeft = 241
ExplicitTop = 22 ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton [14]
Left = 662 Left = 386
Top = 22 Top = 27
ExplicitLeft = 662 ExplicitLeft = 386
ExplicitTop = 22 ExplicitTop = 27
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton [15]
Left = 787 Left = 511
Top = 22 Top = 27
ExplicitLeft = 787 ExplicitLeft = 511
ExplicitTop = 22 ExplicitTop = 27
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 72 Top = 77
Width = 865 Width = 871
Height = 428 Height = 422
ExplicitTop = 77 ExplicitTop = 77
ExplicitWidth = 865 ExplicitWidth = 865
ExplicitHeight = 423 ExplicitHeight = 423
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 46 Top = 51
Width = 865 Width = 871
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 865 ExplicitWidth = 865
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
@ -237,15 +239,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0 ExplicitWidth = 865
ExplicitTop = 0 ExplicitHeight = 500
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasProv: TfrViewIncidencias inline frViewIncidenciasProv: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 865 Width = 871
Height = 500 Height = 499
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -258,30 +258,30 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 865 ExplicitWidth = 865
ExplicitHeight = 500 ExplicitHeight = 500
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 865 Width = 871
ExplicitWidth = 865 ExplicitWidth = 871
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 865 Width = 871
Height = 472 Height = 471
ExplicitWidth = 865 ExplicitWidth = 871
ExplicitHeight = 472 ExplicitHeight = 480
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 848 ExplicitWidth = 854
ExplicitHeight = 445 ExplicitHeight = 453
Height = 445 Height = 444
Width = 848 Width = 854
end end
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 659 Top = 667
Width = 879 Width = 885
Panels = < Panels = <
item item
Width = 200 Width = 200
@ -291,9 +291,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 610 Top = 609
Width = 879 Width = 885
Height = 49 Height = 58
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -303,124 +303,124 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 610 ExplicitTop = 609
ExplicitWidth = 879 ExplicitWidth = 885
ExplicitHeight = 49 ExplicitHeight = 58
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 879 Width = 885
Height = 49 Height = 58
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 879 ExplicitWidth = 879
ExplicitHeight = 49 ExplicitHeight = 49
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 458 Left = 462
Top = 11 Top = 1
Height = 30 Height = 30
ExplicitLeft = 458 ExplicitLeft = 462
ExplicitTop = 11 ExplicitTop = 1
ExplicitHeight = 30 ExplicitHeight = 30
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 570 Left = 574
Top = 53 Top = 43
Width = 21 Width = 21
ExplicitLeft = 570 ExplicitLeft = 574
ExplicitTop = 53 ExplicitTop = 43
ExplicitWidth = 21 ExplicitWidth = 21
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 570 Left = 574
Top = 169 Top = 159
Width = 73 Width = 73
ExplicitLeft = 570 ExplicitLeft = 574
ExplicitTop = 169 ExplicitTop = 159
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel2: TBevel inherited Bevel2: TBevel
Left = 120 Left = 120
Top = 171 Top = 161
Width = 368 Width = 368
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 171 ExplicitTop = 161
ExplicitWidth = 368 ExplicitWidth = 368
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 191 Left = 191
Top = 38 Top = 28
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 191 ExplicitLeft = 191
ExplicitTop = 38 ExplicitTop = 28
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 641 Left = 645
Top = 88 Top = 78
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 641 ExplicitLeft = 645
ExplicitTop = 88 ExplicitTop = 78
ExplicitWidth = 252 ExplicitWidth = 252
Width = 252 Width = 252
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 571 Left = 575
Top = 142 Top = 132
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 571 ExplicitLeft = 575
ExplicitTop = 142 ExplicitTop = 132
ExplicitWidth = 322 ExplicitWidth = 322
Width = 322 Width = 322
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 120 Left = 120
Top = 38 Top = 28
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 38 ExplicitTop = 28
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 570 Left = 574
Top = 88 Top = 78
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570 ExplicitLeft = 574
ExplicitTop = 88 ExplicitTop = 78
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 570 Left = 574
Top = 11 Top = 1
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570 ExplicitLeft = 574
ExplicitTop = 11 ExplicitTop = 1
ExplicitWidth = 323 ExplicitWidth = 323
Width = 323 Width = 323
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 570 Left = 574
Top = 115 Top = 105
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -428,12 +428,12 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570 ExplicitLeft = 574
ExplicitTop = 115 ExplicitTop = 105
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 641 Left = 645
Top = 115 Top = 105
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -441,27 +441,27 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 641 ExplicitLeft = 645
ExplicitTop = 115 ExplicitTop = 105
ExplicitWidth = 252 ExplicitWidth = 252
Width = 252 Width = 252
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 120 Left = 120
Top = 11 Top = 1
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 11 ExplicitTop = 1
ExplicitWidth = 324 ExplicitWidth = 324
Width = 324 Width = 324
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 120 Left = 120
Top = 65 Top = 55
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -469,13 +469,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 65 ExplicitTop = 55
ExplicitWidth = 324 ExplicitWidth = 324
Width = 324 Width = 324
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 120 Left = 120
Top = 92 Top = 82
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -483,62 +483,62 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 92 ExplicitTop = 82
ExplicitWidth = 186 ExplicitWidth = 186
Width = 186 Width = 186
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 310 Left = 314
Top = 92 Top = 82
ExplicitLeft = 310 ExplicitLeft = 314
ExplicitTop = 92 ExplicitTop = 82
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120 Left = 120
Top = 119 Top = 109
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 119 ExplicitTop = 109
ExplicitWidth = 324 ExplicitWidth = 324
Width = 324 Width = 324
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 570 Left = 574
Top = 189 Top = 179
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 570 ExplicitLeft = 574
ExplicitTop = 189 ExplicitTop = 179
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 641 Left = 645
Top = 189 Top = 179
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 641 ExplicitLeft = 645
ExplicitTop = 189 ExplicitTop = 179
ExplicitWidth = 180 ExplicitWidth = 180
Width = 180 Width = 180
end end
inherited edtFechaRetencion: TcxDBDateEdit inherited edtFechaRetencion: TcxDBDateEdit
Left = 120 Left = 120
Top = 191 Top = 181
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120 ExplicitLeft = 120
ExplicitTop = 191 ExplicitTop = 181
ExplicitWidth = 280 ExplicitWidth = 280
Width = 280 Width = 280
end end
@ -547,9 +547,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ShowCaption = False ShowCaption = False
ShowBorder = False ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup inherited dxLayoutControl1Group7: TdxLayoutGroup
inherited dxLayoutControl1Group10: TdxLayoutGroup inherited dxLayoutControl1Group10: TdxLayoutGroup
Visible = False Visible = False
@ -567,9 +564,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False Visible = False
end end
@ -579,6 +573,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited dxLayoutControl1Group8: TdxLayoutGroup inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False Visible = False
end end
inherited dxLayoutControl1Item3: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False Visible = False
end end

12
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

@ -18,7 +18,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewBASE_IMPONIBLE
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -29,7 +29,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
Kind = skSum Kind = skSum
Column = cxGridViewIMPORTE_TOTAL Column = cxGridViewBASE_IMPONIBLE
end> end>
DataController.OnCompare = cxGridViewDataControllerCompare DataController.OnCompare = cxGridViewDataControllerCompare
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
@ -162,9 +162,9 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Caption = 'Ref. Cliente' Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE' DataBinding.FieldName = 'REFERENCIA_CLIENTE'
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Base Imponible'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'BASE_IMPONIBLE'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
@ -244,6 +244,8 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 673 ExplicitLeft = 673
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

23
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -46,7 +46,7 @@ type
cxStylePendientes: TcxStyle; cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle; cxStyleParciales: TcxStyle;
cxStyleRecibidos: TcxStyle; cxStyleRecibidos: TcxStyle;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
actProveedor: TAction; actProveedor: TAction;
actAlmacen: TAction; actAlmacen: TAction;
TBXItem2: TTBXItem; TBXItem2: TTBXItem;
@ -277,15 +277,20 @@ begin
inherited; inherited;
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION).Index; //ESTILO SITUACIONES
ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol])); if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION)) then
begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PedidosProveedorSITUACION).Index;
if (ASituacion = SITUACION_PEDIDO_PENDIENTE) then ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol]));
AStyle.TextColor := cxStylePendientes.TextColor
else if (ASituacion = SITUACION_PEDIDO_PARCIAL) then if (ASituacion = SITUACION_PEDIDO_PENDIENTE) then
AStyle.TextColor := cxStyleParciales.TextColor AStyle := cxStylePendientes
else if (ASituacion = SITUACION_PEDIDO_RECIBIDO) then else if (ASituacion = SITUACION_PEDIDO_PARCIAL) then
AStyle.TextColor := cxStyleRecibidos.TextColor; AStyle := cxStyleParciales
else if (ASituacion = SITUACION_PEDIDO_RECIBIDO) then
AStyle := cxStyleRecibidos;
end;
end; end;
end; end;

77
Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.dfm
View File

@ -502,14 +502,14 @@ object RptPedidosCliente: TRptPedidosCliente
SQL = SQL =
'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' + 'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' +
'LLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' + 'LLE,'#10' ARTICULOS.REFERENCIA, F_RTFTOTEXT(DET.CONCEPTO) as C' +
'ONCEPTO, DET.CANTIDAD,'#10' DET.IMPORTE_UNIDAD - (DET.IMPORTE_' + 'ONCEPTO, DET.CANTIDAD, DET.IMPORTE_UNIDAD, DET.DESCUENTO,'#10' ' +
'UNIDAD * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, D' + ' DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDAD * (COALESCE(DET.DESCUE' +
'ET.IMPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCIA' + 'NTO,0) / 100)) as IMPORTE_NETO, DET.IMPORTE_TOTAL,'#10' ARTICU' +
'_PROVEEDOR'#10'FROM PEDIDOS_CLIENTE_DETALLES DET'#10'LEFT OUTER JOIN ART' + 'LOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM PEDIDOS_CLIENTE' +
'ICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN PEDIDOS_CLI' + '_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = AR' +
'ENTE ON (PEDIDOS_CLIENTE.ID = DET.ID_PEDIDO)'#10#10'WHERE DET.ID_PEDID' + 'TICULOS.ID)'#10'LEFT JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = D' +
'O = :ID_PEDIDO AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_P' + 'ET.ID_PEDIDO)'#10#10'WHERE DET.ID_PEDIDO = :ID_PEDIDO AND DET.VISIBLE ' +
'EDIDO, DET.POSICION;'#10#10#10#10#10 '= 1 AND {Where}'#10'ORDER BY DET.ID_PEDIDO, DET.POSICION;'#10#10#10#10#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -551,6 +551,14 @@ object RptPedidosCliente: TRptPedidosCliente
item item
DatasetField = 'CONCEPTO' DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO' TableField = 'CONCEPTO'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end> end>
end> end>
Name = 'Informe_Detalles' Name = 'Informe_Detalles'
@ -588,6 +596,14 @@ object RptPedidosCliente: TRptPedidosCliente
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_NETO'
DataType = datFloat DataType = datFloat
end end
item item
@ -704,7 +720,7 @@ object RptPedidosCliente: TRptPedidosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 41807.715566319440000000 ReportOptions.LastChange = 42864.516198865740000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'' ''
@ -712,35 +728,34 @@ object RptPedidosCliente: TRptPedidosCliente
'var' 'var'
' ACadena : String;' ' ACadena : String;'
'begin' 'begin'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;' ' DireccionEnvio.Lines.Clear;'
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
'O">;'
''
' DireccionEnvio.Lines.Add(ACadena);'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);' ' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' ACadena := '#39#39'; '
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then' ' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';' ' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then' ' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;' ' ACadena := ACadena + <frxDBCabecera."POBLACION">;'
''
' if (ACadena <> '#39#39') then' ' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);' ' DireccionEnvio.Lines.Add(ACadena);'
'' ' ACadena := '#39#39'; '
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then' ' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);' ' ACadena := <frxDBCabecera."PROVINCIA"> + '#39' '#39';'
''
' if (<frxDBCabecera."PAIS"> <> '#39#39') then' ' if (<frxDBCabecera."PAIS"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PAIS">);' ' ACadena := ACadena + <frxDBCabecera."PAIS">;'
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
' ' ' '
' ACadena := '#39#39';'
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' ACadena := '#39'Persona de Contacto: '#39' + <frxDBCabecera."PERSO' +
'NA_CONTACTO">;'
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then' ' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
' ACadena := ACadena + '#39'('#39' + <frxDBCabecera."TELEFONO"> + '#39')'#39 +
';'
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
'end;' 'end;'
'' ''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
@ -1100,6 +1115,14 @@ object RptPedidosCliente: TRptPedidosCliente
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_NETO'
DataType = datFloat DataType = datFloat
end end
item item

2
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -243,8 +243,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 757 ExplicitLeft = 757
ExplicitWidth = 215
Width = 215
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

20
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -371,14 +371,18 @@ begin
inherited; inherited;
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosClienteSITUACION).Index; //ESTILO SITUACIONES
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosClienteSITUACION)) then
if ASituacion = SITUACION_PRESUPUESTO_PENDIENTE then begin
AStyle.TextColor := cxStylePENDIENTES.TextColor IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosClienteSITUACION).Index;
else if ASituacion = SITUACION_PRESUPUESTO_ACEPTADO then ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
AStyle.TextColor := cxStyleACEPTADO.TextColor if ASituacion = SITUACION_PRESUPUESTO_PENDIENTE then
else if ASituacion = SITUACION_PRESUPUESTO_ANULADO then AStyle := cxStylePENDIENTES
AStyle.TextColor := cxStyleRECHAZADO.TextColor else if ASituacion = SITUACION_PRESUPUESTO_ACEPTADO then
AStyle := cxStyleACEPTADO
else if ASituacion = SITUACION_PRESUPUESTO_ANULADO then
AStyle := cxStyleRECHAZADO
end;
end; end;
end; end;

2
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -226,8 +226,6 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 389 ExplicitLeft = 389
ExplicitWidth = 215
Width = 215
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

21
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -300,14 +300,19 @@ begin
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
IndiceCol := cxGridViewSITUACION.Index; //ESTILO SITUACIONES
ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol])); if Assigned((Sender as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteSITUACION)) then
if (ASituacion = CTE_PENDIENTE) then begin
AStyle.TextColor := cxStylePendientes.TextColor IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteSITUACION).Index;
else if (ASituacion = CTE_COBRADO) then
AStyle.TextColor := cxStylePagados.TextColor ASituacion := UPPERCASE(VarToStr(ARecord.DisplayTexts[IndiceCol]));
else if (ASituacion = CTE_DEVUELTO) then if (ASituacion = CTE_PENDIENTE) then
AStyle.TextColor := cxStyleDevueltos.TextColor; AStyle := cxStylePendientes
else if (ASituacion = CTE_COBRADO) then
AStyle := cxStylePagados
else if (ASituacion = CTE_DEVUELTO) then
AStyle := cxStyleDevueltos;
end;
end; end;
end; end;

4
Source/Modulos/Tipos de IVA/Views/uEditorTiposIVA.dfm
View File

@ -44,10 +44,6 @@ object fEditorTiposIVA: TfEditorTiposIVA
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Tipos de IVA' Caption = 'Tipos de IVA'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel object Label1: TLabel
Left = 6 Left = 6
Top = 12 Top = 12

18
Source/Modulos/Tipos de IVA/Views/uEditorTiposIVA.pas
View File

@ -28,7 +28,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uIEditorTiposIVA, uBizTiposIVA, uTiposIVAController, DB, uDADataTable, uIEditorTiposIVA, uBizTiposIVA, uTiposIVAController, DB, uDADataTable,
ActnList, Grids, DBGrids, StdCtrls, ComCtrls; ActnList, Grids, DBGrids, StdCtrls, ComCtrls, uDAInterfaces;
type type
TfEditorTiposIVA = class(TForm, IEditorTiposIVA) TfEditorTiposIVA = class(TForm, IEditorTiposIVA)
@ -79,7 +79,7 @@ implementation
{ TfEditorTiposIVA } { TfEditorTiposIVA }
uses uses
uDialogUtils; uDialogUtils, uFactuGES_App;
function TfEditorTiposIVA.GetTiposIVA: IBizTipoIVA; function TfEditorTiposIVA.GetTiposIVA: IBizTipoIVA;
begin begin
@ -114,7 +114,8 @@ procedure TfEditorTiposIVA.actEliminarUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := Assigned(FTiposIVA) and (Sender as TAction).Enabled := Assigned(FTiposIVA) and
FTiposIVA.DataTable.Active and FTiposIVA.DataTable.Active and
(FTiposIVA.DataTable.RecordCount > 0); (FTiposIVA.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end; end;
procedure TfEditorTiposIVA.actModificarExecute(Sender: TObject); procedure TfEditorTiposIVA.actModificarExecute(Sender: TObject);
@ -126,7 +127,8 @@ procedure TfEditorTiposIVA.actModificarUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := Assigned(FTiposIVA) and (Sender as TAction).Enabled := Assigned(FTiposIVA) and
FTiposIVA.DataTable.Active and FTiposIVA.DataTable.Active and
(FTiposIVA.DataTable.RecordCount > 0); (FTiposIVA.DataTable.RecordCount > 0) and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end; end;
constructor TfEditorTiposIVA.Create(AOwner: TComponent); constructor TfEditorTiposIVA.Create(AOwner: TComponent);
@ -170,7 +172,8 @@ end;
procedure TfEditorTiposIVA.actAnadirUpdate(Sender: TObject); procedure TfEditorTiposIVA.actAnadirUpdate(Sender: TObject);
begin begin
(Sender as TAction).Enabled := Assigned(FTiposIVA) and (Sender as TAction).Enabled := Assigned(FTiposIVA) and
FTiposIVA.DataTable.Active; FTiposIVA.DataTable.Active and
(AppFactuGES.UsuarioActivo.ID_PERFIL = 11);
end; end;
procedure TfEditorTiposIVA.FormShow(Sender: TObject); procedure TfEditorTiposIVA.FormShow(Sender: TObject);
@ -179,6 +182,11 @@ begin
FTiposIVA.DataTable.Active := true; FTiposIVA.DataTable.Active := true;
ListaTiposIVA.SetFocus; ListaTiposIVA.SetFocus;
if (AppFactuGES.UsuarioActivo.ID_PERFIL = 11) then
actAceptar.Enabled := True
else
actAceptar.Enabled := False;
end; end;
end. end.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

4
Source/Servidor/FactuGES_Server.dpr
View File

@ -148,8 +148,6 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas', schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService}, srvFacturasProforma_Impl in '..\Modulos\Facturas proforma\Servidor\srvFacturasProforma_Impl.pas' {srvFacturasProforma: TDataAbstractService},
@ -170,6 +168,8 @@ uses
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas'; schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 04 de abril de 2016 19:46</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.6.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.6.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 14 de febrero de 2017 11:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,4,8,0 FILEVERSION 4,6,1,0
PRODUCTVERSION 4,4,8,0 PRODUCTVERSION 4,6,1,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "4.4.8.0\0" VALUE "FileVersion", "4.6.1.0\0"
VALUE "ProductVersion", "4.4.8.0\0" VALUE "ProductVersion", "4.6.1.0\0"
VALUE "CompileDate", "jueves, 28 de abril de 2016 19:13\0" VALUE "CompileDate", "viernes, 12 de mayo de 2017 11:25\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"