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

Pedidos a proveedor:

Browse Source 
- repaso general 
 - código de fabricante en los detalles
 - unidad de medida en los detalles
 - informe FastReport y Word.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@342 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-12 18:11:46 +00:00
parent a0f44df1f7
commit f05a21155a
21 changed files with 2106 additions and 803 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Database/scripts/factuges.sql
View File

@ -900,6 +900,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
ID_ARTICULO TIPO_ID,
CONCEPTO TIPO_CONCEPTO,
CANTIDAD INTEGER,
UNIDAD_MEDIDA VARCHAR(255),
IMPORTE_UNIDAD TIPO_IMPORTE,
DESCUENTO TIPO_PORCENTAJE,
IMPORTE_PORTE TIPO_IMPORTE,

49
Source/Informes/InfPedidoProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

38
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -338,6 +338,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end
item
Name = 'POSICION'
@ -348,11 +349,13 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DictionaryEntry = 'PedidosProveedor_Detalles_TIPO_DETALLE'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
@ -360,39 +363,72 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Alignment = taRightJustify
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DisplayLabel = 'Unidad de medida'
DictionaryEntry = 'PedidosProveedor_Detalles_UNIDAD_MEDIDA'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datSmallInt
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_VISIBLE'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_Detalles_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe porte'
Alignment = taRightJustify
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_PORTE'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
DisplayLabel = 'Ref. fabricante'
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_FABRICANTE'
end>
Params = <>
MasterMappingMode = mmWhere

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

@ -41,81 +41,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <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">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>
<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>
<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>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="PedidosProveedor_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="Data\uIDataModulePedidosProveedor.pas" />
<DCCReference Include="Data\uIDataModulePedidosProveedorReport.pas" />
<DCCReference Include="schPedidosProveedorClient_Intf.pas" />
@ -125,10 +62,9 @@
<None Include="ModelSupport_PedidosProveedor_model\default.txaPackage" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
EurekaLog Version=6011
Activate=0
Activate Handle=1
Save Log File=1

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

Binary file not shown.

83
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PedidosProveedor = '{58DE490F-21E7-46A0-8553-F18015CAF07E}';
RID_PedidosProveedor_Detalles = '{1F8FEB94-42A3-4DC3-BB9B-33D96BAB6B5E}';
RID_PedidosProveedor_Articulos_Pendientes = '{0864581D-D5D3-441D-9296-22C2CFB6DE3B}';
RID_PedidosProveedor = '{2F38A1ED-3A7F-46F7-B320-466FB2BB4214}';
RID_PedidosProveedor_Detalles = '{32CF76F8-6744-4027-A852-5378F5D96C95}';
RID_PedidosProveedor_Articulos_Pendientes = '{276A7DCD-86B0-4816-A798-6DBDCFDE5152}';
{ Data table names }
nme_PedidosProveedor = 'PedidosProveedor';
@ -99,6 +99,7 @@ const
fld_PedidosProveedor_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
fld_PedidosProveedor_DetallesCONCEPTO = 'CONCEPTO';
fld_PedidosProveedor_DetallesCANTIDAD = 'CANTIDAD';
fld_PedidosProveedor_DetallesUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
fld_PedidosProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_PedidosProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosProveedor_DetallesVISIBLE = 'VISIBLE';
@ -115,14 +116,15 @@ const
idx_PedidosProveedor_DetallesTIPO_DETALLE = 3;
idx_PedidosProveedor_DetallesCONCEPTO = 4;
idx_PedidosProveedor_DetallesCANTIDAD = 5;
idx_PedidosProveedor_DetallesIMPORTE_UNIDAD = 6;
idx_PedidosProveedor_DetallesIMPORTE_TOTAL = 7;
idx_PedidosProveedor_DetallesVISIBLE = 8;
idx_PedidosProveedor_DetallesID_ARTICULO = 9;
idx_PedidosProveedor_DetallesDESCUENTO = 10;
idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11;
idx_PedidosProveedor_DetallesREFERENCIA = 12;
idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
idx_PedidosProveedor_DetallesUNIDAD_MEDIDA = 6;
idx_PedidosProveedor_DetallesIMPORTE_UNIDAD = 7;
idx_PedidosProveedor_DetallesIMPORTE_TOTAL = 8;
idx_PedidosProveedor_DetallesVISIBLE = 9;
idx_PedidosProveedor_DetallesID_ARTICULO = 10;
idx_PedidosProveedor_DetallesDESCUENTO = 11;
idx_PedidosProveedor_DetallesIMPORTE_PORTE = 12;
idx_PedidosProveedor_DetallesREFERENCIA = 13;
idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
{ PedidosProveedor_Articulos_Pendientes fields }
fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
@ -143,7 +145,7 @@ const
type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{045CE31C-5F13-4365-94D8-09C247E0B609}']
['{333644C7-E17E-4FD7-BFD1-3078A5D13F1E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -586,7 +588,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{10B7129B-0AD0-476C-AA42-807F150AA7B3}']
['{109F0849-4B0E-4D32-BF3F-F6449B8D2CE5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -612,6 +614,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetUNIDAD_MEDIDAValue: String;
procedure SetUNIDAD_MEDIDAValue(const aValue: String);
function GetUNIDAD_MEDIDAIsNull: Boolean;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
function GetIMPORTE_UNIDADIsNull: Boolean;
@ -620,8 +626,8 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetVISIBLEValue: SmallInt;
procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
@ -659,11 +665,13 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
@ -706,6 +714,10 @@ type
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@ -714,8 +726,8 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
@ -752,11 +764,13 @@ type
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
@ -777,7 +791,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{0F474AE2-91D1-4747-B9B7-3825145A2CE3}']
['{0C6DE081-242A-4ADF-99BE-2AFE45A142B1}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1770,6 +1784,27 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsVariant := Null;
end;
function TPedidosProveedor_DetallesDataTableRules.GetUNIDAD_MEDIDAValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesUNIDAD_MEDIDA].AsString;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesUNIDAD_MEDIDA].AsString := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetUNIDAD_MEDIDAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesUNIDAD_MEDIDA].IsNull;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedor_DetallesUNIDAD_MEDIDA].AsVariant := Null;
end;
function TPedidosProveedor_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_UNIDAD].AsCurrency;
@ -1812,14 +1847,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null;
end;
function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt;
result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger;
end;
procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt);
procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt := aValue;
DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean;

