Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Repaso general

Browse Source 
- Quitar warnings
- Limpieza de PNGImageList en las vistas de grids.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@374 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-20 18:50:02 +00:00
parent 8422968027
commit 36a9de5e6d
225 changed files with 7565 additions and 3869 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
Installer/librerias.txt
View File

@ -53,6 +53,35 @@ RemObjects_Core_D11.bpl
tb2k_d10.bpl tb2k_d10.bpl
tbx_d10.bpl tbx_d10.bpl
dxSkinBlackD11.bpl
dxSkinBlueD11.bpl
dxSkinCaramelD11.bpl
dxSkinCoffeeD11.bpl
dxSkinGlassOceansD11.bpl
dxSkiniMaginaryD11.bpl
dxSkinLilianD11.bpl
dxSkinLiquidSkyD11.bpl
dxSkinLondonLiquidSkyD11.bpl
dxSkinMcSkinD11.bpl
dxSkinMoneyTwinsD11.bpl
dxSkinOffice2007BlackD11.bpl
dxSkinOffice2007BlueD11.bpl
dxSkinOffice2007GreenD11.bpl
dxSkinOffice2007PinkD11.bpl
dxSkinOffice2007SilverD11.bpl
dxSkinsCoreD11.bpl
dxSkinscxPCPainterD11.bpl
dxSkinscxScheduler3PainterD11.bpl
dxSkinsdxBarPainterD11.bpl
dxSkinsdxDLPainterD11.bpl
dxSkinsdxLCPainterD11.bpl
dxSkinsdxNavBar2PainterD11.bpl
dxSkinsdxRibbonPainterD11.bpl
dxSkinSilverD11.bpl
dxSkinStardustD11.bpl
dxSkinValentineD11.bpl
dxSkinXmas2008BlueD11.bpl
adortl100.bpl adortl100.bpl
bdertl100.bpl bdertl100.bpl
dbrtl100.bpl dbrtl100.bpl

BIN
Resources/Iconos/Albaranes de cliente/16x16/Budget.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.1 KiB

BIN
Resources/Iconos/Albaranes de cliente/16x16/Devolucion.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 607 B

0
Resources/Iconos/Albaranes/16x16/Letters patent.png → Resources/Iconos/Albaranes de cliente/16x16/Letters patent.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 445 B

After

Width:  |  Height:  |  Size: 445 B

0
Resources/Iconos/Albaranes/16x16/pagado.png → Resources/Iconos/Albaranes de cliente/16x16/pagado.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 561 B

After

Width:  |  Height:  |  Size: 561 B

BIN
Resources/Iconos/Albaranes de cliente/24x24/Budget.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

BIN
Resources/Iconos/Albaranes de cliente/24x24/Devolucion.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 845 B

0
Resources/Iconos/Albaranes/24x24/Letters patent.png → Resources/Iconos/Albaranes de cliente/24x24/Letters patent.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 507 B

After

Width:  |  Height:  |  Size: 507 B

BIN
Resources/Iconos/Albaranes de cliente/28x28/Budget.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

BIN
Resources/Iconos/Albaranes de cliente/28x28/Devolucion.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.0 KiB

0
Resources/Iconos/Albaranes/28x28/Letters patent.png → Resources/Iconos/Albaranes de cliente/28x28/Letters patent.png
View File

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 557 B

After

Width:  |  Height:  |  Size: 557 B

BIN
Resources/Iconos/Inventario/16x16/articulos.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 409 B

BIN
Resources/Iconos/Inventario/16x16/liberar.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 568 B

BIN
Resources/Iconos/Inventario/24x24/Thumbs.db Normal file
View File

Binary file not shown.

BIN
Resources/Iconos/Inventario/24x24/articulos.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 467 B

BIN
Resources/Iconos/Inventario/24x24/liberar.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 654 B

BIN
Resources/Iconos/Inventario/28x28/articulos.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 452 B

BIN
Resources/Iconos/Inventario/28x28/liberar.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 652 B

42
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -60,27 +60,27 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Base.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PLuginSDK_D10R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\PLuginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" /> <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" /> <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" /> <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

102
Source/Base/Base.dproj
View File

@ -53,58 +53,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -48,7 +48,7 @@ type
procedure EndUpdate(ADataTable: IDAStronglyTypedDataTable); procedure EndUpdate(ADataTable: IDAStronglyTypedDataTable);
//Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo //Si en los hijos existen campos a tener en cuenta se sobreescribira este metodo
procedure validarCampos(DataTable: TDADataTable); virtual; procedure ValidarCampos(DataTable: TDADataTable); virtual;
//Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto //Si sobreescribimos este método podremos tener en cuenta otras columnas para el calculo del importe total de un concepto
function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual; function CalcularImporteTotalConcepto(DataTable: TDADataTable): Double; virtual;

10
Source/Cliente/FactuGES.dproj
View File

@ -54,15 +54,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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,0,3,0 FILEVERSION 1,0,4,0
PRODUCTVERSION 1,0,3,0 PRODUCTVERSION 1,0,4,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", "1.0.3.0\0" VALUE "FileVersion", "1.0.4.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.0.3.0\0" VALUE "ProductVersion", "1.0.4.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

4
Source/Cliente/uNavPaneController.pas
View File

@ -71,7 +71,6 @@ function TNavPaneController.CrearPagina(const APageList : TJvNavigationPane;
var var
APanePage: TJvNavPanelPage; APanePage: TJvNavPanelPage;
begin begin
Result := 0;
APanePage := TJvNavPanelPage.Create(Application); APanePage := TJvNavPanelPage.Create(Application);
with APanePage do with APanePage do
begin begin
@ -172,8 +171,7 @@ begin
AEmpresas := NIL; AEmpresas := NIL;
end; end;
finally finally
AListaSecciones.Free; FreeAndNIL(AListaSecciones);
AListaSecciones := NIL;
end; end;
end; end;

92
Source/GUIBase/GUIBase.dproj
View File

@ -58,52 +58,52 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Base.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinBlackD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinBlackD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinBlueD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinBlueD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinCaramelD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinCaramelD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinCoffeeD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinCoffeeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinGlassOceansD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinGlassOceansD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkiniMaginaryD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkiniMaginaryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinLilianD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinLilianD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinLiquidSkyD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinLiquidSkyD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinLondonLiquidSkyD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinLondonLiquidSkyD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinMcSkinD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinMcSkinD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinMoneyTwinsD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinMoneyTwinsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007BlackD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007BlackD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007BlueD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007BlueD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007GreenD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007GreenD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007PinkD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007PinkD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinOffice2007SilverD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinOffice2007SilverD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinsCoreD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinsCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinscxPCPainterD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinscxPCPainterD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinsdxLCPainterD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinsdxLCPainterD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinSilverD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinSilverD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinStardustD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinStardustD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinValentineD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinValentineD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxSkinXmas2008BlueD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxSkinXmas2008BlueD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\frx11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\frx11.dcp" />
<DCCReference Include="..\Modulos\Contactos\frxe11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contactos\fs11.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\fs11.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

4
Source/GUIBase/uEditorDBItem.dfm
View File

@ -47,6 +47,10 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2 TabOrder = 2
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

100
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -10,7 +10,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 451
Height = 73 Height = 68
AutoSize = True AutoSize = True
ButtonWidth = 141 ButtonWidth = 141
Caption = 'ToolBar1' Caption = 'ToolBar1'
@ -42,29 +42,30 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Top = 0 Top = 0
Action = actSubir Action = actSubir
AutoSize = True AutoSize = True
Wrap = True
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 184 Left = 0
Top = 0 Top = 22
Action = actBajar Action = actBajar
AutoSize = True AutoSize = True
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 240 Left = 56
Top = 0 Top = 22
Action = FontEdit1 Action = FontEdit1
AutoSize = True AutoSize = True
Wrap = True Wrap = True
end end
object FontName: TJvFontComboBox object FontName: TJvFontComboBox
Left = 0 Left = 0
Top = 22 Top = 44
Width = 145 Width = 145
Height = 22 Height = 22
DroppedDownWidth = 145 DroppedDownWidth = 145
MaxMRUCount = 0 MaxMRUCount = 0
FontName = 'Tahoma' FontName = 'Tahoma'
ItemIndex = 43 ItemIndex = 42
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg] Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True Sorted = True
TabOrder = 2 TabOrder = 2
@ -74,7 +75,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object FontSize: TEdit object FontSize: TEdit
Left = 145 Left = 145
Top = 22 Top = 44
Width = 26 Width = 26
Height = 22 Height = 22
Hint = 'Font Size|Select font size' Hint = 'Font Size|Select font size'
@ -85,7 +86,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object UpDown1: TUpDown object UpDown1: TUpDown
Left = 171 Left = 171
Top = 22 Top = 44
Width = 16 Width = 16
Height = 22 Height = 22
Associate = FontSize Associate = FontSize
@ -94,7 +95,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 187 Left = 187
Top = 22 Top = 44
Width = 8 Width = 8
Caption = 'ToolButton13' Caption = 'ToolButton13'
ImageIndex = 10 ImageIndex = 10
@ -102,59 +103,60 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 195 Left = 195
Top = 22 Top = 44
Action = RichEditBold1 Action = RichEditBold1
AutoSize = True AutoSize = True
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 261 Left = 261
Top = 22 Top = 44
Action = RichEditItalic1 Action = RichEditItalic1
AutoSize = True AutoSize = True
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 328 Left = 328
Top = 22 Top = 44
Action = RichEditUnderline1 Action = RichEditUnderline1
AutoSize = True AutoSize = True
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 0 Left = 411
Top = 22 Top = 44
Width = 8 Width = 8
Caption = 'ToolButton12' Caption = 'ToolButton12'
ImageIndex = 10 ImageIndex = 10
Wrap = True
Style = tbsSeparator Style = tbsSeparator
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 0 Left = 419
Top = 49 Top = 44
Action = RichEditAlignLeft1 Action = RichEditAlignLeft1
AutoSize = True AutoSize = True
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 145 Left = 564
Top = 49 Top = 44
Action = RichEditAlignCenter1 Action = RichEditAlignCenter1
AutoSize = True AutoSize = True
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 270 Left = 689
Top = 49 Top = 44
Action = RichEditAlignRight1 Action = RichEditAlignRight1
AutoSize = True AutoSize = True
end end
end end
object cxGrid: TcxGrid object cxGrid: TcxGrid
Left = 0 Left = 0
Top = 99 Top = 94
Width = 451 Width = 451
Height = 205 Height = 210
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitTop = 99
ExplicitHeight = 205
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
FilterBox.Visible = fvNever FilterBox.Visible = fvNever
@ -197,6 +199,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
OptionsView.GridLines = glHorizontal OptionsView.GridLines = glHorizontal
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
OptionsView.Indicator = True
Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
object cxGridViewID: TcxGridDBColumn object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID' DataBinding.FieldName = 'ID'
@ -272,9 +275,13 @@ inherited frViewDetallesBase: TfrViewDetallesBase
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.Items = <> Properties.Items = <>
BestFitMaxWidth = 50 Properties.PostPopupValueOnTab = True
MinWidth = 50 MinWidth = 45
Width = 50 Options.HorzSizing = False
Options.Moving = False
Options.Sorting = False
Styles.Content = cxStyle_ESPECIALES
Width = 45
end end
object cxGridViewDESCRIPCION: TcxGridDBColumn object cxGridViewDESCRIPCION: TcxGridDBColumn
Caption = 'Concepto' Caption = 'Concepto'
@ -324,11 +331,12 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end end
object TBXDock1: TTBXDock object TBXDock1: TTBXDock
Left = 0 Left = 0
Top = 73 Top = 68
Width = 451 Width = 451
Height = 26 Height = 26
BackgroundOnToolbars = False BackgroundOnToolbars = False
UseParentBackground = True UseParentBackground = True
ExplicitTop = 73
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0
@ -919,9 +927,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Color = 15657963 Color = 15657963
end end
object cxStyle_ESPECIALES: TcxStyle object cxStyle_ESPECIALES: TcxStyle
AssignedValues = [svColor, svTextColor] AssignedValues = [svColor]
Color = 552984534 Color = 15657963
TextColor = 547699712
end end
object cxStyle_NORMAL_PAR: TcxStyle object cxStyle_NORMAL_PAR: TcxStyle
AssignedValues = [svColor] AssignedValues = [svColor]
@ -932,4 +939,35 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Color = clWindow Color = clWindow
end end
end end
object cxGridPopupMenu: TcxGridPopupMenu
Grid = cxGrid
PopupMenus = <
item
GridView = cxGridView
HitTypes = [gvhtCell]
Index = 0
end
item
HitTypes = []
Index = 1
end>
Left = 112
Top = 136
end
object GridIndicatorPopupMenu: TPopupMenu
Left = 144
Top = 136
object Eliminar1: TMenuItem
Action = actEliminar
end
object N1: TMenuItem
Caption = '-'
end
object dsds1: TMenuItem
Action = actSubir
end
object Bajar1: TMenuItem
Action = actBajar
end
end
end end

29
Source/GUIBase/uViewDetallesBase.pas
View File

