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

Pedidos a proveedor:

Browse Source 
- Añadir selección de persona que recibirá el pedido a partir de los empleados o personal de la subcontrata.
 - Adaptación de los informes.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@353 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-25 17:02:07 +00:00
parent 215634d57d
commit 72e18c7cdf
30 changed files with 816 additions and 441 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
Build/Build.fbp5
View File

@ -548,7 +548,7 @@ source_path
<Property name="ActionTextColor" type="Cardinal">0</Property> <Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property> <Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="Description" type="string">Servidor</Property> <Property MultiValue="0" name="Description" type="string">Servidor</Property>
<Property name="Enabled" type="WordBool">True</Property> <Property name="Enabled" type="WordBool">False</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property> <Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property> <Property name="IsAction" type="Boolean">True</Property>
@ -10979,7 +10979,7 @@ Comments=
<Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property> <Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property> <Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">False</Property> <Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property> <Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property> <Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property> <Property name="IsDebug" type="WordBool">False</Property>
@ -10989,7 +10989,7 @@ Comments=
<Property name="IsSpecial" type="WordBool">False</Property> <Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property> <Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property> <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3081</Property> <Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property> <Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property> <Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property> <Property MultiValue="0" name="ManifestFile" type="string"></Property>
@ -11013,7 +11013,16 @@ Comments=
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property> <Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property> <Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0 <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]> ]]>
</Property> </Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property> <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@ -16833,7 +16842,7 @@ Comments=
<Property name="IgnoreFailure" type="WordBool">False</Property> <Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IncludeCompileDate" type="WordBool">False</Property> <Property name="IncludeCompileDate" type="WordBool">False</Property>
<Property name="IncludeManifest" type="Boolean">False</Property> <Property name="IncludeManifest" type="Boolean">False</Property>
<Property name="IncludeVerInfo" type="WordBool">False</Property> <Property name="IncludeVerInfo" type="WordBool">True</Property>
<Property name="IsAction" type="Boolean">True</Property> <Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property> <Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="IsDebug" type="WordBool">False</Property> <Property name="IsDebug" type="WordBool">False</Property>
@ -16843,7 +16852,7 @@ Comments=
<Property name="IsSpecial" type="WordBool">False</Property> <Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property> <Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property> <Property name="LinkProductVersionToFileVersion" type="Boolean">False</Property>
<Property name="Locale" type="Integer">3081</Property> <Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property> <Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">1</Property> <Property name="MajorVersion" type="Integer">1</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property> <Property MultiValue="0" name="ManifestFile" type="string"></Property>
@ -16867,7 +16876,16 @@ Comments=
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property> <Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property> <Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">False</Property> <Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[FileVersion=1.0.0.0 <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
]]> ]]>
</Property> </Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property> <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>

14
Source/Informes/InfPedidoProveedor.fr3
View File

File diff suppressed because one or more lines are too long

BIN
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk
View File

Binary file not shown.

13
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid> <ProjectGuid>{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}</ProjectGuid>
<MainSource>PedidosProveedor_controller.dpk</MainSource> <MainSource>PedidosProveedor_controller.dpk</MainSource>
@ -48,10 +49,10 @@
<DelphiCompile Include="PedidosProveedor_controller.dpk"> <DelphiCompile Include="PedidosProveedor_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Articulos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_data.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_data.dcp" />
<DCCReference Include="uArticulosPedidoProveedorController.pas" /> <DCCReference Include="uArticulosPedidoProveedorController.pas" />
<DCCReference Include="uDetallesPedidoProveedorController.pas" /> <DCCReference Include="uDetallesPedidoProveedorController.pas" />
<DCCReference Include="uPedidosProveedorController.pas" /> <DCCReference Include="uPedidosProveedorController.pas" />
@ -67,7 +68,7 @@
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

6
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -341,6 +341,12 @@ begin
and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then and (APedido.ID_PROVEEDOR <> APedido.Proveedor.ID) then
APedido.ID_PROVEEDOR := APedido.Proveedor.ID; APedido.ID_PROVEEDOR := APedido.Proveedor.ID;
if (APedido.ID_ALMACEN = 0) then
APedido.DataTable.FieldByName(fld_PedidosProveedorID_ALMACEN).AsVariant := NULL;
if (APedido.ID_OBRA = 0) then
APedido.DataTable.FieldByName(fld_PedidosProveedorID_OBRA).AsVariant := NULL;
Result := True; Result := True;
finally finally
APedido.Post; APedido.Post;

BIN
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dpk
View File

Binary file not shown.

52
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{38eef566-1895-4bdd-8007-f92f5e32cce6}</ProjectGuid> <ProjectGuid>{38eef566-1895-4bdd-8007-f92f5e32cce6}</ProjectGuid>
<MainSource>PedidosProveedor_data.dpk</MainSource> <MainSource>PedidosProveedor_data.dpk</MainSource>
@ -41,64 +42,23 @@
<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 xmlns=""> <Delphi.Personality> <Parameters> <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">PedidosProveedor_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<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">PedidosProveedor_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="PedidosProveedor_data.dpk"> <DelphiCompile Include="PedidosProveedor_data.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Presupuestos de cliente\Data\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\..\Presupuestos de cliente\Data\PedidosProveedor_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
<DCCReference Include="uDataModulePedidosProveedor.pas"> <DCCReference Include="uDataModulePedidosProveedor.pas">
<Form>DataModulePedidosProveedor</Form> <Form>DataModulePedidosProveedor</Form>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

22
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.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/Pedidos a proveedor/Data/PedidosProveedor_data.res
View File

Binary file not shown.

2
Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dpk
View File

@ -22,7 +22,7 @@ package PedidosProveedor_model;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD ON} {$IMPLICITBUILD OFF}
requires requires
Base, Base,

15
Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{a7225a8d-f40d-4878-9a27-c5de0e7cb638}</ProjectGuid> <ProjectGuid>{a7225a8d-f40d-4878-9a27-c5de0e7cb638}</ProjectGuid>
<MainSource>PedidosProveedor_model.dpk</MainSource> <MainSource>PedidosProveedor_model.dpk</MainSource>
@ -41,7 +42,13 @@
<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">PedidosProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">PedidosProveedor_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -51,8 +58,8 @@
<DelphiCompile Include="PedidosProveedor_model.dpk"> <DelphiCompile Include="PedidosProveedor_model.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="Contactos_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModulePedidosProveedor.pas" /> <DCCReference Include="Data\uIDataModulePedidosProveedor.pas" />
<DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" /> <DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" />
<DCCReference Include="schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="schPedidosProveedorClient_Intf.pas" />

16
Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj
View File

@ -10,6 +10,7 @@
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" /> <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="Controller\PedidosProveedor_controller.dproj" /> <Projects Include="Controller\PedidosProveedor_controller.dproj" />
<Projects Include="Data\PedidosProveedor_data.dproj" /> <Projects Include="Data\PedidosProveedor_data.dproj" />
@ -41,6 +42,15 @@
<Target Name="GUIBase:Make"> <Target Name="GUIBase:Make">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" /> <MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Contactos_controller">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
</Target>
<Target Name="Contactos_controller:Clean">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_controller:Make">
<MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view"> <Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" /> <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target> </Target>
@ -132,13 +142,13 @@
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FactuGES;FactuGES_Server" /> <CallTarget Targets="Base;GUIBase;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FactuGES;FactuGES_Server" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

BIN
Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dpk
View File

Binary file not shown.