75
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_PedidosProveedorDelta = '{6B35580D-7178-4FFA-B9D7-5267221E9EC2}';
RID_PedidosProveedor_DetallesDelta = '{D3FC4AC8-B811-4DEF-B9E5-7EDF82012F3D}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{CACE01FB-F88B-48FB-9693-CF3432BAF0D6}';
RID_PedidosProveedorDelta = '{E6771CAE-270F-4C79-BDF5-0C7EFC7CDF68}';
RID_PedidosProveedor_DetallesDelta = '{A2EF2F8A-B1CB-4122-919F-06604309B1B8}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{7AA8D557-941A-4B44-A8D2-35781BEBD144}';
type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{6B35580D-7178-4FFA-B9D7-5267221E9EC2}']
['{E6771CAE-270F-4C79-BDF5-0C7EFC7CDF68}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -460,7 +460,7 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{D3FC4AC8-B811-4DEF-B9E5-7EDF82012F3D}']
['{A2EF2F8A-B1CB-4122-919F-06604309B1B8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@ -468,9 +468,10 @@ type
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldUNIDAD_MEDIDAValue : String;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
function GetOldVISIBLEValue : Integer;
function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
@ -484,9 +485,10 @@ type
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@ -535,6 +537,12 @@ type
function GetOldCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
function GetOldIMPORTE_UNIDADValue: Currency; virtual;
@ -547,11 +555,11 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual;
function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: SmallInt; virtual;
function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@ -609,6 +617,10 @@ type
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
@ -617,9 +629,9 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
@ -650,7 +662,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{CACE01FB-F88B-48FB-9693-CF3432BAF0D6}']
['{7AA8D557-941A-4B44-A8D2-35781BEBD144}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
@ -2055,6 +2067,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := Null;
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA];
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA] := aValue;
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesUNIDAD_MEDIDA] := Null;
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_UNIDAD];
@ -2117,7 +2160,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := Null;
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE];
end;
@ -2127,7 +2170,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
end;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt;
function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE];
end;
@ -2137,7 +2180,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
end;
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt);
procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := aValue;
end;

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

File diff suppressed because it is too large Load Diff

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

@ -7,31 +7,64 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces;
uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
uDAMemDataTable;
type
TRptPedidosProveedor = class(TDataModule)
DADataCabecera: TDADataSource;
DADataDetalles: TDADataSource;
tbl_Cabecera: TDACDSDataTable;
tbl_Detalles: TDACDSDataTable;
DABINAdapter: TDABINAdapter;
frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxOLEObject1: TfrxOLEObject;
frxCrossObject1: TfrxCrossObject;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxGradientObject1: TfrxGradientObject;
frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
DataSource1: TDataSource;
DataSource2: TDataSource;
cabecera: TIBQuery;
detalles: TIBQuery;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxChartObject1: TfrxChartObject;
frxGradientObject1: TfrxGradientObject;
frxCrossObject1: TfrxCrossObject;
frxOLEObject1: TfrxOLEObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxRichObject1: TfrxRichObject;
DADSCabecera: TDADataSource;
DADSDetalles: TDADataSource;
tbl_Detalles: 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;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
detallesID: TIntegerField;
detallesID_PEDIDO: TIntegerField;
detallesPOSICION: TIntegerField;
detallesTIPO_DETALLE: TIBStringField;
detallesREFERENCIA: TIBStringField;
detallesCONCEPTO: TIBStringField;
detallesCANTIDAD: TIntegerField;
detallesUNIDAD_MEDIDA: TIBStringField;
detallesIMPORTE_UNIDAD: TIBBCDField;
detallesIMPORTE_TOTAL: TIBBCDField;
detallesREFERENCIA_PROVEEDOR: TIBStringField;
detallesREFERENCIA_FABRICANTE: TIBStringField;
procedure DataModuleCreate(Sender: TObject);
private
FConnection: IDAConnection;
procedure GenerarPedido(const AID : Integer); overload;
procedure GenerarPedido(const ID : Integer); overload;
public
function GenerarPedido(const AID : String): Binary; overload;
end;
@ -68,7 +101,7 @@ var
begin
Result := Binary.Create;
FConnection.BeginTransaction;
//FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
try
ID_Pedidos := TStringList.Create;
@ -81,11 +114,11 @@ begin
frxReport.PreviewPages.SaveToStream(Result);
finally
FConnection.RollbackTransaction;
//FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
end;
end;
procedure TRptPedidosProveedor.GenerarPedido(const AID: Integer);
procedure TRptPedidosProveedor.GenerarPedido(const ID: Integer);
var
AStream: TMemoryStream;
dsMaster: IDADataset;
@ -94,16 +127,14 @@ begin
AStream := TMemoryStream.Create;
try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_PEDIDO'], [AID], False);
frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False);