@ -11,7 +11,14 @@ uses
PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox,
uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls, uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls,
ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo, ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces; TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter, cxGridCustomPopupMenu, cxGridPopupMenu,
Menus;
type type
IViewDetallesBase = interface(IViewBase) IViewDetallesBase = interface(IViewBase)
@ -120,6 +127,12 @@ type
TBXItem15: TTBXItem; TBXItem15: TTBXItem;
TBXItem16: TTBXItem; TBXItem16: TTBXItem;
TBXSeparatorItem7: TTBXSeparatorItem; TBXSeparatorItem7: TTBXSeparatorItem;
cxGridPopupMenu: TcxGridPopupMenu;
GridIndicatorPopupMenu: TPopupMenu;
dsds1: TMenuItem;
Bajar1: TMenuItem;
Eliminar1: TMenuItem;
N1: TMenuItem;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actSubirExecute(Sender: TObject); procedure actSubirExecute(Sender: TObject);
@ -500,10 +513,10 @@ end;
procedure TfrViewDetallesBase.cxGridViewCustomDrawCell( procedure TfrViewDetallesBase.cxGridViewCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var {var
R : TRect; R : TRect;
sVal : String ; sVal : String ;
iFlag : Integer ; iFlag : Integer ;}
begin begin
{ R := AViewInfo.Bounds; { R := AViewInfo.Bounds;
FillGradientRect(ACanvas.Handle, R, clWindow, AViewInfo.EditViewInfo.BackgroundColor, False); FillGradientRect(ACanvas.Handle, R, clWindow, AViewInfo.EditViewInfo.BackgroundColor, False);
@ -762,15 +775,13 @@ function TfrViewDetallesBase.DarPosicionCAMPO(const Nombre: String): Integer;
var var
i: Integer; i: Integer;
begin begin
Result := -1;
i:=0; i:=0;
while ((cxGridView.Columns[i].DataBinding.FieldName <> Nombre) while ((cxGridView.Columns[i].DataBinding.FieldName <> Nombre) and
and (i < cxGridView.ColumnCount)) do (i < cxGridView.ColumnCount)) do
inc(i); inc(i);
if (i = cxGridView.ColumnCount) if (i = cxGridView.ColumnCount) then
then raise Exception.Create('El campo ' + Nombre + ' no se ha encontrado en el grid (uViewDetallesBase)'); raise Exception.Create('El campo ' + Nombre + ' no se ha encontrado en el grid (uViewDetallesBase)');
Result := i; Result := i;
end; end;

12
Source/GUIBase/uViewDetallesDTO.dfm
View File

@ -1,8 +1,5 @@
inherited frViewDetallesDTO: TfrViewDetallesDTO inherited frViewDetallesDTO: TfrViewDetallesDTO
Width = 582
Height = 327
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 582
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
ExplicitWidth = 109 ExplicitWidth = 109
end end
@ -49,8 +46,8 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 582 ExplicitTop = 126
Height = 228 ExplicitHeight = 210
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
object cxGridViewDESCUENTO: TcxGridDBColumn [7] object cxGridViewDESCUENTO: TcxGridDBColumn [7]
Caption = 'Dto' Caption = 'Dto'
@ -91,10 +88,7 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 582 ExplicitTop = 100
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 582
end
end end
inherited ActionListContenido: TActionList inherited ActionListContenido: TActionList
inherited actAnadir: TAction inherited actAnadir: TAction

9
Source/GUIBase/uViewDetallesDTO.pas
View File

@ -10,7 +10,14 @@ uses
StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel, StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls, cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls,
JvCombobox, JvColorCombo, ToolWin, uDAInterfaces; JvCombobox, JvColorCombo, ToolWin, uDAInterfaces, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu,
cxGridPopupMenu;
type type
IViewDetallesDTO = interface(IViewDetallesBase) IViewDetallesDTO = interface(IViewDetallesBase)

12
Source/GUIBase/uViewDetallesGenerico.dfm
View File

@ -73,19 +73,19 @@ inherited frViewDetallesGenerico: TfrViewDetallesGenerico
Transparent = True Transparent = True
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 2 Top = 0
Action = actAnadir Action = actAnadir
AutoSize = True AutoSize = True
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 62 Left = 62
Top = 2 Top = 0
Action = actModificar Action = actModificar
AutoSize = True AutoSize = True
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 136 Left = 136
Top = 2 Top = 0
Width = 8 Width = 8
Caption = 'ToolButton5' Caption = 'ToolButton5'
ImageIndex = 2 ImageIndex = 2
@ -93,13 +93,13 @@ inherited frViewDetallesGenerico: TfrViewDetallesGenerico
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 144 Left = 144
Top = 2 Top = 0
Action = actEliminar Action = actEliminar
AutoSize = True AutoSize = True
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 211 Left = 211
Top = 2 Top = 0
Width = 8 Width = 8
Caption = 'ToolButton6' Caption = 'ToolButton6'
ImageIndex = 2 ImageIndex = 2
@ -107,7 +107,7 @@ inherited frViewDetallesGenerico: TfrViewDetallesGenerico
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 219 Left = 219
Top = 2 Top = 0
Action = actAnchoAutomatico Action = actAnchoAutomatico
AutoSize = True AutoSize = True
end end

8
Source/GUIBase/uViewDetallesGenerico.pas
View File

@ -8,7 +8,13 @@ uses
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList, cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, ActnList, ImgList,
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel, PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, uDAInterfaces; cxControls, cxGridCustomView, cxGrid, uDAInterfaces, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
IViewDetallesGenerico = interface(IViewBase) IViewDetallesGenerico = interface(IViewBase)

139
Source/GUIBase/uViewGrid.dfm
View File

@ -18,6 +18,7 @@ inherited frViewGrid: TfrViewGrid
TabOrder = 0 TabOrder = 0
LookAndFeel.Kind = lfOffice11 LookAndFeel.Kind = lfOffice11
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitTop = 104
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick OnDblClick = cxGridViewDblClick
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -39,6 +40,7 @@ inherited frViewGrid: TfrViewGrid
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsSelection.UnselectFocusedRecordOnExit = False OptionsSelection.UnselectFocusedRecordOnExit = False
OptionsView.CellEndEllipsis = True OptionsView.CellEndEllipsis = True
OptionsView.NoDataToDisplayInfoText = '<No hay datos a visualizar>'
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
OptionsView.ColumnAutoWidth = True OptionsView.ColumnAutoWidth = True
OptionsView.DataRowHeight = 22 OptionsView.DataRowHeight = 22
@ -46,10 +48,21 @@ inherited frViewGrid: TfrViewGrid
OptionsView.GridLineColor = cl3DLight OptionsView.GridLineColor = cl3DLight
OptionsView.GridLines = glHorizontal OptionsView.GridLines = glHorizontal
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
Styles.Inactive = cxStyleSelection Styles.Inactive = cxStyleSelection
Styles.Selection = cxStyleSelection Styles.Selection = cxStyleSelection
Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle Styles.OnGetContentStyle = cxGridViewStylesGetContentStyle
object cxGridViewICONO: TcxGridDBColumn
Caption = 'Icono'
OnCustomDrawCell = cxGridViewICONOCustomDrawCell
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Options.Sorting = False
Width = 22
OnCustomDrawHeader = cxGridViewICONOCustomDrawHeader
end
end end
object cxGridLevel: TcxGridLevel object cxGridLevel: TcxGridLevel
GridView = cxGridView GridView = cxGridView
@ -166,7 +179,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.ScaleMode = smFit PrinterPage.ScaleMode = smFit
PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2 PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39584.791125752320000000 ReportDocument.CreationDate = 39588.472473043980000000
StyleManager = dxPrintStyleManager1 StyleManager = dxPrintStyleManager1
OptionsCards.Shadow.Depth = 0 OptionsCards.Shadow.Depth = 0
OptionsExpanding.ExpandGroupRows = True OptionsExpanding.ExpandGroupRows = True
@ -237,26 +250,15 @@ inherited frViewGrid: TfrViewGrid
Color = 549249528 Color = 549249528
end end
end end
object cxViewGridPopupMenu: TcxGridPopupMenu
Grid = cxGrid
PopupMenus = <>
Left = 264
Top = 128
end
object ActionList1: TActionList object ActionList1: TActionList
Left = 400 Left = 144
Top = 360 Top = 400
object actQuitarAgrupaciones: TAction object actQuitarAgrupaciones: TAction
Caption = 'Quitar agrupaciones' Caption = 'Quitar agrupaciones'
OnExecute = actQuitarAgrupacionesExecute OnExecute = actQuitarAgrupacionesExecute
OnUpdate = actQuitarAgrupacionesUpdate OnUpdate = actQuitarAgrupacionesUpdate
end end
end end
object PngImageList10: TPngImageList
PngImages = <>
Left = 368
Top = 360
end
object cxStyleRepositoryInforme: TcxStyleRepository object cxStyleRepositoryInforme: TcxStyleRepository
Left = 368 Left = 368
Top = 160 Top = 160
@ -350,4 +352,113 @@ inherited frViewGrid: TfrViewGrid
BuiltInStyle = True BuiltInStyle = True
end end
end end
object GridPNGImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end>
Left = 296
Top = 320
Bitmap = {}
end
object cxViewGridPopupMenu: TcxGridPopupMenu
Grid = cxGrid
PopupMenus = <
item
HitTypes = [gvhtCell]
Index = 0
end>
Left = 248
Top = 128
end
end end

44
Source/GUIBase/uViewGrid.pas
View File

@ -43,11 +43,9 @@ type
dxPSEngineController1: TdxPSEngineController; dxPSEngineController1: TdxPSEngineController;
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
cxStyleSelection: TcxStyle; cxStyleSelection: TcxStyle;
cxViewGridPopupMenu: TcxGridPopupMenu;
dxComponentPrinterLink: TdxGridReportLink; dxComponentPrinterLink: TdxGridReportLink;
frViewFiltroBase1: TfrViewFiltroBase; frViewFiltroBase1: TfrViewFiltroBase;
ActionList1: TActionList; ActionList1: TActionList;
PngImageList10: TPngImageList;
actQuitarAgrupaciones: TAction; actQuitarAgrupaciones: TAction;
pnlAgrupaciones: TTBXDockablePanel; pnlAgrupaciones: TTBXDockablePanel;
TBXAlignmentPanel1: TTBXAlignmentPanel; TBXAlignmentPanel1: TTBXAlignmentPanel;
@ -69,12 +67,20 @@ type
cxStyle_FILTRADO_IMPAR: TcxStyle; cxStyle_FILTRADO_IMPAR: TcxStyle;
cxStyle_FILTRADO_ORDENADO_PAR: TcxStyle; cxStyle_FILTRADO_ORDENADO_PAR: TcxStyle;
cxStyle_FILTRADO_ORDENADO_IMPAR: TcxStyle; cxStyle_FILTRADO_ORDENADO_IMPAR: TcxStyle;
GridPNGImageList: TPngImageList;
cxViewGridPopupMenu: TcxGridPopupMenu;
procedure cxGridViewStylesGetContentStyle( procedure cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
procedure cxGridViewDblClick(Sender: TObject); procedure cxGridViewDblClick(Sender: TObject);
procedure actQuitarAgrupacionesExecute(Sender: TObject); procedure actQuitarAgrupacionesExecute(Sender: TObject);
procedure actQuitarAgrupacionesUpdate(Sender: TObject); procedure actQuitarAgrupacionesUpdate(Sender: TObject);
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure cxGridViewICONOCustomDrawHeader(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
var ADone: Boolean);
protected protected
function GetGrid : TcxGrid; override; function GetGrid : TcxGrid; override;
function GetFocusedView : TcxGridDBTableView; override; function GetFocusedView : TcxGridDBTableView; override;
@ -188,6 +194,40 @@ begin
FOnDblClick(Sender); FOnDblClick(Sender);
end; end;
procedure TfrViewGrid.cxGridViewICONOCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1);
ADone := True;
end;
procedure TfrViewGrid.cxGridViewICONOCustomDrawHeader(Sender: TcxGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
var ADone: Boolean);
var
R : TRect;
begin
inherited;
with AViewInfo do
begin
LookAndFeelPainter.DrawHeader(ACanvas, Bounds, TextAreaBounds, Neighbors,
Borders, ButtonState, AlignmentHorz, AlignmentVert, MultiLine,
False, '', Params.Font, Params.TextColor, Params.Color);
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 0);
end;
ADone := True;
end;
procedure TfrViewGrid.cxGridViewStylesGetContentStyle( procedure TfrViewGrid.cxGridViewStylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

7
Source/GUIBase/uViewIncidencias.pas
View File

@ -7,7 +7,12 @@ uses
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
cxCheckBox, cxMemo, uDAInterfaces; cxCheckBox, cxMemo, uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue;
type type
TfrViewIncidencias = class(TfrViewBase) TfrViewIncidencias = class(TfrViewBase)

7
Source/GUIBase/uViewRichEditor.pas
View File

@ -9,7 +9,12 @@ uses
cxTextEdit, cxDropDownEdit, cxColorComboBox, StdCtrls, cxButtons, ComCtrls, cxTextEdit, cxDropDownEdit, cxColorComboBox, StdCtrls, cxButtons, ComCtrls,
ToolWin, ImgList, ActnList, TBXExtItems, TB2ExtItems, TB2Item, TBX, TB2Dock, ToolWin, ImgList, ActnList, TBXExtItems, TB2ExtItems, TB2Item, TBX, TB2Dock,
TB2Toolbar, PngImageList, cxMemo, cxRichEdit, ExtCtrls, DB, uDAInterfaces, TB2Toolbar, PngImageList, cxMemo, cxRichEdit, ExtCtrls, DB, uDAInterfaces,
uDADataTable, cxDBRichEdit; uDADataTable, cxDBRichEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue;
type type
IViewRichEditor = interface(IViewBase) IViewRichEditor = interface(IViewBase)

75
Source/GUIBase/uViewTotales.dfm
View File

@ -1,14 +1,14 @@
inherited frViewTotales: TfrViewTotales inherited frViewTotales: TfrViewTotales
Width = 880 Width = 451
Height = 316 Height = 316
Align = alBottom Align = alBottom
ExplicitWidth = 880 ExplicitWidth = 451
ExplicitHeight = 316 ExplicitHeight = 316
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
AlignWithMargins = True AlignWithMargins = True
Left = 0 Left = 0
Top = 0 Top = 0
Width = 880 Width = 451
Height = 217 Height = 217
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
@ -17,8 +17,9 @@ inherited frViewTotales: TfrViewTotales
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451 ExplicitWidth = 880
object Bevel1: TBevel object Bevel1: TBevel
Left = 104 Left = 104
Top = 109 Top = 109
@ -27,14 +28,14 @@ inherited frViewTotales: TfrViewTotales
Shape = bsBottomLine Shape = bsBottomLine
end end
object Bevel3: TBevel object Bevel3: TBevel
Left = 434 Left = 278
Top = 28 Top = 28
Width = 3 Width = 3
Height = 122 Height = 122
Shape = bsRightLine Shape = bsRightLine
end end
object Bevel4: TBevel object Bevel4: TBevel
Left = 546 Left = 390
Top = 109 Top = 109
Width = 192 Width = 192
Height = 9 Height = 9
@ -61,18 +62,22 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [] Style.Font.Style = []
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Height = 21 Height = 21
Width = 93 Width = 93
end end
object ImporteIVA: TcxDBCurrencyEdit object ImporteIVA: TcxDBCurrencyEdit
Left = 617 Left = 461
Top = 55 Top = 55
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA' DataBinding.DataField = 'IMPORTE_IVA'
@ -92,18 +97,22 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [] Style.Font.Style = []
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 9
Height = 21 Height = 21
Width = 137 Width = 137
end end
object ImporteTotal: TcxDBCurrencyEdit object ImporteTotal: TcxDBCurrencyEdit
Left = 547 Left = 391
Top = 129 Top = 129
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL' DataBinding.DataField = 'IMPORTE_TOTAL'
@ -123,13 +132,17 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [] Style.Font.Style = []
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clActiveCaption Style.TextColor = clActiveCaption
Style.TextStyle = [fsBold] Style.TextStyle = [fsBold]
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 12
Height = 21 Height = 21
Width = 137 Width = 137
@ -154,18 +167,22 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [] Style.Font.Style = []
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Height = 21 Height = 21
Width = 65 Width = 65
end end
object edtIVA: TcxDBSpinEdit object edtIVA: TcxDBSpinEdit
Left = 546 Left = 390
Top = 55 Top = 55
AutoSize = False AutoSize = False
DataBinding.DataField = 'IVA' DataBinding.DataField = 'IVA'
@ -187,22 +204,26 @@ inherited frViewTotales: TfrViewTotales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 8
Height = 21 Height = 21
Width = 65 Width = 65
end end
object ImporteBase: TcxDBCurrencyEdit object ImporteBase: TcxDBCurrencyEdit
Left = 546 Left = 390
Top = 28 Top = 28
AutoSize = False AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE' DataBinding.DataField = 'BASE_IMPONIBLE'
@ -222,18 +243,22 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 7
Height = 21 Height = 21
Width = 92 Width = 92
end end
object edtRE: TcxDBSpinEdit object edtRE: TcxDBSpinEdit
Left = 546 Left = 390
Top = 82 Top = 82
AutoSize = False AutoSize = False
DataBinding.DataField = 'RE' DataBinding.DataField = 'RE'
@ -255,22 +280,26 @@ inherited frViewTotales: TfrViewTotales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 10
Height = 21 Height = 21
Width = 65 Width = 65
end end
object ImporteRE: TcxDBCurrencyEdit object ImporteRE: TcxDBCurrencyEdit
Left = 617 Left = 461
Top = 82 Top = 82
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_RE' DataBinding.DataField = 'IMPORTE_RE'
@ -290,12 +319,16 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [] Style.Font.Style = []
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 11
Height = 21 Height = 21
Width = 56 Width = 56
@ -321,12 +354,16 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [fsBold] Style.Font.Style = [fsBold]
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Height = 21 Height = 21
Width = 147 Width = 147
@ -351,12 +388,16 @@ inherited frViewTotales: TfrViewTotales
Style.Font.Style = [] Style.Font.Style = []
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.TextColor = clWindowText Style.TextColor = clWindowText
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 6
Height = 21 Height = 21
Width = 147 Width = 147
@ -381,19 +422,23 @@ inherited frViewTotales: TfrViewTotales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 81 Width = 81
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 286 Left = 130
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -415,12 +460,16 @@ inherited frViewTotales: TfrViewTotales
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 219 Width = 219
end end

8
Source/GUIBase/uViewTotales.pas
View File

@ -8,7 +8,13 @@ uses
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit,
ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxCheckBox, uDAInterfaces; cxDBLookupComboBox, cxCheckBox, uDAInterfaces, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type type
TfrViewTotales = class(TfrViewBase) TfrViewTotales = class(TfrViewBase)

12
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.dproj
View File

@ -41,17 +41,17 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesCliente_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="AlbaranesCliente_controller.dpk"> <DelphiCompile Include="AlbaranesCliente_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Model\AlbaranesCliente_data.dcp" /> <DCCReference Include="..\AlbaranesCliente_data.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Model\AlbaranesCliente_model.dcp" /> <DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Model\Articulos_controller.dcp" /> <DCCReference Include="..\Articulos_controller.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Model\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="uAlbaranesClienteController.pas" /> <DCCReference Include="uAlbaranesClienteController.pas" />
<DCCReference Include="uAlbaranesClienteReportController.pas" /> <DCCReference Include="uAlbaranesClienteReportController.pas" />
<DCCReference Include="uArticulosAlbaranClienteController.pas" /> <DCCReference Include="uArticulosAlbaranClienteController.pas" />
@ -68,7 +68,7 @@
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=1 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

14
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -172,7 +172,7 @@ end;
function TAlbaranesClienteController.AnadirAlbaranDev(AAlbaran: IBizAlbaranCliente): Boolean; function TAlbaranesClienteController.AnadirAlbaranDev(AAlbaran: IBizAlbaranCliente): Boolean;
begin begin
Anadir(AAlbaran); Result := Anadir(AAlbaran);
AAlbaran.TIPO := CTE_TIPO_ALBARAN_DEV; AAlbaran.TIPO := CTE_TIPO_ALBARAN_DEV;
end; end;
@ -434,8 +434,6 @@ end;
function TAlbaranesClienteController.ValidarAlbaran( function TAlbaranesClienteController.ValidarAlbaran(
AAlbaran: IBizAlbaranCliente): Boolean; AAlbaran: IBizAlbaranCliente): Boolean;
begin begin
Result := False;
if not Assigned(AAlbaran) then if not Assigned(AAlbaran) then
raise Exception.Create ('Albarán no asignado'); raise Exception.Create ('Albarán no asignado');
@ -466,7 +464,7 @@ begin
//En caso de ser una orden de devolución no podra tener un importe total positivo //En caso de ser una orden de devolución no podra tener un importe total positivo
if (AAlbaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (AAlbaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
begin begin
if (AAlbaran.IMPORTE_TOTAL >= 0) then if (AAlbaran.IMPORTE_TOTAL > 0) then
raise Exception.Create('Una orden de devolución no puede tener un importe total positivo'); raise Exception.Create('Una orden de devolución no puede tener un importe total positivo');
//Una orden de devolución debe tener relleno el almacén de entrada de material //Una orden de devolución debe tener relleno el almacén de entrada de material
@ -509,7 +507,6 @@ function TAlbaranesClienteController.ValidarSituacion(ASituacion: String;
AFechaAlbaran: TDateTime; var AFechaEnvio, AFechaAlbaran: TDateTime; var AFechaEnvio,
AFechaRecibido: TDateTime): Boolean; AFechaRecibido: TDateTime): Boolean;
begin begin
Result := False;
if ASituacion = SITUACION_ALBARAN_PENDIENTE then if ASituacion = SITUACION_ALBARAN_PENDIENTE then
begin begin
AFechaEnvio := 0; AFechaEnvio := 0;
@ -864,8 +861,6 @@ begin
end; end;
function TAlbaranesClienteController.Guardar(AAlbaran: IBizAlbaranCliente): Boolean; function TAlbaranesClienteController.Guardar(AAlbaran: IBizAlbaranCliente): Boolean;
var
IDNuevo: Integer;
begin begin
Result := False; Result := False;
@ -941,9 +936,10 @@ var
begin begin
AReportController := TAlbaranesClienteReportController.Create; AReportController := TAlbaranesClienteReportController.Create;
try
ID_Albaranes := TStringList.Create; ID_Albaranes := TStringList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran //Si deseamos previsualizar todos los items del objeto albaran
if AllItems then if AllItems then
begin begin
@ -976,9 +972,9 @@ var
begin begin
AReportController := TAlbaranesClienteReportController.Create; AReportController := TAlbaranesClienteReportController.Create;
try
ID_Albaranes := TStringList.Create; ID_Albaranes := TStringList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran //Si deseamos previsualizar todos los items del objeto albaran
if AllItems then if AllItems then
begin begin

3
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -23,7 +23,7 @@ type
function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
public public
constructor Create; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
procedure Preview(const AListaID : String); procedure Preview(const AListaID : String);
@ -121,6 +121,7 @@ var
AStream: Binary; AStream: Binary;
AFile : String; AFile : String;
begin begin
Result := False;
AFile := AFileName; AFile := AFileName;
if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then
Exit; Exit;

20
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj
View File

@ -41,22 +41,22 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">AlbaranesCliente_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="AlbaranesCliente_data.dpk"> <DelphiCompile Include="AlbaranesCliente_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contactos\Model\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_model.dcp" /> <DCCReference Include="..\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Contactos\Model\cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contactos\Model\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Contactos\Model\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Contactos\Model\dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\..\Contactos\Model\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Contactos\Model\vcl.dcp" /> <DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\..\Contactos\Model\vcldb.dcp" /> <DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="uDataModuleAlbaranesCliente.pas"> <DCCReference Include="uDataModuleAlbaranesCliente.pas">
<Form>DataModuleAlbaranesCliente</Form> <Form>DataModuleAlbaranesCliente</Form>
</DCCReference> </DCCReference>

8
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj
View File

@ -41,7 +41,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -51,9 +51,9 @@
<DelphiCompile Include="AlbaranesCliente_model.dpk"> <DelphiCompile Include="AlbaranesCliente_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contactos\Model\ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Contactos\Model\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Contactos\Model\Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" /> <DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
<DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" /> <DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
<DCCReference Include="schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="schAlbaranesClienteClient_Intf.pas" />

50
Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.dproj
View File

@ -42,29 +42,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -74,25 +52,13 @@
<DelphiCompile Include="AlbaranesCliente_plugin.dpk"> <DelphiCompile Include="AlbaranesCliente_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_.dcp" /> <DCCReference Include="..\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_c.dcp" /> <DCCReference Include="..\AlbaranesCliente_view.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_co.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_con.dcp" /> <DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_cont.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_contr.dcp" /> <DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_contro.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_control.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_controll.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_controlle.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_v.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_vi.dcp" />
<DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_vie.dcp" />
<DCCReference Include="..\..\Contactos\Model\ApplicationBase.dcp" />
<DCCReference Include="..\..\Contactos\Model\Articulos_view.dcp" />
<DCCReference Include="..\..\Contactos\Model\Base.dcp" />
<DCCReference Include="..\..\Contactos\Model\Contactos_view.dcp" />
<DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
<DCCReference Include="uPluginAlbaranesCliente.pas"> <DCCReference Include="uPluginAlbaranesCliente.pas">
<Form>PluginAlbaranesCliente</Form> <Form>PluginAlbaranesCliente</Form>
</DCCReference> </DCCReference>

210
Source/Modulos/Albaranes de cliente/Plugin/uPluginAlbaranesCliente.dfm
View File

@ -127,119 +127,34 @@ object PluginAlbaranesCliente: TPluginAlbaranesCliente
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD25200000A4D694343505068 F80000001974455874536F6674776172650041646F626520496D616765526561
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF 647971C9653C000003294944415478DAB5956B4814511886DFD15557DD753531
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A 352B495129723149222DAF61A921249A4216F4C37F81194445445028F5A32088
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 2E109991F443BAAB98B7F55A9AA1A549B4D2C5CAD2557775BDB4D7D9CE991A2F
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 EDACED62BD70383373CE7CCF79BF73E61BC662B1E07F8A590828AFECFC67B47D
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC BBB730820032E07030B39925CDC2F554717B0AD15D73C53660FB11C5A200AD17
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 936C065F38B7FA6C2CCAEE2B70B3FCF1D20047569E78B419A28810345DAB81A6
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 F900EE3C6AFE3B40C8C19FCFA81ACEC523E5780BDA144AEE7EAC311F772B5B97
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 E7C0C2925C936622ABA7D72696FDBD072C775D51DDEEB8037B445D7CA9C9C5C3
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C DA0EFB00BC6D47F4A92A074F1A5ED80758EAE40889BE73BB488EAAA62EFB01B6
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 52C5C3F9717E6E6961246A5A5E2EDFC1A5C3499871EB86AF4ABBA4ABAF33C98E
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 39E0A125C764C8CB342080D1C1A0C7AFA603F47C4F5A67871D00215D3FC82077
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F 2F3055EF85498B3B64892360D8F9E0BA5940592581DB900903E2506B405E5A0C
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA F7750A39C8D72443E403F8770119AC044C50382A0CC3D0047F83B333E0A27582
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED 4F8F3BBC4619F4497DA15E1B680DC849DDCC7D9D420EE8EAF71700E33D80D30D
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 406C60200E5C87B7C15A98246AB82AC4981CD6A37B4D28E4D94AB4F408A4282B
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A 251AA927DB6C02685EA9BC54E3481BEC87C86C02239561624A8FA9193D7A42C2
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 1195F58E9B2308C84C8A42FAA96782F9A729A20E780D5493D271CB09D37A167A
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 33C0CAC9C39DF3E382808C78F95C5DE16B0CAD3DB4AF3FED3707508F3318BE17
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 0453BD8AACDC001D014C93CD764907649B9600EC8ADB28189CFE501467567200
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C DD2439450FC2607863C6C7FE0FC07AF232D9FCEF75E4341188349BA43012E8E8
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 1300ECD8BA413038ED5B8A033880A6DC1BA27E5FF4BE7E0F832F105C4436DD03
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 A82B75817BAF1116B280B1383956B4F7BA5901126222B860AC79BE2CF3C0E7E7
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA 833880AAC40F43DD1350CD1AB1FA10E0190A188D4063B318520F1DB4B5FEF0FC
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F 3C324222175B01B64587711551482E8D691CA0F4842BFC5E19C83917E1875CB4
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 688EDA188B2A6D040A9E5E4D259147AD00172E97C19612A48D90304160881B6F
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 E520A657F9C128932C9A43835311004323FF04D4D3607A0FD2DBC40000000049
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 454E44AE426082}
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000003934944415478DAB5946B6C536518
C77F675D2783B2D942B699A1312C6E71C8C216405DB1C89005C5CC48B2285131
9068FCA0805C0C0435247E7159B64F2A830F4688CC0F4B0CB78D21D9AD432332
18B22801A96CEE3EDA33D6B1A6B79DE37B0E8CADF414DBA84FF2E47DCFE5FDFF
DFFF73935455E5FF346926C19193E7FE33B6375E7E5A3224101F12069B9C5484
ABFAAA99FDD5AD5C6CFC2A36C173DB5B2200DAAB57C5049FF96FC367C51CFABE
85AF8F1C7F304122377F7E571BC9790B69AD6964B46D23DF1E6BFB67022305F7
BFD3ACE97307AB773B39DB724D7F7637BFC97727DBFF9D025511B1161E16B7D7
F66145B99B0345DFD735FC98B882784C53D1DBF81A477FF8393E8229D9895877
7D39279A7E898FE0FECAF18F8CE0A93BAC87E2D10F76214952C477EDCCE10F0B
A86F3D8FB3E6209B07DA5B067BDD150F24980A95C53B44C5B92D2CCAC940C97C
9C815C3B8F6DDF8363476B44111CD890C18DCA7D58BB9C8CF68FF86EFAD81897
02D7A73BC93E5E85C829AA358BE49C028EBABB18B50D32A5C3D26726D763C33F
282307430C3F03BD734A884B417238C036E70E56867F273829EA3F2515CB9385
0C2FB88A758D87BE6F52912E98F0C8B7F1CD86799BE1D71EE89B284920076E37
3DE50E66F75FD149428A8465612E83634398DC7EC66E0774F0F9EFC1A53F203D
0B7E731910BCFEE232BD3B8D9AEBADDE12165F1487C3E82433DD2B62E55907E1
A46970C32A2A2F5DAA77A7D1FC39B049A24CBCEEFE184CA169F080F094327858
F46847C79DD0380A9B71761A2858BFBA88D2BD670D096A0481C955C0929B03F8
3DEE0805E398F9B3B89050BA4507D7CC90A06CD5125EFAE4A7E82E521576766D
60F982E55C3F554F508429A0B998D0E1BB24EA5CB0BE2DD4CC2736C13A47C1BD
B9323563B4D9237F5941BE7C85CB675A19BF35AE83CF754056295CAE86B1BFB4
C443523A64BF0B666B0C82B5F6A7A2C0C79A1AC8A9AB646858A6FB7A9F7E5B73
2E2CDA2B4A561C0F4CC0B55A51F78D9A52911F1B6488523DDF6340F0C2B3F911
E0DA9AF4FE2BD82686E9B8E4D26F1E16E5683F083E6D1FBAE3A1209CA94D21F5
421075543CA7CDC1E49DC88C2258B92C4F075526A7C772A07237BE13B5C8E301
BD62F2F7C023769047A6C143626D6E9B459ACDCFAD53D9585CFD5AE3574511AC
287A429F88334DEAEF21B3FA234C3E2FD615D0396F56AC818A1C2AA6DE9BC73B
A7F7AF11C857A308AABE386478304D80AFBF710C4F5121CA43E698041AB8669D
A7F7EB63EA6F8A0E921A675CAE400000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end> end>
@ -383,6 +298,31 @@ object PluginAlbaranesCliente: TPluginAlbaranesCliente
89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082} 89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000002034944415478DA63FCFFFF3FC394C53BFE33900172623D
1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED98866A806DD17E14C5
87FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0D7EFBF609B4178C986
83D80D40770136B0AED69461E59623B80D80391B04FE01E5FEFCF907B7D9B7FE
04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E03607359F66585A6AC0B0
69CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E0706FBE20360D999EC
710C5CD2D60C3C37FF333C0DCF66D0B7B1038B7F7D709FE14E4B3CC385339718
300C00391BE6E7676D6A0C5C6FCD19642EEF60782BABC1F035CF9581E3D53B86
A78DEB186E73A9327C927A88302023CA8DC1B1F4208AFB402E502EB9C0702FC5
9A81E3F22D86DF02620CAF9EBF6360B6546538EBD7C3C0BC230D6140729833D8
5658A887B49E011BA0D5FE98E1C1A54686CF213D0C1FDE7D61F8CCC8C2603A2D
8861E58F4406E6EDA90803E2821C50A22CB2F33CD800F9D28B0C379AA2197EAF
3BC8F0919191E1D3BB9F0C2C527C0C4FF36730301F29461810E587F03BDCA019
460CA2FFBC18DEEDDCC870F7CD6706E33667861F4F5E331CE9BFC0F0894B8A81
C1E83BC280502F6B86D5DB8EA28481D3B55486FFFBFE313CB8FE8CE1715C25C3
1F73482C307CFEC4C0BC643A03E39B3308034009031D68F3BE61B07DB28781E9
E36F86DF060298F2BFBE4700003F4A71F77ECF59220000000049454E44AE4260
82}
Name = 'PngImage1'
Background = clWindow
end> end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 308 Left = 308
@ -508,6 +448,50 @@ object PluginAlbaranesCliente: TPluginAlbaranesCliente
6338FE02EAE8B9B9299A515A0000000049454E44AE426082} 6338FE02EAE8B9B9299A515A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000004754944415478DABD967B4C53571CC7BF17280FE521640D
38F7706026228F01A29B8883CA4390E8C6DC9465EAB664CBFE58F6077B645B96
BD62E65FEEBF2D99C974B81A51C6530429A5500A88838A22BE16962876A53640
CBA3D207EDD9B9078A147A5B18C97EF79EDC7BCEBDF77C7EDFDFF99D7B0E4708
C1FF69DC7C606DEB2D56E1DB9CC5A54E0F76CEDEB3E7EC24F0F5F1750B783D2F
991304D6B4DC24FBB236FF67EF1DB42F8783C06E77C0EE7020A3F85DA8ABA4C2
C06A453F7945128F8C9296459DA97ECC12042D7CBFF187749C2C57E054A57469
C0E51A0FF4DB188D69A316ED657D186F7F1BA5952DDE8155CD37C8ABBB120415
BA6B571ECFC4CB1FB7A2BDE5AFB93643DB6148AB95DE8195F23E52949DB86465
FC38D9ED845DE78F1DDF5656A7F20EAC905F27AF6527B955B254E395EAE46FA2
BCBE6309C0260ACC9901CE0FD1724D2B2B46C5A54EEFC03F64D7C8FEDC1718D0
53567A32FEDBB39F25A3BAA9CB3BB0BCB197D089BA62A0F493245C68FED33BF0
7CE355F2465ECA1CD0D3583A1D9AFF8EF39BD29244D4B7747B079EBBA4260776
A7AE58E1AF1FC543A6522F01D84081F92B079EF8300ECD1DBDDE81650D3DE460
FE168F21753A62D6EB213F1C8B69BB1DBAA7C6C17970C27FD81FE19A20DC0A7D
CE1578B6BE9B1417A4795448E8C4360D0E62A83006D11B62E1885C8FFBC15D58
5B340A8E52AD96D96206C61F02267924A6FB0946747AF4C7252C005EEC26070A
B6B05F95A790D6EE588DDCC9477475A00E8447C12F2611F7C3D410178EC0669D
81E99522F8744660627014A3561B4C7B80DB66892BF04CDD153A8669C8FA5429
18D2B70C1216BE783510E7A09DDBE92FCE3F08C19B92A17C74170FD78F20F27A
109ED1FA62C43009035D26CD7B296C4CB2780C79E0FEDC54647FAE1254F8CB3B
1C0EBD0758C600DDB740B061066A7370088E7E1E5AA30E7E23668C4D5A600A04
FE7909D07012EC4C56A0AD778142E9852E52949382BC2F3B3C0235A6196FFD4C
66ECBAA94604B130E8FC622422F46F4D812D743583F1B608F87BED65B24F928C
3D5F5F161C3F3EA4BC42A78D0D00F7BE027C6D8F61165A9E38044451BFEEDC79
FCAE5B60616692FB25C731B37D68FE463C07E43F7D501382C9BA004C0D0FBB28
B405D0706E0BC086172DF0F713009EAEE924053B9304617CBDF5FB4806A4CDD0
9C17236C7C2B061A2EC23A4D95F185B64FCF42A7441CC28E10AC8A02832E0296
567790DD19898230BEAE3ABA96011F9485E0596B26FA9A5A31619C60B055DB69
28336946FE0C4C68F844A259190A841FA1CFC440D78D05C0DFAADA49DE8E4441
181FEACE634F223FC117118A38E8F406DC1BD030353ED1C0A62FA872DA8FC504
0C9CA32195816D237DC2E97D7A3ABEABEBE05C80A72A5524677B025BCB844CA4
C847817E1D42CD81E8B9F6375366A3E9BFF9184D9C601A4E9A3CFCE4B7D16B6B
B93F027B68C5C8B8B769C974019EAC68233F494FC093BDBFE60CB2B910E86556
8C4E5818509B2A82ED69F71B61C3D436ACAB52D220E3034A3ACE2D77AB5F7230
86AC318A117BE52A4454C69038124369C29BE7A3E50AF65FA7C46C4ABAFB2F29
CA1A0E59AB7E850000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 80 Top = 80