72
Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{e7d762a1-3a15-46b2-bd5b-3821d13b8347}</ProjectGuid> <ProjectGuid>{e7d762a1-3a15-46b2-bd5b-3821d13b8347}</ProjectGuid>
<MainSource>PedidosProveedor_plugin.dpk</MainSource> <MainSource>PedidosProveedor_plugin.dpk</MainSource>
@ -41,46 +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 xmlns=""> <Delphi.Personality> <Parameters> <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>
<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>
@ -97,28 +59,38 @@
<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> </Excluded_Packages><Source><Source Name="MainSource">PedidosProveedor_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Source>
<Source Name="MainSource">PedidosProveedor_plugin.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="PedidosProveedor_plugin.dpk"> <DelphiCompile Include="PedidosProveedor_plugin.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationB.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBaPedidosProveedor_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasePedidosProveedor_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBasPedidosProveedor_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBPedidosProveedor_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_view.dcp" />
<DCCReference Include="uPluginPedidosProveedor.pas"> <DCCReference Include="uPluginPedidosProveedor.pas">
<Form>PluginPedidosProveedor</Form> <Form>PluginPedidosProveedor</Form>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6011
Activate=0 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1

22
Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_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/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res
View File

Binary file not shown.

207
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
View File

@ -16,7 +16,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
Value = '3' Value = '2'
ParamType = daptInput ParamType = daptInput
end> end>
Statements = < Statements = <
@ -26,24 +26,14 @@ object RptPedidosProveedor: TRptPedidosProveedor
'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' +
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' +
'MBRE,'#10' V_PROVEEDORES.FAX,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,' + 'MBRE,'#10' V_PROVEEDORES.FAX,'#10' V_PROVEEDORES.PERSONA_CONTACTO,'#10' V' +
#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CALL' + '_PROVEEDORES.CODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10' V_PEDIDOS_PROV' +
'E'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' ' + 'EEDOR.CALLE,'#10' V_PEDIDOS_PROVEEDOR.POBLACION,'#10' V_PEDIDOS_PROVEE' +
'CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.POBLACIO' + 'DOR.PROVINCIA,'#10' V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL,'#10' V_PEDIDOS_' +
'N'#10' ELSE V_PEDIDOS_PROVEEDOR.POBLACION'#10' END as POBLAC' + 'PROVEEDOR.PERSONA_CONTACTO AS ENTREGAR_A'#10'FROM'#10' V_PEDIDOS_PROVEE' +
'ION,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.' + 'DOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PED' +
'PROVINCIA'#10' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END a' + 'IDOS_PROVEEDOR.ID_PROVEEDOR)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID'#10 +
's PROVINCIA,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN AL' + #10
'MACENES.CODIGO_POSTAL'#10' ELSE V_PEDIDOS_PROVEEDOR.CODIG' +
'O_POSTAL'#10' END as CODIGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)' +
#10' THEN ALMACENES.PERSONA_CONTACTO'#10' ELSE V_' +
'PEDIDOS_PROVEEDOR.PERSONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' ' +
' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.TELEFON' +
'O'#10' ELSE V_PEDIDOS_PROVEEDOR.TELEFONO'#10' END as TELEFON' +
'O'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON ' +
'(V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUT' +
'ER JOIN ALMACENES ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID_ALMA' +
'CEN)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -74,10 +64,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
DatasetField = 'FAX' DatasetField = 'FAX'
TableField = 'FAX' TableField = 'FAX'
end end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item item
DatasetField = 'CALLE' DatasetField = 'CALLE'
TableField = 'CALLE' TableField = 'CALLE'
@ -99,8 +85,12 @@ object RptPedidosProveedor: TRptPedidosProveedor
TableField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO'
end end
item item
DatasetField = 'TELEFONO' DatasetField = 'CODIGO_CLIENTE'
TableField = 'TELEFONO' TableField = 'CODIGO_CLIENTE'
end
item
DatasetField = 'ENTREGAR_A'
TableField = 'ENTREGAR_A'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -137,7 +127,12 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 25 Size = 25
end end
item item
Name = 'NOMBRE_ALMACEN' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
@ -162,14 +157,9 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 10 Size = 10
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'ENTREGAR_A'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end> end>
ReadOnly = True ReadOnly = True
end end
@ -326,7 +316,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39512.849204282400000000 ReportOptions.LastChange = 39532.667815752300000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'' ''
@ -352,62 +342,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
'}' '}'
'end;' 'end;'
'' ''
'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
'var'
' ACadena : String;'
'begin'
'{ ACadena := '#39#39';'
' DireccionEnvio.Lines.Clear;'
' if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
' ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
''
' if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
' ACadena := ACadena + '#39' '#39' + <frxDBCabecera."PERSONA_CONTACT' +
'O">;'
''
' DireccionEnvio.Lines.Add(ACadena);'
' ACadena := '#39#39';'
' DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
' if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
' ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
' if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
' ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
''
' if (ACadena <> '#39#39') then'
' DireccionEnvio.Lines.Add(ACadena);'
''
' if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
''
' if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
' DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
'}'
'end;'
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));} '
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
'begin'
' Set('#39'Pagina'#39', 0);'
' Set('#39'TotalPaginas'#39', 0);'
' Set('#39'Capitulo'#39', 0);'
' Set('#39'NumCapitulos'#39', 0); '
'end;'
''
'procedure Memo4OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ if (Length(<frxDBCabecera."OBSERVACIONES">) = 0) then'
' Memo4.Visible := False;} '
'end;'
''
'begin' 'begin'
'' ''
'end.') 'end.')
@ -432,6 +366,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
Top = 24 Top = 24
end end
object IBDatabase1: TIBDatabase object IBDatabase1: TIBDatabase
Connected = True
DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES.FDB' DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES.FDB'
Params.Strings = ( Params.Strings = (
'user_name=sysdba' 'user_name=sysdba'
@ -443,6 +378,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
Top = 296 Top = 296
end end
object IBTransaction1: TIBTransaction object IBTransaction1: TIBTransaction
Active = True
Left = 48 Left = 48
Top = 352 Top = 352
end end
@ -459,6 +395,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
object cabecera: TIBQuery object cabecera: TIBQuery
Database = IBDatabase1 Database = IBDatabase1
Transaction = IBTransaction1 Transaction = IBTransaction1
Active = True
SQL.Strings = ( SQL.Strings = (
'SELECT' 'SELECT'
' V_PEDIDOS_PROVEEDOR.ID,' ' V_PEDIDOS_PROVEEDOR.ID,'
@ -468,46 +405,19 @@ object RptPedidosProveedor: TRptPedidosProveedor
' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,' ' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'
' V_PROVEEDORES.NOMBRE,' ' V_PROVEEDORES.NOMBRE,'
' V_PROVEEDORES.FAX,' ' V_PROVEEDORES.FAX,'
' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,' ' V_PROVEEDORES.PERSONA_CONTACTO,'
'' ' V_PROVEEDORES.CODIGO_ASIGNADO AS CODIGO_CLIENTE,'
' CASE WHEN (ALMACENES.ID > 0)' ' V_PEDIDOS_PROVEEDOR.CALLE,'
' THEN ALMACENES.CALLE' ' V_PEDIDOS_PROVEEDOR.POBLACION,'
' ELSE V_PEDIDOS_PROVEEDOR.CALLE' ' V_PEDIDOS_PROVEEDOR.PROVINCIA,'
' END as CALLE,' ' V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL,'
'' ' V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS ENTREGAR_A'
' CASE WHEN (ALMACENES.ID > 0)'
' THEN ALMACENES.POBLACION'
' ELSE V_PEDIDOS_PROVEEDOR.POBLACION'
' END as POBLACION,'
''
' CASE WHEN (ALMACENES.ID > 0)'
' THEN ALMACENES.PROVINCIA'
' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'
' END as PROVINCIA,'
''
' CASE WHEN (ALMACENES.ID > 0)'
' THEN ALMACENES.CODIGO_POSTAL'
' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'
' END as CODIGO_POSTAL,'
''
' CASE WHEN (ALMACENES.ID > 0)'
' THEN ALMACENES.PERSONA_CONTACTO'
' ELSE V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO'
' END as PERSONA_CONTACTO,'
''
' CASE WHEN (ALMACENES.ID > 0)'
' THEN ALMACENES.TELEFONO'
' ELSE V_PEDIDOS_PROVEEDOR.TELEFONO'
' END as TELEFONO'
'FROM' 'FROM'
' V_PEDIDOS_PROVEEDOR' ' V_PEDIDOS_PROVEEDOR'
' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS' + ' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS' +
'_PROVEEDOR.ID_PROVEEDOR)' '_PROVEEDOR.ID_PROVEEDOR)'
'WHERE V_PEDIDOS_PROVEEDOR.ID = 2')
' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = V_PEDIDOS_PROVEED' +
'OR.ID_ALMACEN)'
'WHERE V_PEDIDOS_PROVEEDOR.ID = 3')
Left = 136 Left = 136
Top = 296 Top = 296
object cabeceraID: TIntegerField object cabeceraID: TIntegerField
@ -544,45 +454,46 @@ object RptPedidosProveedor: TRptPedidosProveedor
Origin = '"V_PROVEEDORES"."FAX"' Origin = '"V_PROVEEDORES"."FAX"'
Size = 25 Size = 25
end end
object cabeceraNOMBRE_ALMACEN: TIBStringField object cabeceraPERSONA_CONTACTO: TIBStringField
FieldName = 'NOMBRE_ALMACEN' FieldName = 'PERSONA_CONTACTO'
Origin = '"ALMACENES"."NOMBRE"' Origin = '"V_PROVEEDORES"."PERSONA_CONTACTO"'
Size = 255
end
object cabeceraCODIGO_CLIENTE: TIBStringField
FieldName = 'CODIGO_CLIENTE'
Origin = '"V_PROVEEDORES"."CODIGO_ASIGNADO"'
Size = 255 Size = 255
end end
object cabeceraCALLE: TIBStringField object cabeceraCALLE: TIBStringField
FieldName = 'CALLE' FieldName = 'CALLE'
ProviderFlags = [] Origin = '"V_PEDIDOS_PROVEEDOR"."CALLE"'
Size = 255 Size = 255
end end
object cabeceraPOBLACION: TIBStringField object cabeceraPOBLACION: TIBStringField
FieldName = 'POBLACION' FieldName = 'POBLACION'
ProviderFlags = [] Origin = '"V_PEDIDOS_PROVEEDOR"."POBLACION"'
Size = 255 Size = 255
end end
object cabeceraPROVINCIA: TIBStringField object cabeceraPROVINCIA: TIBStringField
FieldName = 'PROVINCIA' FieldName = 'PROVINCIA'
ProviderFlags = [] Origin = '"V_PEDIDOS_PROVEEDOR"."PROVINCIA"'
Size = 255 Size = 255
end end
object cabeceraCODIGO_POSTAL: TIBStringField object cabeceraCODIGO_POSTAL: TIBStringField
FieldName = 'CODIGO_POSTAL' FieldName = 'CODIGO_POSTAL'
ProviderFlags = [] Origin = '"V_PEDIDOS_PROVEEDOR"."CODIGO_POSTAL"'
Size = 10 Size = 10
end end
object cabeceraPERSONA_CONTACTO: TIBStringField object cabeceraENTREGAR_A: TIBStringField
FieldName = 'PERSONA_CONTACTO' FieldName = 'ENTREGAR_A'
ProviderFlags = [] Origin = '"V_PEDIDOS_PROVEEDOR"."PERSONA_CONTACTO"'
Size = 255 Size = 255
end end
object cabeceraTELEFONO: TIBStringField
FieldName = 'TELEFONO'
ProviderFlags = []
Size = 25
end
end end
object detalles: TIBQuery object detalles: TIBQuery
Database = IBDatabase1 Database = IBDatabase1
Transaction = IBTransaction1 Transaction = IBTransaction1
Active = True
SQL.Strings = ( SQL.Strings = (
'SELECT DET.ID, DET.ID_PEDIDO,' 'SELECT DET.ID, DET.ID_PEDIDO,'
' DET.POSICION, DET.TIPO_DETALLE,' ' DET.POSICION, DET.TIPO_DETALLE,'
@ -592,7 +503,7 @@ object RptPedidosProveedor: TRptPedidosProveedor
' ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE' ' ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'
'FROM PEDIDOS_PROVEEDOR_DETALLES DET' 'FROM PEDIDOS_PROVEEDOR_DETALLES DET'
'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)' 'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'
'WHERE DET.ID_PEDIDO = 3 AND DET.VISIBLE = 1 ' 'WHERE DET.ID_PEDIDO = 2 AND DET.VISIBLE = 1 '
'ORDER BY DET.ID_PEDIDO, DET.POSICION;') 'ORDER BY DET.ID_PEDIDO, DET.POSICION;')
Left = 136 Left = 136
Top = 352 Top = 352
@ -813,7 +724,12 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 25 Size = 25
end end
item item
Name = 'NOMBRE_ALMACEN' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
@ -838,19 +754,14 @@ object RptPedidosProveedor: TRptPedidosProveedor
Size = 10 Size = 10
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'ENTREGAR_A'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end> end>
Params = < Params = <
item item
Name = 'ID' Name = 'ID'
Value = '' Value = '2'
ParamType = daptInput ParamType = daptInput
end> end>
LogChanges = False LogChanges = False

28
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
View File

@ -33,20 +33,6 @@ type
DADSDetalles: TDADataSource; DADSDetalles: TDADataSource;
tbl_Detalles: TDAMemDataTable; tbl_Detalles: TDAMemDataTable;
tbl_Cabecera: TDAMemDataTable; tbl_Cabecera: TDAMemDataTable;
cabeceraID: TIntegerField;
cabeceraID_EMPRESA: TIntegerField;
cabeceraREFERENCIA: TIBStringField;
cabeceraFECHA_PEDIDO: TDateField;
cabeceraOBSERVACIONES: TMemoField;
cabeceraNOMBRE: TIBStringField;
cabeceraFAX: TIBStringField;
cabeceraNOMBRE_ALMACEN: TIBStringField;
cabeceraCALLE: TIBStringField;
cabeceraPOBLACION: TIBStringField;
cabeceraPROVINCIA: TIBStringField;
cabeceraCODIGO_POSTAL: TIBStringField;
cabeceraPERSONA_CONTACTO: TIBStringField;
cabeceraTELEFONO: TIBStringField;
detallesID: TIntegerField; detallesID: TIntegerField;
detallesID_PEDIDO: TIntegerField; detallesID_PEDIDO: TIntegerField;
detallesPOSICION: TIntegerField; detallesPOSICION: TIntegerField;
@ -59,6 +45,20 @@ type
detallesIMPORTE_TOTAL: TIBBCDField; detallesIMPORTE_TOTAL: TIBBCDField;
detallesREFERENCIA_PROVEEDOR: TIBStringField; detallesREFERENCIA_PROVEEDOR: TIBStringField;
detallesREFERENCIA_FABRICANTE: TIBStringField; detallesREFERENCIA_FABRICANTE: TIBStringField;
cabeceraID: TIntegerField;
cabeceraID_EMPRESA: TIntegerField;
cabeceraREFERENCIA: TIBStringField;
cabeceraFECHA_PEDIDO: TDateField;
cabeceraOBSERVACIONES: TMemoField;
cabeceraNOMBRE: TIBStringField;
cabeceraFAX: TIBStringField;
cabeceraPERSONA_CONTACTO: TIBStringField;
cabeceraCODIGO_CLIENTE: TIBStringField;
cabeceraCALLE: TIBStringField;
cabeceraPOBLACION: TIBStringField;
cabeceraPROVINCIA: TIBStringField;
cabeceraCODIGO_POSTAL: TIBStringField;
cabeceraENTREGAR_A: TIBStringField;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);

64
Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm
View File

@ -22,25 +22,15 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' +
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' +
'MBRE,'#10' V_PROVEEDORES.FAX,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,' + 'MBRE,'#10' V_PROVEEDORES.FAX,'#10' V_PROVEEDORES.PERSONA_CONTACTO,'#10' V' +
#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CALL' + '_PROVEEDORES.CODIGO_ASIGNADO AS CODIGO_CLIENTE,'#10' V_PEDIDOS_PROV' +
'E'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE_ALMA' + 'EEDOR.CALLE AS CALLE_ALMACEN,'#10' V_PEDIDOS_PROVEEDOR.POBLACION AS' +
'CEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.' + ' POBLACION_ALMACEN,'#10' V_PEDIDOS_PROVEEDOR.PROVINCIA AS PROVINCIA' +
'POBLACION'#10' ELSE V_PEDIDOS_PROVEEDOR.POBLACION'#10' END a' + '_ALMACEN,'#10' V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL AS CODIGO_POSTAL_A' +
's POBLACION_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' ' + 'LMACEN,'#10' V_PEDIDOS_PROVEEDOR.PERSONA_CONTACTO AS PERSONA_CONTAC' +
' THEN ALMACENES.PROVINCIA'#10' ELSE V_PEDIDOS_PROVEEDOR.P' + 'TO_ALMACEN'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEE' +
'ROVINCIA'#10' END as PROVINCIA_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID ' + 'DORES ON (V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10'W' +
'> 0)'#10' THEN ALMACENES.CODIGO_POSTAL'#10' ELSE V' + 'HERE V_PEDIDOS_PROVEEDOR.ID = :ID'#10#10
'_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10' END as CODIGO_POSTAL_ALMACEN,' +
#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.PERS' +
'ONA_CONTACTO'#10' ELSE V_PEDIDOS_PROVEEDOR.PERSONA_CONTAC' +
'TO'#10' END as PERSONA_CONTACTO_ALMACEN,'#10#10' CASE WHEN (ALMACENES.ID' +
' > 0)'#10' THEN ALMACENES.TELEFONO'#10' ELSE V_PED' +
'IDOS_PROVEEDOR.TELEFONO'#10' END as TELEFONO_ALMACEN'#10'FROM'#10' V_PEDID' +
'OS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.I' +
'D = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENE' +
'S ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10'WHERE V_PED' +
'IDOS_PROVEEDOR.ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -71,10 +61,6 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
DatasetField = 'FAX' DatasetField = 'FAX'
TableField = 'FAX' TableField = 'FAX'
end end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item item
DatasetField = 'CALLE_ALMACEN' DatasetField = 'CALLE_ALMACEN'
TableField = 'CALLE_ALMACEN' TableField = 'CALLE_ALMACEN'
@ -96,8 +82,12 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
TableField = 'PERSONA_CONTACTO_ALMACEN' TableField = 'PERSONA_CONTACTO_ALMACEN'
end end
item item
DatasetField = 'TELEFONO_ALMACEN' DatasetField = 'PERSONA_CONTACTO'
TableField = 'TELEFONO_ALMACEN' TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'CODIGO_CLIENTE'
TableField = 'CODIGO_CLIENTE'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -134,7 +124,12 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
Size = 25 Size = 25
end end
item item
Name = 'NOMBRE_ALMACEN' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
@ -162,11 +157,6 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
Name = 'PERSONA_CONTACTO_ALMACEN' Name = 'PERSONA_CONTACTO_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'TELEFONO_ALMACEN'
DataType = datString
Size = 25
end> end>
ReadOnly = True ReadOnly = True
end end
@ -354,7 +344,12 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
Size = 25 Size = 25
end end
item item
Name = 'NOMBRE_ALMACEN' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
end end
@ -382,11 +377,6 @@ object RptWordPedidoProveedor: TRptWordPedidoProveedor
Name = 'PERSONA_CONTACTO_ALMACEN' Name = 'PERSONA_CONTACTO_ALMACEN'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'TELEFONO_ALMACEN'
DataType = datString
Size = 25
end> end>
Params = < Params = <
item item

8
Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas
View File

@ -265,11 +265,11 @@ begin
FieldByName('CODIGOPOSTALALMACEN').AsString + ' ' + FieldByName('POBLACIONALMACEN').AsString + ', ' + FieldByName('PROVINCIAALMACEN').AsString);} FieldByName('CODIGOPOSTALALMACEN').AsString + ' ' + FieldByName('POBLACIONALMACEN').AsString + ', ' + FieldByName('PROVINCIAALMACEN').AsString);}
ReplaceBookmark('PersonaEntrega', FieldByName('PERSONA_CONTACTO_ALMACEN').AsString); ReplaceBookmark('PersonaEntrega', FieldByName('PERSONA_CONTACTO_ALMACEN').AsString);
ReplaceBookmark('NombreProveedor', FieldByName('NOMBRE').AsString);
ReplaceBookmark('NombreProveedor', FieldByName('NOMBRE').AsString);
ReplaceBookmark('FaxProveedor', FieldByName('FAX').AsString); ReplaceBookmark('FaxProveedor', FieldByName('FAX').AsString);
ReplaceBookmark('PersonaContactoProveedor', FieldByName('PERSONA_CONTACTO').AsString);
{ ReplaceBookmark('PersonaContactoProveedor', FieldByName('PERSONA_CONTACTO').AsString); ReplaceBookmark('CodigoClienteProveedor', FieldByName('CODIGO_CLIENTE').AsString);
ReplaceBookmark('CodigoClienteProveedor', FieldByName('CODIGO_CLIENTE').AsString);}
if FImportes then if FImportes then
ReplaceBookmark('ImporteTotal', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat)) ReplaceBookmark('ImporteTotal', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat))