543
Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.dfm Normal file
View File

@ -0,0 +1,543 @@
object RptWordPedidoProveedor: TRptWordPedidoProveedor
OldCreateOrder = False
OnCreate = DataModuleCreate
Height = 366
Width = 514
object schReport: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Datasets = <
item
IsPublic = False
Params = <
item
Name = 'ID'
Value = '2'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' +
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' +
'MBRE,'#10' V_PROVEEDORES.FAX,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,' +
#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CALL' +
'E'#10' ELSE V_PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' ' +
'CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.POBLACIO' +
'N'#10' ELSE V_PEDIDOS_PROVEEDOR.POBLACION'#10' END as POBLAC' +
'ION,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.' +
'PROVINCIA'#10' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END a' +
's PROVINCIA,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN AL' +
'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
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FECHA_PEDIDO'
TableField = 'FECHA_PEDIDO'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'NOMBRE_ALMACEN'
TableField = 'NOMBRE_ALMACEN'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end>
end>
Name = 'Informe_Cabecera'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
end>
ReadOnly = True
end
item
IsPublic = False
Params = <
item
Name = 'ID_PEDIDO'
Value = '2'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
SQL =
'SELECT DET.ID, DET.ID_PEDIDO,'#10' DET.POSICION, DET.TIPO_DETA' +
'LLE,'#10' ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDAD,'#10' ' +
' DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD, DET.IMPORTE_TOTAL,'#10' ' +
' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ' +
'ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10'FROM PEDIDOS_' +
'PROVEEDOR_DETALLES DET'#10'LEFT OUTER JOIN ARTICULOS ON (DET.ID_ARTI' +
'CULO = ARTICULOS.ID)'#10'WHERE DET.ID_PEDIDO = :ID_PEDIDO AND DET.VI' +
'SIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_PEDIDO, DET.POSICION;'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'REFERENCIA_FABRICANTE'
TableField = 'REFERENCIA_FABRICANTE'
end>
end>
Name = 'Informe_Detalles'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
end
item
Name = 'POSICION'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
end
item
Name = 'CANTIDAD'
DataType = datInteger
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
end>
ReadOnly = True
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 48
Top = 16
end
object DataDictionary: TDADataDictionary
Fields = <>
Left = 46
Top = 142
end
object DABin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
object tbl_Cabecera: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'TIPO'
DataType = datString
Size = 1
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
end
item
Name = 'SITUACION'
DataType = datString
Size = 19
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
end
item
Name = 'IVA'
DataType = datFloat
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
end
item
Name = 'RE'
DataType = datFloat
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
end
item
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
end>
Params = <
item
Name = 'ID'
Value = ''
ParamType = daptInput
end>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Cabecera'
IndexDefs = <>
Left = 168
Top = 16
end
object tbl_Detalles: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'POSICION'
DataType = datInteger
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
end
item
Name = 'CANTIDAD'
DataType = datInteger
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'VISIBLE'
DataType = datSmallInt
end>
Params = <
item
Name = 'ID_FACTURA'
Value = ''
ParamType = daptInput
end>
MasterParamsMappings.Strings = (
'ID_PRESUPUESTO=ID_PRESUPUESTO')
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Informe_Detalles'
IndexDefs = <>
Left = 264
Top = 16
end
object tbl_Empresa: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <>
Params = <
item
Name = 'ID'
Value = '31'
ParamType = daptInput
end>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Empresa'
IndexDefs = <>
Left = 168
Top = 80
end
end

323
Source/Modulos/Pedidos a proveedor/Reports/uRptWordPedidoProveedor.pas Normal file
View File