224
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -184,101 +184,105 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitHeight = 378 ExplicitHeight = 378
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
Height = 46 Height = 51
ExplicitWidth = 751 ExplicitWidth = 751
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
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
ExplicitLeft = 210 ExplicitLeft = 544
ExplicitTop = 22 ExplicitTop = 0
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 252 Left = 586
Top = 22 Top = 0
ExplicitLeft = 252 ExplicitLeft = 586
ExplicitTop = 22 ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 269 Left = 0
Top = 22 Top = 0
ExplicitLeft = 269 Wrap = True
ExplicitTop = 22 ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 30
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton [9]
Left = 277 Left = 0
Top = 22 Top = 30
ExplicitLeft = 277 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 30
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton [10]
Left = 343 Left = 66
Top = 22 Top = 30
ExplicitLeft = 343 Wrap = False
ExplicitTop = 22 ExplicitLeft = 66
ExplicitTop = 30
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton [11]
Left = 410 Left = 133
Top = 22 Top = 30
ExplicitLeft = 410 ExplicitLeft = 133
ExplicitTop = 22 ExplicitTop = 30
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton [12]
Left = 493 Left = 216
Top = 22 Top = 30
ExplicitLeft = 493 Wrap = False
ExplicitTop = 22 ExplicitLeft = 216
ExplicitTop = 30
ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton [13]
Left = 501 Left = 224
Top = 22 Top = 30
ExplicitLeft = 501 ExplicitLeft = 224
ExplicitTop = 22 ExplicitTop = 30
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton [14]
Left = 646 Left = 369
Top = 22 Top = 30
ExplicitLeft = 646 ExplicitLeft = 369
ExplicitTop = 22 ExplicitTop = 30
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton [15]
Left = 771 Left = 494
Top = 22 Top = 30
ExplicitLeft = 771 ExplicitLeft = 494
ExplicitTop = 22 ExplicitTop = 30
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 72 Top = 77
Width = 751 Width = 751
Height = 306 Height = 301
ExplicitTop = 72 ExplicitTop = 72
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 306 ExplicitHeight = 306
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 46 Top = 51
Width = 751 Width = 751
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 757 ExplicitWidth = 757
@ -286,6 +290,18 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 626 ExplicitWidth = 626
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewDetallesAlbaranCliente1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end
item
HitTypes = []
Index = 1
end>
end
end end
end end
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
@ -376,47 +392,59 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 369 Left = 368
Top = 11 Top = 11
Width = 7 Width = 7
Height = 54 Height = 54
ExplicitLeft = 369 ExplicitLeft = 368
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 7 ExplicitWidth = 7
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 485 Left = 484
Top = 92 Top = 92
Width = 192 Width = 192
ExplicitLeft = 485 ExplicitLeft = 484
ExplicitTop = 92 ExplicitTop = 92
ExplicitWidth = 192 ExplicitWidth = 192
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 164
Top = 112 Top = 112
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164 ExplicitLeft = 164
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 93 ExplicitWidth = 93
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 556 Left = 555
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 556 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 486 Left = 485
Top = 112 Top = 112
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 486 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 485
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -424,41 +452,61 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 93 Left = 93
Top = 112 Top = 112
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 112 ExplicitTop = 112
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 485 Left = 484
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 38 ExplicitTop = 38
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 485 Left = 484
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 485 Left = 484
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 484
ExplicitTop = 65 ExplicitTop = 65
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 556 Left = 555
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 556 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 555
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -466,7 +514,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 93
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 147 ExplicitWidth = 147
@ -476,7 +528,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93 Left = 93
Top = 139 Top = 139
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 139 ExplicitTop = 139
ExplicitWidth = 147 ExplicitWidth = 147
@ -486,15 +542,19 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 93 Left = 93
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 221 Left = 220
Top = 38 Top = 38
ExplicitLeft = 221 ExplicitLeft = 220
ExplicitTop = 38 ExplicitTop = 38
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
@ -502,6 +562,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 219 ExplicitWidth = 219

3
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -133,8 +133,6 @@ begin
end; end;
procedure TfEditorAlbaranCliente.FormShow(Sender: TObject); procedure TfEditorAlbaranCliente.FormShow(Sender: TObject);
var
i:Integer;
begin begin
inherited; inherited;
@ -197,7 +195,6 @@ var
bEsNuevo : Boolean; bEsNuevo : Boolean;
begin begin
inherited; inherited;
bEsNuevo := False;
ShowHourglassCursor; ShowHourglassCursor;
// frViewDetallesPedidoCliente1.SaveGridStatus; // frViewDetallesPedidoCliente1.SaveGridStatus;

439
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.dfm
View File