21
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk
View File

@ -22,7 +22,7 @@ package PedidosProveedor_view;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD ON} {$IMPLICITBUILD OFF}
requires requires
GUIBase, GUIBase,
@ -30,11 +30,23 @@ requires
PedidosProveedor_controller, PedidosProveedor_controller,
Almacenes_model, Almacenes_model,
Almacenes_controller, Almacenes_controller,
Contactos_model,
Contactos_controller,
Contactos_view, Contactos_view,
Articulos_view, Articulos_view,
Obras_model, Obras_model,
Obras_controller; Obras_controller,
vcl,
rtl,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
dbrtl,
vcljpg,
vcldb;
contains contains
uPedidosProveedorViewRegister in 'uPedidosProveedorViewRegister.pas', uPedidosProveedorViewRegister in 'uPedidosProveedorViewRegister.pas',
uEditorPedidosProveedor in 'uEditorPedidosProveedor.pas' {fEditorPedidosProveedor: TfEditorPedidosProveedor}, uEditorPedidosProveedor in 'uEditorPedidosProveedor.pas' {fEditorPedidosProveedor: TfEditorPedidosProveedor},
@ -49,6 +61,7 @@ contains
uViewElegirArticulosPedidosProveedor in 'uViewElegirArticulosPedidosProveedor.pas' {frViewElegirArticulosPedidosProveedor: TFrame}, uViewElegirArticulosPedidosProveedor in 'uViewElegirArticulosPedidosProveedor.pas' {frViewElegirArticulosPedidosProveedor: TFrame},
uEditorElegirArticulosPedidoProveedor in 'uEditorElegirArticulosPedidoProveedor.pas' {fEditorElegirArticulosPedidoProveedor: TForm}, uEditorElegirArticulosPedidoProveedor in 'uEditorElegirArticulosPedidoProveedor.pas' {fEditorElegirArticulosPedidoProveedor: TForm},
uEditorSituacionPedidoProveedor in 'uEditorSituacionPedidoProveedor.pas' {fEditorSituacionPedidoProveedor: TfEditorSituacionPedidoProveedor}, uEditorSituacionPedidoProveedor in 'uEditorSituacionPedidoProveedor.pas' {fEditorSituacionPedidoProveedor: TfEditorSituacionPedidoProveedor},
uViewProveedorPedido in 'uViewProveedorPedido.pas' {frViewProveedorPedido: TFrame}; uViewProveedorPedido in 'uViewProveedorPedido.pas' {frViewProveedorPedido: TFrame},
uEditorElegirPersonaContactoPedido in 'uEditorElegirPersonaContactoPedido.pas';
end. end.