@ -0,0 +1,323 @@
unit uRptWordPedidoProveedor;
interface
uses
SysUtils, Classes, AHWord97, IB, IBCustomDataSet, IBDatabase,
Word2000, uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
uDAScriptingProvider, uDADataTable, uDAMemDataTable;
type
TRptWordPedidoProveedor = class(TDataModule)
DABin2DataStreamer: TDABin2DataStreamer;
tbl_Cabecera: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable;
tbl_Empresa: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
private
FConnection: IDAConnection;
FPlantilla : string;
FWordApp : TWordApp;
FDocumento : TWordDoc;
FNumCapitulos : Integer;
FCodigoPedido : string;
FNombreFichero : String;
FImportes : Boolean;
function DarNumCapitulos : Integer;
procedure InsertarConceptos(Tabla : Table);
function Generar : Boolean;
function RellenarDatosPedido : Boolean;
function RellenarDatosDetalle : Boolean;
procedure _GenerarPedido(const AID: String);
public
function Exportar(Codigo, Fichero : String): Boolean;
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
end;
implementation
{ TRptWordPedidoProveedor }
{$R *.dfm}
uses
Windows, Variants, Dialogs, uDataModuleServer, uStringsUtils, uSistemaFunc,
srvEmpresas_Impl, uROTypes, uROClasses;
const
rptInforme = 'PedidoProveedor.rdx';
constructor TRptWordPedidoProveedor.Create(AOwner: TComponent);
begin
inherited;
FDocumento := NIL;
FPlantilla := DarRutaInformes + rptInforme;
end;
function TRptWordPedidoProveedor.DarNumCapitulos: Integer;
var
AuxNumCapitulos : integer;
begin
AuxNumCapitulos := 0;
tbl_Cabecera.First;
while not tbl_Cabecera.Eof do
begin
if tbl_Cabecera.FieldByName('TIPO_DETALLE').AsString = 'Titulo' then
AuxNumCapitulos := AuxNumCapitulos + 1;
tbl_Cabecera.Next;
end;
tbl_Cabecera.First;
Result := AuxNumCapitulos;
end;
destructor TRptWordPedidoProveedor.Destroy;
begin
if FDocumento <> NIL then
FDocumento.Free;
FDocumento := NIL;
inherited;
end;
function TRptWordPedidoProveedor.Exportar(Codigo, Fichero: String): Boolean;
begin
if EsCadenaVacia(Fichero) then
begin
Result := False;
raise Exception.Create('Falta indicar el fichero donde se exportará el listado.');
end;
FNombreFichero := Fichero;
FCodigoPedido := Codigo;
_GenerarPedido(Codigo);
Result := True;
end;
procedure TRptWordPedidoProveedor.DataModuleCreate(Sender: TObject);
begin
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
end;
function TRptWordPedidoProveedor.Generar : Boolean;
var
Aux : OleVariant;
begin
FWordApp := TWordApp.Create (False, False);
with FWordApp do
begin
Visible := False;
ScreenUpdating := False;
end;
FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla);
FWordApp.ScreenUpdating := False;
try
if not RellenarDatosPedido then
RaiseError('Se producido un error al generar la cabecera en MS Word.');
if not RellenarDatosDetalle then
RaiseError('Se producido un error al generar el informe en MS Word.');
FDocumento.SaveAs(FNombreFichero);
FWordApp.CloseApp(wdDoNotSaveChanges);
Result := True;
finally
FDocumento := NIL;
FWordApp := NIL;
end;
end;
procedure TRptWordPedidoProveedor.InsertarConceptos(Tabla : Table);
var
numRows, numCols, mergeSplit, shiftCells : OleVariant;
iContador : Integer;
TotalConceptos : Double;
begin
numRows := 2;
numCols := 1;
mergeSplit := False;
shiftCells := False;
iContador := 2; // Empezar en la 2ª fila de celdas. La primera es la
// cabecera de la tabla.
with Tabla, tbl_Detalles do
begin
while not EOF do
begin
if FieldByName('TIPO_DETALLE').AsString <> 'Concepto' then
Break;
// Partir la celda actual en 2 filas de 1 columna.
Rows.Item(iContador).Cells.Split (numRows, numCols, mergesplit);
Cell(iContador, 1).Range.Text := FieldByName('CONCEPTO').AsString;
Cell(iContador, 2).Range.Text := FieldByName('CANTIDAD').AsString;
Cell(iContador, 3).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat);
Cell(iContador, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat);
TotalConceptos := TotalConceptos + FieldByName('IMPORTE_TOTAL').AsFloat;
Next;
Inc (iContador);
end;
// Borrar la fila vacía que sobra
Rows.Item(iContador).Cells.Delete(shiftCells);
Cell(iContador, 1).Range.Text := 'Total: ' + FormatFloat(DISPLAY_EUROS2, TotalConceptos);
AutoFitBehavior(wdAutoFitWindow);
end;
end;
function TRptWordPedidoProveedor.RellenarDatosDetalle : Boolean;
var
numRows, numCols, mergesplit : OleVariant;
MaxCols, iRowCount : Integer;
begin
iRowCount := 2;
numrows := 2;
numcols := 1;
mergeSplit := False;
MaxCols := 12;
with FDocumento.Document.Tables.Item(1), tbl_Detalles do
begin
tbl_Detalles.First;
while not tbl_Detalles.EOF do
begin
Rows.Item (iRowCount).Cells.Split (numRows, numCols, mergesplit);
Cell(iRowCount, 1).Range.Text := FieldByName('REFPROVEEDOR').AsString;
Cell(iRowCount, 2).Range.Text := FieldByName('REFFABRICANTE').AsString;
Cell(iRowCount, 3).Range.Text := FieldByName('DESCRIPCION').AsString;
Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDADESMEDIDA').AsString;
if FImportes then
Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat)
else
Cell(iRowCount, 5).Range.Text := '';
if FImportes then
Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat)
else
Cell(iRowCount, 6).Range.Text := '';
Next;
Inc (iRowCount);
end;
Rows.Item(iRowCount).Delete;
{while iRowCount <= MaxCols do
begin
Rows.Item (iRowCount).Cells.Split (numRows, numCols, mergesplit);
inc (iRowCount);
end;}
end;
Result := True;
end;
function TRptWordPedidoProveedor.RellenarDatosPedido : Boolean;
var
DireccionEntrega, FicheroTemporal : String;
LinkToFile, SaveWithDocument, _Range : OleVariant;
Imagen : InlineShape;
begin
//PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
{if (EmpresaActiva.Logotipo <> Nil) then
begin
//Activamos cabecera
FWordApp.Application.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
LinkToFile := False;
SaveWithDocument := True;
_Range := EmptyParam;
FicheroTemporal := DarFicheroTemporal;
EmpresaActiva.Logotipo.SaveToFile (FicheroTemporal);
Imagen := FWordApp.Application.ActiveWindow.ActivePane.Selection.InlineShapes.AddPicture(ficherotemporal, LinkToFile, SaveWithDocument, _Range);
//Formateamos imagen
if ((Imagen.Get_Width > ANCHO_LOGO_INF)) then
begin
Imagen.Set_Height(((ANCHO_LOGO_INF * Imagen.Get_Height) /Imagen.Get_Width));
Imagen.Set_Width(ANCHO_LOGO_INF);
end;
end;}
with FDocumento, tbl_Cabecera do
begin
ReplaceBookmark('CodigoPedido', FieldByName('CODIGO').AsString);
ReplaceBookmark('FechaPedido', FieldByName('FECHAEMISION').AsString);
// En la dirección mostrar aquellos campos que estén rellenos.
DireccionEntrega := '';
if not EsCadenaVacia(FieldByName('CALLEALMACEN').AsString) then
DireccionEntrega := DireccionEntrega + FieldByName('CALLEALMACEN').AsString;
if not EsCadenaVacia(FieldByName('NUMEROALMACEN').AsString) then
DireccionEntrega := DireccionEntrega + ' ' + FieldByName('NUMEROALMACEN').AsString;
if not EsCadenaVacia(FieldByName('PISOALMACEN').AsString) then
DireccionEntrega := DireccionEntrega + ', ' + FieldByName('PISOALMACEN').AsString;
if not EsCadenaVacia(FieldByName('CODIGOPOSTALALMACEN').AsString) then
DireccionEntrega := DireccionEntrega + ', ' + FieldByName('CODIGOPOSTALALMACEN').AsString;
if not EsCadenaVacia(FieldByName('POBLACIONALMACEN').AsString) then
DireccionEntrega := DireccionEntrega + ', ' + FieldByName('POBLACIONALMACEN').AsString;
if not EsCadenaVacia(FieldByName('PROVINCIAALMACEN').AsString) then
DireccionEntrega := DireccionEntrega + ', ' + FieldByName('PROVINCIAALMACEN').AsString;
ReplaceBookmark('LugarEntrega', DireccionEntrega);
{ ReplaceBookmark('LugarEntrega', FieldByName('CALLEALMACEN').AsString + ' ' +
FieldByName('NUMEROALMACEN').AsString + ', ' + FieldByName('PISOALMACEN').AsString + ', ' +
FieldByName('CODIGOPOSTALALMACEN').AsString + ' ' + FieldByName('POBLACIONALMACEN').AsString + ', ' + FieldByName('PROVINCIAALMACEN').AsString);}
ReplaceBookmark('PersonaEntrega', FieldByName('PERSONACONTACTOALMACEN').AsString);
ReplaceBookmark('NombreProveedor', FieldByName('NOMBRE').AsString);
ReplaceBookmark('FaxProveedor', FieldByName('FAX').AsString);
ReplaceBookmark('PersonaContactoProveedor', FieldByName('PERSONACONTACTO').AsString);
ReplaceBookmark('CodigoClienteProveedor', FieldByName('CODIGOCLIENTE').AsString);
if FImportes then
ReplaceBookmark('ImporteTotal', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat))
else
ReplaceBookmark('ImporteTotal', '');
ReplaceBookmark('NotasPedido', FieldByName('NOTAS').AsString);
ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
ReplaceBookmark('DireccionEmpresa',
Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
end;
Result := True;
end;
procedure TRptWordPedidoProveedor._GenerarPedido(const AID: String);
var
ACopiaPlantilla : String;
begin
tbl_Cabecera.ParamByName('ID').AsString := AID;
tbl_Detalles.ParamByName('ID_PEDIDO').AsString := AID;
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
FCodigoPedido := AID;
if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then
begin
ACopiaPlantilla := DarFicheroTemporal;
CopiarFichero(FPlantilla, ACopiaPlantilla);
FPlantilla := ACopiaPlantilla;
try
Generar;
finally
SysUtils.DeleteFile(ACopiaPlantilla);
end;
end;
end;
end.

97
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

@ -8,8 +8,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 240
Width = 473
Height = 231
Width = 353
object schPedidosProveedor: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary
@ -367,14 +367,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'LLES.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS' +
'_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALLES' +
'.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS_PROV' +
'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' +
'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' +
'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' +
'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.' +
'REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'F' +
'ROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PR' +
'OVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER ' +
'BY POSICION;'#10
'EEDOR_DETALLES.UNIDAD_MEDIDA,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMP' +
'ORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_TOTAL,'#10' PEDID' +
'OS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PROVEEDOR_DETALLES.I' +
'D_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUENTO,'#10' PEDIDOS_PR' +
'OVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICU' +
'LOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR,'#10' ARTICULOS.REFER' +
'ENCIA_FABR as REFERENCIA_FABRICANTE'#10'FROM PEDIDOS_PROVEEDOR_DETAL' +
'LES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICUL' +
'O = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -434,6 +435,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'REFERENCIA_FABRICANTE'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_FABRICANTE'
end>
end>
Name = 'PedidosProveedor_Detalles'
@ -449,6 +459,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end
item
Name = 'POSICION'
@ -459,50 +470,72 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DictionaryEntry = 'PedidosProveedor_Detalles_TIPO_DETALLE'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_UNIDAD_MEDIDA'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datSmallInt
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_VISIBLE'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'PedidosProveedor_Detalles_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_PORTE'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_FABRICANTE'
end>
end
item
@ -611,6 +644,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'POSICION'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'ID'
DataType = datAutoInc
@ -660,10 +697,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' +
', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' +
'L, VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORT' +
'E)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONC' +
'EPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDID' +
'O, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
'L, VISIBLE, ID_PEDIDO, UNIDAD_MEDIDA,'#10' ID_ARTICULO, DESCUENT' +
'O, IMPORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO' +
'_DETALLE, :CONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VIS' +
'IBLE, :ID_PEDIDO, :UNIDAD_MEDIDA,'#10' :ID_ARTICULO, :DESCUENTO,' +
' :IMPORTE_PORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -689,6 +727,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
@ -747,12 +789,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL =
'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDA' +
'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' +
' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' +
' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' +
'BLE = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = ' +
':ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :I' +
'MPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
'D, '#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA,'#10' POSICION = :POSICION' +
', '#10' ID = :ID, '#10' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPT' +
'O = :CONCEPTO, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPOR' +
'TE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_PEDI' +
'DO = :ID_PEDIDO, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO ' +
'= :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID' +
' = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1430,6 +1473,18 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'PedidosProveedor_REF_PED_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PedidosProveedor_Detalles_UNIDAD_MEDIDA'
DataType = datString
Size = 255
DisplayLabel = 'Unidad de medida'
end
item
Name = 'PedidosProveedor_Detalles_REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
DisplayLabel = 'Ref. fabricante'
end>
Left = 88
Top = 152

16
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
View File

@ -43,8 +43,7 @@ uses
Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schPedidosProveedorClient_Intf, uRestriccionesUsuarioUtils,
uBizPedidosProveedorServer;
// uRptPedidosProveedor_Server, ;
uBizPedidosProveedorServer, uRptPedidosProveedor_Server;
{ uRORemoteDataModule,
fServerForm, Variants, IB, schPedidosProveedorClient_Intf;
@ -60,14 +59,13 @@ procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer);
begin
{ if DataSet.Name = nme_PedidosProveedor then
if DataSet.Name = nme_PedidosProveedor then
begin
{ Aquí se asegura que el usuario sólo accede a pedidos
de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. }
{ FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA);
FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA);
end;
}
end;
procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);
@ -83,16 +81,16 @@ begin
end;
function TsrvPedidosProveedor.GenerateReport(const ID: String): Binary;
//var
// AReportGenerator : TRptPedidosProveedor;
var
AReportGenerator : TRptPedidosProveedor;
begin
{ AReportGenerator := TRptPedidosProveedor.Create(nil);
AReportGenerator := TRptPedidosProveedor.Create(nil);
try
Result := AReportGenerator.GenerarPedido(ID);
finally
FreeAndNIL(AReportGenerator);
end;
}
end;
initialization

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