@ -5,126 +5,159 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
inherited Image1: TImage inherited Image1: TImage
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
0000180806000000E0773DF80000000970485973000017120000171201679FD2 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 80E8000075300000EA6000003A98000017709CBA513C000002F049444154484B
92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A B5965B4854511486D7786348530B45CAECA2946056265156965254820F41E44B
885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 2F459787822C7BE8A57A30AA07C910349DA1088B082B485249B4902043492AC3
91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 D2F23A8D638D393A25669A97BFBD8EECE9343367668C3AB0389C3DE7FCDFBAEC
0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 B5F6E800D07FBD1820ED766523FE95494D87382FB0F8DF5C939353181F9FC4E8
9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C E84FC5D6EE3ACA328AB65B406A4E1DD4E609AA7E6F78640C85B7AABD037C8D82
422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 3D6740BAC1044A32C0FE6DD43780BB089CD7F899D3C2771667B30D8DF806F014
40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 C1F4D4342626A6F0636C42C937A7853D6771AB6DD837803B6FBDAD7104BD56BB
8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F EF0019F66CEEA6BE41DF01BE165ABEC711769B6DB30368A5452DCAEFF0C5F70E
7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 D3C0EC005A51149C48C7C5D3A1301C208F76366BDBEF31A1EE64B557EE1A8EC5
29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 BBEAF5F8FE9C60AF23F457137ACB099D6584D652C26BC30CD82BC05D04FCA1FD
66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 11C17C2A142D3951303FFC53FC5531A12C3304E5497AE4A5AC748D4076A7CCAB
70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E 3A0216BF9E43A84C254C6F0A01B292716FF74218B367D66F1EF2434572309EC6
9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB 84A03061097233525C01B23BB5BCE7B4988B089624822D418791EDB1683A1881
7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F 866C3FBC5C35077591FEB89CBC02B5973452C4DD296BE00C9179E5DCE6A5AD41
FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 CBD200B4C510DE2784A131468FC7F375C85B17AF886B02B8F5B5B62703380269
F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E CD674441A3FDF02C82F0649E104D9B11F60850CF95BEFEAF307F1A428F65109D
F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 1F07949D21C57B2B7468DABF080DD141A80D2754CC25DC0926DCCFF2029043CB
5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 59FC43F717076050EC22D391E568DF188B9A5042CD06611984527F8251274002
400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 52755EA3063C11DD89B776581D00CBB17058D3E214CFABE2082DA2E8EF6E100A
C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 B604C218267A409C631736AF46315190CB89C613918716CF156EFDB6AE7EBC6D
8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D FF8C376D7D0E404F6624EA1704E281107B21EAC0E2CD46C2957D7A5C3B4CC85F
4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 1CC5106B09D17117809C887CF4399BAC41D1D620DC15A929490C5044D5C63B8C
A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D CF64E1FD8EAB4462333BFDABE01FB5ECE4DE78A5FDCFED49477EE232E4EE5CAF
8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 3CAB4D7E2B002400F40B7DA11C32DBE756950000000049454E44AE426082}
3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC
23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE
211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4
53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4
B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4
08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69
6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7
486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F
55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F
AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F
A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672
5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6
71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37
DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51
BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF
D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91
C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269
32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5
9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98
563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B
ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625
F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9
57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE
BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4
F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D
C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE
237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81
1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0
17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10
7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453
747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC
9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A
339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2
3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92
E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644
D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4
79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78
5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859
F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258
5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195
6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D
DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5
1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A
9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78
576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6
45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570
5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2
3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F
579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D
BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D
AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5
73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC
5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E
09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7
B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3
72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC
40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741
4D410000B18E7CFB5193000003934944415478DAB5946B6C536518C77F675D27
83B2D942B699A1312C6E71C8C216405DB1C89005C5CC48B22851319068FCA080
5C0C0435247E7159B64F2A830F4688CC0F4B0CB78D21D9AD43233218B22801A9
6CEE3EDA33D6B1A6B79DE37B0E8CADF414DBA84FF2E47DCFE5FDFFDFFF739354
55E5FF346926C19193E7FE33B6375E7E5A3224101F12069B9C5484ABFAAA99FD
D5AD5C6CFC2A36C173DB5B2200DAAB57C5049FF96FC367C51CFABE85AF8F1C7F
304122377F7E571BC9790B69AD6964B46D23DF1E6BFB67022305F7BFD3ACE973
07AB773B39DB724D7F7637BFC97727DBFF9D025511B1161E16B7D7F66145B99B
0345DFD735FC98B882784C53D1DBF81A477FF8393E8229D98958777D39279A7E
898FE0FECAF18F8CE0A93BAC87E2D10F76214952C477EDCCE10F0BA86F3D8FB3
E6209B07DA5B067BDD150F24980A95C53B44C5B92D2CCAC940C97C9C815C3B8F
6DDF8363476B44111CD890C18DCA7D58BB9C8CF68FF86EFAD8189702D7A73BC9
3E5E85C829AA358BE49C028EBABB18B50D32A5C3D26726D763C33F282307430C
3F03BD734A884B417238C036E70E56867F273829EA3F2515CB93850C2FB88A75
8D87BE6F52912E98F0C8B7F1CD86799BE1D71EE89B284920076E373DE50E66F7
5FD149428A8465612E83634398DC7EC66E0774F0F9EFC1A53F203D0B7E731910
BCFEE232BD3B8D9AEBADDE12165F1487C3E82433DD2B62E55907E1A46970C32A
2A2F5DAA77A7D1FC39B049A24CBCEEFE184CA169F080F094327858F46847C79D
D0380A9B71761A2858BFBA88D2BD670D096A0481C955C0929B03F83DEE0805E3
98F9B3B89050BA4507D7CC90A06CD5125EFAE4A7E82E521576766D60F982E55C
3F554F508429A0B998D0E1BB24EA5CB0BE2DD4CC2736C13A47C1BDB9323563B4
D9237F5941BE7C85CB675A19BF35AE83CF754056295CAE86B1BFB4C443523A64
BF0B666B0C82B5F6A7A2C0C79A1AC8A9AB646858A6FB7A9F7E5B732E2CDA2B4A
561C0F4CC0B55A51F78D9A52911F1B6488523DDF6340F0C2B3F911E0DA9AF4FE
2BD82686E9B8E4D26F1E16E5683F083E6D1FBAE3A1209CA94D21F5421075543C
A7CDC1E49DC88C2258B92C4F075526A7C772A07237BE13B5C8E301BD62F2F7C0
23769047A6C143626D6E9B459ACDCFAD53D9585CFD5AE3574511AC287A429F88
334DEAEF21B3FA234C3E2FD615D0396F56AC818A1C2AA6DE9BC73BA7F7AF11C8
57A308AABE386478304D80AFBF710C4F5121CA43E698041AB8669DA7F7EB63EA
6F8A0E921A675CAE400000000049454E44AE426082}
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
inherited pagContenido: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 378
inherited frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar
Height = 51
ExplicitHeight = 51
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 58
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 58
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 30
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 30
ExplicitLeft = 0
ExplicitTop = 30
end
inherited ToolButton6: TToolButton
Left = 17
Top = 30
ExplicitLeft = 17
ExplicitTop = 30
end
inherited ToolButton7: TToolButton
Left = 83
Top = 30
ExplicitLeft = 83
ExplicitTop = 30
end
inherited ToolButton8: TToolButton
Left = 150
Top = 30
ExplicitLeft = 150
ExplicitTop = 30
end
inherited ToolButton12: TToolButton
Left = 233
Top = 30
ExplicitLeft = 233
ExplicitTop = 30
end
inherited ToolButton9: TToolButton
Left = 241
Top = 30
ExplicitLeft = 241
ExplicitTop = 30
end
inherited ToolButton10: TToolButton
Left = 386
Top = 30
ExplicitLeft = 386
ExplicitTop = 30
end
inherited ToolButton11: TToolButton
Left = 511
Top = 30
ExplicitLeft = 511
ExplicitTop = 30
end
end
inherited cxGrid: TcxGrid
Top = 77
Height = 301
ExplicitTop = 77
ExplicitHeight = 301
end
inherited TBXDock1: TTBXDock
Top = 51
ExplicitWidth = 751
end
inherited cxGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewDetallesAlbaranCliente1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end
item
HitTypes = []
Index = 1
end>
end
end
end
inherited pagInicidencias: TTabSheet inherited pagInicidencias: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 378
inherited frViewIncidenciasCli: TfrViewIncidencias inherited frViewIncidenciasCli: TfrViewIncidencias
inherited pnlSup: TPanel
ExplicitWidth = 751
end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 726 ExplicitWidth = 726
@ -144,85 +177,133 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 332 Left = 331
Height = 54 Height = 54
ExplicitLeft = 332 ExplicitLeft = 331
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 448 Left = 447
Width = 285 Width = 285
ExplicitLeft = 448 ExplicitLeft = 447
ExplicitWidth = 285 ExplicitWidth = 285
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 93 StyleDisabled.LookAndFeel.SkinName = ''
Width = 93 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 151
Width = 151
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 519 Left = 518
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 519 StyleDisabled.LookAndFeel.SkinName = ''
ExplicitWidth = 214 StyleFocused.LookAndFeel.SkinName = ''
Width = 214 StyleHot.LookAndFeel.SkinName = ''
end ExplicitLeft = 518
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 449
Style.IsFontAssigned = True
ExplicitLeft = 449
ExplicitWidth = 284
Width = 284
end
inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
Left = 448
Style.IsFontAssigned = True
ExplicitLeft = 448
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 448
Style.IsFontAssigned = True
ExplicitLeft = 448
ExplicitWidth = 285
Width = 285
end
inherited edtRE: TcxDBSpinEdit
Left = 448
Style.IsFontAssigned = True
ExplicitLeft = 448
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 519
Style.IsFontAssigned = True
ExplicitLeft = 519
ExplicitWidth = 214
Width = 214
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 184
ExplicitLeft = 184
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 448
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 448
ExplicitWidth = 289
Width = 289
end
inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtIVA: TcxDBSpinEdit
Left = 447
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 447
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447
ExplicitWidth = 290
Width = 290
end
inherited edtRE: TcxDBSpinEdit
Left = 447
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 447
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 518
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 518
ExplicitWidth = 219
Width = 219
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 222
Width = 222
end
inherited ePorte: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 222
Width = 222
end
inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 84
Width = 84
end
inherited bTiposIVA: TButton
Left = 183
ExplicitLeft = 183
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 222
Width = 222
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup inherited dxLayoutControl1Group2: TdxLayoutGroup

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranDevCliente.pas
View File

@ -10,7 +10,7 @@ uses
JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase, JvStatusBar, uViewIncidencias, uCustomView, uViewBase, uViewDetallesBase,
uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX, uViewDetallesDTO, uViewDetallesArticulos, uViewDetallesAlbaranCliente, TBX,
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces; JvNavigationPane, uIEditorAlbaranDevCliente, uDAInterfaces, dxGDIPlusClasses;
type type
TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente) TfEditorAlbaranDevCliente = class(TfEditorAlbaranCliente, IEditorAlbaranDevCliente)

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -424,10 +424,10 @@ begin
end; end;
procedure TfEditorAlbaranesCliente.NuevoInterno; procedure TfEditorAlbaranesCliente.NuevoInterno;
var {var
Respuesta : Integer; Respuesta : Integer;
AAlbaran : IBizAlbaranCliente; AAlbaran : IBizAlbaranCliente;
IDAlbaranAux: Integer; IDAlbaranAux: Integer;}
begin begin
inherited; inherited;

1112
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.dfm
View File

File diff suppressed because it is too large Load Diff

2
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesDevCliente.pas
View File

@ -9,7 +9,7 @@ uses
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevCliente, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevCliente,
uDAInterfaces; uDAInterfaces, dxGDIPlusClasses;
type type
TfEditorAlbaranesDevCliente = class(TfEditorAlbaranesCliente, IEditorAlbaranesDevCliente) TfEditorAlbaranesDevCliente = class(TfEditorAlbaranesCliente, IEditorAlbaranesDevCliente)

3
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
View File

@ -1,7 +1,6 @@
inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente
Caption = 'fEditorElegirArticulosAlbaranCliente' Caption = 'fEditorElegirArticulosAlbaranCliente'
ExplicitWidth = 320 ExplicitHeight = 478
ExplicitHeight = 480
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
end end

2
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas
View File

@ -9,7 +9,7 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls, StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
JvgWizardHeader, uIEditorElegirArticulosAlbaranesCliente; JvgWizardHeader, uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces;
type type
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente) TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)

335
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -1,17 +1,17 @@
inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 596 Width = 802
Height = 479 Height = 490
ExplicitWidth = 596 ExplicitWidth = 802
ExplicitHeight = 479 ExplicitHeight = 490
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 596 Width = 802
Height = 351 Height = 362
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 596 ExplicitTop = 102
ExplicitHeight = 351 ExplicitWidth = 802
ExplicitHeight = 362
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded] DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -42,7 +42,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList Properties.Images = GridPNGImageList
Properties.Items = < Properties.Items = <
item item
Description = 'Sin incidencias' Description = 'Sin incidencias'
@ -50,11 +50,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
item item
Description = 'Hay incidencias' Description = 'Hay incidencias'
ImageIndex = 3 ImageIndex = 2
Tag = 1 Tag = 1
Value = 1 Value = 1
end> end>
Properties.ShowDescriptions = False Properties.ShowDescriptions = False
OnGetCellHint = cxGridViewINCIDENCIAS_ACTIVASGetCellHint
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
@ -160,6 +161,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
end end
object cxGridViewINCIDENCIAS: TcxGridDBColumn
DataBinding.FieldName = 'INCIDENCIAS'
Visible = False
VisibleForCustomization = False
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
@ -184,34 +190,46 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 596 Width = 802
ExplicitWidth = 596 ExplicitWidth = 802
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 596 ExplicitWidth = 802
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 596 Width = 802
ExplicitWidth = 596 ExplicitWidth = 802
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 705
Width = 705
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 228
Width = 228
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 251 Left = 332
ExplicitLeft = 251 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 294 StyleDisabled.LookAndFeel.SkinName = ''
Width = 294 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 332
ExplicitWidth = 460
Width = 460
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 596 Width = 802
ExplicitWidth = 596 ExplicitWidth = 802
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 586 Width = 792
ExplicitWidth = 586 ExplicitWidth = 792
end end
end end
end end
@ -221,15 +239,15 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 453 Top = 464
ExplicitTop = 453 ExplicitTop = 464
ExplicitWidth = 596 ExplicitWidth = 802
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 596 Width = 802
ExplicitWidth = 596 ExplicitWidth = 802
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 586 Width = 792
ExplicitWidth = 586 ExplicitWidth = 792
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem3: TTBXItem object TBXItem3: TTBXItem
@ -275,10 +293,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
TextColor = clRed TextColor = clRed
end end
end end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 280
end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 256
Top = 312
object actClientes: TAction object actClientes: TAction
Caption = 'Clientes' Caption = 'Clientes'
OnExecute = actClientesExecute OnExecute = actClientesExecute
@ -295,58 +312,203 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
BuiltInStyle = True BuiltInStyle = True
end end
end end
object PngImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000014B4944415478DA 61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6364C007F47A8C9999FE9F6162FCCFF0FB2F9309C3A592B31CC61DFF7F9CAD60 6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
0449F398B6FF67C4A79FD9A0FBFFDF0BA56035EC469DFF7F9E2B87AB0769FE72 DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
BA9211AF01AC865DFF7F9F2F03AB41B719A419C4C66B001BD0805F5003B84C3A 114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
FE7F3B53C188AC59D0A20DBF17909DCD6DD2FEFFEB994A0CF5780D00052217DB 7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
9F338C0CFF19BEFE620507226906100118B327BDFCFFE7EF6F86BF7F20F80F8C 11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
FEFB07C14762FFF9FD0B48FF82D2BF1918D3FB9FFCB734944631F5CFDF7F0CBF 07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
7EFF65F809C67FE0EC5F403688FEF1EB0F185F3AB2938131A5FBFE7F1B530592 801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
35FFF8F597E1DAB16D0C8C89EDB7FEDB5BAA92AC1944DF3ABE858131B6F9EA7F 7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
675B2D923583F0BD139B1918A3EA2FFC77B2D32559F3AF3F7F191E9CD8C0C018 450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
5673E6BF838D1EC99A41006C4070C5F1FF84A2EA3732FFF76F301B9E0EFEFFFF 305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
4F514202003F5091819E0016AB0000000049454E44AE426082} 99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000001744944415478DA63FCFFFF3FC394
C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED
98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0
D7EFBF609B4178C98683D80D40770136B0AED69461E59623B80D80391B04FE01
E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E036
07359F66585A6AC0B069CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E
0706FBE20360D999EC710CCA0D350CECECE9183A7FFE9CC9302FB18501C30090
B3617E7ED6A6C6A0D5FE18AC180E7EFC00E2EF0CB3771930306F4F45189011E5
C6E0587A10C516900B500C0069FEF00E62C02927540392C39CC1B6C2423DA4F5
0CAA0130CD60037E32CCBE15846A405C90034A9445769E4718F0712242F3870F
1017BC4A413520CA0FE177B841338C20063CAC47688679E15719AA01A15ED60C
ABB71D450903A76BA9E05898BD4A1E6B1CA218004A18E8409BF70D8315EB719C
89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000010E4944415478DA
63648001BD9EFF0CC8E052092350CC18C83A031531018A9D05AB03C941F530A2
180093C026862E0FE5230B10B40D1B1BD546749BB16922CA0BF80C400384BC80
2986D300320163F0AC3BFFFFFEFECBF0E70F100369301BCA87B1FFFE81F2FFFC
63F8FDEB0FC31F20FE0D9203D28C01536FFE6F705663F80033F20784FA00657F
4016FB815003129F367B3503A3CFC46BFF4BDC3549D208634F9CB79C81D1A3E7
F2FF4375E638FDD8B6EE2B8646984573672C6660746DBFF0FF68B3154E03CA96
7DC56A3B08CC98BD8081D1B1E9ECFF783B23BC4E45D7080353A6CE6160B4AD3B
F53FD8CA94248D303061C24C0646ABCAE3FF0945D59F5F7F816C3431200D4E07
FFFFFF67A00400007E51EECD81D1728E0000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000000F54944415478DA
6364D0EBF9CF70A98411481B3330309C61800013A0D8591C6210F52000643322
19802281530C06A07CF20C4062936E00D5BC00058C24072286011402C6EC492F
FFFFF9FB9BE1EF1F08FE03A3FFFE41F091D87F7EFF02D2BFA0F46F06C6F4FE27
FF2D0DA5514CFDF3F71FC3AFDF7F197E82F11F38FB17900DA27FFCFA03C6978E
EC64604CE9BEFFDFC6548164CD3F7EFD65B8766C1B036362FBADFF2B9B0DC8F2
BF9C7D2303636CF3D5FF6BDB4DC93240CAAA868131AAFEC27F273B5DA29D0D63
FFFAF397E1C1890D0C8C613567FE3BD8E891AC1904C00604571CFF4F28AA7E23
F37FFF06B3E1E9E0FFFFFF1425240089FD645E7C3F344D0000000049454E44AE
426082}
Name = 'PngImage0'
Background = clWindow
end
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -372,11 +534,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
25E8670B8CD01E6611B198C445D9E5DC75EABD7E4DA32B322C05630F3F15BE54 25E8670B8CD01E6611B198C445D9E5DC75EABD7E4DA32B322C05630F3F15BE54
82788F788FF9E9FB679D9110C781FBC077B753433BB478CB0F7C3B8CF0987D51 82788F788FF9E9FB679D9110C781FBC077B753433BB478CB0F7C3B8CF0987D51
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage3' Name = 'PngImage2'
Background = clWindow Background = clWindow
end> end>
Left = 64
Top = 72
Bitmap = {} Bitmap = {}
end end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
Left = 280
end
end end