37
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid> <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>PedidosProveedor_view.dpk</MainSource> <MainSource>PedidosProveedor_view.dpk</MainSource>
@ -41,23 +42,34 @@
<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">PedidosProveedor_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">PedidosProveedor_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="PedidosProveedor_view.dpk"> <DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contactos\Plugin\Almacenes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\Almacenes_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_model.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\Articulos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\Obras_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\Obras_controllercontainsuPedidosProveedorViewRegisterin.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\Obras_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\PedidosProveedor_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contactos\Plugin\PedidosProveedor_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Obras_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas"> <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form> <Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass> <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
@ -70,6 +82,7 @@
<Form>fEditorElegirPedidosProveedor</Form> <Form>fEditorElegirPedidosProveedor</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirPersonaContactoPedido.pas" />
<DCCReference Include="uEditorPedidoProveedor.pas"> <DCCReference Include="uEditorPedidoProveedor.pas">
<Form>fEditorPedidoProveedor</Form> <Form>fEditorPedidoProveedor</Form>
<DesignClass>TfEditorPedidoProveedor</DesignClass> <DesignClass>TfEditorPedidoProveedor</DesignClass>

40
Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.dfm
View File

@ -3,7 +3,7 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
Top = 108 Top = 108
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Datos de la direcci'#243'n de entrega:' Caption = 'Datos de la direcci'#243'n de entrega:'
ClientHeight = 257 ClientHeight = 189
ClientWidth = 453 ClientWidth = 453
Color = clBtnFace Color = clBtnFace
ParentFont = True ParentFont = True
@ -13,14 +13,14 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
OnShow = FormShow OnShow = FormShow
DesignSize = ( DesignSize = (
453 453
257) 189)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Bevel1: TBevel object Bevel1: TBevel
Left = 8 Left = 8
Top = 14 Top = 14
Width = 349 Width = 349
Height = 225 Height = 163
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Shape = bsFrame Shape = bsFrame
end end
@ -56,22 +56,6 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
AutoSize = False AutoSize = False
Caption = 'C'#243'digo postal:' Caption = 'C'#243'digo postal:'
end end
object Label6: TLabel
Left = 20
Top = 185
Width = 109
Height = 13
AutoSize = False
Caption = 'Persona de contacto:'
end
object Label7: TLabel
Left = 21
Top = 210
Width = 109
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
object OKBtn: TButton object OKBtn: TButton
Left = 370 Left = 370
Top = 13 Top = 13
@ -132,24 +116,6 @@ object fEditorDireccionEntregaPedidoProveedor: TfEditorDireccionEntregaPedidoPro
DataSource = dsDireccion DataSource = dsDireccion
TabOrder = 5 TabOrder = 5
end end
object ePersonaContacto: TDBEdit
Left = 135
Top = 182
Width = 210
Height = 21
DataField = 'PERSONA_CONTACTO'
DataSource = dsDireccion
TabOrder = 6
end
object eTelefono: TDBEdit
Left = 136
Top = 207
Width = 210
Height = 21
DataField = 'TELEFONO'
DataSource = dsDireccion
TabOrder = 7
end
object dsDireccion: TDADataSource object dsDireccion: TDADataSource
Left = 16 Left = 16
Top = 46 Top = 46