@ -62,18 +62,17 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited pgPaginas: TPageControl
Width = 765
Height = 476
ActivePage = pagContenido
Width = 759
Height = 470
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 765
ExplicitHeight = 476
ExplicitWidth = 759
ExplicitHeight = 470
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 757
ExplicitHeight = 448
ExplicitWidth = 751
ExplicitHeight = 442
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@ -81,8 +80,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor
Left = 0
Top = 0
Width = 757
Height = 448
Width = 751
Height = 442
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -94,17 +93,107 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 757
ExplicitHeight = 448
ExplicitWidth = 751
ExplicitHeight = 442
inherited ToolBar1: TToolBar
Width = 757
ExplicitWidth = 757
Width = 751
Height = 51
ExplicitWidth = 751
ExplicitHeight = 51
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 479
Top = 0
ExplicitLeft = 479
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 544
Top = 0
ExplicitLeft = 544
ExplicitTop = 0
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 158
Top = 27
Wrap = False
ExplicitLeft = 158
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton
Left = 166
Top = 27
ExplicitLeft = 166
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 311
Top = 27
ExplicitLeft = 311
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
Left = 436
Top = 27
ExplicitLeft = 436
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
Left = 502
Top = 27
Wrap = False
ExplicitLeft = 502
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
Left = 569
Top = 27
ExplicitLeft = 569
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
Width = 757
Height = 376
ExplicitWidth = 757
ExplicitHeight = 376
Top = 77
Width = 751
Height = 365
ExplicitTop = 77
ExplicitWidth = 751
ExplicitHeight = 365
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Options.Editing = True
@ -112,10 +201,12 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited TBXDock1: TTBXDock
Width = 757
ExplicitWidth = 757
Top = 51
Width = 751
ExplicitTop = 51
ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
ExplicitWidth = 626
end
end
end
@ -126,8 +217,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inline frViewIncidenciasProv: TfrViewIncidencias
Left = 0
Top = 0
Width = 757
Height = 448
Width = 751
Height = 442
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -137,20 +228,17 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 757
ExplicitHeight = 448
ExplicitWidth = 751
ExplicitHeight = 442
inherited pnlSup: TPanel
Width = 757
ExplicitWidth = 757
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
Width = 751
ExplicitWidth = 751
end
inherited GroupBox1: TGroupBox
Width = 757
Height = 420
ExplicitWidth = 757
ExplicitHeight = 420
Width = 751
Height = 414
ExplicitWidth = 751
ExplicitHeight = 414
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734
ExplicitHeight = 387