82
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -3,7 +3,7 @@ unit uViewAlbaranesCliente;
interface interface
uses uses
uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, Types, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList, dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList,
@ -13,7 +13,13 @@ uses
cxGrid, cxGrid,
uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs, uBizAlbaranesCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ComCtrls, Tabs,
cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg, cxPC, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, TBXDkPanels, dxPgsDlg,
uDAInterfaces; uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
IViewAlbaranesCliente = interface(IViewGrid) IViewAlbaranesCliente = interface(IViewGrid)
@ -24,7 +30,6 @@ type
end; end;
TfrViewAlbaranesCliente = class(TfrViewGrid, IViewAlbaranesCliente) TfrViewAlbaranesCliente = class(TfrViewGrid, IViewAlbaranesCliente)
PngImageList: TPngImageList;
cxGridViewREF_FACTURA: TcxGridDBColumn; cxGridViewREF_FACTURA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewFECHA_ALBARAN: TcxGridDBColumn; cxGridViewFECHA_ALBARAN: TcxGridDBColumn;
@ -58,11 +63,9 @@ type
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn; cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn;
cxStyleRETRASADOS: TcxStyle; cxStyleRETRASADOS: TcxStyle;
cxGridViewINCIDENCIAS: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var
ADone: Boolean);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle); AStyle: TcxStyle);
@ -71,8 +74,11 @@ type
procedure actClientesUpdate(Sender: TObject); procedure actClientesUpdate(Sender: TObject);
procedure actAlmacenesExecute(Sender: TObject); procedure actAlmacenesExecute(Sender: TObject);
procedure actAlmacenesUpdate(Sender: TObject); procedure actAlmacenesUpdate(Sender: TObject);
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, procedure cxGridViewINCIDENCIAS_ACTIVASGetCellHint(
Y: Integer); Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var AHintText: TCaption; var AIsHintMultiLine: Boolean;
var AHintTextRect: TRect);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -83,9 +89,8 @@ type
FAlbaranes: IBizAlbaranCliente; FAlbaranes: IBizAlbaranCliente;
function GetAlbaranes: IBizAlbaranCliente; function GetAlbaranes: IBizAlbaranCliente;
procedure SetAlbaranes(const Value: IBizAlbaranCliente); procedure SetAlbaranes(const Value: IBizAlbaranCliente);
procedure AnadirOtrosFiltros; override;
public public
procedure AnadirOtrosFiltros; override;
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes; property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
end; end;
@ -201,47 +206,17 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewAlbaranesCliente.cxGridViewCODIGOCustomDrawCell(Sender: procedure TfrViewAlbaranesCliente.cxGridViewINCIDENCIAS_ACTIVASGetCellHint(
TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
TcxGridTableDataCellViewInfo; var ADone: Boolean); ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var var AHintText: TCaption; var AIsHintMultiLine: Boolean;
R: TRect; var AHintTextRect: TRect);
begin begin
inherited; inherited;
R := AViewInfo.ContentBounds; if (ARecord.Values[Sender.Index] = '1') then
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
ADone := True;
end;
procedure TfrViewAlbaranesCliente.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
Site : TcxGridSite;
HitTest : TcxCustomGridHitTest;
Item : TcxCustomGridTableItem;
Rec : TcxCustomGridRecord;
sNewHint : string;
begin begin
{Este método desaparecerá cuando se migre la aplicación, es para sacar la causa de la incidencia sin necesidad de entrar en el documento} AIsHintMultiLine := True;
Site := Sender as TcxGridSite; AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
HitTest := Site.GridView.ViewInfo.GetHitTest(X, Y);
if HitTest is TcxGridRecordCellHitTest then begin
Item := TcxGridRecordCellHitTest(HitTest).Item;
Rec := TcxGridRecordCellHitTest(HitTest).GridRecord;
if (Item.Index = cxGridView.GetColumnByFieldName(fld_AlbaranesClienteINCIDENCIAS_ACTIVAS).Index)
and (Rec.Selected)
and (Albaranes.DataTable.FieldByName(fld_AlbaranesClienteINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin
sNewHint := Albaranes.DataTable.FieldByName(fld_AlbaranesClienteINCIDENCIAS).AsString;
if (cxGrid.Hint <> sNewHint) then begin
cxGrid.ShowHint := false;
cxGrid.Hint := sNewHint;
end
else cxGrid.ShowHint := true;
end
else begin
cxGrid.ShowHint := false;
end;
end; end;
end; end;
@ -263,16 +238,16 @@ begin
begin begin
if not VarIsNull(ARecord.Values[cxGridViewFECHA_PREVISTA_ENVIO.Index]) then if not VarIsNull(ARecord.Values[cxGridViewFECHA_PREVISTA_ENVIO.Index]) then
if (StrToDate(ARecord.DisplayTexts[cxGridViewFECHA_PREVISTA_ENVIO.Index]) < DateOf(Now)) then if (StrToDate(ARecord.DisplayTexts[cxGridViewFECHA_PREVISTA_ENVIO.Index]) < DateOf(Now)) then
AStyle := cxStyleRETRASADOS AStyle.TextColor := cxStyleRETRASADOS.TextColor
else else
AStyle := cxStylePENDIENTES AStyle.TextColor := cxStylePENDIENTES.TextColor
else else
AStyle := cxStylePENDIENTES; AStyle.TextColor := cxStylePENDIENTES.TextColor;
end end
else if ASituacion = SITUACION_ALBARAN_ENVIADO then else if ASituacion = SITUACION_ALBARAN_ENVIADO then
AStyle := cxStyleENVIADOS AStyle.TextColor := cxStyleENVIADOS.TextColor
else if ASituacion = SITUACION_ALBARAN_SERVIDO then else if ASituacion = SITUACION_ALBARAN_SERVIDO then
AStyle := cxStyleSERVIDOS; AStyle.TextColor := cxStyleSERVIDOS.TextColor;
end; end;
end; end;
end; end;
@ -290,4 +265,3 @@ begin
end; end;
end. end.

145
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.dfm
View File

@ -14,12 +14,28 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 322
Width = 322
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 217 Left = 426
Width = 217 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 426
ExplicitWidth = 366
Width = 366
end end
end end
end end
@ -35,4 +51,125 @@ inherited frViewAlbaranesDevCliente: TfrViewAlbaranesDevCliente
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited GridPNGImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000002034944415478DA63FCFFFF3FC394C53BFE33900172623D
1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED98866A806DD17E14C5
87FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0D7EFBF609B4178C986
83D80D40770136B0AED69461E59623B80D80391B04FE01E5FEFCF907B7D9B7FE
04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E03607359F66585A6AC0B0
69CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E0706FBE20360D999EC
710C5CD2D60C3C37FF333C0DCF66D0B7B1038B7F7D709FE14E4B3CC385339718
300C00391BE6E7676D6A0C5C6FCD19642EEF60782BABC1F035CF9581E3D53B86
A78DEB186E73A9327C927A88302023CA8DC1B1F4208AFB402E502EB9C0702FC5
9A81E3F22D86DF02620CAF9EBF6360B6546538EBD7C3C0BC230D6140729833D8
5658A887B49E011BA0D5FE98E1C1A54686CF213D0C1FDE7D61F8CCC8C2603A2D
8861E58F4406E6EDA90803E2821C50A22CB2F33CD800F9D28B0C379AA2197EAF
3BC8F0919191E1D3BB9F0C2C527C0C4FF36730301F29461810E587F03BDCA019
460CA2FFBC18DEEDDCC870F7CD6706E33667861F4F5E331CE9BFC0F0894B8A81
C1E83BC280502F6B86D5DB8EA28481D3B55486FFFBFE313CB8FE8CE1715C25C3
1F73482C307CFEC4C0BC643A03E39B3308034009031D68F3BE61B07DB28781E9
E36F86DF060298F2BFBE4700003F4A71F77ECF59220000000049454E44AE4260
82}
Name = 'PngImage1'
Background = clWindow
end>
end
end end

BIN
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesDevCliente.pas
View File

Binary file not shown.

23
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -43,43 +43,44 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 22
ExplicitHeight = 27 ExplicitHeight = 30
end end
inherited ToolButton9: TToolButton [11] inherited ToolButton9: TToolButton [11]
Left = 0 Left = 0
Top = 49 Top = 52
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton10: TToolButton [12] inherited ToolButton10: TToolButton [12]
Left = 145 Left = 145
Top = 49 Top = 52
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton6: TToolButton [13] inherited ToolButton6: TToolButton [13]
Left = 270 Left = 270
Top = 49 Top = 52
ExplicitLeft = 270 ExplicitLeft = 270
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton7: TToolButton [14] inherited ToolButton7: TToolButton [14]
Left = 336 Left = 336
Top = 49 Top = 52
Wrap = True Wrap = True
ExplicitLeft = 336 ExplicitLeft = 336
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton8: TToolButton [15] inherited ToolButton8: TToolButton [15]
Left = 0 Left = 0
Top = 71 Top = 74
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 71 ExplicitTop = 74
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 121 Top = 121
Height = 183 Height = 183
ExplicitTop = 99
ExplicitHeight = 210 ExplicitHeight = 210
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn

8
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
View File

@ -14,7 +14,13 @@ uses
uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit, uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit,
cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit, cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit, cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit,
uViewDetallesArticulos; uViewDetallesArticulos, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu, cxGridPopupMenu;
type type
IViewDetallesAlbaranCliente = interface(IViewDetallesArticulos) IViewDetallesAlbaranCliente = interface(IViewDetallesArticulos)

12
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -294,7 +294,7 @@ end;
function TAlbaranesProveedorController.Anadir(AAlbaran: IBizAlbaranProveedor; const IDPedido: Integer; function TAlbaranesProveedorController.Anadir(AAlbaran: IBizAlbaranProveedor; const IDPedido: Integer;
AInventarioRecibido: IBizInventario): Boolean; AInventarioRecibido: IBizInventario): Boolean;
var var
APedidosController : TPedidosProveedorController; APedidosController : IPedidosProveedorController;
APedido : IBizPedidoProveedor; APedido : IBizPedidoProveedor;
begin begin
@ -544,8 +544,6 @@ end;
function TAlbaranesProveedorController.ValidarAlbaran(AAlbaran: IBizAlbaranProveedor): Boolean; function TAlbaranesProveedorController.ValidarAlbaran(AAlbaran: IBizAlbaranProveedor): Boolean;
begin begin
Result := False;
if not Assigned(AAlbaran) then if not Assigned(AAlbaran) then
raise Exception.Create ('Albarán no asignado'); raise Exception.Create ('Albarán no asignado');
@ -935,8 +933,6 @@ begin
end; end;
function TAlbaranesProveedorController.Guardar(AAlbaran: IBizAlbaranProveedor): Boolean; function TAlbaranesProveedorController.Guardar(AAlbaran: IBizAlbaranProveedor): Boolean;
var
IDNuevo: Integer;
begin begin
Result := False; Result := False;
@ -980,9 +976,10 @@ var
begin begin
AReportController := TAlbaranesProveedorReportController.Create; AReportController := TAlbaranesProveedorReportController.Create;
try
ID_Albaranes := TStringList.Create; ID_Albaranes := TStringList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran //Si deseamos previsualizar todos los items del objeto albaran
if AllItems then if AllItems then
begin begin
@ -1015,9 +1012,10 @@ var
begin begin
AReportController := TAlbaranesProveedorReportController.Create; AReportController := TAlbaranesProveedorReportController.Create;
try
ID_Albaranes := TStringList.Create; ID_Albaranes := TStringList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran //Si deseamos previsualizar todos los items del objeto albaran
if AllItems then if AllItems then
begin begin

210
Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm
View File

@ -127,119 +127,34 @@ object PluginAlbaranesProveedor: TPluginAlbaranesProveedor
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD25200000A4D694343505068 F80000001974455874536F6674776172650041646F626520496D616765526561
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF 647971C9653C000003294944415478DAB5956B4814511886DFD15557DD753531
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A 352B495129723149222DAF61A921249A4216F4C37F81194445445028F5A32088
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 2E109991F443BAAB98B7F55A9AA1A549B4D2C5CAD2557775BDB4D7D9CE991A2F
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 EDACED62BD70383373CE7CCF79BF73E61BC662B1E07F8A590828AFECFC67B47D
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC BBB730820032E07030B39925CDC2F554717B0AD15D73C53660FB11C5A200AD17
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 936C065F38B7FA6C2CCAEE2B70B3FCF1D20047569E78B419A28810345DAB81A6
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 F900EE3C6AFE3B40C8C19FCFA81ACEC523E5780BDA144AEE7EAC311F772B5B97
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 E7C0C2925C936622ABA7D72696FDBD072C775D51DDEEB8037B445D7CA9C9C5C3
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C DA0EFB00BC6D47F4A92A074F1A5ED80758EAE40889BE73BB488EAAA62EFB01B6
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 52C5C3F9717E6E6961246A5A5E2EDFC1A5C3499871EB86AF4ABBA4ABAF33C98E
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 39E0A125C764C8CB342080D1C1A0C7AFA603F47C4F5A67871D00215D3FC82077
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F 2F3055EF85498B3B64892360D8F9E0BA5940592581DB900903E2506B405E5A0C
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA F7750A39C8D72443E403F8770119AC044C50382A0CC3D0047F83B333E0A27582
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED 4F8F3BBC4619F4497DA15E1B680DC849DDCC7D9D420EE8EAF71700E33D80D30D
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 406C60200E5C87B7C15A98246AB82AC4981CD6A37B4D28E4D94AB4F408A4282B
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A 251AA927DB6C02685EA9BC54E3481BEC87C86C02239561624A8FA9193D7A42C2
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 1195F58E9B2308C84C8A42FAA96782F9A729A20E780D5493D271CB09D37A167A
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 33C0CAC9C39DF3E382808C78F95C5DE16B0CAD3DB4AF3FED3707508F3318BE17
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 0453BD8AACDC001D014C93CD764907649B9600EC8ADB28189CFE501467567200
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C DD2439450FC2607863C6C7FE0FC07AF232D9FCEF75E4341188349BA43012E8E8
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 1300ECD8BA413038ED5B8A033880A6DC1BA27E5FF4BE7E0F832F105C4436DD03
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 A82B75817BAF1116B280B1383956B4F7BA5901126222B860AC79BE2CF3C0E7E7
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA 833880AAC40F43DD1350CD1AB1FA10E0190A188D4063B318520F1DB4B5FEF0FC
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F 3C324222175B01B64587711551482E8D691CA0F4842BFC5E19C83917E1875CB4
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 688EDA188B2A6D040A9E5E4D259147AD00172E97C19612A48D90304160881B6F
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 E520A657F9C128932C9A43835311004323FF04D4D3607A0FD2DBC40000000049
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 454E44AE426082}
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000003934944415478DAB5946B6C536518
C77F675D2783B2D942B699A1312C6E71C8C216405DB1C89005C5CC48B2285131
9068FCA0805C0C0435247E7159B64F2A830F4688CC0F4B0CB78D21D9AD432332
18B22801A96CEE3EDA33D6B1A6B79DE37B0E8CADF414DBA84FF2E47DCFE5FDFF
DFFF73935455E5FF346926C19193E7FE33B6375E7E5A3224101F12069B9C5484
ABFAAA99FDD5AD5C6CFC2A36C173DB5B2200DAAB57C5049FF96FC367C51CFABE
85AF8F1C7F304122377F7E571BC9790B69AD6964B46D23DF1E6BFB67022305F7
BFD3ACE97307AB773B39DB724D7F7637BFC97727DBFF9D025511B1161E16B7D7
F66145B99B0345DFD735FC98B882784C53D1DBF81A477FF8393E8229D9895877
7D39279A7E898FE0FECAF18F8CE0A93BAC87E2D10F76214952C477EDCCE10F0B
A86F3D8FB3E6209B07DA5B067BDD150F24980A95C53B44C5B92D2CCAC940C97C
9C815C3B8F6DDF8363476B44111CD890C18DCA7D58BB9C8CF68FF86EFAD81897
02D7A73BC93E5E85C829AA358BE49C028EBABB18B50D32A5C3D26726D763C33F
282307430C3F03BD734A884B417238C036E70E56867F273829EA3F2515CB9385
0C2FB88A758D87BE6F52912E98F0C8B7F1CD86799BE1D71EE89B284920076E37
3DE50E66F75FD149428A8465612E83634398DC7EC66E0774F0F9EFC1A53F203D
0B7E731910BCFEE232BD3B8D9AEBADDE12165F1487C3E82433DD2B62E55907E1
A46970C32A2A2F5DAA77A7D1FC39B049A24CBCEEFE184CA169F080F094327858
F46847C79DD0380A9B71761A2858BFBA88D2BD670D096A0481C955C0929B03F8
3DEE0805E398F9B3B89050BA4507D7CC90A06CD5125EFAE4A7E82E521576766D
60F982E55C3F554F508429A0B998D0E1BB24EA5CB0BE2DD4CC2736C13A47C1BD
B9323563B4D9237F5941BE7C85CB675A19BF35AE83CF754056295CAE86B1BFB4
C443523A64BF0B666B0C82B5F6A7A2C0C79A1AC8A9AB646858A6FB7A9F7E5B73
2E2CDA2B4A561C0F4CC0B55A51F78D9A52911F1B6488523DDF6340F0C2B3F911
E0DA9AF4FE2BD82686E9B8E4D26F1E16E5683F083E6D1FBAE3A1209CA94D21F5
421075543CA7CDC1E49DC88C2258B92C4F075526A7C772A07237BE13B5C8E301
BD62F2F7C023769047A6C143626D6E9B459ACDCFAD53D9585CFD5AE3574511AC
287A429F88334DEAEF21B3FA234C3E2FD615D0396F56AC818A1C2AA6DE9BC73B
A7F7AF11C857A308AABE386478304D80AFBF710C4F5121CA43E698041AB8669D
A7F7EB63EA6F8A0E921A675CAE400000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end> end>
@ -383,6 +298,31 @@ object PluginAlbaranesProveedor: TPluginAlbaranesProveedor
89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082} 89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000002034944415478DA63FCFFFF3FC394C53BFE33900172623D
1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED98866A806DD17E14C5
87FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0D7EFBF609B4178C986
83D80D40770136B0AED69461E59623B80D80391B04FE01E5FEFCF907B7D9B7FE
04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E03607359F66585A6AC0B0
69CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E0706FBE20360D999EC
710C5CD2D60C3C37FF333C0DCF66D0B7B1038B7F7D709FE14E4B3CC385339718
300C00391BE6E7676D6A0C5C6FCD19642EEF60782BABC1F035CF9581E3D53B86
A78DEB186E73A9327C927A88302023CA8DC1B1F4208AFB402E502EB9C0702FC5
9A81E3F22D86DF02620CAF9EBF6360B6546538EBD7C3C0BC230D6140729833D8
5658A887B49E011BA0D5FE98E1C1A54686CF213D0C1FDE7D61F8CCC8C2603A2D
8861E58F4406E6EDA90803E2821C50A22CB2F33CD800F9D28B0C379AA2197EAF
3BC8F0919191E1D3BB9F0C2C527C0C4FF36730301F29461810E587F03BDCA019
460CA2FFBC18DEEDDCC870F7CD6706E33667861F4F5E331CE9BFC0F0894B8A81
C1E83BC280502F6B86D5DB8EA28481D3B55486FFFBFE313CB8FE8CE1715C25C3
1F73482C307CFEC4C0BC643A03E39B3308034009031D68F3BE61B07DB28781E9
E36F86DF060298F2BFBE4700003F4A71F77ECF59220000000049454E44AE4260
82}
Name = 'PngImage1'
Background = clWindow
end> end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 308 Left = 308
@ -508,6 +448,50 @@ object PluginAlbaranesProveedor: TPluginAlbaranesProveedor
6338FE02EAE8B9B9299A515A0000000049454E44AE426082} 6338FE02EAE8B9B9299A515A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
940000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000004754944415478DABD967B4C53571CC7BF17280FE521640D
38F7706026228F01A29B8883CA4390E8C6DC9465EAB664CBFE58F6077B645B96
BD62E65FEEBF2D99C974B81A51C6530429A5500A88838A22BE16962876A53640
CBA3D207EDD9B9078A147A5B18C97EF79EDC7BCEBDF77C7EDFDFF99D7B0E4708
C1FF69DC7C606DEB2D56E1DB9CC5A54E0F76CEDEB3E7EC24F0F5F1750B783D2F
991304D6B4DC24FBB236FF67EF1DB42F8783C06E77C0EE7020A3F85DA8ABA4C2
C06A453F7945128F8C9296459DA97ECC12042D7CBFF187749C2C57E054A57469
C0E51A0FF4DB188D69A316ED657D186F7F1BA5952DDE8155CD37C8ABBB120415
BA6B571ECFC4CB1FB7A2BDE5AFB93643DB6148AB95DE8195F23E52949DB86465
FC38D9ED845DE78F1DDF5656A7F20EAC905F27AF6527B955B254E395EAE46FA2
BCBE6309C0260ACC9901CE0FD1724D2B2B46C5A54EEFC03F64D7C8FEDC1718D0
53567A32FEDBB39F25A3BAA9CB3BB0BCB197D089BA62A0F493245C68FED33BF0
7CE355F2465ECA1CD0D3583A1D9AFF8EF39BD29244D4B7747B079EBBA4260776
A7AE58E1AF1FC543A6522F01D84081F92B079EF8300ECD1DBDDE81650D3DE460
FE168F21753A62D6EB213F1C8B69BB1DBAA7C6C17970C27FD81FE19A20DC0A7D
CE1578B6BE9B1417A4795448E8C4360D0E62A83006D11B62E1885C8FFBC15D58
5B340A8E52AD96D96206C61F02267924A6FB0946747AF4C7252C005EEC26070A
B6B05F95A790D6EE588DDCC9477475A00E8447C12F2611F7C3D410178EC0669D
81E99522F8744660627014A3561B4C7B80DB66892BF04CDD153A8669C8FA5429
18D2B70C1216BE783510E7A09DDBE92FCE3F08C19B92A17C74170FD78F20F27A
109ED1FA62C43009035D26CD7B296C4CB2780C79E0FEDC54647FAE1254F8CB3B
1C0EBD0758C600DDB740B061066A7370088E7E1E5AA30E7E23668C4D5A600A04
FE7909D07012EC4C56A0AD778142E9852E52949382BC2F3B3C0235A6196FFD4C
66ECBAA94604B130E8FC622422F46F4D812D743583F1B608F87BED65B24F928C
3D5F5F161C3F3EA4BC42A78D0D00F7BE027C6D8F61165A9E38044451BFEEDC79
FCAE5B60616692FB25C731B37D68FE463C07E43F7D501382C9BA004C0D0FBB28
B405D0706E0BC086172DF0F713009EAEE924053B9304617CBDF5FB4806A4CDD0
9C17236C7C2B061A2EC23A4D95F185B64FCF42A7441CC28E10AC8A02832E0296
567790DD19898230BEAE3ABA96011F9485E0596B26FA9A5A31619C60B055DB69
28336946FE0C4C68F844A259190A841FA1CFC440D78D05C0DFAADA49DE8E4441
181FEACE634F223FC117118A38E8F406DC1BD030353ED1C0A62FA872DA8FC504
0C9CA32195816D237DC2E97D7A3ABEABEBE05C80A72A5524677B025BCB844CA4
C847817E1D42CD81E8B9F6375366A3E9BFF9184D9C601A4E9A3CFCE4B7D16B6B
B93F027B68C5C8B8B769C974019EAC68233F494FC093BDBFE60CB2B910E86556
8C4E5818509B2A82ED69F71B61C3D436ACAB52D220E3034A3ACE2D77AB5F7230
86AC318A117BE52A4454C69038124369C29BE7A3E50AF65FA7C46C4ABAFB2F29
CA1A0E59AB7E850000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end> end>
Left = 232 Left = 232
Top = 80 Top = 80