13
Source/Modulos/Pedidos a proveedor/Views/uEditorDireccionEntregaPedidoProveedor.pas
View File

@ -5,7 +5,7 @@ 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,
uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor; uIEditorDireccionEntregaPedidoProveedor, uBizPedidosProveedor, uDAInterfaces;
type type
TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor) TfEditorDireccionEntregaPedidoProveedor = class(TForm, IEditorDireccionEntregaPedidoProveedor)
@ -21,10 +21,6 @@ type
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
dsDireccion: TDADataSource; dsDireccion: TDADataSource;
Label6: TLabel;
ePersonaContacto: TDBEdit;
Label7: TLabel;
eTelefono: TDBEdit;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -34,12 +30,11 @@ type
pPoblacion: String; pPoblacion: String;
pProvincia: String; pProvincia: String;
pCodigoPostal: String; pCodigoPostal: String;
pPersonaContacto: String;
pTelefono: String;
FPedido : IBizPedidoProveedor; FPedido : IBizPedidoProveedor;
function GetPedido: IBizPedidoProveedor; function GetPedido: IBizPedidoProveedor;
procedure SetPedido(const Value: IBizPedidoProveedor); procedure SetPedido(const Value: IBizPedidoProveedor);
public
property Pedido: IBizPedidoProveedor read GetPedido write SetPedido; property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
end; end;
@ -58,8 +53,6 @@ begin
ePoblacion.Field.Value := pPoblacion; ePoblacion.Field.Value := pPoblacion;
eProvincia.Field.Value := pProvincia; eProvincia.Field.Value := pProvincia;
eCodigoPostal.Field.Value := pCodigoPostal; eCodigoPostal.Field.Value := pCodigoPostal;
ePersonaContacto.Field.Value := pPersonaContacto;
eTelefono.Field.Value := pTelefono;
end; end;
end; end;
@ -70,8 +63,6 @@ begin
pPoblacion := ePoblacion.Text; pPoblacion := ePoblacion.Text;
pProvincia := eProvincia.Text; pProvincia := eProvincia.Text;
pCodigoPostal := eCodigoPostal.Text; pCodigoPostal := eCodigoPostal.Text;
pPersonaContacto := ePersonaContacto.Text;
pTelefono := eTelefono.Text;
end; end;
function TfEditorDireccionEntregaPedidoProveedor.GetPedido: IBizPedidoProveedor; function TfEditorDireccionEntregaPedidoProveedor.GetPedido: IBizPedidoProveedor;