6
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -198,11 +198,8 @@ end;
procedure TfEditorPedidoProveedor.ImprimirInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Print(FPedido);
}
end;
procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject);
@ -246,11 +243,8 @@ end;
procedure TfEditorPedidoProveedor.PrevisualizarInterno;
begin
AppFactuGES.ShowCapado;
{
inherited;
FController.Preview(FPedido);
}
end;
procedure TfEditorPedidoProveedor.RecalcularPortePorUnidad;

10
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -121,8 +121,6 @@ procedure TfEditorPedidosProveedor.DuplicarInterno;
var
APedido : IBizPedidoProveedor;
begin
AppFactuGES.ShowCapado;
{
inherited;
APedido := FController.Duplicar(Pedidos);
try
@ -130,7 +128,6 @@ AppFactuGES.ShowCapado;
finally
actRefrescar.Execute;
end;
}
end;
procedure TfEditorPedidosProveedor.EliminarInterno;
@ -212,8 +209,6 @@ var
APedidos: IBizPedidoProveedor;
AllItems: Boolean;
begin
AppFactuGES.ShowCapado;
{
APedidos := Nil;
AllItems := False;
@ -247,7 +242,6 @@ AppFactuGES.ShowCapado;
end;
end;
end;
}
end;
procedure TfEditorPedidosProveedor.ModificarInterno;
@ -295,8 +289,6 @@ var
APedidos: IBizPedidoProveedor;
AllItems: Boolean;
begin
AppFactuGES.ShowCapado;
{
APedidos := Nil;
AllItems := False;
@ -330,7 +322,6 @@ AppFactuGES.ShowCapado;
end;
end;
end;
}
end;
procedure TfEditorPedidosProveedor.SetController(const Value: IPedidosProveedorController);
@ -347,4 +338,3 @@ begin
end;
end.