330
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranDevProveedor.dfm
View File

@ -1,140 +1,184 @@
inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
Caption = 'Nueva orden de devoluci'#243'n de proveedor' Caption = 'Nueva orden de devoluci'#243'n de proveedor'
ExplicitWidth = 320
ExplicitHeight = 653
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
inherited Image1: TImage inherited Image1: TImage
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018
0000180806000000E0773DF80000000970485973000017120000171201679FD2 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
5200000A4D6943435050686F746F73686F70204943432070726F66696C650000 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
78DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A210 80E8000075300000EA6000003A98000017709CBA513C000002F049444154484B
92006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A B5965B4854511486D7786348530B45CAECA2946056265156965254820F41E44B
885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F80111226 2F459787822C7BE8A57A30AA07C910349DA1088B082B485249B4902043492AC3
91E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C5 D2F23A8D638D393A25669A97BFBD8EECE9343367668C3AB0389C3DE7FCDFBAEC
0000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA5026570020 B5F6E800D07FBD1820ED766523FE95494D87382FB0F8DF5C939353181F9FC4E8
9100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C E84FC5D6EE3ACA328AB65B406A4E1DD4E609AA7E6F78640C85B7AABD037C8D82
422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D01009928472402 3D6740BAC1044A32C0FE6DD43780BB089CD7F899D3C2771667B30D8DF806F014
40BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD050076 C1F4D4342626A6F0636C42C937A7853D6771AB6DD837803B6FBDAD7104BD56BB
8E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F EF0019F66CEEA6BE41DF01BE165ABEC711769B6DB30368A5452DCAEFF0C5F70E
7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB1426117 D3C0EC005A51149C48C7C5D3A1301C208F76366BDBEF31A1EE64B557EE1A8EC5
29106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E6 BBEAF5F8FE9C60AF23F457137ACB099D6584D652C26BC30CD82BC05D04FCA1FD
66E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D603 11C17C2A142D3951303FFC53FC5531A12C3304E5497AE4A5AC748D4076A7CCAB
70C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC401E 3A0216BF9E43A84C254C6F0A01B292716FF74218B367D66F1EF2434572309EC6
9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB 84A03061097233525C01B23BB5BCE7B4988B089624822D418791EDB1683A1881
7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857F 866C3FBC5C35077591FEB89CBC02B5973452C4DD296BE00C9179E5DCE6A5AD41
FD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32 CBD200B4C510DE2784A131468FC7F375C85B17AF886B02B8F5B5B62703380269
F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407E CD674441A3FDF02C82F0649E104D9B11F60850CF95BEFEAF307F1A428F65109D
F32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE818 1F07949D21C57B2B7468DABF080DD141A80D2754CC25DC0926DCCFF2029043CB
5CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644 59FC43F717076050EC22D391E568DF188B9A5042CD06611984527F8251274002
400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4 52755EA3063C11DD89B776581D00CBB17058D3E214CFABE2082DA2E8EF6E100A
C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A881162 B604C218267A409C631736AF46315190CB89C613918716CF156EFDB6AE7EBC6D
8ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D FF8C376D7D0E404F6624EA1704E281107B21EAC0E2CD46C2957D7A5C3B4CC85F
4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9 1CC5106B09D17117809C887CF4399BAC41D1D620DC15A929490C5044D5C63B8C
A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D CF64E1FD8EAB4462333BFDABE01FB5ECE4DE78A5FDCFED49477EE232E4EE5CAF
8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D58 3CAB4D7E2B002400F40B7DA11C32DBE756950000000049454E44AE426082}
3776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC
23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE
211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA4
53A43ED210699C4C26EB906DC9DEE408B280AC209791B7900F904F92FBC9C3E4
B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED4
08AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A69
6769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7
486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F
55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550F
AB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515F
A3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D672
5603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE6
71CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37
DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51
BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EF
D11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91
C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C616269
32DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D5
9C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98
563E567956F556D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9B
ADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625
F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E9
57671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEE
BAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4
F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306D
C8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE
237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD81
1A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC0
17F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF10
7E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453
747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC
9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A
339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B2
3FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92
E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992B923F34D5644
D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE4
79E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B78
5B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859
F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E258
5255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB963156195
6455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796D
DADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE5
1B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A
9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78
576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F6
45EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B570
5A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD2
3ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F
579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515D
BD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3D
AE3D477E70FDE148AF5B6FEB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D5
73D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC
5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E
09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7
B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F3
72EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC
40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000046741
4D410000B18E7CFB5193000003934944415478DAB5946B6C536518C77F675D27
83B2D942B699A1312C6E71C8C216405DB1C89005C5CC48B22851319068FCA080
5C0C0435247E7159B64F2A830F4688CC0F4B0CB78D21D9AD43233218B22801A9
6CEE3EDA33D6B1A6B79DE37B0E8CADF414DBA84FF2E47DCFE5FDFFDFFF739354
55E5FF346926C19193E7FE33B6375E7E5A3224101F12069B9C5484ABFAAA99FD
D5AD5C6CFC2A36C173DB5B2200DAAB57C5049FF96FC367C51CFABE85AF8F1C7F
304122377F7E571BC9790B69AD6964B46D23DF1E6BFB67022305F7BFD3ACE973
07AB773B39DB724D7F7637BFC97727DBFF9D025511B1161E16B7D7F66145B99B
0345DFD735FC98B882784C53D1DBF81A477FF8393E8229D98958777D39279A7E
898FE0FECAF18F8CE0A93BAC87E2D10F76214952C477EDCCE10F0BA86F3D8FB3
E6209B07DA5B067BDD150F24980A95C53B44C5B92D2CCAC940C97C9C815C3B8F
6DDF8363476B44111CD890C18DCA7D58BB9C8CF68FF86EFAD8189702D7A73BC9
3E5E85C829AA358BE49C028EBABB18B50D32A5C3D26726D763C33F282307430C
3F03BD734A884B417238C036E70E56867F273829EA3F2515CB93850C2FB88A75
8D87BE6F52912E98F0C8B7F1CD86799BE1D71EE89B284920076E373DE50E66F7
5FD149428A8465612E83634398DC7EC66E0774F0F9EFC1A53F203D0B7E731910
BCFEE232BD3B8D9AEBADDE12165F1487C3E82433DD2B62E55907E1A46970C32A
2A2F5DAA77A7D1FC39B049A24CBCEEFE184CA169F080F094327858F46847C79D
D0380A9B71761A2858BFBA88D2BD670D096A0481C955C0929B03F83DEE0805E3
98F9B3B89050BA4507D7CC90A06CD5125EFAE4A7E82E521576766D60F982E55C
3F554F508429A0B998D0E1BB24EA5CB0BE2DD4CC2736C13A47C1BDB9323563B4
D9237F5941BE7C85CB675A19BF35AE83CF754056295CAE86B1BFB4C443523A64
BF0B666B0C82B5F6A7A2C0C79A1AC8A9AB646858A6FB7A9F7E5B732E2CDA2B4A
561C0F4CC0B55A51F78D9A52911F1B6488523DDF6340F0C2B3F911E0DA9AF4FE
2BD82686E9B8E4D26F1E16E5683F083E6D1FBAE3A1209CA94D21F5421075543C
A7CDC1E49DC88C2258B92C4F075526A7C772A07237BE13B5C8E301BD62F2F7C0
23769047A6C143626D6E9B459ACDCFAD53D9585CFD5AE3574511AC287A429F88
334DEAEF21B3FA234C3E2FD615D0396F56AC818A1C2AA6DE9BC73BA7F7AF11C8
57A308AABE386478304D80AFBF710C4F5121CA43E698041AB8669DA7F7EB63EA
6F8A0E921A675CAE400000000049454E44AE426082}
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 0 ExplicitTop = 0
ExplicitWidth = 0 ExplicitWidth = 751
ExplicitHeight = 0 ExplicitHeight = 426
end
inherited pagContenido: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 426
inherited frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
inherited ToolBar1: TToolBar
Height = 73
ExplicitHeight = 73
inherited ToolButton13: TToolButton [1]
Left = 109
Top = 0
ExplicitLeft = 109
ExplicitTop = 0
end
inherited ToolButton12: TToolButton [2]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 30
end
inherited ToolButton2: TToolButton [3]
Left = 0
Top = 30
ExplicitLeft = 0
ExplicitTop = 30
end
inherited ToolButton3: TToolButton [4]
Left = 114
Top = 30
Wrap = False
ExplicitLeft = 114
ExplicitTop = 30
end
inherited ToolButton4: TToolButton [5]
Left = 169
Top = 30
ExplicitLeft = 169
ExplicitTop = 30
end
inherited FontName: TJvFontComboBox [6]
Left = 225
Top = 30
ExplicitLeft = 225
ExplicitTop = 30
end
inherited ToolButton11: TToolButton [7]
Left = 370
Top = 30
Wrap = True
ExplicitLeft = 370
ExplicitTop = 30
end
inherited ToolButton14: TToolButton [8]
Left = 0
Top = 52
ExplicitLeft = 0
ExplicitTop = 52
end
inherited FontSize: TEdit [9]
Left = 65
Top = 52
ExplicitLeft = 65
ExplicitTop = 52
end
inherited ToolButton9: TToolButton [10]
Left = 107
Top = 52
ExplicitLeft = 107
ExplicitTop = 52
end
inherited ToolButton8: TToolButton [11]
Left = 252
Top = 52
ExplicitLeft = 252
ExplicitTop = 52
end
inherited ToolButton7: TToolButton [12]
Left = 335
Top = 52
ExplicitLeft = 335
ExplicitTop = 52
end
inherited ToolButton6: TToolButton
Left = 402
Top = 52
ExplicitLeft = 402
ExplicitTop = 52
end
inherited UpDown1: TUpDown [14]
Left = 468
Top = 52
ExplicitLeft = 468
ExplicitTop = 52
end
inherited ToolButton10: TToolButton [15]
Left = 485
Top = 52
ExplicitLeft = 485
ExplicitTop = 52
end
end
inherited cxGrid: TcxGrid
Top = 99
Height = 327
ExplicitTop = 99
end
inherited TBXDock1: TTBXDock
Top = 73
end
inherited cxGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewDetallesAlbaranProveedor1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end
item
HitTypes = []
Index = 1
end>
end
end
end end
inherited pagInicidencias: TTabSheet inherited pagInicidencias: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 757 ExplicitWidth = 751
ExplicitHeight = 432 ExplicitHeight = 426
inherited frViewIncidenciasCli: TfrViewIncidencias inherited frViewIncidenciasCli: TfrViewIncidencias
inherited pnlSup: TPanel
ExplicitWidth = 751
end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 726 ExplicitWidth = 726
@ -162,54 +206,102 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
ExplicitWidth = 21 ExplicitWidth = 21
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 93 ExplicitWidth = 93
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147 ExplicitWidth = 147
Width = 147 Width = 147
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 81 ExplicitWidth = 81
Width = 81 Width = 81
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranDevProveedor.pas
View File

@ -10,7 +10,8 @@ uses
JvStatusBar, uViewIncidencias, uViewDetallesBase, uViewDetallesDTO, JvStatusBar, uViewIncidencias, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase, uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase,
uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor; JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor,
uDAInterfaces, dxGDIPlusClasses;
type type
TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor) TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor)
@ -64,7 +65,6 @@ var
bEsNuevo : Boolean; bEsNuevo : Boolean;
begin begin
//inherited; <- No descomentar. No hacer la parte del padre (por el mensaje) //inherited; <- No descomentar. No hacer la parte del padre (por el mensaje)
bEsNuevo := False;
ShowHourglassCursor; ShowHourglassCursor;
// frViewDetallesAlbaranProveedor1.SaveGridStatus; // frViewDetallesAlbaranProveedor1.SaveGridStatus;

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

@ -161,6 +161,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
Left = 0 Left = 0
Top = 0 Top = 0
@ -181,98 +185,51 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitHeight = 426 ExplicitHeight = 426
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 751
Height = 51 Height = 46
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 51 ExplicitHeight = 46
inherited ToolButton3: TToolButton inherited ToolButton12: TToolButton
Left = 474
Wrap = False Wrap = False
end ExplicitLeft = 474
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton [4]
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox [5]
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0
ExplicitLeft = 544
ExplicitTop = 0
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton [9]
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [10]
Left = 83
Top = 27
ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
Left = 150
Top = 27
ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
Left = 233
Top = 27
ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22 ExplicitHeight = 22
end end
inherited ToolButton9: TToolButton [13] inherited ToolButton9: TToolButton
Left = 241 Left = 482
Top = 27 Top = 22
ExplicitLeft = 241 ExplicitLeft = 482
ExplicitTop = 27 ExplicitTop = 22
end end
inherited ToolButton10: TToolButton [14] inherited ToolButton10: TToolButton
Left = 386 Left = 627
Top = 27 Top = 22
ExplicitLeft = 386 ExplicitLeft = 627
ExplicitTop = 27 ExplicitTop = 22
end end
inherited ToolButton11: TToolButton [15] inherited ToolButton6: TToolButton
Left = 511 Left = 752
Top = 27 Top = 22
ExplicitLeft = 511 ExplicitLeft = 752
ExplicitTop = 27 ExplicitTop = 22
end
inherited ToolButton7: TToolButton
Left = 818
Top = 22
Wrap = False
ExplicitLeft = 818
ExplicitTop = 22
end
inherited ToolButton8: TToolButton
Left = 885
Top = 22
ExplicitLeft = 885
ExplicitTop = 22
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 77 Top = 72
Width = 751 Width = 751
Height = 349 Height = 354
ExplicitTop = 72 ExplicitTop = 72
ExplicitWidth = 751 ExplicitWidth = 751
ExplicitHeight = 354 ExplicitHeight = 354
@ -283,7 +240,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 46
Width = 751 Width = 751
ExplicitTop = 51 ExplicitTop = 51
ExplicitWidth = 751 ExplicitWidth = 751
@ -291,11 +248,27 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitWidth = 626 ExplicitWidth = 626
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewDetallesAlbaranProveedor1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end
item
HitTypes = []
Index = 1
end>
end
end end
end end
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
@ -392,7 +365,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 164 Left = 164
Top = 112 Top = 112
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 164 ExplicitLeft = 164
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 93 ExplicitWidth = 93
@ -401,7 +378,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 562 Left = 562
Top = 38 Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562 ExplicitLeft = 562
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 137 ExplicitWidth = 137
@ -410,7 +391,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 492 Left = 492
Top = 112 Top = 112
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 492 ExplicitLeft = 492
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 137 ExplicitWidth = 137
@ -420,7 +405,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93 Left = 93
Top = 112 Top = 112
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 112 ExplicitTop = 112
end end
@ -428,14 +417,22 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 491 Left = 491
Top = 38 Top = 38
Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate Properties.OnValidate = frViewTotales1edtIVAPropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitTop = 38 ExplicitTop = 38
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 491 Left = 491
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 92
@ -446,7 +443,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 491 ExplicitLeft = 491
ExplicitTop = 65 ExplicitTop = 65
end end
@ -455,7 +456,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 562 ExplicitLeft = 562
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 56 ExplicitWidth = 56
@ -464,7 +469,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 93 Left = 93
Top = 11 Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 147 ExplicitWidth = 147
@ -474,7 +483,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93 Left = 93
Top = 139 Top = 139
Properties.OnValidate = frViewTotales1ePortePropertiesValidate Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 139 ExplicitTop = 139
ExplicitWidth = 147 ExplicitWidth = 147
@ -485,6 +498,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
DataBinding.DataSource = nil DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 81 ExplicitWidth = 81
@ -500,6 +517,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
Left = 93 Left = 93
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 93 ExplicitLeft = 93
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 219 ExplicitWidth = 219

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -197,7 +197,6 @@ var
bEsNuevo : Boolean; bEsNuevo : Boolean;
begin begin
inherited; inherited;
bEsNuevo := False;
ShowHourglassCursor; ShowHourglassCursor;
// frViewDetallesAlbaranProveedor1.SaveGridStatus; // frViewDetallesAlbaranProveedor1.SaveGridStatus;
@ -226,9 +225,6 @@ AppFactuGES.ShowCapado;
end; end;
procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject); procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject);
var
AProveedoresController : IProveedoresController;
ADireccion : IBizDireccionesContacto;
begin begin
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin

1130
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.dfm
View File

File diff suppressed because it is too large Load Diff

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

@ -9,7 +9,7 @@ uses
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor,
uDAInterfaces; uDAInterfaces, dxGDIPlusClasses;
type type