140
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPersonaContactoPedido.dfm Normal file
View File

@ -0,0 +1,140 @@
inherited fEditorElegirPersonaContactoPedido: TfEditorElegirPersonaContactoPedido
BorderStyle = bsDialog
Caption = 'Entrega del material del pedido'
ClientHeight = 269
ClientWidth = 410
Position = poScreenCenter
OnCreate = CustomEditorCreate
OnShow = CustomEditorShow
ExplicitWidth = 416
ExplicitHeight = 294
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 21
Top = 16
Width = 278
Height = 13
Anchors = [akLeft, akTop, akRight]
Caption = 'Indique a qui'#233'n se deber'#225' entregar el material del pedido:'
end
object Panel1: TPanel
Left = 0
Top = 228
Width = 410
Height = 41
Align = alBottom
TabOrder = 0
DesignSize = (
410
41)
object bAceptar: TButton
Left = 246
Top = 8
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Aceptar'
ModalResult = 1
TabOrder = 0
end
object bCancelar: TButton
Left = 327
Top = 8
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancelar'
ModalResult = 2
TabOrder = 1
end
end
object rdxDestino1: TRadioButton
Left = 48
Top = 45
Width = 335
Height = 17
Action = actEmpleadoEmpresa
TabOrder = 1
TabStop = True
end
object cbListaEmpleados: TcxComboBox
Left = 63
Top = 68
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 320
end
object cbListaPersonalSubcontrata: TcxComboBox
Left = 63
Top = 121
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Width = 320
end
object RadioButton1: TRadioButton
Left = 48
Top = 98
Width = 335
Height = 17
Action = actSubcontrata
TabOrder = 4
end
object rdxDestino2: TRadioButton
Left = 48
Top = 151
Width = 335
Height = 17
Action = actOtro
TabOrder = 5
end
object edtTextoPersona: TcxTextEdit
Left = 63
Top = 174
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 320
end
object ActionList1: TActionList
Left = 8
Top = 80
object actEmpleadoEmpresa: TAction
Caption = 'Empleado de '
Checked = True
GroupIndex = 1
OnExecute = actEmpleadoEmpresaExecute
end
object actSubcontrata: TAction
Caption = 'Personal de contacto de la obra:'
GroupIndex = 1
OnExecute = actSubcontrataExecute
end
object actOtro: TAction
Caption = 'A la siguiente persona:'
GroupIndex = 1
OnExecute = actOtroExecute
end
end
end

259
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPersonaContactoPedido.pas Normal file
View File

@ -0,0 +1,259 @@
unit uEditorElegirPersonaContactoPedido;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uEditorBasico, ActnList, StdCtrls, ExtCtrls, cxGraphics, cxControls,
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit;
type
TfEditorElegirPersonaContactoPedido = class(TfEditorBasico)
Panel1: TPanel;
bAceptar: TButton;
bCancelar: TButton;
Label1: TLabel;
rdxDestino1: TRadioButton;
cbListaEmpleados: TcxComboBox;
cbListaPersonalSubcontrata: TcxComboBox;
RadioButton1: TRadioButton;
rdxDestino2: TRadioButton;
ActionList1: TActionList;
actEmpleadoEmpresa: TAction;
actSubcontrata: TAction;
edtTextoPersona: TcxTextEdit;
actOtro: TAction;
procedure CustomEditorCreate(Sender: TObject);
procedure CustomEditorShow(Sender: TObject);
procedure actSubcontrataExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject);
procedure actEmpleadoEmpresaExecute(Sender: TObject);
private
FIDSubcontrata: Integer;
FPersonaContacto : String;
procedure RefrescarEstado;
procedure RellenarEmpleados;
procedure RellenarPersonalSubcontrata;
procedure BuscarPersonaContacto;
function GetPersonaContacto: String;
procedure SetPersonaContacto(const Value: String);
public
property ID_Subcontrata : Integer read FIDSubcontrata write FIDSubcontrata;
property PersonaContacto : String read GetPersonaContacto write SetPersonaContacto;
end;
function ElegirPersonaContactoPedido(const AID_Subcontrata: Integer; var ANombrePersona: String): Boolean;
implementation
{$R *.dfm}
uses
uFactuGES_App, uEmpleadosController, uBizContactos, uProveedoresController,
uStringsUtils;
function ElegirPersonaContactoPedido(const AID_Subcontrata: Integer; var ANombrePersona: String): Boolean;
begin
with TfEditorElegirPersonaContactoPedido.Create(NIL) do
try
ID_Subcontrata := AID_Subcontrata;
PersonaContacto := ANombrePersona;
if IsPositiveResult(ShowModal) then
begin
ANombrePersona := PersonaContacto;
Result := True;
end
else
Result := False;
finally
Free;
end;
end;
procedure TfEditorElegirPersonaContactoPedido.actEmpleadoEmpresaExecute(
Sender: TObject);
begin
actEmpleadoEmpresa.Checked := True;
RefrescarEstado;
end;
procedure TfEditorElegirPersonaContactoPedido.actOtroExecute(Sender: TObject);
begin
actOtro.Checked := True;
RefrescarEstado;
end;
procedure TfEditorElegirPersonaContactoPedido.actSubcontrataExecute(
Sender: TObject);
begin
inherited;
actSubcontrata.Checked := True;
RefrescarEstado;
end;
procedure TfEditorElegirPersonaContactoPedido.BuscarPersonaContacto;
var
i : integer;
begin
// ¿Es un empleado?
for i := 0 to (cbListaEmpleados.Properties.Items.Count - 1) do
begin
if (Pos(FPersonaContacto, cbListaEmpleados.Properties.Items[i]) > 0) then
begin
cbListaEmpleados.Text := FPersonaContacto;
actEmpleadoEmpresa.Checked := True;
RefrescarEstado;
Exit;
end;
end;
// ¿Es personal de una subcontrata?
if (ID_Subcontrata > 0) then
for i := 0 to (cbListaPersonalSubcontrata.Properties.Items.Count - 1) do
begin
if (Pos(FPersonaContacto, cbListaPersonalSubcontrata.Properties.Items[i]) > 0) then
begin
cbListaPersonalSubcontrata.Text := FPersonaContacto;
actSubcontrata.Checked := True;
RefrescarEstado;
Exit;
end;
end;
// Es otra persona
edtTextoPersona.Text := FPersonaContacto;
actOtro.Checked := True;
RefrescarEstado;
end;
procedure TfEditorElegirPersonaContactoPedido.CustomEditorCreate(
Sender: TObject);
begin
inherited;
FPersonaContacto := '';
FIDSubcontrata := -1;
actEmpleadoEmpresa.Caption := actEmpleadoEmpresa.Caption + AppFactuGES.EmpresaActiva.NOMBRE + ':';
end;
procedure TfEditorElegirPersonaContactoPedido.CustomEditorShow(Sender: TObject);
begin
inherited;
RellenarEmpleados;
if (ID_Subcontrata > 0) then
RellenarPersonalSubcontrata
else
actSubcontrata.Enabled := False;
if not EsCadenaVacia(FPersonaContacto) then
BuscarPersonaContacto;
end;
function TfEditorElegirPersonaContactoPedido.GetPersonaContacto: String;
begin
if (actOtro.Checked) then
FPersonaContacto := edtTextoPersona.Text;
if (actEmpleadoEmpresa.Checked) then
FPersonaContacto := cbListaEmpleados.Text;
if (actSubcontrata.Checked) then
FPersonaContacto := cbListaPersonalSubcontrata.Text;
Result := FPersonaContacto;
end;
procedure TfEditorElegirPersonaContactoPedido.RefrescarEstado;
begin
if (actOtro.Checked) then
begin
edtTextoPersona.Enabled := True;
cbListaEmpleados.Enabled := False;
cbListaPersonalSubcontrata.Enabled := False;
end;
if (actEmpleadoEmpresa.Checked) then
begin
edtTextoPersona.Enabled := False;
cbListaEmpleados.Enabled := True;
cbListaPersonalSubcontrata.Enabled := False;
end;
if (actSubcontrata.Checked) then
begin
edtTextoPersona.Enabled := False;
cbListaEmpleados.Enabled := False;
cbListaPersonalSubcontrata.Enabled := True;
end;
end;
procedure TfEditorElegirPersonaContactoPedido.RellenarEmpleados;
var
FEmpleadosController : IEmpleadosController;
FEmpleados : TStringList;
i : integer;
begin
FEmpleadosController := TEmpleadosController.Create;
FEmpleados := FEmpleadosController.DarListaEmpleadosConMovil;
ShowHourglassCursor;
try
with cbListaEmpleados.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FEmpleados.Count - 1 do
begin
Add(FEmpleados[i]);
end;
finally
EndUpdate;
end;
end;
finally
FreeAndNIL(FEmpleados);
FEmpleadosController := NIL;
HideHourglassCursor;
end;
end;
procedure TfEditorElegirPersonaContactoPedido.RellenarPersonalSubcontrata;
var
FProveedoresController : IProveedoresController;
FPersonal : TStringList;
i : integer;
begin
FProveedoresController := TProveedoresController.Create;
ShowHourglassCursor;
try
FPersonal := FProveedoresController.DarListaPersonalConMovil(ID_Subcontrata);
with cbListaPersonalSubcontrata.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FPersonal.Count - 1 do
Add(FPersonal[i]);
finally
EndUpdate;
end;
end;
finally
FreeAndNIL(FPersonal);
FProveedoresController := NIL;
HideHourglassCursor;
end;
end;
procedure TfEditorElegirPersonaContactoPedido.SetPersonaContacto(
const Value: String);
begin
FPersonaContacto := Value;
end;
end.