136
Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm
View File

@ -1,92 +1,108 @@
inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor
Width = 734
Height = 415
inherited ToolBar1: TToolBar
Height = 95
ExplicitHeight = 95
inherited FontName: TJvFontComboBox [4]
Left = 56
Top = 22
ExplicitLeft = 56
ExplicitTop = 22
end
inherited ToolButton14: TToolButton [5]
Left = 201
Width = 734
Height = 51
inherited ToolButton14: TToolButton
Wrap = False
ExplicitLeft = 201
end
inherited FontName: TJvFontComboBox
Left = 399
Top = 0
ExplicitLeft = 399
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 266
Top = 22
ExplicitLeft = 266
ExplicitTop = 22
Left = 544
Top = 0
ExplicitLeft = 544
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 308
Top = 22
ExplicitLeft = 308
ExplicitTop = 22
Left = 586
Top = 0
ExplicitLeft = 586
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 325
Top = 22
ExplicitLeft = 325
ExplicitTop = 22
end
inherited ToolButton11: TToolButton [9]
Left = 333
Top = 22
ExplicitLeft = 333
ExplicitTop = 22
end
inherited ToolButton12: TToolButton [10]
Left = 0
Top = 22
Top = 0
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
ExplicitTop = 0
ExplicitHeight = 27
end
inherited ToolButton9: TToolButton [11]
inherited ToolButton6: TToolButton
Left = 0
Top = 49
Top = 27
ExplicitLeft = 0
ExplicitTop = 49
ExplicitTop = 27
end
inherited ToolButton10: TToolButton [12]
Left = 145
Top = 49
ExplicitLeft = 145
ExplicitTop = 49
inherited ToolButton7: TToolButton
Left = 66
Top = 27
ExplicitLeft = 66
ExplicitTop = 27
end
inherited ToolButton6: TToolButton [13]
Left = 270
Top = 49
ExplicitLeft = 270
ExplicitTop = 49
inherited ToolButton8: TToolButton
Left = 133
Top = 27
ExplicitLeft = 133
ExplicitTop = 27
end
inherited ToolButton7: TToolButton [14]
Left = 336
Top = 49
Wrap = True
ExplicitLeft = 336
ExplicitTop = 49
inherited ToolButton12: TToolButton
Left = 216
Top = 27
Wrap = False
ExplicitLeft = 216
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton8: TToolButton [15]
Left = 0
Top = 71
ExplicitLeft = 0
ExplicitTop = 71
inherited ToolButton9: TToolButton
Left = 224
Top = 27
ExplicitLeft = 224
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 369
Top = 27
ExplicitLeft = 369
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 494
Top = 27
ExplicitLeft = 494
ExplicitTop = 27
end
end
inherited cxGrid: TcxGrid
Top = 121
Height = 183
Top = 77
Width = 734
Height = 338
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Properties.ReadOnly = False
end
end
end
inherited TBXDock1: TTBXDock
Top = 95
Top = 51
Width = 734
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 626
inherited TBXSubmenuItem1: TTBXSubmenuItem
Visible = False
end
inherited TBXSeparatorItem6: TTBXSeparatorItem
Visible = False
end
end
end
end

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