45
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -2,7 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Caption = 'Lista de albaranes de proveedor' Caption = 'Lista de albaranes de proveedor'
ClientWidth = 606 ClientWidth = 606
ExplicitWidth = 614 ExplicitWidth = 614
ExplicitHeight = 471 ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -1577,7 +1577,50 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
0000000049454E44AE426082} 0000000049454E44AE426082}
Name = 'PngImage21' Name = 'PngImage21'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD2520000018C4944415478DA
63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E
16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F
C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1
9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414
60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB
FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE
4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3
FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F
2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397
FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD
BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5
EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01
2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082}
Name = 'PngImage23'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F8000000097048597300000B3A00000B3A01647F570D000001B94944415478DA
63FCFFFF3F032D01E38058C0C8C888C2DFB9B651F9C58DAD77DE3F3E85AAF007
7643F3E7FF6724C9828B27D7FCE7E0E46350D3754511FFFFEB15C3BFCF9718FE
7FB90CC40F18FE7D99C43063068916005D6FCEC2CA71C2CE239F8185959DA0E1
050B50CD2468C1C903F3FF4B486B32C8A9986375FDBF179B510C07CB116B01D0
F5C15C3C426BAC5DB3512CC56738D116000D67061AFE4755DB99411CE803620D
27C5827C0161B90966F6091841F3E7762BDC7064407410ED5AD7C40F8CD80FC6
D6D10CFC42D22886FFFFF992E1EFA339600B9001497100B4A05B4246BB44CF2C
18C3F0FFBF209801C4474B3D4407D1F26EF7FF1F1E9E61F8F5F51D5C2C77D225
A20C272915415392B4BA9ACC13194939A20C27C7826E7131C1126D6521A20C27
C902A0E1DC2C2CCC5F0CD5051878397E116538A916E40BF0734F3052FCCEF0FF
FB6BA20C27DA027046E364FFA322C5C420CCF28468C349B1C01F68C10633B967
C0A021DE70A22D38B9A7E7BF28DF1F06A97F1524194E9405C08C660C8CDC3316
624D0CB367FE22C970A22CB87864F27FB66F5B18762DDF45B2E1445970E3F4F4
FF7BE75530E4CCF844B2E14459404D40730B006B5E9AE0A24640FE0000000049
454E44AE426082}
Name = 'PngImage22'
Background = clWindow
end> end>
Bitmap = {}
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [7] inherited JvAppRegistryStorage: TJvAppRegistryStorage [7]
end end

12
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -114,8 +114,8 @@ begin
end; end;
procedure TfEditorAlbaranesProveedor.DuplicarInterno; procedure TfEditorAlbaranesProveedor.DuplicarInterno;
var {var
AAlbaran : IBizAlbaranProveedor; AAlbaran : IBizAlbaranProveedor;}
begin begin
AppFactuGES.ShowCapado; AppFactuGES.ShowCapado;
{ {
@ -198,11 +198,11 @@ begin
end; end;
procedure TfEditorAlbaranesProveedor.ImprimirInterno; procedure TfEditorAlbaranesProveedor.ImprimirInterno;
var {var
Respuesta : Integer; Respuesta : Integer;
AAlbaranes: IBizAlbaranProveedor; AAlbaranes: IBizAlbaranProveedor;
AllItems: Boolean; AllItems: Boolean;
}
begin begin
AppFactuGES.ShowCapado; AppFactuGES.ShowCapado;
{ {
@ -290,10 +290,10 @@ begin
end; end;
procedure TfEditorAlbaranesProveedor.PrevisualizarInterno; procedure TfEditorAlbaranesProveedor.PrevisualizarInterno;
var {var
Respuesta : Integer; Respuesta : Integer;
AAlbaranes: IBizAlbaranProveedor; AAlbaranes: IBizAlbaranProveedor;
AllItems: Boolean; AllItems: Boolean;}
begin begin
AppFactuGES.ShowCapado; AppFactuGES.ShowCapado;
{ {

4
Source/Modulos/Albaranes de proveedor/Views/uEditorDireccionEntregaAlbaranProveedor.pas
View File

@ -5,7 +5,8 @@ interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorDireccionEntregaAlbaranProveedor, uBizAlbaranesProveedor; uIEditorDireccionEntregaAlbaranProveedor, uBizAlbaranesProveedor,
uDAInterfaces;
type type
TfEditorDireccionEntregaAlbaranProveedor = class(TForm, IEditorDireccionEntregaAlbaranProveedor) TfEditorDireccionEntregaAlbaranProveedor = class(TForm, IEditorDireccionEntregaAlbaranProveedor)
@ -40,6 +41,7 @@ type
FAlbaran : IBizAlbaranProveedor; FAlbaran : IBizAlbaranProveedor;
function GetAlbaran: IBizAlbaranProveedor; function GetAlbaran: IBizAlbaranProveedor;
procedure SetAlbaran(const Value: IBizAlbaranProveedor); procedure SetAlbaran(const Value: IBizAlbaranProveedor);
public
property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran; property Albaran: IBizAlbaranProveedor read GetAlbaran write SetAlbaran;
end; end;

1
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.dfm
View File

@ -1,5 +1,6 @@
inherited fEditorElegirArticulosAlbaranProveedor: TfEditorElegirArticulosAlbaranProveedor inherited fEditorElegirArticulosAlbaranProveedor: TfEditorElegirArticulosAlbaranProveedor
Caption = 'fEditorElegirArticulosAlbaranProveedor' Caption = 'fEditorElegirArticulosAlbaranProveedor'
ExplicitWidth = 320
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
end end

3
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirArticulosAlbaranProveedor.pas
View File

@ -9,7 +9,8 @@ uses
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls, StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
JvgWizardHeader, uIEditorElegirArticulosAlbaranesProveedor, uBizContactos; JvgWizardHeader, uIEditorElegirArticulosAlbaranesProveedor, uBizContactos,
uDAInterfaces;
type type
TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor) TfEditorElegirArticulosAlbaranProveedor = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesProveedor)

61
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -13,6 +13,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
827 827
@ -29,13 +30,17 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.Color = clInfoBk Style.Color = clInfoBk
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.Shadow = False Style.Shadow = False
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.ButtonTransparency = ebtNone Style.ButtonTransparency = ebtNone
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 119 Width = 119
end end
@ -50,9 +55,13 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 11
Height = 253 Height = 253
Width = 186 Width = 186
@ -71,11 +80,15 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.Color = clWindow Style.Color = clWindow
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 143 Width = 143
end end
@ -97,27 +110,51 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ExplicitHeight = 212 ExplicitHeight = 212
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 327 ExplicitWidth = 327
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 239 Left = 239
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 239 ExplicitLeft = 239
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -172,6 +209,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ExplicitWidth = 287 ExplicitWidth = 287
end end
inherited cbLista: TcxDBLookupComboBox inherited cbLista: TcxDBLookupComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 425 ExplicitWidth = 425
Width = 425 Width = 425
end end
@ -210,14 +251,18 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 7
Width = 90 Width = 90
end end
@ -243,13 +288,17 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 122 Width = 122
end end
@ -276,14 +325,18 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 216 Width = 216
end end
@ -300,11 +353,15 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.Color = clWindow Style.Color = clWindow
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 170 Width = 170
end end
@ -322,14 +379,18 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.Color = clMenuBar StyleDisabled.Color = clMenuBar
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 6
Width = 170 Width = 170
end end

12
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.pas
View File

@ -13,7 +13,13 @@ uses
uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit, uViewDireccionEntregaAlbaranProv, Buttons, ActnList, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController,
uBizPedidosProveedor, uPedidosProveedorController, uBizFormasPago, uBizPedidosProveedor, uPedidosProveedorController, uBizFormasPago,
uDAInterfaces; uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinsdxLCPainter;
type type
IViewAlbaranProveedor = interface(IViewBase) IViewAlbaranProveedor = interface(IViewBase)
@ -110,10 +116,10 @@ uses
procedure TfrViewAlbaranProveedor.actElegirDireccionExecute(Sender: TObject); procedure TfrViewAlbaranProveedor.actElegirDireccionExecute(Sender: TObject);
var {var
AProveedoresController : IProveedoresController; AProveedoresController : IProveedoresController;
AAlbaranController : IAlbaranesProveedorController; AAlbaranController : IAlbaranesProveedorController;
ADireccion : IBizDireccionesContacto; ADireccion : IBizDireccionesContacto;}
begin begin
inherited; inherited;
{ AProveedoresController := TProveedoresController.Create; { AProveedoresController := TProveedoresController.Create;

144
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.dfm
View File

@ -11,21 +11,22 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 217 Style.LookAndFeel.SkinName = ''
Width = 217 StyleDisabled.LookAndFeel.SkinName = ''
end StyleFocused.LookAndFeel.SkinName = ''
end StyleHot.LookAndFeel.SkinName = ''
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited tbxBotones: TTBXToolbar
Width = 586
end end
end end
end end
@ -41,4 +42,125 @@ inherited frViewAlbaranesDevProveedor: TfrViewAlbaranesDevProveedor
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited GridPNGImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000001974455874536F6674776172650041646F626520496D616765526561
647971C9653C000002034944415478DA63FCFFFF3FC394C53BFE33900172623D
1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED98866A806DD17E14C5
87FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0D7EFBF609B4178C986
83D80D40770136B0AED69461E59623B80D80391B04FE01E5FEFCF907B7D9B7FE
04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E03607359F66585A6AC0B0
69CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E0706FBE20360D999EC
710C5CD2D60C3C37FF333C0DCF66D0B7B1038B7F7D709FE14E4B3CC385339718
300C00391BE6E7676D6A0C5C6FCD19642EEF60782BABC1F035CF9581E3D53B86
A78DEB186E73A9327C927A88302023CA8DC1B1F4208AFB402E502EB9C0702FC5
9A81E3F22D86DF02620CAF9EBF6360B6546538EBD7C3C0BC230D6140729833D8
5658A887B49E011BA0D5FE98E1C1A54686CF213D0C1FDE7D61F8CCC8C2603A2D
8861E58F4406E6EDA90803E2821C50A22CB2F33CD800F9D28B0C379AA2197EAF
3BC8F0919191E1D3BB9F0C2C527C0C4FF36730301F29461810E587F03BDCA019
460CA2FFBC18DEEDDCC870F7CD6706E33667861F4F5E331CE9BFC0F0894B8A81
C1E83BC280502F6B86D5DB8EA28481D3B55486FFFBFE313CB8FE8CE1715C25C3
1F73482C307CFEC4C0BC643A03E39B3308034009031D68F3BE61B07DB28781E9
E36F86DF060298F2BFBE4700003F4A71F77ECF59220000000049454E44AE4260
82}
Name = 'PngImage1'
Background = clWindow
end>
end
end end

42
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas
View File

@ -12,7 +12,13 @@ uses
cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, TBX, cxGridPopupMenu, dxPScxCommon, dxPScxGrid6Lnk, uDADataTable, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxTextEdit; cxControls, cxGridCustomView, cxGrid, cxTextEdit, dxSkinsCore, dxSkinBlack,
dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter, uDAInterfaces;
type type
IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor) IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor)
@ -29,11 +35,35 @@ implementation
procedure TfrViewAlbaranesDevProveedor.CustomViewCreate(Sender: TObject); procedure TfrViewAlbaranesDevProveedor.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
cxGridViewREF_PED_PROVEEDOR.Destroy; with cxGridViewREF_PED_PROVEEDOR do
cxGridViewCALLE.Destroy; begin
cxGridViewCODIGO_POSTAL.Destroy; Visible := False;
cxGridViewPOBLACION.Destroy; VisibleForCustomization := False;
cxGridViewPROVINCIA.Destroy; end;
with cxGridViewCALLE do
begin
Visible := False;
VisibleForCustomization := False;
end;
with cxGridViewCODIGO_POSTAL do
begin
Visible := False;
VisibleForCustomization := False;
end;
with cxGridViewPOBLACION do
begin
Visible := False;
VisibleForCustomization := False;
end;
with cxGridViewPROVINCIA do
begin
Visible := False;
VisibleForCustomization := False;
end;
end; end;
end. end.

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

@ -7,10 +7,10 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 596 Width = 596
Height = 351 Height = 351
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitTop = 102
ExplicitWidth = 596 ExplicitWidth = 596
ExplicitHeight = 351 ExplicitHeight = 351
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded] DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -53,6 +53,7 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Value = 1 Value = 1
end> end>
Properties.ShowDescriptions = False Properties.ShowDescriptions = False
OnGetCellHint = cxGridViewINCIDENCIAS_ACTIVASGetCellHint
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
@ -131,6 +132,11 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 114 Width = 114
end end
object cxGridViewINCIDENCIAS: TcxGridDBColumn
DataBinding.FieldName = 'INCIDENCIAS'
Visible = False
VisibleForCustomization = False
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'
@ -145,18 +151,30 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 596 Width = 596
ExplicitWidth = 596 ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 499
Width = 499
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 188
Width = 188
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 292 Left = 292
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292 ExplicitLeft = 292
ExplicitWidth = 217 ExplicitWidth = 294
Width = 217 Width = 294
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -216,15 +234,210 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
OnUpdate = actAlmacenUpdate OnUpdate = actAlmacenUpdate
end end
end end
inherited PngImageList10: TPngImageList
Left = 352
Top = 448
end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True BuiltInStyle = True
end end
end end
inherited GridPNGImageList: TPngImageList
PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD25200000A4D694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
F73EE77CFEFC2FF784F3FB25D29F33000001744944415478DA63FCFFFF3FC394
C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED
98866A806DD17E14C587FB1CC134B2F8AE761B86B9ABF632CC5BBA09D3007CE0
D7EFBF609B4178C98683D80D40770136B0AED69461E59623B80D80391B04FE01
E5FEFCF907B7D9B7FE04C3AA4A6386B53B8EE13700E692BD9D760CCEE587E036
07359F66585A6AC0B069CF49FC06C06CFE7CFB30C3CBC5B1F87CE48261C0C15E
0706FBE20360D999EC710CCA0D350CECECE9183A7FFE9CC9302FB18501C30090
B3617E7ED6A6C6A0D5FE18AC180E7EFC00E2EF0CB3771930306F4F45189011E5
C6E0587A10C516900B500C0069FEF00E62C02927540392C39CC1B6C2423DA4F5
0CAA0130CD60037E32CCBE15846A405C90034A9445769E4718F0712242F3870F
1017BC4A413520CA0FE177B841338C20063CAC47688679E15719AA01A15ED60C
ABB71D450903A76BA9E05898BD4A1E6B1CA218004A18E8409BF70D8315EB719C
89C05E9EC10500D1295EA9BD5461080000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end>
Bitmap = {}
end
object PngImageList: TPngImageList object PngImageList: TPngImageList
PngImages = < PngImages = <
item item

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

@ -3,7 +3,7 @@ unit uViewAlbaranesProveedor;
interface interface
uses uses
uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, Types, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList, dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList,
@ -11,7 +11,13 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes, uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit; ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter, uDAInterfaces;
type type
IViewAlbaranesProveedor = interface(IViewGrid) IViewAlbaranesProveedor = interface(IViewGrid)
@ -45,11 +51,9 @@ type
TBXSeparatorItem2: TTBXSeparatorItem; TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn; cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxGridViewREF_FACTURA_PROV: TcxGridDBColumn; cxGridViewREF_FACTURA_PROV: TcxGridDBColumn;
cxGridViewINCIDENCIAS: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var
ADone: Boolean);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
AStyle: TcxStyle); AStyle: TcxStyle);
@ -57,8 +61,11 @@ type
procedure actProveedorUpdate(Sender: TObject); procedure actProveedorUpdate(Sender: TObject);
procedure actAlmacenExecute(Sender: TObject); procedure actAlmacenExecute(Sender: TObject);
procedure actAlmacenUpdate(Sender: TObject); procedure actAlmacenUpdate(Sender: TObject);
procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, procedure cxGridViewINCIDENCIAS_ACTIVASGetCellHint(
Y: Integer); Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var AHintText: TCaption; var AIsHintMultiLine: Boolean;
var AHintTextRect: TRect);
private private
//Filtros relativos a la vista //Filtros relativos a la vista
@ -75,8 +82,9 @@ type
implementation implementation
uses SysUtils, variants, windows, uDataModuleAlbaranesProveedor, schAlbaranesProveedorClient_Intf, uses
uViewGridBase; SysUtils, variants, windows, uDataModuleAlbaranesProveedor,
schAlbaranesProveedorClient_Intf, uViewGridBase, cxGridDBDataDefinitions;
{$R *.dfm} {$R *.dfm}
@ -159,47 +167,18 @@ begin
RefrescarFiltro; RefrescarFiltro;
end; end;
procedure TfrViewAlbaranesProveedor.cxGridViewCODIGOCustomDrawCell(Sender: procedure TfrViewAlbaranesProveedor.cxGridViewINCIDENCIAS_ACTIVASGetCellHint(
TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
TcxGridTableDataCellViewInfo; var ADone: Boolean); ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
var var AHintText: TCaption; var AIsHintMultiLine: Boolean;
R: TRect; var AHintTextRect: TRect);
begin begin
inherited; inherited;
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
ADone := True;
end;
procedure TfrViewAlbaranesProveedor.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); if (ARecord.Values[Sender.Index] = '1') then
var
Site : TcxGridSite;
HitTest : TcxCustomGridHitTest;
Item : TcxCustomGridTableItem;
Rec : TcxCustomGridRecord;
sNewHint : string;
begin begin
{Este método desaparecerá cuando se migre la aplicación, es para sacar la causa de la incidencia sin necesidad de entrar en el documento} AIsHintMultiLine := True;
Site := Sender as TcxGridSite; AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index]
HitTest := Site.GridView.ViewInfo.GetHitTest(X, Y);
if HitTest is TcxGridRecordCellHitTest then begin
Item := TcxGridRecordCellHitTest(HitTest).Item;
Rec := TcxGridRecordCellHitTest(HitTest).GridRecord;
if (Item.Index = cxGridView.GetColumnByFieldName(fld_AlbaranesProveedorINCIDENCIAS_ACTIVAS).Index)
and (Rec.Selected)
and (Albaranes.DataTable.FieldByName(fld_AlbaranesProveedorINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin
sNewHint := Albaranes.DataTable.FieldByName(fld_AlbaranesProveedorINCIDENCIAS).AsString;
if (cxGrid.Hint <> sNewHint) then begin
cxGrid.ShowHint := false;
cxGrid.Hint := sNewHint;
end
else cxGrid.ShowHint := true;
end
else begin
cxGrid.ShowHint := false;
end;
end; end;
end; end;
@ -210,8 +189,8 @@ procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender:
IndiceCol: Integer; IndiceCol: Integer;
ASituacion: string;} ASituacion: string;}
begin begin
{ inherited; inherited;
if Assigned(ARecord) then { if Assigned(ARecord) then
begin begin
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosSITUACION).Index; IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_PresupuestosSITUACION).Index;
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]); ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);

24
Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm
View File

@ -43,44 +43,45 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor
Wrap = True Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 22 ExplicitTop = 22
ExplicitHeight = 27 ExplicitHeight = 30
end end
inherited ToolButton9: TToolButton [11] inherited ToolButton9: TToolButton [11]
Left = 0 Left = 0
Top = 49 Top = 52
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton10: TToolButton [12] inherited ToolButton10: TToolButton [12]
Left = 145 Left = 145
Top = 49 Top = 52
ExplicitLeft = 145 ExplicitLeft = 145
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton6: TToolButton [13] inherited ToolButton6: TToolButton [13]
Left = 270 Left = 270
Top = 49 Top = 52
ExplicitLeft = 270 ExplicitLeft = 270
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton7: TToolButton [14] inherited ToolButton7: TToolButton [14]
Left = 336 Left = 336
Top = 49 Top = 52
Wrap = True Wrap = True
ExplicitLeft = 336 ExplicitLeft = 336
ExplicitTop = 49 ExplicitTop = 52
end end
inherited ToolButton8: TToolButton [15] inherited ToolButton8: TToolButton [15]
Left = 0 Left = 0
Top = 71 Top = 74
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 71 ExplicitTop = 74
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 121 Top = 121
Height = 183 Height = 183
ExplicitTop = 99 ExplicitTop = 99
ExplicitHeight = 210
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Properties.ReadOnly = False Properties.ReadOnly = False
@ -89,6 +90,7 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 95 Top = 95
ExplicitTop = 68
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
inherited TBXSubmenuItem1: TTBXSubmenuItem inherited TBXSubmenuItem1: TTBXSubmenuItem
Visible = False Visible = False