54
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.dfm
View File

@ -1,20 +1,27 @@
inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Width = 586 Width = 586
Height = 301 Height = 476
ExplicitWidth = 586 ExplicitWidth = 586
ExplicitHeight = 301 ExplicitHeight = 476
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 586 Width = 586
Height = 301 Height = 476
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
586 586
301) 476)
object Bevel1: TBevel
Left = 10
Top = 434
Width = 529
Height = 5
Shape = bsBottomLine
end
object rdxDestino1: TRadioButton object rdxDestino1: TRadioButton
Left = 10 Left = 10
Top = 10 Top = 10
@ -65,7 +72,7 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
end end
object bModificar: TBitBtn object bModificar: TBitBtn
Left = 448 Left = 448
Top = 266 Top = 403
Width = 128 Width = 128
Height = 25 Height = 25
Caption = 'Modificar la direcci'#243'n...' Caption = 'Modificar la direcci'#243'n...'
@ -109,7 +116,6 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Properties.ListOptions.SyncMode = True Properties.ListOptions.SyncMode = True
Properties.ListSource = dsObras Properties.ListSource = dsObras
Properties.PostPopupValueOnTab = True Properties.PostPopupValueOnTab = True
Properties.OnInitPopup = cbListaObrasPropertiesInitPopup
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -122,6 +128,31 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
TabOrder = 3 TabOrder = 3
Width = 551 Width = 551
end end
object edtEntregarA: TcxDBButtonEdit
Left = 70
Top = 445
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsPedido
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = edtEntregarAPropertiesButtonClick
Style.BorderColor = clWindowFrame
Style.Color = clWindow
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 121
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -177,6 +208,17 @@ inherited frViewDireccionEntregaPedidoProv: TfrViewDireccionEntregaPedidoProv
Control = bModificar Control = bModificar
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem
Caption = 'Bevel1'
ShowCaption = False
Control = Bevel1
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Entregar a:'
Control = edtEntregarA
ControlOptions.ShowBorder = False
end
end end
end end
object ActionList1: TActionList object ActionList1: TActionList

52
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
View File