@ -307,7 +307,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
TabOrder = 4
Width = 78
end
object Button1: TButton
object bVerPedidoCliente: TButton
Left = 177
Top = 109
Width = 132
@ -367,6 +367,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
Visible = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
@ -381,7 +382,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AutoAligns = [aaVertical]
AlignHorz = ahRight
ShowCaption = False
Control = Button1
Control = bVerPedidoCliente
ControlOptions.ShowBorder = False
end
end

2
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
View File

@ -62,7 +62,7 @@ type
dxLayoutControl1Item11: TdxLayoutItem;
eReferenciaPedidoCli: TcxTextEdit;
dxLayoutControl1Item12: TdxLayoutItem;
Button1: TButton;
bVerPedidoCliente: TButton;
dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group10: TdxLayoutGroup;
ActionList1: TActionList;

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

@ -64,18 +64,24 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 40
Width = 56
end
object cxGridViewSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 40
Width = 56
end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PEDIDO'
BestFitMaxWidth = 40
SortIndex = 0
SortOrder = soAscending
Width = 46
end
object cxGridViewFECHA_ENVIO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENVIO'
BestFitMaxWidth = 40
Width = 57
end
object cxGridViewNOMBRE: TcxGridDBColumn
@ -85,43 +91,53 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end
object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_CONFIRMACION'
BestFitMaxWidth = 40
Width = 57
end
object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ENTREGA'
BestFitMaxWidth = 40
Width = 47
end
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN'
BestFitMaxWidth = 60
Width = 48
end
object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE'
Visible = False
BestFitMaxWidth = 60
end
object cxGridViewPOBLACION: TcxGridDBColumn
DataBinding.FieldName = 'POBLACION'
Visible = False
BestFitMaxWidth = 60
end
object cxGridViewPROVINCIA: TcxGridDBColumn
DataBinding.FieldName = 'PROVINCIA'
Visible = False
BestFitMaxWidth = 60
end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False
BestFitMaxWidth = 60
end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
DataBinding.FieldName = 'PERSONA_CONTACTO'
Visible = False
BestFitMaxWidth = 60
end
object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO'
Visible = False
BestFitMaxWidth = 60
end
object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
Caption = 'Ref. pedido cli.'
DataBinding.FieldName = 'REF_PED_CLIENTE'
BestFitMaxWidth = 40
Width = 41
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
@ -129,6 +145,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 40
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 94
@ -161,6 +178,14 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
inherited dxLayoutControl1: TdxLayoutControl
Width = 596
ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 251
ExplicitLeft = 251