8
Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas
View File

@ -12,7 +12,13 @@ uses
Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns, Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns,
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar, JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
uControllerDetallesArticulos, uBizAlbaranesProveedor, uDAInterfaces, uControllerDetallesArticulos, uBizAlbaranesProveedor, uDAInterfaces,
cxButtonEdit, cxDropDownEdit; cxButtonEdit, cxDropDownEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu, cxGridPopupMenu;
type type
IViewDetallesAlbaranProveedor = interface(IViewDetallesArticulos) IViewDetallesAlbaranProveedor = interface(IViewDetallesArticulos)

7
Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.dfm
View File

@ -11,6 +11,7 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
569 569
@ -41,7 +42,6 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = dsAlbaran DataBinding.DataSource = dsAlbaran
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ListOptions.SyncMode = True
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
@ -51,17 +51,22 @@ inherited frViewDireccionEntregaAlbaranProv: TfrViewDireccionEntregaAlbaranProv
Properties.ListOptions.AnsiSort = True Properties.ListOptions.AnsiSort = True
Properties.ListOptions.GridLines = glNone Properties.ListOptions.GridLines = glNone
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True
Properties.ListSource = dsAlmacenes Properties.ListSource = dsAlmacenes
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 425 Width = 425
end end

8
Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.pas
View File

@ -8,7 +8,13 @@ uses
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable, cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uBizAlmacenes, uAlmacenesController, uAlbaranesProveedorController, ActnList, uBizAlmacenes, uAlmacenesController, uAlbaranesProveedorController,
Buttons, uDAInterfaces; Buttons, uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinsdxLCPainter;
type type
IViewDireccionEntregaAlbaranProv = interface(IViewBase) IViewDireccionEntregaAlbaranProv = interface(IViewBase)

22
Source/Modulos/Almacenes/Controller/Almacenes_controller.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Almacenes/Controller/Almacenes_controller.res
View File

Binary file not shown.

BIN
Source/Modulos/Almacenes/Data/Almacenes_data.res
View File

Binary file not shown.

BIN
Source/Modulos/Almacenes/Model/Almacenes_model.res
View File

Binary file not shown.

22
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.res
View File

Binary file not shown.

37
Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
View File

@ -76,9 +76,6 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Kind = skCount Kind = skCount
Column = frViewAlmacenes1.cxGridViewNOMBRE Column = frViewAlmacenes1.cxGridViewNOMBRE
end> end>
inherited cxGridViewID: TcxGridDBColumn
IsCaptionAssigned = True
end
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -90,18 +87,30 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Width = 543 Width = 543
ExplicitWidth = 543 ExplicitWidth = 543
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 446
Width = 446
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 233
Width = 233
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 337 Left = 337
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 337 ExplicitLeft = 337
ExplicitWidth = 121 ExplicitWidth = 196
Width = 121 Width = 196
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -133,6 +142,11 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True
end
end
inherited cxViewGridPopupMenu: TcxGridPopupMenu inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = < PopupMenus = <
item item
@ -141,11 +155,6 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
Index = 0 Index = 0
end> end>
end end
inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True
end
end
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
inherited actNuevo: TAction inherited actNuevo: TAction

153
Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm
View File

@ -1,5 +1,12 @@
inherited frViewAlmacenes: TfrViewAlmacenes inherited frViewAlmacenes: TfrViewAlmacenes
Width = 770
Height = 493
ExplicitWidth = 770
ExplicitHeight = 493
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 770
Height = 365
ExplicitTop = 102
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -9,15 +16,6 @@ inherited frViewAlmacenes: TfrViewAlmacenes
Column = cxGridViewNOMBRE Column = cxGridViewNOMBRE
end> end>
OptionsBehavior.PullFocusing = True OptionsBehavior.PullFocusing = True
object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID'
OnCustomDrawCell = cxGridViewIDCustomDrawCell
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
Width = 22
IsCaptionAssigned = True
end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
SortIndex = 0 SortIndex = 0
@ -59,21 +57,47 @@ inherited frViewAlmacenes: TfrViewAlmacenes
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 770
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 770
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
ExplicitWidth = 121 Left = 474
Width = 121 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 474
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 770
inherited tbxBotones: TTBXToolbar
Width = 760
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 467
ExplicitWidth = 607
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 770
inherited TBXToolbar1: TTBXToolbar
Width = 760
end
end end
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
@ -87,8 +111,101 @@ inherited frViewAlmacenes: TfrViewAlmacenes
BuiltInStyle = True BuiltInStyle = True
end end
end end
object PngImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -111,11 +228,9 @@ inherited frViewAlmacenes: TfrViewAlmacenes
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2 84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage1'
Background = clWindow Background = clWindow
end> end>
Left = 160
Top = 32
Bitmap = {} Bitmap = {}
end end
end end

26
Source/Modulos/Almacenes/Views/uViewAlmacenes.pas
View File

@ -13,7 +13,13 @@ uses
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX, cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces; TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
IViewAlmacenes = interface(IViewGrid) IViewAlmacenes = interface(IViewGrid)
@ -27,17 +33,12 @@ type
cxGridViewPERSONACONTACTO: TcxGridDBColumn; cxGridViewPERSONACONTACTO: TcxGridDBColumn;
cxGridViewNOMBRE: TcxGridDBColumn; cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewTELEFONO: TcxGridDBColumn; cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewID: TcxGridDBColumn;
PngImageList: TPngImageList;
cxGridViewCALLE: TcxGridDBColumn; cxGridViewCALLE: TcxGridDBColumn;
cxGridViewPROVINCIA: TcxGridDBColumn; cxGridViewPROVINCIA: TcxGridDBColumn;
cxGridViewPOBLACION: TcxGridDBColumn; cxGridViewPOBLACION: TcxGridDBColumn;
cxGridViewCODIGO_POSTAL: TcxGridDBColumn; cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
cxGridViewMOVIL: TcxGridDBColumn; cxGridViewMOVIL: TcxGridDBColumn;
cxGridViewFAX: TcxGridDBColumn; cxGridViewFAX: TcxGridDBColumn;
procedure cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
protected protected
FAlmacenes: IBizAlmacen; FAlmacenes: IBizAlmacen;
function GetAlmacenes: IBizAlmacen; virtual; function GetAlmacenes: IBizAlmacen; virtual;
@ -71,17 +72,4 @@ begin
end; end;
procedure TfrViewAlmacenes.cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
R : TRect;
begin
inherited;
R := AViewInfo.ContentBounds;
ACanvas.FillRect(R);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
ADone := True;
end;
end. end.

12
Source/Modulos/Articulos/Controller/Articulos_controller.dproj
View File

@ -48,18 +48,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Articulos_controller.dpk"> <DelphiCompile Include="Articulos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_data.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Articulos_data.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" />
<DCCReference Include="uArticulosController.pas" /> <DCCReference Include="uArticulosController.pas" />
<DCCReference Include="uControllerDetallesArticulos.pas" /> <DCCReference Include="uControllerDetallesArticulos.pas" />
<DCCReference Include="View\uIEditorArticulo.pas" /> <DCCReference Include="View\uIEditorArticulo.pas" />

12
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -168,8 +168,8 @@ begin
end; end;
function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: Integer = -1): IBizArticulo; function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: Integer = -1): IBizArticulo;
var {var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;}
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -202,8 +202,8 @@ begin
end; end;
function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClienteID: Integer): IBizArticulo; function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClienteID: Integer): IBizArticulo;
var {var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;}
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -368,8 +368,6 @@ end;
function TArticulosController.ValidarArticulo(AArticulo: IBizArticulo): Boolean; function TArticulosController.ValidarArticulo(AArticulo: IBizArticulo): Boolean;
begin begin
Result := False;
if not Assigned(AArticulo) then if not Assigned(AArticulo) then
raise Exception.Create ('Artículo no asignado'); raise Exception.Create ('Artículo no asignado');
@ -597,8 +595,6 @@ begin
end; end;
function TArticulosController.Guardar(AArticulo: IBizArticulo): Boolean; function TArticulosController.Guardar(AArticulo: IBizArticulo): Boolean;
var
NuevoID: Integer;
begin begin
Result := False; Result := False;

16
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -48,20 +48,20 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="Articulos_view.dpk"> <DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Articulos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Articulos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Fabricantes_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Fabricantes_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Familias_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\UnidadesMedida_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\UnidadesMedida_controller.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" /> <DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas"> <DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form> <Form>fEditorArticulo</Form>

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

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo inherited frViewArticulo: TfrViewArticulo
Width = 986 Width = 451
Height = 439 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -10,17 +10,19 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl object dxLayoutControlArticulo: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 986 Width = 451
Height = 425 Height = 425
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 986
DesignSize = ( DesignSize = (
986 451
425) 425)
object PngSpeedButton2: TPngSpeedButton object PngSpeedButton2: TPngSpeedButton
Left = 506 Left = 270
Top = 304 Top = 304
Width = 23 Width = 23
Height = 22 Height = 22
@ -47,7 +49,7 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end end
object PngSpeedButton1: TPngSpeedButton object PngSpeedButton1: TPngSpeedButton
Left = 506 Left = 270
Top = 332 Top = 332
Width = 23 Width = 23
Height = 22 Height = 22
@ -66,12 +68,16 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 164 Width = 164
end end
@ -86,12 +92,16 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 132 Width = 132
end end
@ -110,12 +120,16 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5 TabOrder = 5
Width = 144 Width = 144
end end
@ -131,12 +145,16 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 8
Height = 98 Height = 98
Width = 621 Width = 621
@ -154,19 +172,23 @@ inherited frViewArticulo: TfrViewArticulo
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 383 Width = 383
end end
inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor inline frViewDatosYSeleccionProveedor1: TfrViewDatosYSeleccionProveedor
Left = 559 Left = 323
Top = 28 Top = 28
Width = 526 Width = 526
Height = 202 Height = 202
@ -178,39 +200,66 @@ inherited frViewArticulo: TfrViewArticulo
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 559 ExplicitLeft = 323
ExplicitTop = 28 ExplicitTop = 28
ExplicitWidth = 526 ExplicitWidth = 526
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 526 Width = 526
ExplicitWidth = 526
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 113 ExplicitWidth = 113
Width = 113 Width = 113
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 49 ExplicitWidth = 49
Width = 49 Width = 49
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 327 ExplicitWidth = 327
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 313 Left = 203
ExplicitLeft = 313 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 203
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 197 Left = 87
ExplicitLeft = 197 ExplicitLeft = 87
end end
end end
end end
object eReferenciaProv: TcxDBTextEdit object eReferenciaProv: TcxDBTextEdit
Left = 640 Left = 404
Top = 266 Top = 266
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_PROV' DataBinding.DataField = 'REFERENCIA_PROV'
@ -220,14 +269,18 @@ inherited frViewArticulo: TfrViewArticulo
Style.Color = 14745599 Style.Color = 14745599
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 10
Width = 164 Width = 164
end end
object ePrecioCoste: TcxDBCurrencyEdit object ePrecioCoste: TcxDBCurrencyEdit
Left = 640 Left = 404
Top = 293 Top = 293
DataBinding.DataField = 'PRECIO_COSTE' DataBinding.DataField = 'PRECIO_COSTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -237,17 +290,21 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 11
Width = 176 Width = 176
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 640 Left = 404
Top = 320 Top = 320
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -259,18 +316,22 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 12
Width = 120 Width = 120
end end
object ePrecioNeto: TcxDBCurrencyEdit object ePrecioNeto: TcxDBCurrencyEdit
Left = 640 Left = 404
Top = 347 Top = 347
DataBinding.DataField = 'PRECIO_NETO' DataBinding.DataField = 'PRECIO_NETO'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -283,19 +344,23 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleDisabled.TextColor = clWindowText StyleDisabled.TextColor = clWindowText
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleFocused.TextColor = clWindowText StyleFocused.TextColor = clWindowText
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 13
Width = 152 Width = 152
end end
object ePrecioPorte: TcxDBCurrencyEdit object ePrecioPorte: TcxDBCurrencyEdit
Left = 640 Left = 404
Top = 374 Top = 374
DataBinding.DataField = 'PRECIO_PORTE' DataBinding.DataField = 'PRECIO_PORTE'
DataBinding.DataSource = dsViewArticulo DataBinding.DataSource = dsViewArticulo
@ -305,12 +370,16 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 14
Width = 152 Width = 152
end end
@ -329,12 +398,16 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 4
Width = 148 Width = 148
end end
@ -351,14 +424,18 @@ inherited frViewArticulo: TfrViewArticulo
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 3
Width = 511 Width = 511
end end
@ -375,14 +452,18 @@ inherited frViewArticulo: TfrViewArticulo
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 6
Width = 479 Width = 479
end end
@ -398,13 +479,17 @@ inherited frViewArticulo: TfrViewArticulo
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.Color = clWindow StyleFocused.Color = clWindow
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 7
Width = 171 Width = 171
end end

8
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -10,7 +10,13 @@ uses
cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList, cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit, uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit,
uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces; uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type type
IViewArticulo = interface(IViewBase) IViewArticulo = interface(IViewBase)

201
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -1,11 +1,14 @@
inherited frViewArticulos: TfrViewArticulos inherited frViewArticulos: TfrViewArticulos
Width = 539 Width = 924
ExplicitWidth = 539 Height = 462
ExplicitWidth = 924
ExplicitHeight = 462
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 539 Width = 924
ExplicitWidth = 539 Height = 334
ExplicitWidth = 924
ExplicitHeight = 334
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'ID'
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded] DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -25,19 +28,21 @@ inherited frViewArticulos: TfrViewArticulos
Caption = #191'Inventariable?' Caption = #191'Inventariable?'
DataBinding.FieldName = 'INVENTARIABLE' DataBinding.FieldName = 'INVENTARIABLE'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = PngImageList Properties.Images = GridPNGImageList
Properties.Items = < Properties.Items = <
item item
Value = 0 Value = 0
end end
item item
ImageIndex = 0 ImageIndex = 3
Tag = 1 Tag = 1
Value = 1 Value = 1
end> end>
Visible = False
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
VisibleForCustomization = False
Width = 22 Width = 22
end end
object cxGridViewCOMISIONABLE: TcxGridDBColumn object cxGridViewCOMISIONABLE: TcxGridDBColumn
@ -46,7 +51,6 @@ inherited frViewArticulos: TfrViewArticulos
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.DefaultDescription = 'S'#237 Properties.DefaultDescription = 'S'#237
Properties.DefaultImageIndex = 1 Properties.DefaultImageIndex = 1
Properties.Images = PngImageList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.ImmediateUpdateText = True Properties.ImmediateUpdateText = True
Properties.Items = < Properties.Items = <
@ -83,7 +87,7 @@ inherited frViewArticulos: TfrViewArticulos
object cxGridViewFABRICANTE: TcxGridDBColumn object cxGridViewFABRICANTE: TcxGridDBColumn
Caption = 'Fabricante' Caption = 'Fabricante'
DataBinding.FieldName = 'FABRICANTE' DataBinding.FieldName = 'FABRICANTE'
BestFitMaxWidth = 80 BestFitMaxWidth = 60
end end
object cxGridViewREFERENCIA_FABR: TcxGridDBColumn object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
Caption = 'Ref. fabricante' Caption = 'Ref. fabricante'
@ -160,47 +164,61 @@ inherited frViewArticulos: TfrViewArticulos
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 539 Width = 924
ExplicitWidth = 539 ExplicitWidth = 738
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 539 ExplicitWidth = 738
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 539 Width = 924
ExplicitWidth = 539 ExplicitWidth = 738
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Style.LookAndFeel.SkinName = ''
Width = 273 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 641
Width = 641
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Style.LookAndFeel.SkinName = ''
Width = 121 StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 350
Width = 350
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 335 Left = 566
ExplicitLeft = 335 Style.LookAndFeel.SkinName = ''
ExplicitWidth = 121 StyleDisabled.LookAndFeel.SkinName = ''
Width = 121 StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 566
ExplicitWidth = 274
Width = 274
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 539 Width = 924
ExplicitWidth = 539 ExplicitWidth = 738
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 529 Width = 914
ExplicitWidth = 529 ExplicitWidth = 728
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 436
Visible = True Visible = True
ExplicitWidth = 539 ExplicitTop = 484
ExplicitWidth = 738
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 539 Width = 924
ExplicitWidth = 539 ExplicitWidth = 738
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 529 Width = 914
ExplicitWidth = 529 ExplicitWidth = 728
object TBXSeparatorItem1: TTBXSeparatorItem object TBXSeparatorItem1: TTBXSeparatorItem
end end
object TBXItem3: TTBXItem object TBXItem3: TTBXItem
@ -226,8 +244,8 @@ inherited frViewArticulos: TfrViewArticulos
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 352 Left = 360
Top = 560 Top = 280
object actFamilia: TAction object actFamilia: TAction
Caption = 'Familia' Caption = 'Familia'
OnExecute = actFamiliaExecute OnExecute = actFamiliaExecute
@ -244,17 +262,106 @@ inherited frViewArticulos: TfrViewArticulos
OnUpdate = actFabricanteUpdate OnUpdate = actFabricanteUpdate
end end
end end
inherited PngImageList10: TPngImageList
Left = 320
Top = 560
end
inherited dxPrintStyleManager1: TdxPrintStyleManager inherited dxPrintStyleManager1: TdxPrintStyleManager
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
BuiltInStyle = True BuiltInStyle = True
end end
end end
object PngImageList: TPngImageList inherited GridPNGImageList: TPngImageList
PngImages = < PngImages = <
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
0000000049454E44AE426082}
Name = 'Icono_header'
Background = clWindow
end
item item
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -277,7 +384,7 @@ inherited frViewArticulos: TfrViewArticulos
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2 84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082} 6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage2'
Background = clWindow Background = clWindow
end end
item item
@ -292,9 +399,21 @@ inherited frViewArticulos: TfrViewArticulos
E402210000000049454E44AE426082} E402210000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000000E54944415478DADD902172C3301045BF4F10C3320B9645B0ACEE0D7C
83F806F5110C0BD51B6C99A160E1C2C085850B0D372C655965DCA28C3D9DB27C
CD8E44FEDBFF55E19FAAEE104013B77EF53ED100B3595967637A1B7813B098C7
F8149E435DC3CE807C29F2943FD48C784ABC0520371FF64D83D377597FF201F8
28C899DE39D3B005D0AE8B0DB0FB3597143A2B98195EA3DA0248DBC67D79FF98
B100682278857540224EF131BCD64BFF62363FE215540594C675C098728BB3F5
2184031C72DDAE1EFFC89EC85EE493D63FB1A81F526BA65D7808BDA8EE1C0611
B969BE09F8ABEE007001C1D97F1131BF40440000000049454E44AE426082}
Name = 'PngImage3'
Background = clWindow
end> end>
Left = 160
Top = 32
Bitmap = {} Bitmap = {}
end end
end end

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