@ -8,7 +8,8 @@ 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, uPedidosProveedorController, ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController,
Buttons, uDAInterfaces, uBizObras, uObrasController; Buttons, uDAInterfaces, uBizObras, uObrasController, cxButtonEdit, cxDBEdit,
ExtCtrls;
type type
IViewDireccionEntregaPedidoProv = interface(IViewBase) IViewDireccionEntregaPedidoProv = interface(IViewBase)
@ -42,14 +43,19 @@ type
cbListaObras: TcxDBLookupComboBox; cbListaObras: TcxDBLookupComboBox;
dsObras: TDADataSource; dsObras: TDADataSource;
actListaObras: TAction; actListaObras: TAction;
Bevel1: TBevel;
dxLayoutControl1Item8: TdxLayoutItem;
edtEntregarA: TcxDBButtonEdit;
dxLayoutControl1Item7: TdxLayoutItem;
procedure actListaAlmacenesExecute(Sender: TObject); procedure actListaAlmacenesExecute(Sender: TObject);
procedure actOtroExecute(Sender: TObject); procedure actOtroExecute(Sender: TObject);
procedure cbListaAlmacenesPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure cbListaAlmacenesPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbListaObrasPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure cbListaObrasPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure bModificarClick(Sender: TObject); procedure bModificarClick(Sender: TObject);
procedure txtDireccionDblClick(Sender: TObject); procedure txtDireccionDblClick(Sender: TObject);
procedure cbListaObrasPropertiesInitPopup(Sender: TObject);
procedure actListaObrasExecute(Sender: TObject); procedure actListaObrasExecute(Sender: TObject);
procedure edtEntregarAPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
protected protected
FAlmacenesController : IAlmacenesController; FAlmacenesController : IAlmacenesController;
FAlmacenes: IBizAlmacen; FAlmacenes: IBizAlmacen;
@ -75,7 +81,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uEditorRegistryUtils, uCustomView; uEditorRegistryUtils, uCustomView, uEditorElegirPersonaContactoPedido;
procedure TfrViewDireccionEntregaPedidoProv.actListaAlmacenesExecute(Sender: TObject); procedure TfrViewDireccionEntregaPedidoProv.actListaAlmacenesExecute(Sender: TObject);
begin begin
@ -124,13 +130,12 @@ begin
if Assigned(FPedido) and Assigned(FAlmacenes) then if Assigned(FPedido) and Assigned(FAlmacenes) then
begin begin
FPedido.Edit; FPedido.Edit;
FPedido.ID_OBRA := 0;
FPedido.CALLE := FAlmacenes.CALLE; FPedido.CALLE := FAlmacenes.CALLE;
FPedido.POBLACION := FAlmacenes.POBLACION; FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.POBLACION := FAlmacenes.POBLACION; FPedido.POBLACION := FAlmacenes.POBLACION;
FPedido.PROVINCIA := FAlmacenes.PROVINCIA; FPedido.PROVINCIA := FAlmacenes.PROVINCIA;
FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL; FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
FPedido.TELEFONO := FAlmacenes.TELEFONO;
RefrescarDireccion; RefrescarDireccion;
end; end;
end; end;
@ -140,27 +145,16 @@ begin
if Assigned(FPedido) and Assigned(FObras) then if Assigned(FPedido) and Assigned(FObras) then
begin begin
FPedido.Edit; FPedido.Edit;
FPedido.ID_ALMACEN := 0;
FPedido.CALLE := FObras.CALLE; FPedido.CALLE := FObras.CALLE;
FPedido.POBLACION := FObras.POBLACION; FPedido.POBLACION := FObras.POBLACION;
FPedido.POBLACION := FObras.POBLACION; FPedido.POBLACION := FObras.POBLACION;
FPedido.PROVINCIA := FObras.PROVINCIA; FPedido.PROVINCIA := FObras.PROVINCIA;
FPedido.CODIGO_POSTAL := FObras.CODIGO_POSTAL; FPedido.CODIGO_POSTAL := FObras.CODIGO_POSTAL;
FPedido.PERSONA_CONTACTO := FObras.PERSONA_CONTACTO;
FPedido.TELEFONO := FObras.TELEFONO;
RefrescarDireccion; RefrescarDireccion;
end; end;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaObrasPropertiesInitPopup(
Sender: TObject);
begin
inherited;
FObrasController := TObrasController.Create;
FObras := FObrasController.BuscarTodos;
FObras.DataTable.Active := True;
dsObras.DataTable := FObras.DataTable;
end;
procedure TfrViewDireccionEntregaPedidoProv.cbListaObrasPropertiesValidate( procedure TfrViewDireccionEntregaPedidoProv.cbListaObrasPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
@ -185,6 +179,11 @@ begin
FAlmacenes := FAlmacenesController.BuscarTodos; FAlmacenes := FAlmacenesController.BuscarTodos;
FAlmacenes.DataTable.Active := True; FAlmacenes.DataTable.Active := True;
dsAlmacenes.DataTable := FAlmacenes.DataTable; dsAlmacenes.DataTable := FAlmacenes.DataTable;
FObrasController := TObrasController.Create;
FObras := FObrasController.BuscarTodos;
FObras.DataTable.Active := True;
dsObras.DataTable := FObras.DataTable;
end; end;
destructor TfrViewDireccionEntregaPedidoProv.Destroy; destructor TfrViewDireccionEntregaPedidoProv.Destroy;
@ -202,6 +201,25 @@ begin
inherited; inherited;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.edtEntregarAPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
var
AID_Subcontrata : Integer;
APersonaContacto : String;
begin
inherited;
AID_Subcontrata := -1;
if actListaObras.Checked then
AID_Subcontrata := FObras.ID_SUBCONTRATA;
APersonaContacto := FPedido.PERSONA_CONTACTO;
if ElegirPersonaContactoPedido(AID_Subcontrata, APersonaContacto) then
begin
FPedido.Edit;
FPedido.PERSONA_CONTACTO := APersonaContacto;
end;
end;
function TfrViewDireccionEntregaPedidoProv.GetPedidoProveedor: IBizPedidoProveedor; function TfrViewDireccionEntregaPedidoProv.GetPedidoProveedor: IBizPedidoProveedor;
begin begin
Result := FPedido; Result := FPedido;

38
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

@ -1,23 +1,22 @@
inherited frViewPedidoProveedor: TfrViewPedidoProveedor inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 787 Width = 787
Height = 522 Height = 615
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 787 ExplicitWidth = 787
ExplicitHeight = 522 ExplicitHeight = 615
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 787 Width = 787
Height = 522 Height = 615
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 908
DesignSize = ( DesignSize = (
787 787
522) 615)
object edtFechaPedido: TcxDBDateEdit object edtFechaPedido: TcxDBDateEdit
Left = 137 Left = 137
Top = 55 Top = 55
@ -140,8 +139,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 325 Width = 325
Height = 194 Height = 194
ExplicitWidth = 445 ExplicitWidth = 325
ExplicitHeight = 166 ExplicitHeight = 194
inherited Bevel1: TBevel
Top = 272
Width = 529
ExplicitTop = 272
ExplicitWidth = 529
end
inherited rdxDestino1: TRadioButton inherited rdxDestino1: TRadioButton
Width = 255 Width = 255
ExplicitWidth = 255 ExplicitWidth = 255
@ -156,23 +161,31 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 217 Left = 217
Top = 159 Top = 241
ExplicitLeft = 217 ExplicitLeft = 217
ExplicitTop = 159 ExplicitTop = 241
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Height = 177 Height = 177
ExplicitHeight = 177 ExplicitHeight = 177
end end
inherited edtEntregarA: TcxDBButtonEdit
Top = 283
ExplicitTop = 283
ExplicitWidth = 121
Width = 121
end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
Left = 32 Left = 72
Top = 0
end end
inherited dsPedido: TDADataSource inherited dsPedido: TDADataSource
Left = 0 Left = 0
Top = 0 Top = 0
end end
inherited dsObras: TDADataSource
Left = 272
end
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 137 Left = 137
@ -285,7 +298,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 92 Width = 92
Height = 266 Height = 266
ExplicitWidth = 454 ExplicitWidth = 92
ExplicitHeight = 266 ExplicitHeight = 266
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 276 ExplicitWidth = 276
@ -424,6 +437,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = [] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient
Caption = 'Datos de la entrega' Caption = 'Datos de la entrega'
object dxLayoutControl1Item8: TdxLayoutItem object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]

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

@ -1,11 +1,11 @@
inherited frViewPedidosProveedor: TfrViewPedidosProveedor inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 596 Width = 839
Height = 479 Height = 489
ExplicitWidth = 596 ExplicitWidth = 839
ExplicitHeight = 479 ExplicitHeight = 489
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 596 Width = 839
Height = 351 Height = 361
RootLevelOptions.DetailTabsPosition = dtpTop RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged OnActiveTabChanged = cxGridActiveTabChanged
ExplicitWidth = 596 ExplicitWidth = 596
@ -171,12 +171,12 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 596 Width = 839
ExplicitWidth = 596 ExplicitWidth = 596
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 596 ExplicitWidth = 596
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 596 Width = 839
ExplicitWidth = 596 ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 273
@ -187,32 +187,32 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
Width = 121 Width = 121
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 251 Left = 347
ExplicitLeft = 251 ExplicitLeft = 347
ExplicitWidth = 294 ExplicitWidth = 294
Width = 294 Width = 294
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 596 Width = 839
ExplicitWidth = 596 ExplicitWidth = 596
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 586 Width = 829
ExplicitWidth = 586 ExplicitWidth = 586
end end
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 453 Top = 463
Visible = True Visible = True
ExplicitTop = 453 ExplicitTop = 453
ExplicitWidth = 596 ExplicitWidth = 596
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 596 Width = 839
ExplicitWidth = 596 ExplicitWidth = 596
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 586 Width = 829
ExplicitWidth = 586 ExplicitWidth = 586
object TBXSeparatorItem2: TTBXSeparatorItem object TBXSeparatorItem2: TTBXSeparatorItem
end end