Cambios varios
This commit is contained in:
parent
39dc7e8374
commit
17d141e4e6
20
Source/ApplicationBase/uPlugins_Intf.pas
Normal file
20
Source/ApplicationBase/uPlugins_Intf.pas
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
unit uPlugins_Intf;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses FactuGES_Intf;
|
||||||
|
|
||||||
|
const
|
||||||
|
MODULENAME_PEDIDOS_PROVEEDOR = 'PedidosProveedor_plugin.bpl';
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
IMCPedidosProveedor = interface(IInterface)
|
||||||
|
['{E68FF168-609E-48FB-9C33-2E825F7CC2E3}']
|
||||||
|
procedure VerPedidosConArticulo(const ID_Articulo: Integer;
|
||||||
|
const AArticulo : String = ''; const isEqual: Boolean = false);
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -52,7 +52,8 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">5.5.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.5.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">5.5.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.5.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
|
||||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||||
|
|||||||
@ -0,0 +1,22 @@
|
|||||||
|
unit uIEditorResultadoAlbaranesConArticulo;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uIEditorAlbaranesProveedor, uBizAlbaranesProveedor, uGUIBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorResultadoAlbaranesConArticulo = interface(IEditorAlbaranesProveedor)
|
||||||
|
['{519CA1D0-AFDD-4C52-9FA5-2CDF2DF08AA0}']
|
||||||
|
function GetAlbaranesProveedorSeleccionados: IBizAlbaranProveedor;
|
||||||
|
property AlbaranesProveedorSeleccionados: IBizAlbaranProveedor read GetAlbaranesProveedorSeleccionados;
|
||||||
|
|
||||||
|
procedure SetMensaje (const AValue: String);
|
||||||
|
function GetMensaje: String;
|
||||||
|
property Mensaje : String read GetMensaje write SetMensaje;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,65 @@
|
|||||||
|
object fEditorBuscarArticuloAlbaran: TfEditorBuscarArticuloAlbaran
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Buscar art'#237'culo'
|
||||||
|
ClientHeight = 124
|
||||||
|
ClientWidth = 424
|
||||||
|
Color = clWindow
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 21
|
||||||
|
Top = 16
|
||||||
|
Width = 199
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Esrcriba el concepto del art'#237'culo a buscar:'
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 83
|
||||||
|
Width = 424
|
||||||
|
Height = 41
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 1
|
||||||
|
DesignSize = (
|
||||||
|
424
|
||||||
|
41)
|
||||||
|
object bBuscar: TButton
|
||||||
|
Tag = 1
|
||||||
|
Left = 260
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Buscar'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object bCancelar: TButton
|
||||||
|
Tag = 2
|
||||||
|
Left = 341
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Cancelar'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxConceptoABuscar: TcxTextEdit
|
||||||
|
Left = 21
|
||||||
|
Top = 42
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 395
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,54 @@
|
|||||||
|
unit uEditorBuscarArticuloAlbaran;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
|
||||||
|
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico,
|
||||||
|
cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit,
|
||||||
|
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorBuscarArticuloAlbaran = class(TfEditorBasico)
|
||||||
|
Label1: TLabel;
|
||||||
|
bBuscar: TButton;
|
||||||
|
bCancelar: TButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
cxConceptoABuscar: TcxTextEdit;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FConceptoABuscar: Variant;
|
||||||
|
function GetConceptoABuscar: Variant;
|
||||||
|
procedure SetConceptoABuscar(const Value: Variant);
|
||||||
|
|
||||||
|
public
|
||||||
|
property ConceptoABuscar: Variant Read GetConceptoABuscar write SetConceptoABuscar;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uFactuGES_App;
|
||||||
|
|
||||||
|
|
||||||
|
{ TfEditorBuscarArticulo }
|
||||||
|
|
||||||
|
procedure TfEditorBuscarArticuloAlbaran.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxConceptoABuscar.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorBuscarArticuloAlbaran.GetConceptoABuscar: Variant;
|
||||||
|
begin
|
||||||
|
Result := cxConceptoABuscar.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorBuscarArticuloAlbaran.SetConceptoABuscar(const Value: Variant);
|
||||||
|
begin
|
||||||
|
cxConceptoABuscar.EditValue := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,109 @@
|
|||||||
|
inherited fEditorResultadoAlbaranesConArticulo: TfEditorResultadoAlbaranesConArticulo
|
||||||
|
Caption = 'fEditorResultadoAlbaranesConArticulo'
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Top = 91
|
||||||
|
ExplicitTop = 86
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
ExplicitWidth = 223
|
||||||
|
ExplicitHeight = 27
|
||||||
|
end
|
||||||
|
inherited tbxFiltro: TTBXToolbar
|
||||||
|
Left = 229
|
||||||
|
Top = 25
|
||||||
|
DockPos = 229
|
||||||
|
DockRow = 1
|
||||||
|
ExplicitLeft = 229
|
||||||
|
ExplicitTop = 25
|
||||||
|
end
|
||||||
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Top = 52
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 52
|
||||||
|
ExplicitHeight = 26
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnlHeader: TPanel [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 27
|
||||||
|
Width = 1051
|
||||||
|
Height = 64
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clWhite
|
||||||
|
Padding.Left = 25
|
||||||
|
Padding.Top = 8
|
||||||
|
Padding.Right = 25
|
||||||
|
Padding.Bottom = 8
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
object lblTitle: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 25
|
||||||
|
Top = 8
|
||||||
|
Width = 1001
|
||||||
|
Height = 13
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 8
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Seleccione el albaran de proveedor'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
ExplicitWidth = 198
|
||||||
|
end
|
||||||
|
object lblComments: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 50
|
||||||
|
Top = 29
|
||||||
|
Width = 976
|
||||||
|
Height = 27
|
||||||
|
Margins.Left = 25
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Align = alClient
|
||||||
|
ExplicitWidth = 3
|
||||||
|
ExplicitHeight = 13
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList
|
||||||
|
inherited actNuevo: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actEliminar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actPrevisualizar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actImprimir: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actRefrescar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actDuplicar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource
|
||||||
|
Top = 152
|
||||||
|
end
|
||||||
|
inherited GridPopupMenu: TPopupMenu
|
||||||
|
Left = 104
|
||||||
|
Top = 152
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,94 @@
|
|||||||
|
unit uEditorResultadoAlbaranesConArticulo;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorAlbaranesProveedor, JSDialog, Menus, DB, uDAInterfaces,
|
||||||
|
uDADataTable, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
||||||
|
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||||||
|
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
|
||||||
|
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
|
||||||
|
uIEditorResultadoAlbaranesConArticulo, uBizAlbaranesProveedor, StdCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorResultadoAlbaranesConArticulo = class(TfEditorAlbaranesProveedor, IEditorResultadoAlbaranesConArticulo)
|
||||||
|
pnlHeader: TPanel;
|
||||||
|
lblTitle: TLabel;
|
||||||
|
lblComments: TLabel;
|
||||||
|
private
|
||||||
|
function GetAlbaranesProveedorSeleccionados: IBizAlbaranProveedor;
|
||||||
|
function GetMensaje: String;
|
||||||
|
procedure SetMensaje(const AValue: String);
|
||||||
|
procedure PonerTitulos(const ATitulo: String = ''); override;
|
||||||
|
protected
|
||||||
|
procedure ModificarInterno; override;
|
||||||
|
public
|
||||||
|
property Mensaje : String read GetMensaje write SetMensaje;
|
||||||
|
property AlbaranesProveedorSeleccionados: IBizAlbaranProveedor read GetAlbaranesProveedorSeleccionados;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fEditorResultadoAlbaranesConArticulo: TfEditorResultadoAlbaranesConArticulo;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uStringsUtils, uGridUtils, uDBSelectionListUtils, uAlbaranesProveedorController;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
function TfEditorResultadoAlbaranesConArticulo.GetAlbaranesProveedorSeleccionados: IBizAlbaranProveedor;
|
||||||
|
begin
|
||||||
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
|
||||||
|
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
|
||||||
|
Result := (Controller as IAlbaranesProveedorController).ExtraerSeleccionados(Albaranes) as IBizAlbaranProveedor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorResultadoAlbaranesConArticulo.GetMensaje: String;
|
||||||
|
begin
|
||||||
|
Result := lblComments.Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoAlbaranesConArticulo.ModificarInterno;
|
||||||
|
var
|
||||||
|
AAlbaran: IBizAlbaranProveedor;
|
||||||
|
begin
|
||||||
|
// inherited;
|
||||||
|
AAlbaran := FController.Buscar(Albaranes.ID);
|
||||||
|
AAlbaran.DataTable.Active := True;
|
||||||
|
FController.Ver(AAlbaran);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoAlbaranesConArticulo.PonerTitulos(const ATitulo: String);
|
||||||
|
var
|
||||||
|
AHeaderText,
|
||||||
|
AWindowText : String;
|
||||||
|
begin
|
||||||
|
if EsCadenaVacia(ATitulo) then
|
||||||
|
begin
|
||||||
|
AHeaderText := FHeaderText;
|
||||||
|
AWindowText := 'Listado de albaranes de proveedor encontrados'
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
AHeaderText := ATitulo;
|
||||||
|
AWindowText := 'Listado de albaranes de proveedor encontrados';
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ReadOnly then
|
||||||
|
begin
|
||||||
|
AHeaderText := AHeaderText + ' (NO MODIFICABLE)';
|
||||||
|
AWindowText := AWindowText + ' (NO MODIFICABLE)';
|
||||||
|
end;
|
||||||
|
|
||||||
|
JvNavPanelHeader.Caption := AHeaderText;
|
||||||
|
Caption := AWindowText;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoAlbaranesConArticulo.SetMensaje(const AValue: String);
|
||||||
|
begin
|
||||||
|
lblComments.Caption := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -67,7 +67,7 @@ implementation
|
|||||||
{$INCLUDE ..\..\..\FactuGES.inc}
|
{$INCLUDE ..\..\..\FactuGES.inc}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
Forms, Variants, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
|
||||||
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
|
||||||
uIEditorElegirClientes, uEditorGridBase, uDAInterfaces, uFactuGES_App, uIEditorElegirDireccionEntrega,
|
uIEditorElegirClientes, uEditorGridBase, uDAInterfaces, uFactuGES_App, uIEditorElegirDireccionEntrega,
|
||||||
Dialogs, uIntegerListUtils;
|
Dialogs, uIntegerListUtils;
|
||||||
@ -257,6 +257,22 @@ begin
|
|||||||
|
|
||||||
if Assigned((Result as IBizCliente).Descuentos) then
|
if Assigned((Result as IBizCliente).Descuentos) then
|
||||||
DuplicarRegistros((AContacto as IBizCliente).Descuentos.DataTable, (Result as IBizCliente).Descuentos.DataTable, mdrTodos);
|
DuplicarRegistros((AContacto as IBizCliente).Descuentos.DataTable, (Result as IBizCliente).Descuentos.DataTable, mdrTodos);
|
||||||
|
|
||||||
|
// Hay que dejar algunos campos como si fuera un cliente nuevo
|
||||||
|
Result.Edit;
|
||||||
|
with (Result as IBizCliente) do
|
||||||
|
begin
|
||||||
|
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
|
||||||
|
USUARIO := AppFactuGES.UsuarioActivo.UserName;
|
||||||
|
BLOQUEADO := 0;
|
||||||
|
Result.DataTable.FieldByName(fld_ClientesMOTIVO_BLOQUEO).AsVariant := Null;
|
||||||
|
TIENDA_WEB := 0;
|
||||||
|
Result.DataTable.FieldByName(fld_ClientesDIST_EMAIL).AsVariant := Null;
|
||||||
|
Result.DataTable.FieldByName(fld_ClientesDIST_PASSWORD).AsVariant := Null;
|
||||||
|
ID_TIENDA := AppFactuGES.TiendaActiva.ID;
|
||||||
|
TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
|
||||||
|
end;
|
||||||
|
Result.Post;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TClientesController.ElegirContacto(AContactos : IBizContacto;
|
function TClientesController.ElegirContacto(AContactos : IBizContacto;
|
||||||
|
|||||||
@ -4,7 +4,7 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
Caption = 'Ficha de cliente'
|
Caption = 'Ficha de cliente'
|
||||||
ClientHeight = 939
|
ClientHeight = 939
|
||||||
ClientWidth = 1063
|
ClientWidth = 1063
|
||||||
ExplicitWidth = 1071
|
ExplicitWidth = 1079
|
||||||
ExplicitHeight = 977
|
ExplicitHeight = 977
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
@ -47,6 +47,12 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
AE426082}
|
AE426082}
|
||||||
ExplicitLeft = 565
|
ExplicitLeft = 565
|
||||||
end
|
end
|
||||||
|
inherited lblDesbloquear: TcxLabel
|
||||||
|
Left = 938
|
||||||
|
ExplicitLeft = 938
|
||||||
|
AnchorX = 983
|
||||||
|
AnchorY = 14
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 1063
|
Width = 1063
|
||||||
@ -69,18 +75,18 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 1057
|
Width = 1057
|
||||||
Height = 805
|
Height = 806
|
||||||
ActivePage = pagDistribuidor
|
ActivePage = pagDistribuidor
|
||||||
ExplicitWidth = 1057
|
ExplicitWidth = 1057
|
||||||
ExplicitHeight = 805
|
ExplicitHeight = 806
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inline frViewCliente1: TfrViewCliente
|
inline frViewCliente1: TfrViewCliente
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -91,13 +97,13 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited PngSpeedButton1: TPngSpeedButton
|
inherited PngSpeedButton1: TPngSpeedButton
|
||||||
Left = 1004
|
Left = 1004
|
||||||
Top = 218
|
Top = 218
|
||||||
@ -339,7 +345,8 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
ExplicitHeight = 127
|
ExplicitHeight = 127
|
||||||
inherited memObservaciones: TcxDBMemo
|
inherited memObservaciones: TcxDBMemo
|
||||||
DataBinding.DataSource = frViewCliente1.dsContacto
|
DataBinding.DataSource = frViewCliente1.dsContacto
|
||||||
ExplicitWidth = 521
|
ExplicitWidth = 1005
|
||||||
|
ExplicitHeight = 387
|
||||||
Height = 127
|
Height = 127
|
||||||
Width = 521
|
Width = 521
|
||||||
end
|
end
|
||||||
@ -385,7 +392,7 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -396,12 +403,12 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 752
|
Height = 753
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 752
|
ExplicitHeight = 753
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
inherited cxGridViewID: TcxGridDBColumn
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
SortIndex = 0
|
SortIndex = 0
|
||||||
@ -412,50 +419,50 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 1049
|
Width = 1049
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
inherited ToolButton1: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
inherited ToolButton4: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
inherited ToolButton2: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
inherited ToolButton7: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pagPersonal: TTabSheet [2]
|
inherited pagPersonal: TTabSheet [2]
|
||||||
Tag = 2
|
Tag = 2
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 752
|
Height = 753
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 752
|
ExplicitHeight = 753
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 1049
|
Width = 1049
|
||||||
|
ButtonWidth = 126
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
inherited ToolButton1: TToolButton
|
inherited ToolButton1: TToolButton
|
||||||
ExplicitWidth = 62
|
ExplicitWidth = 66
|
||||||
end
|
end
|
||||||
inherited ToolButton4: TToolButton
|
inherited ToolButton4: TToolButton
|
||||||
ExplicitWidth = 74
|
Left = 66
|
||||||
|
ExplicitWidth = 82
|
||||||
|
end
|
||||||
|
inherited ToolButton5: TToolButton
|
||||||
|
Left = 148
|
||||||
end
|
end
|
||||||
inherited ToolButton2: TToolButton
|
inherited ToolButton2: TToolButton
|
||||||
ExplicitWidth = 67
|
Left = 156
|
||||||
|
ExplicitLeft = 156
|
||||||
|
ExplicitWidth = 74
|
||||||
|
end
|
||||||
|
inherited ToolButton6: TToolButton
|
||||||
|
Left = 230
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton
|
inherited ToolButton7: TToolButton
|
||||||
ExplicitWidth = 117
|
Left = 238
|
||||||
|
ExplicitLeft = 238
|
||||||
|
ExplicitWidth = 130
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -642,12 +649,12 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
inherited pagDatosBancarios: TTabSheet [4]
|
inherited pagDatosBancarios: TTabSheet [4]
|
||||||
Tag = 4
|
Tag = 4
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 1049
|
Width = 1049
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||||
@ -703,7 +710,7 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -714,12 +721,12 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 752
|
Height = 753
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 752
|
ExplicitHeight = 753
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 1049
|
Width = 1049
|
||||||
@ -747,7 +754,7 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -759,15 +766,15 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited layoutApunte: TdxLayoutControl
|
inherited layoutApunte: TdxLayoutControl
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
1049
|
1049
|
||||||
777)
|
778)
|
||||||
inherited eRefSubCuenta: TcxDBTextEdit
|
inherited eRefSubCuenta: TcxDBTextEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
@ -823,7 +830,7 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -834,12 +841,12 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 1049
|
Width = 1049
|
||||||
Height = 777
|
Height = 778
|
||||||
ExplicitWidth = 1049
|
ExplicitWidth = 1049
|
||||||
ExplicitHeight = 777
|
ExplicitHeight = 778
|
||||||
inherited cbEsDistribuidor: TcxDBCheckBox
|
inherited cbEsDistribuidor: TcxDBCheckBox
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
|||||||
@ -15,7 +15,8 @@ uses
|
|||||||
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
|
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
|
||||||
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
||||||
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto,
|
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto,
|
||||||
uViewPersonalContacto, Grids, DBGrids, uViewClienteDatosDistribuidor;
|
uViewPersonalContacto, Grids, DBGrids, uViewClienteDatosDistribuidor,
|
||||||
|
cxControls, cxContainer, cxEdit, cxLabel;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||||||
|
|||||||
@ -86,6 +86,7 @@ type
|
|||||||
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
|
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
|
||||||
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
|
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
|
||||||
|
|
||||||
|
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
|
||||||
function RevisarContratosTerminados(const Ano: String): Boolean;
|
function RevisarContratosTerminados(const Ano: String): Boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -183,6 +184,7 @@ type
|
|||||||
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
|
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
|
||||||
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
|
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
|
||||||
|
|
||||||
|
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
|
||||||
function RevisarContratosTerminados(const Ano: String): Boolean;
|
function RevisarContratosTerminados(const Ano: String): Boolean;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -843,6 +845,43 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TContratosClienteController.CopiarDireccion(const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
|
||||||
|
var
|
||||||
|
bEnEdicion : Boolean;
|
||||||
|
begin
|
||||||
|
if not Assigned(AContrato) then
|
||||||
|
raise Exception.Create ('Contrato no asignado (CopiarDireccion)');
|
||||||
|
|
||||||
|
if not Assigned(ADireccion) then
|
||||||
|
raise Exception.Create ('No se ha indicado la dirección (CopiarDireccion)');
|
||||||
|
|
||||||
|
if AContrato.DataTable.Active then
|
||||||
|
AContrato.DataTable.Active := True;
|
||||||
|
|
||||||
|
if ADireccion.DataTable.Active then
|
||||||
|
ADireccion.DataTable.Active := True;
|
||||||
|
|
||||||
|
bEnEdicion := (AContrato.DataTable.State in dsEditModes);
|
||||||
|
if not bEnEdicion then
|
||||||
|
AContrato.Edit;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
AContrato.Edit;
|
||||||
|
try
|
||||||
|
AContrato.CALLE := ADireccion.CALLE;
|
||||||
|
AContrato.POBLACION := ADireccion.POBLACION;
|
||||||
|
AContrato.CODIGO_POSTAL := ADireccion.CODIGO_POSTAL;
|
||||||
|
AContrato.PROVINCIA := ADireccion.PROVINCIA;
|
||||||
|
AContrato.NIF_CIF := ADireccion.NIF_CIF;
|
||||||
|
AContrato.NOMBRE := ADireccion.NOMBRE;
|
||||||
|
|
||||||
|
if not bEnEdicion then
|
||||||
|
AContrato.Post;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TContratosClienteController.Create;
|
constructor TContratosClienteController.Create;
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
|||||||
@ -375,7 +375,6 @@ begin
|
|||||||
ID_AGENTE := FCliente.ID_AGENTE;
|
ID_AGENTE := FCliente.ID_AGENTE;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
//Establecemos como dirección de envio por defecto la dirección fiscal del cliente
|
//Establecemos como dirección de envio por defecto la dirección fiscal del cliente
|
||||||
ID_DIRECCION_ENVIO := 1;
|
ID_DIRECCION_ENVIO := 1;
|
||||||
CALLE_ENVIO := FCliente.CALLE;
|
CALLE_ENVIO := FCliente.CALLE;
|
||||||
|
|||||||
@ -193,10 +193,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
|||||||
object pagContenido: TTabSheet
|
object pagContenido: TTabSheet
|
||||||
Caption = 'Contenido'
|
Caption = 'Contenido'
|
||||||
ImageIndex = 1
|
ImageIndex = 1
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 0
|
|
||||||
ExplicitWidth = 0
|
|
||||||
ExplicitHeight = 0
|
|
||||||
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
|
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
@ -218,83 +214,97 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
|||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 1320
|
Width = 1320
|
||||||
Height = 24
|
Height = 24
|
||||||
|
ButtonWidth = 123
|
||||||
ExplicitWidth = 1320
|
ExplicitWidth = 1320
|
||||||
ExplicitHeight = 24
|
ExplicitHeight = 24
|
||||||
|
inherited ToolButton1: TToolButton
|
||||||
|
ExplicitWidth = 119
|
||||||
|
end
|
||||||
|
inherited ToolButton2: TToolButton
|
||||||
|
Left = 119
|
||||||
|
ExplicitWidth = 127
|
||||||
|
end
|
||||||
|
inherited ToolButton3: TToolButton
|
||||||
|
Left = 246
|
||||||
|
ExplicitWidth = 58
|
||||||
|
end
|
||||||
inherited ToolButton4: TToolButton
|
inherited ToolButton4: TToolButton
|
||||||
|
Left = 304
|
||||||
Wrap = False
|
Wrap = False
|
||||||
|
ExplicitWidth = 57
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton
|
inherited ToolButton14: TToolButton
|
||||||
Left = 334
|
Left = 361
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 334
|
ExplicitLeft = 361
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontName: TJvFontComboBox
|
inherited FontName: TJvFontComboBox
|
||||||
Left = 368
|
Left = 395
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 368
|
ExplicitLeft = 395
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontSize: TEdit
|
inherited FontSize: TEdit
|
||||||
Left = 513
|
Left = 540
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 124
|
Width = 124
|
||||||
ExplicitLeft = 513
|
ExplicitLeft = 540
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
ExplicitWidth = 124
|
ExplicitWidth = 124
|
||||||
end
|
end
|
||||||
inherited UpDown1: TUpDown
|
inherited UpDown1: TUpDown
|
||||||
Left = 637
|
Left = 664
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 637
|
ExplicitLeft = 664
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton13: TToolButton
|
inherited ToolButton13: TToolButton
|
||||||
Left = 654
|
Left = 681
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 654
|
ExplicitLeft = 681
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton
|
inherited ToolButton6: TToolButton
|
||||||
Left = 662
|
Left = 689
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 662
|
ExplicitLeft = 689
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton
|
inherited ToolButton7: TToolButton
|
||||||
Left = 696
|
Left = 723
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 696
|
ExplicitLeft = 723
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton8: TToolButton
|
inherited ToolButton8: TToolButton
|
||||||
Left = 730
|
Left = 757
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 730
|
ExplicitLeft = 757
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton12: TToolButton
|
inherited ToolButton12: TToolButton
|
||||||
Left = 764
|
Left = 791
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 764
|
ExplicitLeft = 791
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton
|
inherited ToolButton9: TToolButton
|
||||||
Left = 772
|
Left = 799
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 772
|
ExplicitLeft = 799
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton
|
inherited ToolButton10: TToolButton
|
||||||
Left = 806
|
Left = 833
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 806
|
ExplicitLeft = 833
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton11: TToolButton
|
inherited ToolButton11: TToolButton
|
||||||
Left = 840
|
Left = 867
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 840
|
ExplicitLeft = 867
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -392,10 +402,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
|||||||
object pagInicidencias: TTabSheet
|
object pagInicidencias: TTabSheet
|
||||||
Caption = 'Incidencias'
|
Caption = 'Incidencias'
|
||||||
ImageIndex = 2
|
ImageIndex = 2
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 0
|
|
||||||
ExplicitWidth = 0
|
|
||||||
ExplicitHeight = 0
|
|
||||||
inline frViewIncidenciasCli: TfrViewIncidencias
|
inline frViewIncidenciasCli: TfrViewIncidencias
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
@ -473,6 +479,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
|||||||
inherited PnlComentario: TPanel
|
inherited PnlComentario: TPanel
|
||||||
Width = 1334
|
Width = 1334
|
||||||
ExplicitWidth = 1334
|
ExplicitWidth = 1334
|
||||||
|
inherited lbComentario: TLabel
|
||||||
|
Width = 1324
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inline frViewTotales1: TfrViewTotales [5]
|
inline frViewTotales1: TfrViewTotales [5]
|
||||||
Left = 0
|
Left = 0
|
||||||
@ -495,129 +505,93 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
|
|||||||
Width = 1334
|
Width = 1334
|
||||||
ExplicitWidth = 1334
|
ExplicitWidth = 1334
|
||||||
inherited Bevel3: TBevel
|
inherited Bevel3: TBevel
|
||||||
Left = 619
|
Left = 752
|
||||||
Height = 122
|
ExplicitLeft = 752
|
||||||
ExplicitLeft = 619
|
|
||||||
ExplicitHeight = 122
|
|
||||||
end
|
end
|
||||||
inherited Bevel4: TBevel
|
inherited Bevel4: TBevel
|
||||||
Left = 731
|
Left = 864
|
||||||
Width = 210
|
ExplicitLeft = 864
|
||||||
ExplicitLeft = 731
|
|
||||||
ExplicitWidth = 210
|
|
||||||
end
|
|
||||||
inherited Bevel2: TBevel
|
|
||||||
Width = 333
|
|
||||||
ExplicitWidth = 333
|
|
||||||
end
|
end
|
||||||
inherited Bevel1: TBevel
|
inherited Bevel1: TBevel
|
||||||
Left = 638
|
Left = 771
|
||||||
Width = 332
|
ExplicitLeft = 771
|
||||||
ExplicitLeft = 638
|
|
||||||
ExplicitWidth = 332
|
|
||||||
end
|
end
|
||||||
inherited ImporteDto: TcxDBCurrencyEdit
|
inherited ImporteDto: TcxDBCurrencyEdit
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitWidth = 93
|
|
||||||
Width = 93
|
|
||||||
end
|
end
|
||||||
inherited ImporteIVA: TcxDBCurrencyEdit
|
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||||
Left = 802
|
Left = 935
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 802
|
ExplicitLeft = 935
|
||||||
ExplicitWidth = 137
|
|
||||||
Width = 137
|
|
||||||
end
|
end
|
||||||
inherited ImporteTotal: TcxDBCurrencyEdit
|
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||||
Left = 732
|
Left = 865
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 732
|
ExplicitLeft = 865
|
||||||
ExplicitWidth = 137
|
|
||||||
Width = 137
|
|
||||||
end
|
end
|
||||||
inherited edtDescuento: TcxDBSpinEdit
|
inherited edtDescuento: TcxDBSpinEdit
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
end
|
end
|
||||||
inherited edtIVA: TcxDBSpinEdit
|
inherited edtIVA: TcxDBSpinEdit
|
||||||
Left = 731
|
Left = 864
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 731
|
ExplicitLeft = 864
|
||||||
end
|
end
|
||||||
inherited ImporteBase: TcxDBCurrencyEdit
|
inherited ImporteBase: TcxDBCurrencyEdit
|
||||||
Left = 731
|
Left = 864
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 731
|
ExplicitLeft = 864
|
||||||
ExplicitWidth = 92
|
|
||||||
Width = 92
|
|
||||||
end
|
end
|
||||||
inherited edtRE: TcxDBSpinEdit
|
inherited edtRE: TcxDBSpinEdit
|
||||||
Left = 731
|
Left = 864
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 731
|
ExplicitLeft = 864
|
||||||
end
|
end
|
||||||
inherited edtIRPF: TcxDBSpinEdit
|
inherited edtIRPF: TcxDBSpinEdit
|
||||||
Left = 731
|
Left = 864
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 731
|
ExplicitLeft = 864
|
||||||
end
|
end
|
||||||
inherited ImporteRE: TcxDBCurrencyEdit
|
inherited ImporteRE: TcxDBCurrencyEdit
|
||||||
Left = 802
|
Left = 935
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 802
|
ExplicitLeft = 935
|
||||||
ExplicitWidth = 56
|
|
||||||
Width = 56
|
|
||||||
end
|
end
|
||||||
inherited ImporteIRPF: TcxDBCurrencyEdit
|
inherited ImporteIRPF: TcxDBCurrencyEdit
|
||||||
Left = 802
|
Left = 935
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 802
|
ExplicitLeft = 935
|
||||||
ExplicitWidth = 56
|
|
||||||
Width = 56
|
|
||||||
end
|
end
|
||||||
inherited eImporteNeto: TcxDBCurrencyEdit
|
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitWidth = 147
|
|
||||||
Width = 147
|
|
||||||
end
|
end
|
||||||
inherited ePorte: TcxDBCurrencyEdit
|
inherited ePorte: TcxDBCurrencyEdit
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitWidth = 147
|
|
||||||
Width = 147
|
|
||||||
end
|
end
|
||||||
inherited eIVA: TcxDBLookupComboBox
|
inherited eIVA: TcxDBLookupComboBox
|
||||||
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
|
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
|
||||||
Style.Color = clInfoBk
|
Style.Color = clInfoBk
|
||||||
ExplicitWidth = 81
|
|
||||||
Width = 81
|
|
||||||
end
|
end
|
||||||
inherited bTiposIVA: TButton
|
inherited bTiposIVA: TButton
|
||||||
Left = 471
|
Left = 604
|
||||||
OnClick = frViewTotales1bTiposIVAClick
|
OnClick = frViewTotales1bTiposIVAClick
|
||||||
ExplicitLeft = 471
|
ExplicitLeft = 604
|
||||||
end
|
|
||||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
|
||||||
ExplicitWidth = 219
|
|
||||||
Width = 219
|
|
||||||
end
|
end
|
||||||
inherited edtRetencion: TcxDBSpinEdit
|
inherited edtRetencion: TcxDBSpinEdit
|
||||||
Left = 731
|
Left = 864
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 731
|
ExplicitLeft = 864
|
||||||
end
|
end
|
||||||
inherited edtImporteRetencion: TcxDBCurrencyEdit
|
inherited edtImporteRetencion: TcxDBCurrencyEdit
|
||||||
Left = 802
|
Left = 935
|
||||||
Style.IsFontAssigned = True
|
Style.IsFontAssigned = True
|
||||||
ExplicitLeft = 802
|
ExplicitLeft = 935
|
||||||
ExplicitWidth = 342
|
|
||||||
Width = 342
|
|
||||||
end
|
end
|
||||||
inherited edtFechaRetencion: TcxDBDateEdit
|
inherited edtFechaRetencion: TcxDBDateEdit
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitWidth = 333
|
|
||||||
Width = 333
|
|
||||||
end
|
end
|
||||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
|||||||
@ -415,8 +415,38 @@ end;
|
|||||||
|
|
||||||
procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
|
procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
|
||||||
var
|
var
|
||||||
|
AClientesController : IClientesController;
|
||||||
|
ADireccion : IBizDireccionesContacto;
|
||||||
APrimerCliente : Boolean;
|
APrimerCliente : Boolean;
|
||||||
begin
|
begin
|
||||||
|
{
|
||||||
|
if not (FContrato.DataTable.State in dsEditModes) then
|
||||||
|
FContrato.DataTable.Edit;
|
||||||
|
|
||||||
|
// En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
|
||||||
|
AClientesController := TClientesController.Create;
|
||||||
|
try
|
||||||
|
case FContrato.Cliente.Direcciones.RecordCount of
|
||||||
|
0 : //No hay direcciones secundarias asociadas
|
||||||
|
else ADireccion := AClientesController.ElegirDireccion(FContrato.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección fiscal de este contrato.');
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Si hay dirección de envio, copiarla a la factura y poner el coste del porte
|
||||||
|
if Assigned(ADireccion) then
|
||||||
|
begin
|
||||||
|
if not ADireccion.IDIsNull then
|
||||||
|
try
|
||||||
|
FContrato.Edit;
|
||||||
|
FContrato.IMPORTE_PORTE := ADireccion.PORTE;
|
||||||
|
FController.CopiarDireccion(ADireccion, FContrato);
|
||||||
|
finally
|
||||||
|
ADireccion := NIL;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
finally
|
||||||
|
AClientesController := Nil;
|
||||||
|
end;
|
||||||
|
}
|
||||||
if Assigned(FContrato) then
|
if Assigned(FContrato) then
|
||||||
begin
|
begin
|
||||||
APrimerCliente := (FContrato.Cliente.ID = 0);
|
APrimerCliente := (FContrato.Cliente.ID = 0);
|
||||||
|
|||||||
@ -0,0 +1,219 @@
|
|||||||
|
inherited fEditorElegirContratosClienteParaCompra: TfEditorElegirContratosClienteParaCompra
|
||||||
|
Caption = 'Seleccionar pedido de cliente'
|
||||||
|
ClientWidth = 656
|
||||||
|
ExplicitWidth = 672
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object JvgWizardHeader1: TJvgWizardHeader [0]
|
||||||
|
Left = 0
|
||||||
|
Top = 27
|
||||||
|
Width = 656
|
||||||
|
Height = 60
|
||||||
|
CaptionFont.Charset = DEFAULT_CHARSET
|
||||||
|
CaptionFont.Color = clWindowText
|
||||||
|
CaptionFont.Height = -11
|
||||||
|
CaptionFont.Name = 'Tahoma'
|
||||||
|
CaptionFont.Style = [fsBold]
|
||||||
|
CommentFont.Charset = DEFAULT_CHARSET
|
||||||
|
CommentFont.Color = clWindowText
|
||||||
|
CommentFont.Height = -11
|
||||||
|
CommentFont.Name = 'Tahoma'
|
||||||
|
CommentFont.Style = []
|
||||||
|
SymbolFont.Charset = DEFAULT_CHARSET
|
||||||
|
SymbolFont.Color = clHighlightText
|
||||||
|
SymbolFont.Height = -35
|
||||||
|
SymbolFont.Name = 'Wingdings'
|
||||||
|
SymbolFont.Style = [fsBold]
|
||||||
|
Captions.Strings = (
|
||||||
|
'Seleccione el pedido de cliente')
|
||||||
|
Comments.Strings = (
|
||||||
|
' ')
|
||||||
|
Gradient.FromColor = clHighlight
|
||||||
|
Gradient.ToColor = clWindow
|
||||||
|
Gradient.Active = False
|
||||||
|
Gradient.Orientation = fgdVertical
|
||||||
|
BufferedDraw = False
|
||||||
|
ExplicitLeft = -8
|
||||||
|
ExplicitTop = 8
|
||||||
|
end
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 656
|
||||||
|
Visible = False
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 629
|
||||||
|
ExplicitLeft = 629
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Top = 87
|
||||||
|
Width = 656
|
||||||
|
ExplicitTop = 87
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
Left = 487
|
||||||
|
ExplicitLeft = 487
|
||||||
|
ExplicitWidth = 139
|
||||||
|
ExplicitHeight = 27
|
||||||
|
inherited TBXItem2: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXSeparatorItem3: TTBXSeparatorItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem6: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem36: TTBXItem
|
||||||
|
Action = actAnchoAuto2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxFiltro: TTBXToolbar
|
||||||
|
Top = 25
|
||||||
|
DockPos = -107
|
||||||
|
DockRow = 1
|
||||||
|
ExplicitTop = 25
|
||||||
|
inherited TBXItem34: TTBXItem
|
||||||
|
Action = actQuitarFiltro2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 656
|
||||||
|
end
|
||||||
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Left = 0
|
||||||
|
Top = 52
|
||||||
|
Visible = False
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 52
|
||||||
|
ExplicitWidth = 656
|
||||||
|
ExplicitHeight = 26
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Top = 444
|
||||||
|
Width = 656
|
||||||
|
ExplicitTop = 444
|
||||||
|
ExplicitWidth = 656
|
||||||
|
end
|
||||||
|
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
|
||||||
|
Left = 0
|
||||||
|
Top = 463
|
||||||
|
Width = 656
|
||||||
|
Height = 36
|
||||||
|
Align = alBottom
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 463
|
||||||
|
ExplicitWidth = 656
|
||||||
|
ExplicitHeight = 36
|
||||||
|
inherited JvFooter1: TJvFooter
|
||||||
|
Width = 656
|
||||||
|
Height = 36
|
||||||
|
ExplicitWidth = 656
|
||||||
|
ExplicitHeight = 36
|
||||||
|
inherited bSeleccionar: TJvFooterBtn
|
||||||
|
Left = 444
|
||||||
|
Top = 3
|
||||||
|
ExplicitLeft = 444
|
||||||
|
ExplicitTop = 3
|
||||||
|
end
|
||||||
|
inherited bCancelar: TJvFooterBtn
|
||||||
|
Left = 548
|
||||||
|
Top = 4
|
||||||
|
ExplicitLeft = 548
|
||||||
|
ExplicitTop = 4
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited BarraSeleccionActionList: TActionList
|
||||||
|
inherited actSeleccionar: TAction
|
||||||
|
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
|
||||||
|
OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
|
||||||
|
end
|
||||||
|
inherited actCancelar: TAction
|
||||||
|
OnExecute = frViewBarraSeleccion1actCancelarExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [8]
|
||||||
|
Left = 112
|
||||||
|
Top = 192
|
||||||
|
inherited actPrevisualizar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actImprimir: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actDuplicar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actGenerarAlbaranCli: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actGenerarFactura: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actGenerarRecibo: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [9]
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource [10]
|
||||||
|
Left = 8
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
inherited StatusBarImages: TPngImageList [11]
|
||||||
|
end
|
||||||
|
inherited GridPopupMenu: TPopupMenu [12]
|
||||||
|
Left = 80
|
||||||
|
Top = 192
|
||||||
|
inherited N4: TMenuItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited JsGenerarDialog: TJSDialog [13]
|
||||||
|
end
|
||||||
|
inherited JsPrevisualizarDialog: TJSDialog [14]
|
||||||
|
end
|
||||||
|
inherited JsImprimirDialog: TJSDialog [15]
|
||||||
|
end
|
||||||
|
inherited JsListaContratosNoEliminados: TJSDialog [16]
|
||||||
|
end
|
||||||
|
inherited JSInformesDialog: TJSDialog [17]
|
||||||
|
end
|
||||||
|
object EditorSeleccionActionList: TActionList
|
||||||
|
Images = SmallImages
|
||||||
|
Left = 152
|
||||||
|
Top = 192
|
||||||
|
object actBuscar2: TAction
|
||||||
|
Category = 'Buscar'
|
||||||
|
Caption = 'Buscar'
|
||||||
|
ImageIndex = 10
|
||||||
|
ShortCut = 114
|
||||||
|
end
|
||||||
|
object actQuitarFiltro2: TAction
|
||||||
|
Category = 'Buscar'
|
||||||
|
Caption = 'Quitar filtro y ver todo'
|
||||||
|
ImageIndex = 19
|
||||||
|
OnExecute = actQuitarFiltro2Execute
|
||||||
|
end
|
||||||
|
object actAnchoAuto2: TAction
|
||||||
|
Category = 'Ver'
|
||||||
|
Caption = 'Ancho autom'#225'tico'
|
||||||
|
ImageIndex = 21
|
||||||
|
OnExecute = actAnchoAuto2Execute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,138 @@
|
|||||||
|
unit uEditorElegirContratosClienteParaCompra;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
|
||||||
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||||
|
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
||||||
|
uViewContratosClienteParaCompra, ComCtrls, TB2ExtItems, TBXExtItems, TBX,
|
||||||
|
TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||||
|
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
|
||||||
|
uEditorContratosCliente, uBizContratosCliente, uIEditorElegirContratosCliente,
|
||||||
|
JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorElegirContratosClienteParaCompra = class(TfEditorContratosCliente, IEditorElegirContratosCliente)
|
||||||
|
frViewBarraSeleccion1: TfrViewBarraSeleccion;
|
||||||
|
JvgWizardHeader1: TJvgWizardHeader;
|
||||||
|
EditorSeleccionActionList: TActionList;
|
||||||
|
actBuscar2: TAction;
|
||||||
|
actQuitarFiltro2: TAction;
|
||||||
|
actAnchoAuto2: TAction;
|
||||||
|
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
|
||||||
|
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||||||
|
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure actAnchoAuto2Execute(Sender: TObject);
|
||||||
|
procedure actQuitarFiltro2Execute(Sender: TObject);
|
||||||
|
protected
|
||||||
|
procedure SetMultiSelect (AValue : Boolean);
|
||||||
|
function GetMultiSelect : Boolean;
|
||||||
|
function GetContratosClienteSeleccionados: IBizContratoCliente;
|
||||||
|
procedure SetViewGrid(const Value: IViewGridBase); override;
|
||||||
|
procedure SetMensaje (const AValue: String);
|
||||||
|
function GetMensaje: String;
|
||||||
|
|
||||||
|
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||||
|
//sobreescribir este metodo
|
||||||
|
procedure AsignarVista; override;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Mensaje : String read GetMensaje write SetMensaje;
|
||||||
|
property ContratosClienteSeleccionados: IBizContratoCliente read GetContratosClienteSeleccionados;
|
||||||
|
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
|
||||||
|
uGridUtils, uEditorBase, uContratosClienteController,
|
||||||
|
cxGridLevel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfEditorElegirContratosCliente }
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.actAnchoAuto2Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
actAnchoAuto.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.actQuitarFiltro2Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
actQuitarFiltro.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.AsignarVista;
|
||||||
|
begin
|
||||||
|
ViewGrid := CreateView(TfrViewContratosClienteParaCompra) as IViewContratosCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
EditorActionList.State := asSuspended;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.frViewBarraSeleccion1actCancelarExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.frViewBarraSeleccion1actSeleccionarExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ModalResult := mrOk;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.frViewBarraSeleccion1actSeleccionarUpdate(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorElegirContratosClienteParaCompra.GetContratosClienteSeleccionados: IBizContratoCliente;
|
||||||
|
begin
|
||||||
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contratos as ISeleccionable).SelectedRecords);
|
||||||
|
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
|
||||||
|
Result := (Controller as IContratosClienteController).ExtraerSeleccionados(Contratos) as IBizContratoCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorElegirContratosClienteParaCompra.GetMensaje: String;
|
||||||
|
begin
|
||||||
|
Result := JvgWizardHeader1.Comments.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorElegirContratosClienteParaCompra.GetMultiSelect: Boolean;
|
||||||
|
begin
|
||||||
|
Result := ViewGrid.MultiSelect;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.SetMensaje(const AValue: String);
|
||||||
|
begin
|
||||||
|
JvgWizardHeader1.Comments.Text := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.SetMultiSelect(AValue: Boolean);
|
||||||
|
begin
|
||||||
|
ViewGrid.MultiSelect := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirContratosClienteParaCompra.SetViewGrid(const Value: IViewGridBase);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//Para que no salgan las pestañas de filtrado
|
||||||
|
ViewGrid._Grid.RootLevelOptions.DetailTabsPosition := dtpNone;
|
||||||
|
ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,832 @@
|
|||||||
|
inherited frViewContratosClienteParaCompra: TfrViewContratosClienteParaCompra
|
||||||
|
Width = 903
|
||||||
|
Height = 525
|
||||||
|
ExplicitWidth = 903
|
||||||
|
ExplicitHeight = 525
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 903
|
||||||
|
Height = 397
|
||||||
|
RootLevelOptions.DetailTabsPosition = dtpTop
|
||||||
|
OnActiveTabChanged = cxGridActiveTabChanged
|
||||||
|
ExplicitWidth = 903
|
||||||
|
ExplicitHeight = 397
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.KeyFieldNames = 'ID'
|
||||||
|
DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = cxGridViewIMPORTE_TOTAL
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = cxGridViewBASE_IMPONIBLE
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = cxGridViewIMPORTE_IVA
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0 contratos'
|
||||||
|
Kind = skCount
|
||||||
|
Column = cxGridViewREFERENCIA
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridViewIMPORTE_TOTAL
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridViewBASE_IMPONIBLE
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Column = cxGridViewIMPORTE_IVA
|
||||||
|
end>
|
||||||
|
OptionsView.GroupFooters = gfAlwaysVisible
|
||||||
|
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
|
||||||
|
Caption = 'Incidencias'
|
||||||
|
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
|
||||||
|
PropertiesClassName = 'TcxImageComboBoxProperties'
|
||||||
|
Properties.Images = GridPNGImageList
|
||||||
|
Properties.Items = <
|
||||||
|
item
|
||||||
|
Description = 'Sin incidencias'
|
||||||
|
Value = 0
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Description = 'Con incidencias'
|
||||||
|
ImageIndex = 3
|
||||||
|
Tag = 1
|
||||||
|
Value = 1
|
||||||
|
end>
|
||||||
|
Properties.ShowDescriptions = False
|
||||||
|
OnGetCellHint = cxGridViewINCIDENCIASACTIVASGetCellHint
|
||||||
|
BestFitMaxWidth = 22
|
||||||
|
MinWidth = 22
|
||||||
|
Options.HorzSizing = False
|
||||||
|
Width = 22
|
||||||
|
end
|
||||||
|
object cxGridViewINCIDENCIAS: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'INCIDENCIAS'
|
||||||
|
Visible = False
|
||||||
|
BestFitMaxWidth = 10
|
||||||
|
VisibleForCustomization = False
|
||||||
|
Width = 20
|
||||||
|
end
|
||||||
|
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'REFERENCIA'
|
||||||
|
BestFitMaxWidth = 25
|
||||||
|
SortIndex = 0
|
||||||
|
SortOrder = soDescending
|
||||||
|
Width = 58
|
||||||
|
end
|
||||||
|
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Ref. Cliente'
|
||||||
|
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
|
||||||
|
BestFitMaxWidth = 25
|
||||||
|
end
|
||||||
|
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'TIPO_CONTRATO'
|
||||||
|
Visible = False
|
||||||
|
BestFitMaxWidth = 25
|
||||||
|
VisibleForCustomization = False
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object cxGridViewSITUACION: TcxGridDBColumn
|
||||||
|
Caption = 'Situaci'#243'n'
|
||||||
|
DataBinding.FieldName = 'SITUACION'
|
||||||
|
BestFitMaxWidth = 25
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cxGridViewFECHA_CONTRATO: TcxGridDBColumn
|
||||||
|
Caption = 'Fecha contrato'
|
||||||
|
DataBinding.FieldName = 'FECHA_CONTRATO'
|
||||||
|
BestFitMaxWidth = 25
|
||||||
|
Width = 105
|
||||||
|
end
|
||||||
|
object cxGridViewVENDEDOR: TcxGridDBColumn
|
||||||
|
Caption = 'Usuario'
|
||||||
|
DataBinding.FieldName = 'VENDEDOR'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewNIF_CIF: TcxGridDBColumn
|
||||||
|
Caption = 'NIF/CIF'
|
||||||
|
DataBinding.FieldName = 'NIF_CIF'
|
||||||
|
Visible = False
|
||||||
|
BestFitMaxWidth = 25
|
||||||
|
VisibleForCustomization = False
|
||||||
|
Width = 75
|
||||||
|
end
|
||||||
|
object cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Procedencia'
|
||||||
|
DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||||
|
Caption = 'Nombre'
|
||||||
|
DataBinding.FieldName = 'NOMBRE'
|
||||||
|
Width = 161
|
||||||
|
end
|
||||||
|
object cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Nombre comercial'
|
||||||
|
DataBinding.FieldName = 'NOMBRE_COMERCIAL_CLIENTE'
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_NETO: TcxGridDBColumn
|
||||||
|
Caption = 'Imp. neto'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_NETO'
|
||||||
|
Visible = False
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
GroupSummaryAlignment = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewDTO: TcxGridDBColumn
|
||||||
|
Caption = 'Dto'
|
||||||
|
DataBinding.FieldName = 'DESCUENTO'
|
||||||
|
Visible = False
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
GroupSummaryAlignment = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
HeaderGlyphAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn
|
||||||
|
Caption = 'Imp. dto'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_DESCUENTO'
|
||||||
|
Visible = False
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
GroupSummaryAlignment = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
HeaderGlyphAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
|
||||||
|
Caption = 'Base imponible'
|
||||||
|
DataBinding.FieldName = 'BASE_IMPONIBLE'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewIVA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'IVA'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_IVA: TcxGridDBColumn
|
||||||
|
Caption = 'Importe IVA'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_IVA'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||||
|
Caption = 'Importe total'
|
||||||
|
DataBinding.FieldName = 'IMPORTE_TOTAL'
|
||||||
|
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
Visible = False
|
||||||
|
BestFitMaxWidth = 60
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
Width = 63
|
||||||
|
end
|
||||||
|
object cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn
|
||||||
|
Caption = 'Factura/s asociada/s'
|
||||||
|
DataBinding.FieldName = 'FACTURA_ASOCIADA'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewBASE_IMPONIBLE_FACTURAS: TcxGridDBColumn
|
||||||
|
Caption = 'Base Imponible de facturas'
|
||||||
|
DataBinding.FieldName = 'BASE_IMPONIBLE_FACTURAS'
|
||||||
|
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
Visible = False
|
||||||
|
FooterAlignmentHorz = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||||
|
Caption = 'Provincia'
|
||||||
|
DataBinding.FieldName = 'PROVINCIA'
|
||||||
|
end
|
||||||
|
object cxGridViewENVIADA_REVISADA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ENVIADA_REVISADA'
|
||||||
|
PropertiesClassName = 'TcxImageComboBoxProperties'
|
||||||
|
Properties.Images = GridPNGImageList
|
||||||
|
Properties.Items = <
|
||||||
|
item
|
||||||
|
Value = 0
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Description = 'Enviado'
|
||||||
|
ImageIndex = 4
|
||||||
|
Value = 1
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Description = 'Recibido'
|
||||||
|
ImageIndex = 2
|
||||||
|
Value = 2
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Description = 'Aprobado'
|
||||||
|
ImageIndex = 4
|
||||||
|
Value = 3
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Description = 'Recibido'
|
||||||
|
ImageIndex = 5
|
||||||
|
Value = 10
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Description = 'Recibido'
|
||||||
|
ImageIndex = 5
|
||||||
|
Value = 11
|
||||||
|
end>
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
|
object cxGridViewREFERENCIA_ABETO: TcxGridDBColumn
|
||||||
|
Caption = 'Ref. Abeto'
|
||||||
|
DataBinding.FieldName = 'REFERENCIA_ABETO'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewTIENDA: TcxGridDBColumn
|
||||||
|
Caption = 'Tienda'
|
||||||
|
DataBinding.FieldName = 'TIENDA'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewAGENTE: TcxGridDBColumn
|
||||||
|
Caption = 'Comercial'
|
||||||
|
DataBinding.FieldName = 'NOMBRE_AGENTE'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewDELEGACION: TcxGridDBColumn
|
||||||
|
Caption = 'Delegaci'#243'n'
|
||||||
|
DataBinding.FieldName = 'DELEGACION'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewINSTALADOR: TcxGridDBColumn
|
||||||
|
Caption = 'Instalador'
|
||||||
|
DataBinding.FieldName = 'NOMBRE_INSTALADOR'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
object cxGridViewPAIS: TcxGridDBColumn
|
||||||
|
Caption = 'Pa'#237's'
|
||||||
|
DataBinding.FieldName = 'PAIS'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
end
|
||||||
|
object cxGridViewIDIOMA: TcxGridDBColumn
|
||||||
|
Caption = 'Idioma'
|
||||||
|
DataBinding.FieldName = 'IDIOMA'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taRightJustify
|
||||||
|
VisibleForCustomization = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cxGridLevel: TcxGridLevel
|
||||||
|
Caption = 'Todos'
|
||||||
|
end
|
||||||
|
object cxGridLevelPendientesRevisar: TcxGridLevel
|
||||||
|
Caption = 'Pendientes Revisi'#243'n - Graden'
|
||||||
|
end
|
||||||
|
object cxGridLevelPendientes: TcxGridLevel
|
||||||
|
Caption = 'Pendientes'
|
||||||
|
end
|
||||||
|
object cxGridLevelTerminados: TcxGridLevel
|
||||||
|
Caption = 'Terminados'
|
||||||
|
end
|
||||||
|
object cxGridLevelCancelados: TcxGridLevel
|
||||||
|
Caption = 'Cancelados'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
|
Width = 903
|
||||||
|
ExplicitWidth = 903
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 903
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 903
|
||||||
|
ExplicitWidth = 903
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 250
|
||||||
|
Width = 250
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 250
|
||||||
|
Width = 250
|
||||||
|
end
|
||||||
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Left = 515
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 515
|
||||||
|
ExplicitWidth = 250
|
||||||
|
Width = 250
|
||||||
|
end
|
||||||
|
inherited txtFiltroTodo2: TcxTextEdit
|
||||||
|
Left = 515
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 515
|
||||||
|
ExplicitWidth = 250
|
||||||
|
Width = 250
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 903
|
||||||
|
ExplicitWidth = 903
|
||||||
|
inherited tbxBotones: TTBXToolbar
|
||||||
|
Width = 893
|
||||||
|
ExplicitWidth = 893
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
|
Top = 499
|
||||||
|
Visible = True
|
||||||
|
ExplicitTop = 499
|
||||||
|
ExplicitWidth = 903
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 903
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
ExplicitWidth = 903
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
Width = 893
|
||||||
|
Visible = False
|
||||||
|
ExplicitWidth = 893
|
||||||
|
object TBXSeparatorItem2: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem3: TTBXItem
|
||||||
|
Action = actCliente
|
||||||
|
end
|
||||||
|
object TBXSeparatorItem1: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem4: TTBXItem
|
||||||
|
Action = actProvincia
|
||||||
|
end
|
||||||
|
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem2: TTBXItem
|
||||||
|
Action = actProcedencia
|
||||||
|
end
|
||||||
|
object TBXSeparatorItem5: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem5: TTBXItem
|
||||||
|
Action = actComercial
|
||||||
|
end
|
||||||
|
object TBXSeparatorItem4: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem6: TTBXItem
|
||||||
|
Action = actDelegacion
|
||||||
|
end
|
||||||
|
object TBXSeparatorItem6: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem7: TTBXItem
|
||||||
|
Action = actInstalador
|
||||||
|
end
|
||||||
|
object TBXSeparatorItem7: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem8: TTBXItem
|
||||||
|
Action = actTienda
|
||||||
|
end
|
||||||
|
object TBXSeparatorItem8: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem9: TTBXItem
|
||||||
|
Action = actPais
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
Top = 192
|
||||||
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
|
ReportDocument.CreationDate = 38673.741107951390000000
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxPSEngineController1: TdxPSEngineController
|
||||||
|
Left = 296
|
||||||
|
Top = 160
|
||||||
|
end
|
||||||
|
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||||
|
Top = 160
|
||||||
|
end
|
||||||
|
inherited ActionList1: TActionList
|
||||||
|
Left = 200
|
||||||
|
Top = 448
|
||||||
|
object actCliente: TAction
|
||||||
|
Caption = 'Cliente'
|
||||||
|
OnExecute = actClienteExecute
|
||||||
|
OnUpdate = actClienteUpdate
|
||||||
|
end
|
||||||
|
object actProcedencia: TAction
|
||||||
|
Caption = 'Procedencia'
|
||||||
|
OnExecute = actProcedenciaExecute
|
||||||
|
OnUpdate = actProcedenciaUpdate
|
||||||
|
end
|
||||||
|
object actProvincia: TAction
|
||||||
|
Caption = 'Provincia'
|
||||||
|
OnExecute = actProvinciaExecute
|
||||||
|
OnUpdate = actProvinciaUpdate
|
||||||
|
end
|
||||||
|
object actComercial: TAction
|
||||||
|
Caption = 'Comercial'
|
||||||
|
OnExecute = actComercialExecute
|
||||||
|
OnUpdate = actComercialUpdate
|
||||||
|
end
|
||||||
|
object actDelegacion: TAction
|
||||||
|
Caption = 'Delegaci'#243'n'
|
||||||
|
OnExecute = actDelegacionExecute
|
||||||
|
OnUpdate = actDelegacionUpdate
|
||||||
|
end
|
||||||
|
object actInstalador: TAction
|
||||||
|
Caption = 'Instalador'
|
||||||
|
OnExecute = actInstaladorExecute
|
||||||
|
OnUpdate = actInstaladorUpdate
|
||||||
|
end
|
||||||
|
object actTienda: TAction
|
||||||
|
Caption = 'Tienda'
|
||||||
|
OnExecute = actTiendaExecute
|
||||||
|
OnUpdate = actTiendaUpdate
|
||||||
|
end
|
||||||
|
object actPais: TAction
|
||||||
|
Caption = 'Pa'#237's'
|
||||||
|
OnExecute = actPaisExecute
|
||||||
|
OnUpdate = actPaisUpdate
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited GridPNGImageList: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000000097048597300000B1300000B1301009A9C1800000A4F694343505068
|
||||||
|
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
|
||||||
|
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
|
||||||
|
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
|
||||||
|
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
|
||||||
|
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
|
||||||
|
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
|
||||||
|
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
|
||||||
|
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
|
||||||
|
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
|
||||||
|
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
|
||||||
|
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
|
||||||
|
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
|
||||||
|
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
|
||||||
|
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
|
||||||
|
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
|
||||||
|
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
|
||||||
|
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
|
||||||
|
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
|
||||||
|
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
|
||||||
|
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
|
||||||
|
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
|
||||||
|
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
|
||||||
|
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
|
||||||
|
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
|
||||||
|
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
|
||||||
|
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
|
||||||
|
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
|
||||||
|
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
|
||||||
|
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
|
||||||
|
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
|
||||||
|
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
|
||||||
|
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
|
||||||
|
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
|
||||||
|
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
|
||||||
|
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
|
||||||
|
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
|
||||||
|
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
|
||||||
|
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
|
||||||
|
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
|
||||||
|
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
|
||||||
|
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
|
||||||
|
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
|
||||||
|
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
|
||||||
|
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
|
||||||
|
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
|
||||||
|
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
|
||||||
|
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
|
||||||
|
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
|
||||||
|
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
|
||||||
|
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
|
||||||
|
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
|
||||||
|
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
|
||||||
|
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
|
||||||
|
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
|
||||||
|
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
|
||||||
|
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
|
||||||
|
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
|
||||||
|
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
|
||||||
|
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
|
||||||
|
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
|
||||||
|
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
|
||||||
|
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
|
||||||
|
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
|
||||||
|
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
|
||||||
|
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
|
||||||
|
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
|
||||||
|
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
|
||||||
|
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
|
||||||
|
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
|
||||||
|
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
|
||||||
|
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
|
||||||
|
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
|
||||||
|
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
|
||||||
|
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
|
||||||
|
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
|
||||||
|
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
|
||||||
|
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
|
||||||
|
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
|
||||||
|
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
|
||||||
|
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
|
||||||
|
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
|
||||||
|
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
|
||||||
|
D0A7FB93199393FF040398F3FC63332DDB000000434944415478DA63FCFFFF3F
|
||||||
|
03258011D900464646ACA601D530126D00BA6298A1B80C21CA0090183639925C
|
||||||
|
80CB3B040DC0E69A510306BD010C04005E03C801036F00008D248BE16F9028BA
|
||||||
|
0000000049454E44AE426082}
|
||||||
|
Name = 'Icono_header'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD252000001774944415478DA
|
||||||
|
63FCFFFF3FC384055BFF3390010A12BC1919610600394469FAF3F71FC3EF3F7F
|
||||||
|
192CBCB3192EEE99856A80C35E4B14C5079C8F836964F1ED368718662EDFC530
|
||||||
|
7FC9464C03F0815FBFFF826D06D10BD7EDC36E00BA0BB0815586BB18966D3A84
|
||||||
|
DB0098B341E01F50EECF9F7F709B034F3B312CD3DDC1B06ADB11FC06C05CB2CB
|
||||||
|
EE0883DB211BB8CD61E7DD18166A6E6558BFEB387E03D06DFEFDE70F981F75D9
|
||||||
|
8361AEEA2686CDFB4EE136609FD33106A77D56605BD79BEE033B1B044036C75F
|
||||||
|
F76698AEB88161E7A133B80D00391BDDE69FBFFE30FC028AA5DFF567E8975CCD
|
||||||
|
70F0D4454C0372623D195C0E58A384F862ED6D0CB157BDC0EC2972EB18721E05
|
||||||
|
317489AE643876EE32A601E9916E605BFEFCFE07B639E2A23BC37CF52D60B1DF
|
||||||
|
BF21B8F0792843ABE03286D397AE611A9018EA0CD70CF202CC6674D0C0BB98E1
|
||||||
|
C2B59B9806C40638C23583FC8D6CF36F688C80F0BF7FFF192EDDB8856940848F
|
||||||
|
2DC38A2D8789CE89180680044805200300115980F04CC063740000000049454E
|
||||||
|
44AE426082}
|
||||||
|
Name = 'PngImage2'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD25200000A4F694343505068
|
||||||
|
6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
|
||||||
|
DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
|
||||||
|
114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
|
||||||
|
7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
|
||||||
|
11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
|
||||||
|
07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
|
||||||
|
801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
|
||||||
|
7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
|
||||||
|
450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
|
||||||
|
305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
|
||||||
|
99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
|
||||||
|
99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
|
||||||
|
BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
|
||||||
|
EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
|
||||||
|
E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
|
||||||
|
814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
|
||||||
|
582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
|
||||||
|
00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
|
||||||
|
6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
|
||||||
|
44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
|
||||||
|
801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
|
||||||
|
3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
|
||||||
|
21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
|
||||||
|
46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
|
||||||
|
74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
|
||||||
|
6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
|
||||||
|
128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
|
||||||
|
51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
|
||||||
|
37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
|
||||||
|
DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
|
||||||
|
E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
|
||||||
|
B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
|
||||||
|
DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
|
||||||
|
197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
|
||||||
|
0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
|
||||||
|
E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
|
||||||
|
C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
|
||||||
|
D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
|
||||||
|
744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
|
||||||
|
AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
|
||||||
|
53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
|
||||||
|
4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
|
||||||
|
35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
|
||||||
|
8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
|
||||||
|
4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
|
||||||
|
6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
|
||||||
|
A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
|
||||||
|
67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
|
||||||
|
DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
|
||||||
|
1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
|
||||||
|
9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
|
||||||
|
D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
|
||||||
|
EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
|
||||||
|
7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
|
||||||
|
F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
|
||||||
|
0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
|
||||||
|
D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
|
||||||
|
C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
|
||||||
|
17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
|
||||||
|
8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
|
||||||
|
91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
|
||||||
|
31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
|
||||||
|
C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
|
||||||
|
2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
|
||||||
|
B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
|
||||||
|
6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
|
||||||
|
1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
|
||||||
|
66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
|
||||||
|
CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
|
||||||
|
61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
|
||||||
|
FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
|
||||||
|
D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
|
||||||
|
F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
|
||||||
|
625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
|
||||||
|
F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
|
||||||
|
E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
|
||||||
|
9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
|
||||||
|
DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
|
||||||
|
D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
|
||||||
|
058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
|
||||||
|
AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
|
||||||
|
1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
|
||||||
|
D0A7FB93199393FF040398F3FC63332DDB000001E64944415478DA63FCFFFF3F
|
||||||
|
C394C53BFE33900172623D18196106003958157D79F594E1EDFC1E860F1F3E30
|
||||||
|
000906B5C6A90C0CFCA20CD6FEF90CE7764C4335C065BF2D8AE63D8E87191E76
|
||||||
|
163208282830F0FFF8C0F0F1C103865DD76E33BCF4A96198B77413A601D8C0C5
|
||||||
|
CA44067DA0010C2736005DF080E1C8673E860BF133B11B80EE0210E85D25C2A0
|
||||||
|
AF0134E0C002868F405F6CF9F28FE17DDE4ADC06809C0D03FF807217FB6A1884
|
||||||
|
DE5C6390BF7080E123D01B9B1D2B183E28DAE33700E6926D3607181AE77932A4
|
||||||
|
DDE0061AB081E122D005DFFA0F329C7DFC0DBF01209BFFFCF9C7F0FBCF5F30BE
|
||||||
|
E8A7C560F0E301C3EC9F2C0C411B9F336C3B7006B701BB1C0E31B81DB003BB60
|
||||||
|
8DC92E8690336E0C4A47BF30746FBDC09060ABC4D091799C61F79173B80D0039
|
||||||
|
1B663308835CF2F3D71F868B39C10C93F3FE30F44AAE60387CFA32A60119516E
|
||||||
|
0C1E87EC51626081D66686846BBE6076F5CD108656F5350C1DA2CB184E9CBF8A
|
||||||
|
6940729833DC46101D7DC98B618EDA4630FBC7C5830C7CD78F32B4F21D6648B4
|
||||||
|
5CC370F6F20D4C03E2821C50020E663308CC3D65C2200F4C07131F3030182E3E
|
||||||
|
C370E9FA6D4C03A2FCEC50FC0D66FF86F0DF6E9BCB7079763F83727C11038F53
|
||||||
|
24C3959B77300D08F5B26658BDED28D13911C3009000A900640000B9248BF0E9
|
||||||
|
9199330000000049454E44AE426082}
|
||||||
|
Name = 'PngImage1'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000000097048597300000AEB00000AEB01828B0D5A0000027F4944415478DA
|
||||||
|
95926D48535118C79FDB268AA54485D62C4C50962CDC87F5416D9AB966CEA440
|
||||||
|
A4E84D828C304C89B217DB87D00F65252B69422F9A4161D6A0507C6D595A6450
|
||||||
|
83CC55787129CE19949B6DD3DDEDDE9D73BABB561835D3030FCF39E739FFDFF3
|
||||||
|
C2A1608EF5A1467A415632783A589C100254B0A0EB5A623A9392DCD365B89DBE
|
||||||
|
FF3CBC5830C0DD9DD726922B34EFDAEB5B53F75972170470D4C8E461DB724D78
|
||||||
|
091139AC66F4FC5E9BA24007FDF3064C75E6DE7DE94BD8DBDC4A834615014B5D
|
||||||
|
BD8D6985E37BE6056074D2B544934357DCFA1CD2FBEA1B6C908742E96EAFBFFB
|
||||||
|
7E5FE2A15A18FA2FC0F978B35E9CBAE94895EE2DB474D82053B918CA4BA2A1BF
|
||||||
|
D37823B3D879784E80BB36298ADA98368C97937043F3185CACA1E164F12AD89E
|
||||||
|
1509132316E659BB39A14807B6A000E74365A5282D43EB67BFC020FD1D76159A
|
||||||
|
C0502785D8984580B8691830BEA9561F634EFC1340AAA4111E55C60817859611
|
||||||
|
E4038EF34256FE6BE86C5A0F807D4010035F2DA3EE1EA32DEEA81EEC7F0126EF
|
||||||
|
288E87A8D597389F8DC28280858ACB9FE06C690CBFF702E60DB153E463EF70C5
|
||||||
|
D632EEDC1F00FA6A7CA824397D888B46AB671EF300CC826DDC092B5710411CB0
|
||||||
|
406C62D86EEFEA72C69DAA07F76FC0645DD241B15A7D93E3C6A85FE2471D5E68
|
||||||
|
6872C1CE1C2FE46BF0AC2A1842F7B9CBB2CFF8AB05007900A26949819995E075
|
||||||
|
184D43A0FF400B95575CD0FED4010A9907AAB5E1BC9801EC9FA9C261656D0346
|
||||||
|
7FFC8106E2A55C7A591EA551197CC84A1121BB4FC8346AF540CB1307A8950462
|
||||||
|
25E8670B8CD01E6611B198C445D9E5DC75EABD7E4DA32B322C05630F3F15BE54
|
||||||
|
82788F788FF9E9FB679D9110C781FBC077B753433BB478CB0F7C3B8CF0987D51
|
||||||
|
CF0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage3'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
|
||||||
|
63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
|
||||||
|
CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
|
||||||
|
7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
|
||||||
|
EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
|
||||||
|
B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
|
||||||
|
FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
|
||||||
|
3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
|
||||||
|
9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
|
||||||
|
E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
|
||||||
|
C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
|
||||||
|
CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
|
||||||
|
4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
|
||||||
|
86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
|
||||||
|
A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
|
||||||
|
413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
|
||||||
|
49454E44AE426082}
|
||||||
|
Name = 'PngImage4'
|
||||||
|
Background = clWindow
|
||||||
|
end
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
|
||||||
|
8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
|
||||||
|
AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
|
||||||
|
EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
|
||||||
|
17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
|
||||||
|
40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
|
||||||
|
750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
|
||||||
|
6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
|
||||||
|
21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
|
||||||
|
5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
|
||||||
|
90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
|
||||||
|
0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
|
||||||
|
EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
|
||||||
|
18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
|
||||||
|
3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
|
||||||
|
97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage5'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
inherited cxStyleRepository1: TcxStyleRepository
|
||||||
|
Left = 216
|
||||||
|
Top = 160
|
||||||
|
object cxStylePENDIENTESYFACTURADASPLUS: TcxStyle
|
||||||
|
AssignedValues = [svTextColor]
|
||||||
|
TextColor = clBlue
|
||||||
|
end
|
||||||
|
object cxStyleTERMINADO: TcxStyle
|
||||||
|
AssignedValues = [svTextColor]
|
||||||
|
TextColor = clGrayText
|
||||||
|
end
|
||||||
|
object cxStylePENDIENTES: TcxStyle
|
||||||
|
AssignedValues = [svTextColor]
|
||||||
|
TextColor = clRed
|
||||||
|
end
|
||||||
|
object cxStylePENDIENTESYFACTURADASOK: TcxStyle
|
||||||
|
AssignedValues = [svTextColor]
|
||||||
|
TextColor = clBlack
|
||||||
|
end
|
||||||
|
object cxStylePENDIENTESREVISION: TcxStyle
|
||||||
|
AssignedValues = [svTextColor]
|
||||||
|
TextColor = clOlive
|
||||||
|
end
|
||||||
|
object cxStylePENDIENTESREVISIONWEB: TcxStyle
|
||||||
|
AssignedValues = [svTextColor]
|
||||||
|
TextColor = clGreen
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,541 @@
|
|||||||
|
unit uViewContratosClienteParaCompra;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
||||||
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, cxImageComboBox, ImgList, Controls, PngImageList,
|
||||||
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
||||||
|
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
|
||||||
|
cxGrid, uBizContratosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
|
||||||
|
TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
|
||||||
|
uCustomView, uViewBase, cxTextEdit;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewContratosCliente = interface(IViewGrid)
|
||||||
|
['{89FCCB14-46E9-4B45-BADD-847C881CCE1A}']
|
||||||
|
function GetContratos: IBizContratoCliente;
|
||||||
|
procedure SetContratos(const Value: IBizContratoCliente);
|
||||||
|
property Contratos: IBizContratoCliente read GetContratos write SetContratos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewContratosClienteParaCompra = class(TfrViewGrid, IViewContratosCliente)
|
||||||
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||||
|
cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn;
|
||||||
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
||||||
|
cxGridViewSITUACION: TcxGridDBColumn;
|
||||||
|
cxGridViewFECHA_CONTRATO: TcxGridDBColumn;
|
||||||
|
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
|
||||||
|
cxGridLevelPendientes: TcxGridLevel;
|
||||||
|
cxGridLevelTerminados: TcxGridLevel;
|
||||||
|
cxStylePENDIENTESYFACTURADASPLUS: TcxStyle;
|
||||||
|
actCliente: TAction;
|
||||||
|
TBXSeparatorItem2: TTBXSeparatorItem;
|
||||||
|
TBXItem3: TTBXItem;
|
||||||
|
cxGridViewNIF_CIF: TcxGridDBColumn;
|
||||||
|
cxGridViewINCIDENCIAS: TcxGridDBColumn;
|
||||||
|
cxStyleTERMINADO: TcxStyle;
|
||||||
|
cxGridViewTIPO_CONTRATO: TcxGridDBColumn;
|
||||||
|
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewFACTURA_ASOCIADA: TcxGridDBColumn;
|
||||||
|
cxStylePENDIENTES: TcxStyle;
|
||||||
|
cxGridViewIMPORTE_IVA: TcxGridDBColumn;
|
||||||
|
cxGridViewIVA: TcxGridDBColumn;
|
||||||
|
cxGridViewBASE_IMPONIBLE: TcxGridDBColumn;
|
||||||
|
cxGridViewNOMBRE_COMERCIAL_CLIENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
|
||||||
|
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||||
|
TBXItem2: TTBXItem;
|
||||||
|
actProcedencia: TAction;
|
||||||
|
cxGridViewVENDEDOR: TcxGridDBColumn;
|
||||||
|
cxGridViewBASE_IMPONIBLE_FACTURAS: TcxGridDBColumn;
|
||||||
|
cxStylePENDIENTESYFACTURADASOK: TcxStyle;
|
||||||
|
cxGridViewTIENDA: TcxGridDBColumn;
|
||||||
|
cxGridLevelPendientesRevisar: TcxGridLevel;
|
||||||
|
cxStylePENDIENTESREVISION: TcxStyle;
|
||||||
|
cxGridViewENVIADA_REVISADA: TcxGridDBColumn;
|
||||||
|
cxGridLevelCancelados: TcxGridLevel;
|
||||||
|
cxGridViewPROVINCIA: TcxGridDBColumn;
|
||||||
|
actProvincia: TAction;
|
||||||
|
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||||
|
TBXItem4: TTBXItem;
|
||||||
|
cxGridViewAGENTE: TcxGridDBColumn;
|
||||||
|
cxGridViewDELEGACION: TcxGridDBColumn;
|
||||||
|
actComercial: TAction;
|
||||||
|
actDelegacion: TAction;
|
||||||
|
TBXSeparatorItem4: TTBXSeparatorItem;
|
||||||
|
TBXSeparatorItem5: TTBXSeparatorItem;
|
||||||
|
TBXItem5: TTBXItem;
|
||||||
|
TBXItem6: TTBXItem;
|
||||||
|
cxGridViewINSTALADOR: TcxGridDBColumn;
|
||||||
|
actInstalador: TAction;
|
||||||
|
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||||
|
TBXItem7: TTBXItem;
|
||||||
|
actTienda: TAction;
|
||||||
|
TBXSeparatorItem7: TTBXSeparatorItem;
|
||||||
|
TBXItem8: TTBXItem;
|
||||||
|
cxGridViewPAIS: TcxGridDBColumn;
|
||||||
|
cxGridViewIDIOMA: TcxGridDBColumn;
|
||||||
|
actPais: TAction;
|
||||||
|
TBXSeparatorItem8: TTBXSeparatorItem;
|
||||||
|
TBXItem9: TTBXItem;
|
||||||
|
cxGridViewDTO: TcxGridDBColumn;
|
||||||
|
cxGridViewIMPORTE_NETO: TcxGridDBColumn;
|
||||||
|
cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
|
||||||
|
cxStylePENDIENTESREVISIONWEB: TcxStyle;
|
||||||
|
cxGridViewREFERENCIA_ABETO: TcxGridDBColumn;
|
||||||
|
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||||
|
TcxGridLevel);
|
||||||
|
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||||
|
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out
|
||||||
|
AStyle: TcxStyle);
|
||||||
|
procedure actClienteExecute(Sender: TObject);
|
||||||
|
procedure actClienteUpdate(Sender: TObject);
|
||||||
|
procedure cxGridViewICONOCustomDrawCell(Sender: TcxCustomGridTableView;
|
||||||
|
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||||||
|
var ADone: Boolean);
|
||||||
|
procedure cxGridViewINCIDENCIASACTIVASGetCellHint(
|
||||||
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||||
|
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
|
||||||
|
var AHintText: TCaption; var AIsHintMultiLine: Boolean;
|
||||||
|
var AHintTextRect: TRect);
|
||||||
|
procedure cxGridViewDataControllerCompare(
|
||||||
|
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||||
|
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||||
|
procedure actProcedenciaExecute(Sender: TObject);
|
||||||
|
procedure actProcedenciaUpdate(Sender: TObject);
|
||||||
|
procedure actProvinciaExecute(Sender: TObject);
|
||||||
|
procedure actProvinciaUpdate(Sender: TObject);
|
||||||
|
procedure actComercialExecute(Sender: TObject);
|
||||||
|
procedure actComercialUpdate(Sender: TObject);
|
||||||
|
procedure actDelegacionExecute(Sender: TObject);
|
||||||
|
procedure actDelegacionUpdate(Sender: TObject);
|
||||||
|
procedure actInstaladorExecute(Sender: TObject);
|
||||||
|
procedure actInstaladorUpdate(Sender: TObject);
|
||||||
|
procedure actTiendaExecute(Sender: TObject);
|
||||||
|
procedure actTiendaUpdate(Sender: TObject);
|
||||||
|
procedure actPaisExecute(Sender: TObject);
|
||||||
|
procedure actPaisUpdate(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
//Filtros relativos a la vista
|
||||||
|
procedure AnadirFiltroSituaciones;
|
||||||
|
procedure AnadirFiltroFechas;
|
||||||
|
|
||||||
|
protected
|
||||||
|
FContratos: IBizContratoCliente;
|
||||||
|
function GetContratos: IBizContratoCliente;
|
||||||
|
procedure SetContratos(const Value: IBizContratoCliente);
|
||||||
|
public
|
||||||
|
procedure AnadirOtrosFiltros; override;
|
||||||
|
procedure ConfigView; override;
|
||||||
|
property Contratos: IBizContratoCliente read GetContratos write SetContratos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, variants, uDataModuleContratosCliente, schContratosClienteClient_Intf,
|
||||||
|
uViewGridBase, uFactuGES_App,
|
||||||
|
//uReferenciasUtils,
|
||||||
|
cxVariants;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actClienteExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (cxGridViewNOMBRE.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewNOMBRE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewNOMBRE.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewNOMBRE.GroupIndex := -1;
|
||||||
|
cxGridViewNOMBRE.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actClienteUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actComercialExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
{ if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewAGENTE.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewAGENTE.GroupIndex := -1;
|
||||||
|
cxGridViewAGENTE.Visible := True;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actComercialUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
// (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actDelegacionExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (cxGridViewDELEGACION.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewDELEGACION.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewDELEGACION.GroupIndex := -1;
|
||||||
|
cxGridViewDELEGACION.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actDelegacionUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actInstaladorExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (cxGridViewINSTALADOR.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewINSTALADOR.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewINSTALADOR.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewINSTALADOR.GroupIndex := -1;
|
||||||
|
cxGridViewINSTALADOR.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actInstaladorUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Checked := not (cxGridViewINSTALADOR.GroupIndex < 0);
|
||||||
|
(Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO);
|
||||||
|
(Sender as TAction).Visible := (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actPaisExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (cxGridViewPAIS.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewPAIS.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewPAIS.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewPAIS.GroupIndex := -1;
|
||||||
|
cxGridViewPAIS.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actPaisUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Checked := not (cxGridViewPAIS.GroupIndex < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actProcedenciaExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewPROCEDENCIA_CLIENTE.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewPROCEDENCIA_CLIENTE.GroupIndex := -1;
|
||||||
|
cxGridViewPROCEDENCIA_CLIENTE.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actProcedenciaUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actProvinciaExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (cxGridViewPROVINCIA.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewPROVINCIA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewPROVINCIA.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewPROVINCIA.GroupIndex := -1;
|
||||||
|
cxGridViewPROVINCIA.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actProvinciaUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actTiendaExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (cxGridViewTIENDA.GroupIndex < 0) then
|
||||||
|
begin
|
||||||
|
cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
|
||||||
|
cxGridViewTIENDA.Visible := False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cxGridViewTIENDA.GroupIndex := -1;
|
||||||
|
cxGridViewTIENDA.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.actTiendaUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.AnadirFiltroFechas;
|
||||||
|
var
|
||||||
|
Columna: TcxGridDBColumn;
|
||||||
|
Fecha1, Fecha2: Variant;
|
||||||
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
|
begin
|
||||||
|
Fecha1 := frViewFiltroBase1.edtFechaIniFiltro.EditValue;
|
||||||
|
Fecha2 := frViewFiltroBase1.edtFechaFinFiltro.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(Fecha1)
|
||||||
|
and not VarIsNull(Fecha2) then
|
||||||
|
begin
|
||||||
|
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||||
|
FFiltro := AddFilterGrid(fboAnd);
|
||||||
|
|
||||||
|
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_CONTRATO');
|
||||||
|
FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.AnadirFiltroSituaciones;
|
||||||
|
var
|
||||||
|
FFiltro : TcxFilterCriteriaItemList;
|
||||||
|
ACriterioDoble: TcxFilterCriteriaItemList;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FFiltro := AddFilterGrid(fboAnd);
|
||||||
|
|
||||||
|
case cxGrid.ActiveLevel.Index of
|
||||||
|
1 : begin
|
||||||
|
FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
|
||||||
|
ACriterioDoble := FFiltro.AddItemList(fboOr);
|
||||||
|
ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '2', '2');
|
||||||
|
ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '10', '10');
|
||||||
|
ACriterioDoble.AddItem(cxGridViewENVIADA_REVISADA, foEqual, '11', '11');
|
||||||
|
end;
|
||||||
|
2 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_PENDIENTE, SITUACION_CONTRATO_PENDIENTE);
|
||||||
|
3 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_TERMINADO, SITUACION_CONTRATO_TERMINADO);
|
||||||
|
4 : FFiltro.AddItem(cxGridViewSITUACION, foEqual, SITUACION_CONTRATO_CANCELADO, SITUACION_CONTRATO_CANCELADO);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.AnadirOtrosFiltros;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
AnadirFiltroSituaciones;
|
||||||
|
AnadirFiltroFechas;
|
||||||
|
|
||||||
|
//Finalmente activamos el filtro si tenemos algo
|
||||||
|
if cxGridView.DataController.Filter.IsEmpty then
|
||||||
|
cxGridView.DataController.Filter.Active := False
|
||||||
|
else
|
||||||
|
cxGridView.DataController.Filter.Active := True;
|
||||||
|
cxGrid.ActiveLevel.GridView := cxGridView;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.ConfigView;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
cxGridLevelPendientesRevisar.Visible := False;
|
||||||
|
|
||||||
|
cxGridViewTIENDA.Visible := True;
|
||||||
|
cxGridViewTIENDA.VisibleForCustomization := True;
|
||||||
|
actTienda.Visible := True;
|
||||||
|
|
||||||
|
{
|
||||||
|
cxGridViewAGENTE.Visible := False;
|
||||||
|
cxGridViewAGENTE.VisibleForCustomization := False;
|
||||||
|
actComercial.Visible := False;
|
||||||
|
}
|
||||||
|
cxGridViewDELEGACION.Visible := False;
|
||||||
|
cxGridViewDELEGACION.VisibleForCustomization := False;
|
||||||
|
actDelegacion.Visible := False;
|
||||||
|
{
|
||||||
|
cxGridViewINSTALADOR.Visible := False;
|
||||||
|
cxGridViewINSTALADOR.VisibleForCustomization := False;
|
||||||
|
actInstalador.Visible := False;
|
||||||
|
}
|
||||||
|
//FILTRO DE EMPRESAS TIENDA
|
||||||
|
if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
|
||||||
|
begin
|
||||||
|
cxGridLevelPendientesRevisar.Visible := True;
|
||||||
|
|
||||||
|
cxGridViewTIENDA.Visible := False;
|
||||||
|
cxGridViewTIENDA.VisibleForCustomization := False;
|
||||||
|
actTienda.Visible := False;
|
||||||
|
{
|
||||||
|
cxGridViewINSTALADOR.Visible := True;
|
||||||
|
cxGridViewINSTALADOR.VisibleForCustomization := True;
|
||||||
|
actInstalador.Visible := True;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
//FILTRO DE EMPRESAS COMERCIALES
|
||||||
|
if ((AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO)
|
||||||
|
or (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_GRADEN)) then
|
||||||
|
begin
|
||||||
|
{
|
||||||
|
cxGridViewAGENTE.Visible := True;
|
||||||
|
cxGridViewAGENTE.VisibleForCustomization := True;
|
||||||
|
actComercial.Visible := True;
|
||||||
|
}
|
||||||
|
cxGridViewDELEGACION.Visible := True;
|
||||||
|
cxGridViewDELEGACION.VisibleForCustomization := True;
|
||||||
|
actDelegacion.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarFiltro;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.cxGridViewDataControllerCompare(
|
||||||
|
ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
|
||||||
|
AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
{
|
||||||
|
if (AItemIndex = cxGridViewREFERENCIA.Index) and
|
||||||
|
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
|
||||||
|
Compare := CompararReferencias(V1, V2)
|
||||||
|
else
|
||||||
|
Compare := VarCompare(V1, V2);
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.cxGridViewICONOCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
{var
|
||||||
|
R : TRect;}
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
{ R := AViewInfo.ContentBounds;
|
||||||
|
ACanvas.FillRect(R);
|
||||||
|
|
||||||
|
if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
|
||||||
|
cxGridViewINCIDENCIASACTIVAS.Index] = 'Sin incidencias') then
|
||||||
|
ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 1)
|
||||||
|
else
|
||||||
|
ACanvas.DrawImage(GridPNGImageList, R.Left + 2, R.Top + 2, 2);
|
||||||
|
ADone := True;}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.cxGridViewINCIDENCIASACTIVASGetCellHint(
|
||||||
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
||||||
|
ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
|
||||||
|
var AHintText: TCaption; var AIsHintMultiLine: Boolean;
|
||||||
|
var AHintTextRect: TRect);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (ARecord.DisplayTexts[Sender.Index] <> 'Sin incidencias') then
|
||||||
|
begin
|
||||||
|
AIsHintMultiLine := True;
|
||||||
|
if not VarIsNull(ARecord.Values[cxGridViewINCIDENCIAS.Index]) then
|
||||||
|
AHintText := ARecord.Values[cxGridViewINCIDENCIAS.Index];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.cxGridViewStylesGetContentStyle(Sender:
|
||||||
|
TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
|
||||||
|
TcxCustomGridTableItem; out AStyle: TcxStyle);
|
||||||
|
var
|
||||||
|
IndiceCol: Integer;
|
||||||
|
IndiceCol2: Integer;
|
||||||
|
IndiceCol3: Integer;
|
||||||
|
IndiceCol4: Integer;
|
||||||
|
IndiceCol5: integer;
|
||||||
|
ASituacion: string;
|
||||||
|
AFacturas: string;
|
||||||
|
AEnviadasRevisadas: Integer;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if Assigned(ARecord) then
|
||||||
|
begin
|
||||||
|
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteSITUACION).Index;
|
||||||
|
IndiceCol2 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteFACTURA_ASOCIADA).Index;
|
||||||
|
IndiceCol3 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE_FACTURAS).Index;
|
||||||
|
IndiceCol4 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteBASE_IMPONIBLE).Index;
|
||||||
|
IndiceCol5 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_ContratosClienteENVIADA_REVISADA).Index;
|
||||||
|
ASituacion := VarToStr(ARecord.DisplayTexts[IndiceCol]);
|
||||||
|
AFacturas := VarToStr(ARecord.DisplayTexts[IndiceCol2]);
|
||||||
|
|
||||||
|
|
||||||
|
//Por aqui pasa muchas veces con distintos componentes del gird, de hecho algunos no tienen el elemento AStyle y si le asignamos algo por defecto como estaba
|
||||||
|
//peta estrepitosamente, hay que asegurarse que el componente que se dibuja tiene AStyle, en el resto no falla, porque no asignamos estile si no cumple ninguna
|
||||||
|
//situación, así asignamos un estile por defecto y lo cambiamos según condiciones.
|
||||||
|
if Assigned(AStyle) then
|
||||||
|
begin
|
||||||
|
AStyle.TextColor := cxStylePENDIENTES.TextColor;
|
||||||
|
if ASituacion = SITUACION_CONTRATO_PENDIENTE then
|
||||||
|
begin
|
||||||
|
//colores por facturacion
|
||||||
|
if (Afacturas <> '') then
|
||||||
|
if (ARecord.Values[IndiceCol3] < ARecord.Values[IndiceCol4]) then
|
||||||
|
AStyle.TextColor := cxStylePENDIENTESYFACTURADASPLUS.TextColor
|
||||||
|
else if (ARecord.Values[IndiceCol3] >= ARecord.Values[IndiceCol4]) then
|
||||||
|
AStyle.TextColor := cxStylePENDIENTESYFACTURADASOK.TextColor;
|
||||||
|
|
||||||
|
//colores por recepción del pedido
|
||||||
|
if (ARecord.Values[IndiceCol5] = 2) then
|
||||||
|
AStyle.TextColor := cxStylePENDIENTESREVISION.TextColor;
|
||||||
|
if ((ARecord.Values[IndiceCol5] = 10)
|
||||||
|
or (ARecord.Values[IndiceCol5] = 11)) then
|
||||||
|
AStyle.TextColor := cxStylePENDIENTESREVISIONWEB.TextColor;
|
||||||
|
end
|
||||||
|
else if (ASituacion = SITUACION_CONTRATO_TERMINADO)
|
||||||
|
or (ASituacion = SITUACION_CONTRATO_CANCELADO) then
|
||||||
|
AStyle.TextColor := cxStyleTERMINADO.TextColor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewContratosClienteParaCompra.GetContratos: IBizContratoCliente;
|
||||||
|
begin
|
||||||
|
Result := FContratos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContratosClienteParaCompra.SetContratos(const Value: IBizContratoCliente);
|
||||||
|
begin
|
||||||
|
FContratos := Value;
|
||||||
|
if Assigned(FContratos) then
|
||||||
|
dsDataSource.DataTable := FContratos.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -225,7 +225,7 @@ var
|
|||||||
ADireccion : IBizDireccionesContacto;
|
ADireccion : IBizDireccionesContacto;
|
||||||
begin
|
begin
|
||||||
if FCliente.Direcciones.RecordCount > 0 then
|
if FCliente.Direcciones.RecordCount > 0 then
|
||||||
ADireccion := FClientesController.ElegirDireccionEntrega(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
|
ADireccion := FClientesController.ElegirDireccion(FCliente, 'El cliente dispone de varias direcciones. Seleccione la que quiere utilizar.')
|
||||||
else begin
|
else begin
|
||||||
ADireccion := FDireccionesController.Nuevo;
|
ADireccion := FDireccionesController.Nuevo;
|
||||||
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
|
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);
|
||||||
|
|||||||
@ -0,0 +1,678 @@
|
|||||||
|
inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
|
||||||
|
Left = 454
|
||||||
|
Top = 208
|
||||||
|
Caption = 'Nueva factura de proveedor'
|
||||||
|
ClientHeight = 606
|
||||||
|
ClientWidth = 746
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnClose = CustomEditorClose
|
||||||
|
ExplicitWidth = 762
|
||||||
|
ExplicitHeight = 644
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 746
|
||||||
|
Caption = 'Nueva factura de proveedor'
|
||||||
|
ExplicitWidth = 746
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 719
|
||||||
|
Picture.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||||
|
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000001BE4944415478DA63FCFFFF3F
|
||||||
|
032D0123B2054BB79CA49A6DD13EE68C582D004A906CD8DFBFFF80F83F980601
|
||||||
|
EBC07C86733BA6E1B6C0B6683F8A0187FB1C711A8EAC765BB315C3C275FB19E6
|
||||||
|
2DDD84DF02525CEE507A9081455D89E1C08C1D0CEF0FC6312CD97890B005D87C
|
||||||
|
802E06027B3BEC189C2B0E311CD97F0BCC7FB32F8661F996C394F9E0FF3F6058
|
||||||
|
03F11FA0EB41EC3FFFFE41E3E01F98BD7ADB51D27D400C00F9E2F18E70860DBB
|
||||||
|
4E106701CCDBA480075B431936EF3D459C05F8520E3600D2B3A8508F61EB81D3
|
||||||
|
C45B802BA86096C3E4616AE7E7EB32EC387486763E989DA3CDB0E7E839DAF960
|
||||||
|
46A626C3FE131768E783A969EA0C874E5FC26F4184A729387792E3838929AA0C
|
||||||
|
C7CE5EC16F41A89B09387792E3839E042586D317AFE3B720C8D988C1ADFA0859
|
||||||
|
1674C62A309CBB7213BF057E8E060C5EB5C7F01A06B27CC1913F707E820D0BD8
|
||||||
|
82B62839868BD76FE3B7C0DB4E0F5EAEC0CA1850D9032BF393275FC1881F18BF
|
||||||
|
394296E1CACD3BF82DF0B0D6C16938884E9B760D6BF0116D818BA5164EC34116
|
||||||
|
67CDB88133E888B2C0DE541D6CD8BFBF88621966E1BFFFFFB1061F322068818D
|
||||||
|
912AB844A404E0B5A077CA428A0C8701980500619929EF09CFCE420000000049
|
||||||
|
454E44AE426082}
|
||||||
|
ExplicitLeft = 742
|
||||||
|
end
|
||||||
|
inherited lblDesbloquear: TcxLabel
|
||||||
|
Left = 621
|
||||||
|
ExplicitLeft = 621
|
||||||
|
AnchorX = 666
|
||||||
|
AnchorY = 14
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Width = 746
|
||||||
|
ExplicitWidth = 746
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
ExplicitWidth = 347
|
||||||
|
inherited TBXItem2: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXSeparatorItem1: TTBXSeparatorItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 746
|
||||||
|
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||||
|
inherited TBXItem8: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXSeparatorItem5: TTBXSeparatorItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem10: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Top = 587
|
||||||
|
Width = 746
|
||||||
|
Panels = <
|
||||||
|
item
|
||||||
|
Width = 200
|
||||||
|
end>
|
||||||
|
ExplicitTop = 587
|
||||||
|
ExplicitWidth = 746
|
||||||
|
end
|
||||||
|
inherited pgPaginas: TPageControl
|
||||||
|
Width = 740
|
||||||
|
Height = 310
|
||||||
|
OnChanging = pgPaginasChanging
|
||||||
|
ExplicitWidth = 740
|
||||||
|
ExplicitHeight = 310
|
||||||
|
inherited pagGeneral: TTabSheet
|
||||||
|
ExplicitLeft = 4
|
||||||
|
ExplicitTop = 24
|
||||||
|
ExplicitWidth = 732
|
||||||
|
ExplicitHeight = 282
|
||||||
|
inline frViewFacturaProveedor1: TfrViewFacturaProveedor
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 732
|
||||||
|
Height = 282
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 732
|
||||||
|
ExplicitHeight = 282
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 732
|
||||||
|
Height = 282
|
||||||
|
ExplicitWidth = 732
|
||||||
|
ExplicitHeight = 282
|
||||||
|
DesignSize = (
|
||||||
|
732
|
||||||
|
282)
|
||||||
|
inherited eReferencia: TcxDBTextEdit
|
||||||
|
ExplicitWidth = 191
|
||||||
|
Width = 191
|
||||||
|
end
|
||||||
|
inherited edtFecha: TcxDBDateEdit
|
||||||
|
ExplicitWidth = 191
|
||||||
|
Width = 191
|
||||||
|
end
|
||||||
|
inherited cbFormaPago: TcxDBLookupComboBox
|
||||||
|
ExplicitWidth = 53
|
||||||
|
Width = 53
|
||||||
|
end
|
||||||
|
inherited bFormasPago: TButton
|
||||||
|
Left = 183
|
||||||
|
ExplicitLeft = 183
|
||||||
|
end
|
||||||
|
inherited eReferenciaProveedor: TcxDBTextEdit
|
||||||
|
ExplicitWidth = 191
|
||||||
|
Width = 191
|
||||||
|
end
|
||||||
|
inherited frViewTienda1: TfrViewTienda
|
||||||
|
Width = 293
|
||||||
|
ExplicitWidth = 293
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 293
|
||||||
|
ExplicitWidth = 293
|
||||||
|
inherited cbTienda: TcxComboBox
|
||||||
|
ExplicitWidth = 232
|
||||||
|
Width = 232
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited edtFechaVencimiento: TcxDBDateEdit
|
||||||
|
ExplicitWidth = 191
|
||||||
|
Width = 191
|
||||||
|
end
|
||||||
|
inherited frViewProveedorFactura1: TfrViewProveedorFactura
|
||||||
|
Left = 343
|
||||||
|
Width = 350
|
||||||
|
ExplicitLeft = 343
|
||||||
|
ExplicitWidth = 350
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 350
|
||||||
|
ExplicitWidth = 350
|
||||||
|
inherited Bevel1: TBevel
|
||||||
|
Width = 242
|
||||||
|
ExplicitWidth = 242
|
||||||
|
end
|
||||||
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
ExplicitWidth = 259
|
||||||
|
Width = 259
|
||||||
|
end
|
||||||
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
ExplicitWidth = 259
|
||||||
|
Width = 259
|
||||||
|
end
|
||||||
|
inherited edtCalle: TcxDBTextEdit
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
ExplicitWidth = 259
|
||||||
|
Width = 259
|
||||||
|
end
|
||||||
|
inherited edtPoblacion: TcxDBTextEdit
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
inherited edtProvincia: TcxDBTextEdit
|
||||||
|
ExplicitWidth = 259
|
||||||
|
Width = 259
|
||||||
|
end
|
||||||
|
inherited edtCodigoPostal: TcxDBTextEdit
|
||||||
|
Left = 258
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
ExplicitLeft = 258
|
||||||
|
end
|
||||||
|
inherited Button3: TBitBtn
|
||||||
|
Left = 142
|
||||||
|
ExplicitLeft = 142
|
||||||
|
end
|
||||||
|
inherited cxDBTextEdit1: TcxDBTextEdit
|
||||||
|
ExplicitWidth = 259
|
||||||
|
Width = 259
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewObservaciones1: TfrViewObservaciones
|
||||||
|
Width = 671
|
||||||
|
Height = 228
|
||||||
|
ExplicitWidth = 671
|
||||||
|
ExplicitHeight = 228
|
||||||
|
inherited memObservaciones: TcxDBMemo
|
||||||
|
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
|
||||||
|
ExplicitWidth = 671
|
||||||
|
Height = 228
|
||||||
|
Width = 671
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cbTipoFactura: TcxDBLookupComboBox
|
||||||
|
ExplicitWidth = 209
|
||||||
|
Width = 209
|
||||||
|
end
|
||||||
|
inherited edtSituacion: TcxDBComboBox
|
||||||
|
ExplicitWidth = 294
|
||||||
|
Width = 294
|
||||||
|
end
|
||||||
|
inherited eREF_PEDIDOS_PROV: TcxDBTextEdit
|
||||||
|
ExplicitWidth = 322
|
||||||
|
Width = 322
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pagContenido: TTabSheet
|
||||||
|
Caption = 'Contenido'
|
||||||
|
ImageIndex = 1
|
||||||
|
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 732
|
||||||
|
Height = 282
|
||||||
|
Align = alClient
|
||||||
|
BiDiMode = bdLeftToRight
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBiDiMode = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 732
|
||||||
|
ExplicitHeight = 282
|
||||||
|
inherited ToolBar1: TToolBar
|
||||||
|
Width = 732
|
||||||
|
ExplicitWidth = 732
|
||||||
|
inherited ToolButton4: TToolButton
|
||||||
|
Wrap = False
|
||||||
|
end
|
||||||
|
inherited ToolButton14: TToolButton
|
||||||
|
Left = 334
|
||||||
|
Top = 0
|
||||||
|
Wrap = True
|
||||||
|
ExplicitLeft = 334
|
||||||
|
ExplicitTop = 0
|
||||||
|
end
|
||||||
|
inherited FontName: TJvFontComboBox
|
||||||
|
Left = 0
|
||||||
|
ExplicitLeft = 0
|
||||||
|
end
|
||||||
|
inherited FontSize: TEdit
|
||||||
|
Left = 145
|
||||||
|
Width = 57
|
||||||
|
ExplicitLeft = 145
|
||||||
|
ExplicitWidth = 57
|
||||||
|
end
|
||||||
|
inherited UpDown1: TUpDown
|
||||||
|
Left = 202
|
||||||
|
ExplicitLeft = 202
|
||||||
|
end
|
||||||
|
inherited ToolButton13: TToolButton
|
||||||
|
Left = 219
|
||||||
|
ExplicitLeft = 219
|
||||||
|
end
|
||||||
|
inherited ToolButton6: TToolButton
|
||||||
|
Left = 227
|
||||||
|
ExplicitLeft = 227
|
||||||
|
end
|
||||||
|
inherited ToolButton7: TToolButton
|
||||||
|
Left = 261
|
||||||
|
ExplicitLeft = 261
|
||||||
|
end
|
||||||
|
inherited ToolButton8: TToolButton
|
||||||
|
Left = 295
|
||||||
|
ExplicitLeft = 295
|
||||||
|
end
|
||||||
|
inherited ToolButton12: TToolButton
|
||||||
|
Left = 329
|
||||||
|
ExplicitLeft = 329
|
||||||
|
end
|
||||||
|
inherited ToolButton9: TToolButton
|
||||||
|
Left = 337
|
||||||
|
ExplicitLeft = 337
|
||||||
|
end
|
||||||
|
inherited ToolButton10: TToolButton
|
||||||
|
Left = 371
|
||||||
|
ExplicitLeft = 371
|
||||||
|
end
|
||||||
|
inherited ToolButton11: TToolButton
|
||||||
|
Left = 405
|
||||||
|
ExplicitLeft = 405
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 732
|
||||||
|
Height = 210
|
||||||
|
ExplicitWidth = 732
|
||||||
|
ExplicitHeight = 210
|
||||||
|
end
|
||||||
|
inherited TBXDock1: TTBXDock
|
||||||
|
Width = 732
|
||||||
|
ExplicitWidth = 732
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
ExplicitWidth = 597
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object PagContratos: TTabSheet
|
||||||
|
Caption = 'Contratos'
|
||||||
|
ImageIndex = 2
|
||||||
|
inline frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 732
|
||||||
|
Height = 282
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 732
|
||||||
|
ExplicitHeight = 282
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 732
|
||||||
|
Height = 257
|
||||||
|
ExplicitWidth = 732
|
||||||
|
ExplicitHeight = 257
|
||||||
|
end
|
||||||
|
inherited ToolBar1: TToolBar
|
||||||
|
Width = 732
|
||||||
|
ExplicitWidth = 732
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pagContabilidad: TTabSheet
|
||||||
|
Caption = 'Contabilidad'
|
||||||
|
ImageIndex = 3
|
||||||
|
TabVisible = False
|
||||||
|
ExplicitLeft = 0
|
||||||
|
ExplicitTop = 0
|
||||||
|
ExplicitWidth = 0
|
||||||
|
ExplicitHeight = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewTotales1: TfrViewTotales [4]
|
||||||
|
Left = 0
|
||||||
|
Top = 424
|
||||||
|
Width = 746
|
||||||
|
Height = 163
|
||||||
|
Align = alBottom
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 424
|
||||||
|
ExplicitWidth = 746
|
||||||
|
ExplicitHeight = 163
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 746
|
||||||
|
ExplicitWidth = 746
|
||||||
|
inherited Bevel3: TBevel
|
||||||
|
Left = 353
|
||||||
|
Top = 30
|
||||||
|
Height = 122
|
||||||
|
ExplicitLeft = 353
|
||||||
|
ExplicitTop = 30
|
||||||
|
ExplicitHeight = 122
|
||||||
|
end
|
||||||
|
inherited Bevel4: TBevel
|
||||||
|
Left = 465
|
||||||
|
Top = 57
|
||||||
|
Width = 186
|
||||||
|
ExplicitLeft = 465
|
||||||
|
ExplicitTop = 57
|
||||||
|
ExplicitWidth = 186
|
||||||
|
end
|
||||||
|
inherited Bevel2: TBevel
|
||||||
|
Top = 185
|
||||||
|
Width = 333
|
||||||
|
ExplicitTop = 185
|
||||||
|
ExplicitWidth = 333
|
||||||
|
end
|
||||||
|
inherited Bevel1: TBevel
|
||||||
|
Left = 372
|
||||||
|
Top = 185
|
||||||
|
Width = 332
|
||||||
|
ExplicitLeft = 372
|
||||||
|
ExplicitTop = 185
|
||||||
|
ExplicitWidth = 332
|
||||||
|
end
|
||||||
|
inherited ImporteDto: TcxDBCurrencyEdit
|
||||||
|
Top = 57
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitTop = 57
|
||||||
|
ExplicitWidth = 207
|
||||||
|
Width = 207
|
||||||
|
end
|
||||||
|
inherited ImporteIVA: TcxDBCurrencyEdit
|
||||||
|
Left = 536
|
||||||
|
Top = 77
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 536
|
||||||
|
ExplicitTop = 77
|
||||||
|
ExplicitWidth = 143
|
||||||
|
Width = 143
|
||||||
|
end
|
||||||
|
inherited ImporteTotal: TcxDBCurrencyEdit
|
||||||
|
Left = 466
|
||||||
|
Top = 158
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 466
|
||||||
|
ExplicitTop = 158
|
||||||
|
ExplicitWidth = 213
|
||||||
|
Width = 213
|
||||||
|
end
|
||||||
|
inherited edtDescuento: TcxDBSpinEdit
|
||||||
|
Top = 57
|
||||||
|
Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitTop = 57
|
||||||
|
end
|
||||||
|
inherited edtIVA: TcxDBSpinEdit
|
||||||
|
Left = 465
|
||||||
|
Top = 77
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 465
|
||||||
|
ExplicitTop = 77
|
||||||
|
end
|
||||||
|
inherited ImporteBase: TcxDBCurrencyEdit
|
||||||
|
Left = 465
|
||||||
|
Top = 30
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 465
|
||||||
|
ExplicitTop = 30
|
||||||
|
ExplicitWidth = 214
|
||||||
|
Width = 214
|
||||||
|
end
|
||||||
|
inherited edtRE: TcxDBSpinEdit
|
||||||
|
Left = 465
|
||||||
|
Top = 131
|
||||||
|
Properties.AssignedValues.MinValue = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 465
|
||||||
|
ExplicitTop = 131
|
||||||
|
end
|
||||||
|
inherited edtIRPF: TcxDBSpinEdit
|
||||||
|
Left = 465
|
||||||
|
Top = 104
|
||||||
|
DataBinding.DataField = 'IRPF'
|
||||||
|
Enabled = True
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
ExplicitLeft = 465
|
||||||
|
ExplicitTop = 104
|
||||||
|
end
|
||||||
|
inherited ImporteRE: TcxDBCurrencyEdit
|
||||||
|
Left = 536
|
||||||
|
Top = 131
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 536
|
||||||
|
ExplicitTop = 131
|
||||||
|
ExplicitWidth = 143
|
||||||
|
Width = 143
|
||||||
|
end
|
||||||
|
inherited ImporteIRPF: TcxDBCurrencyEdit
|
||||||
|
Left = 536
|
||||||
|
Top = 104
|
||||||
|
DataBinding.DataField = 'IMPORTE_IRPF'
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
ExplicitLeft = 536
|
||||||
|
ExplicitTop = 104
|
||||||
|
ExplicitWidth = 56
|
||||||
|
Width = 56
|
||||||
|
end
|
||||||
|
inherited eImporteNeto: TcxDBCurrencyEdit
|
||||||
|
Top = 30
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitTop = 30
|
||||||
|
ExplicitWidth = 278
|
||||||
|
Width = 278
|
||||||
|
end
|
||||||
|
inherited ePorte: TcxDBCurrencyEdit
|
||||||
|
Top = 84
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
OnEditing = frViewTotales1ePorteEditing
|
||||||
|
ExplicitTop = 84
|
||||||
|
ExplicitWidth = 278
|
||||||
|
Width = 278
|
||||||
|
end
|
||||||
|
inherited eIVA: TcxDBLookupComboBox
|
||||||
|
Top = 111
|
||||||
|
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
|
||||||
|
Style.Color = clInfoBk
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitTop = 111
|
||||||
|
ExplicitWidth = 140
|
||||||
|
Width = 140
|
||||||
|
end
|
||||||
|
inherited bTiposIVA: TButton
|
||||||
|
Left = 205
|
||||||
|
Top = 111
|
||||||
|
OnClick = frViewTotales1bTiposIVAClick
|
||||||
|
ExplicitLeft = 205
|
||||||
|
ExplicitTop = 111
|
||||||
|
end
|
||||||
|
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
|
Top = 138
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitTop = 138
|
||||||
|
ExplicitWidth = 278
|
||||||
|
Width = 278
|
||||||
|
end
|
||||||
|
inherited edtRetencion: TcxDBSpinEdit
|
||||||
|
Left = 465
|
||||||
|
Top = 200
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
ExplicitLeft = 465
|
||||||
|
ExplicitTop = 200
|
||||||
|
end
|
||||||
|
inherited edtImporteRetencion: TcxDBCurrencyEdit
|
||||||
|
Left = 536
|
||||||
|
Top = 200
|
||||||
|
Style.IsFontAssigned = True
|
||||||
|
ExplicitLeft = 536
|
||||||
|
ExplicitTop = 200
|
||||||
|
ExplicitWidth = 342
|
||||||
|
Width = 342
|
||||||
|
end
|
||||||
|
inherited edtFechaRetencion: TcxDBDateEdit
|
||||||
|
Top = 200
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitTop = 200
|
||||||
|
ExplicitWidth = 333
|
||||||
|
Width = 333
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
|
||||||
|
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group7: TdxLayoutGroup
|
||||||
|
Visible = False
|
||||||
|
inherited dxLayoutControl1Group10: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group5: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group3: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Group11: TdxLayoutGroup
|
||||||
|
inherited dxLayoutControl1Item14: TdxLayoutItem
|
||||||
|
Offsets.Bottom = 0
|
||||||
|
Offsets.Top = 0
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutControl1Group1191: TdxLayoutGroup
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited PnlComentario: TPanel [5]
|
||||||
|
Width = 746
|
||||||
|
ExplicitWidth = 746
|
||||||
|
inherited lbComentario: TLabel
|
||||||
|
Width = 736
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [9]
|
||||||
|
Left = 8
|
||||||
|
Top = 144
|
||||||
|
inherited actPrevisualizar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actImprimir: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource [10]
|
||||||
|
Left = 40
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,469 @@
|
|||||||
|
unit uEditorFacturaProveedor;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||||||
|
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||||
|
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane,
|
||||||
|
uCustomView, uViewBase, uViewTotales,
|
||||||
|
StdCtrls, pngimage, AppEvnts, JvComponentBase,
|
||||||
|
uBizFacturasProveedor, uIEditorFacturaProveedor, uFacturasProveedorController, uViewDetallesBase,
|
||||||
|
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uBizTiposIVA,
|
||||||
|
uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController,
|
||||||
|
uViewDetallesFacturaProveedor, uViewFacturaProveedor, uDAInterfaces,
|
||||||
|
cxControls, cxContainer, cxEdit, cxCheckBox, cxDBEdit, uViewListaSubCuentas,
|
||||||
|
uViewDetallesGenerico, uViewContratosFacturaProveedor, cxLabel;
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorFacturaProveedor = class(TfEditorDBItem, IEditorFacturaProveedor)
|
||||||
|
frViewTotales1: TfrViewTotales;
|
||||||
|
frViewFacturaProveedor1: TfrViewFacturaProveedor;
|
||||||
|
frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor;
|
||||||
|
pagContabilidad: TTabSheet;
|
||||||
|
PagContratos: TTabSheet;
|
||||||
|
frViewContratosFacturaProveedor1: TfrViewContratosFacturaProveedor;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(
|
||||||
|
Sender: TObject);
|
||||||
|
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure frViewProveedorFacturaedtlNombrePropertiesChange(Sender: TObject);
|
||||||
|
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
|
||||||
|
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
|
||||||
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
procedure frViewTotales1bTiposIVAClick(Sender: TObject);
|
||||||
|
procedure frViewTotales1eIVAPropertiesValidate(Sender: TObject;
|
||||||
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
|
||||||
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
procedure frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
|
||||||
|
procedure OnRecargoEquivalenciaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
|
var Error: Boolean); //Importante en este punto se deben de quitar los eventos que puedan afectar a la tabla una vez se cierre el editor.
|
||||||
|
|
||||||
|
private
|
||||||
|
procedure RecalcularPortePorUnidad;
|
||||||
|
|
||||||
|
protected
|
||||||
|
FController : IFacturasProveedorController;
|
||||||
|
FFactura: IBizFacturaProveedor;
|
||||||
|
FViewFactura: IViewFacturaProveedor;
|
||||||
|
FTiposIVAController : ITiposIVAController;
|
||||||
|
FTiposIVA: IBizTipoIVA;
|
||||||
|
function GetController : IFacturasProveedorController;
|
||||||
|
procedure SetController (const Value : IFacturasProveedorController);
|
||||||
|
function GetFactura: IBizFacturaProveedor;
|
||||||
|
procedure SetFactura(const Value: IBizFacturaProveedor);
|
||||||
|
|
||||||
|
function GetViewFactura: IViewFacturaProveedor;
|
||||||
|
procedure SetViewFactura(const Value: IViewFacturaProveedor);
|
||||||
|
|
||||||
|
property ViewFacturaProveedor: IViewFacturaProveedor read GetViewFactura write SetViewFactura;
|
||||||
|
|
||||||
|
procedure OnProveedorChanged(Sender: TObject);
|
||||||
|
|
||||||
|
procedure GuardarInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
procedure ImprimirInterno; override;
|
||||||
|
procedure PrevisualizarInterno; override;
|
||||||
|
|
||||||
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
|
public
|
||||||
|
destructor Destroy; override;
|
||||||
|
property Controller : IFacturasProveedorController read GetController write SetController;
|
||||||
|
property Factura: IBizFacturaProveedor read GetFactura write SetFactura;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
{$INCLUDE ..\..\..\FactuGES.inc}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uBizContactos, uDataModuleUsuarios, uFactuGES_App, uSubCuentasController,
|
||||||
|
uDetallesFacturaProveedorController, uProveedoresController, uDialogUtils,
|
||||||
|
uDataTableUtils, uBizDireccionesContacto, uViewProveedorFactura;
|
||||||
|
// uGenerarAlbaranesProvFacProvUtils;
|
||||||
|
|
||||||
|
|
||||||
|
{ TfEditorFacturaProveedor }
|
||||||
|
|
||||||
|
{
|
||||||
|
**************************** TfEditorFacturaProveedor ****************************
|
||||||
|
}
|
||||||
|
constructor TfEditorFacturaProveedor.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
pgPaginas.ActivePageIndex := 0;
|
||||||
|
ViewFacturaProveedor := frViewFacturaProveedor1;
|
||||||
|
FTiposIVAController := TTiposIVAController.Create;
|
||||||
|
|
||||||
|
{$IFDEF CONTABILIDAD}
|
||||||
|
frViewListaSubcuentas1.TipoSubCuenta := tCompras;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.CustomEditorClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
dsDataTable.DataTable := NIL;
|
||||||
|
frViewTotales1.DADataSource.DataTable := NIL;
|
||||||
|
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := nil;
|
||||||
|
|
||||||
|
FTiposIVA := NIL;
|
||||||
|
FTiposIVAController := Nil;
|
||||||
|
FController := NIL;
|
||||||
|
FViewFactura := NIL;
|
||||||
|
Factura := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorFacturaProveedor.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.dsDataTableDataChange(Sender: TObject;
|
||||||
|
Field: TField);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if Assigned(FFactura) and (not (FFactura.DataTable.Fetching) or
|
||||||
|
not (FFactura.DataTable.Opening) or not (FFactura.DataTable.Closing)) then
|
||||||
|
PonerTitulos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.EliminarInterno;
|
||||||
|
var
|
||||||
|
AMensaje : String;
|
||||||
|
begin
|
||||||
|
if FFactura.TIPO = CTE_TIPO_ABONO then
|
||||||
|
AMensaje := '¿Desea borrar esta factura de proveedor?'
|
||||||
|
else
|
||||||
|
AMensaje := '¿Desea borrar este abono de proveedor?';
|
||||||
|
|
||||||
|
if (Application.MessageBox(PChar(AMensaje), 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
begin
|
||||||
|
//Es el caso de querer borrar una factura pendiente cuyos recibos tienen devoluciones
|
||||||
|
if not FController.Eliminar(Factura) then
|
||||||
|
Application.MessageBox('La factura no ha podido ser eliminada porque tiene recibos con pagos o devoluciones emitidas.', 'Atención', MB_OK);
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not Assigned(FViewFactura) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Factura) then
|
||||||
|
raise Exception.Create('No hay ninguna factura asignada');
|
||||||
|
|
||||||
|
frViewTotales1.cbRecargoEquivalencia.Properties.OnValidate := OnRecargoEquivalenciaPropertiesValidate;
|
||||||
|
Factura.DataTable.Active := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.frViewProveedorFactura1edtlNombrePropertiesEditValueChanged(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
with (Sender as TcxDBTextEdit) do
|
||||||
|
Enabled := (FFactura.ID <> 0)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.frViewProveedorFacturaedtlNombrePropertiesChange(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
PonerTitulos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.frViewTotales1bTiposIVAClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FTiposIVAController.VerTodos(FTiposIVA);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.frViewTotales1edtDescuentoPropertiesValidate(
|
||||||
|
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
|
var Error: Boolean);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Factura.DESCUENTO := DisplayValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.frViewTotales1eIVAPropertiesValidate(
|
||||||
|
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
|
var Error: Boolean);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Factura.Edit;
|
||||||
|
Factura.ID_TIPO_IVA := FTiposIVA.ID; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).ID;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.frViewTotales1ePorteEditing(Sender: TObject; var CanEdit: Boolean);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if FFactura.TIPO = CTE_TIPO_ABONO then
|
||||||
|
CanEdit := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.frViewTotales1ePortePropertiesValidate(
|
||||||
|
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
|
var Error: Boolean);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if not VarIsNull(DisplayValue) and (Length(DisplayValue) > 0) then
|
||||||
|
FFactura.IMPORTE_PORTE := DisplayValue
|
||||||
|
else
|
||||||
|
FFactura.IMPORTE_PORTE := 0;
|
||||||
|
|
||||||
|
RecalcularPortePorUnidad;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorFacturaProveedor.GetController: IFacturasProveedorController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorFacturaProveedor.GetFactura: IBizFacturaProveedor;
|
||||||
|
begin
|
||||||
|
Result := FFactura;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorFacturaProveedor.GetViewFactura: IViewFacturaProveedor;
|
||||||
|
begin
|
||||||
|
Result := FViewFactura;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.GuardarInterno;
|
||||||
|
var
|
||||||
|
bEsNuevo : Boolean;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
// frViewDetallesFacturaProveedor1.SaveGridStatus; // Para guardar estado del grid (ojo lo activamos de nuevo para recuperar el foco en el grid despues de guardar no se si tendrá efecto lateral
|
||||||
|
frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
|
||||||
|
try
|
||||||
|
bEsNuevo := FFactura.EsNuevo;
|
||||||
|
|
||||||
|
{$IFDEF CONTABILIDAD}
|
||||||
|
FFactura.Edit;
|
||||||
|
FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
|
||||||
|
FFactura.ID_SUBCUENTA := frViewListaSubCuentas1.IdSubCuenta;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
FController.Guardar(FFactura);
|
||||||
|
finally
|
||||||
|
frViewDetallesFacturaProveedor1.EndUpdate;
|
||||||
|
// frViewDetallesFacturaProveedor1.RestoreGridStatus;
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if bEsNuevo then
|
||||||
|
begin
|
||||||
|
if FFactura.TIPO = CTE_TIPO_FACTURA then
|
||||||
|
ShowInfoMessage('La factura se ha dado de alta con el código ' + FFactura.REFERENCIA)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
ShowInfoMessage('El abono se ha dado de alta con el código ' + FFactura.REFERENCIA);
|
||||||
|
//Preguntamos is desea hacer una orden de devolución asociada
|
||||||
|
// if (Application.MessageBox('¿Desea crear una orden de devolución para el abono?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
// GenerarAlbaranProv(FFactura);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Modified := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.ImprimirInterno;
|
||||||
|
begin
|
||||||
|
{
|
||||||
|
inherited;
|
||||||
|
FController.Print(FFactura);
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
FDetallesController : IDetallesFacturaProveedorController;
|
||||||
|
AProveedoresController : IProveedoresController;
|
||||||
|
ADireccion : IBizDireccionesContacto;
|
||||||
|
begin
|
||||||
|
FFactura.Proveedor := frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor;
|
||||||
|
|
||||||
|
if not (FFactura.DataTable.State in dsEditModes) then
|
||||||
|
FFactura.DataTable.Edit;
|
||||||
|
|
||||||
|
//En el caso de Acana no se cambia para que el IVA y la FORMA DE PAGO por defecto sea el de la empresa.
|
||||||
|
// Actualizar IVA y RE a partir del tipo de IVA del proveedor.
|
||||||
|
{ Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
|
||||||
|
// if FFactura.Proveedor.RECARGO_EQUIVALENCIA = 1 then
|
||||||
|
// Factura.RE := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).RE
|
||||||
|
// else
|
||||||
|
// Factura.RE := 0;
|
||||||
|
}
|
||||||
|
// En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
|
||||||
|
AProveedoresController := TProveedoresController.Create;
|
||||||
|
try
|
||||||
|
case FFactura.Proveedor.Direcciones.RecordCount of
|
||||||
|
0 : //No hay direcciones secundarias asociadas
|
||||||
|
else ADireccion := AProveedoresController.ElegirDireccion(FFactura.Proveedor, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.');
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Si hay dirección de envio, copiarla al albarán y poner el coste del porte
|
||||||
|
if Assigned(ADireccion) then
|
||||||
|
begin
|
||||||
|
if not ADireccion.IDIsNull then
|
||||||
|
try
|
||||||
|
FFactura.Edit;
|
||||||
|
FFactura.IMPORTE_PORTE := ADireccion.PORTE;
|
||||||
|
FController.CopiarDireccion(ADireccion, FFactura);
|
||||||
|
finally
|
||||||
|
ADireccion := NIL;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
finally
|
||||||
|
AProveedoresController := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Si la factura tiene detalles hay que mirar si los descuentos y otros campos
|
||||||
|
// para los artículos hay que cambiarlos.
|
||||||
|
if (FFactura.Detalles.RecordCount > 0) then
|
||||||
|
FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.OnRecargoEquivalenciaPropertiesValidate(
|
||||||
|
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
|
||||||
|
var Error: Boolean);
|
||||||
|
begin
|
||||||
|
if frViewTotales1.cbRecargoEquivalencia.Checked then
|
||||||
|
Factura.RECARGO_EQUIVALENCIA := 1
|
||||||
|
else
|
||||||
|
Factura.RECARGO_EQUIVALENCIA := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject;
|
||||||
|
var AllowChange: Boolean);
|
||||||
|
var
|
||||||
|
AMensaje : String;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if (not Assigned(FFactura)) or (FFactura.ID_PROVEEDOR = ID_NULO) then
|
||||||
|
begin
|
||||||
|
if FFactura.TIPO = CTE_TIPO_FACTURA then
|
||||||
|
AMensaje := 'Antes debe elegir un proveedor para esta factura'
|
||||||
|
else
|
||||||
|
AMensaje := 'Antes debe elegir un proveedor para este abono';
|
||||||
|
ShowWarningMessage(AMensaje);
|
||||||
|
AllowChange := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.PonerTitulos(const ATitulo: string);
|
||||||
|
var
|
||||||
|
FTitulo : String;
|
||||||
|
begin
|
||||||
|
FTitulo := ATitulo;
|
||||||
|
if (FTitulo = '') and Assigned(Factura) then
|
||||||
|
begin
|
||||||
|
if Factura.EsNuevo then
|
||||||
|
if Factura.TIPO = CTE_TIPO_FACTURA then
|
||||||
|
FTitulo := 'Nueva factura de proveedor'
|
||||||
|
else
|
||||||
|
FTitulo := 'Nuevo abono de proveedor'
|
||||||
|
else
|
||||||
|
if Factura.TIPO = CTE_TIPO_FACTURA then
|
||||||
|
FTitulo := 'Factura de proveedor' + ' - ' + FFactura.Proveedor.Nombre
|
||||||
|
else
|
||||||
|
FTitulo := 'Abono de proveedor' + ' - ' + FFactura.Proveedor.Nombre
|
||||||
|
end;
|
||||||
|
|
||||||
|
inherited PonerTitulos(FTitulo);
|
||||||
|
|
||||||
|
Self.Caption := FTitulo + ' (' + AppFactuGES.EmpresaActiva.NOMBRE + ')';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.PrevisualizarInterno;
|
||||||
|
begin
|
||||||
|
{
|
||||||
|
inherited;
|
||||||
|
FController.Preview(FFactura);
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad;
|
||||||
|
begin
|
||||||
|
//Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento
|
||||||
|
//no puede ir en la clase de negocio porque no es una lógica que tenga sentido fuera del editor.
|
||||||
|
if Assigned(Controller)
|
||||||
|
and Assigned(Controller.DetallesController) then
|
||||||
|
Controller.DetallesController.DesglosarPorteDetalles(FFactura.IMPORTE_PORTE, FFactura.Detalles)
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.SetController(const Value: IFacturasProveedorController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
|
||||||
|
if Assigned(FController) then
|
||||||
|
begin
|
||||||
|
ViewFacturaProveedor.Controller := FController;
|
||||||
|
frViewDetallesFacturaProveedor1.Controller := Controller.DetallesController;
|
||||||
|
frViewContratosFacturaProveedor1.Controller := Controller.ContratosController;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.SetFactura(const Value: IBizFacturaProveedor);
|
||||||
|
begin
|
||||||
|
FFactura := Value;
|
||||||
|
|
||||||
|
if Assigned(FFactura) then
|
||||||
|
begin
|
||||||
|
dsDataTable.DataTable := FFactura.DataTable;
|
||||||
|
|
||||||
|
frViewTotales1.DADataSource.DataTable := FFactura.DataTable;
|
||||||
|
|
||||||
|
FTiposIVA := FTiposIVAController.BuscarTodos;
|
||||||
|
frViewTotales1.dsTiposIVA.DataTable := FTiposIVA.DataTable;
|
||||||
|
FTiposIVA.DataTable.Active := True;
|
||||||
|
|
||||||
|
if Assigned(FViewFactura) then
|
||||||
|
begin
|
||||||
|
frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := FFactura.Proveedor;
|
||||||
|
frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := OnProveedorChanged;
|
||||||
|
|
||||||
|
FViewFactura.Factura := FFactura;
|
||||||
|
frViewDetallesFacturaProveedor1.Detalles := FFactura.Detalles;
|
||||||
|
frViewDetallesFacturaProveedor1.Factura := FFactura; //Para poder sacar los descuento del articulos segun el proveedor seleccionado
|
||||||
|
frViewContratosFacturaProveedor1.Contratos := FFactura.Contratos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{$IFDEF CONTABILIDAD}
|
||||||
|
frViewListaSubCuentas1.eContabilizar.EditValue := FFactura.IGNORAR_CONTABILIDAD;
|
||||||
|
frViewListaSubCuentas1.ElegirSubCuenta(FFactura.ID_SUBCUENTA);
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
frViewFacturaProveedor1.frViewProveedorFactura1.OnProveedorChanged := NIL;
|
||||||
|
frViewFacturaProveedor1.frViewProveedorFactura1.Proveedor := NIL;
|
||||||
|
dsDataTable.DataTable := NIL;
|
||||||
|
frViewTotales1.DADataSource.DataTable := NIL;
|
||||||
|
frViewTotales1.dsTiposIVA.DataTable := NIL;
|
||||||
|
end
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorFacturaProveedor.SetViewFactura(const Value: IViewFacturaProveedor);
|
||||||
|
begin
|
||||||
|
FViewFactura := Value;
|
||||||
|
|
||||||
|
if Assigned(FViewFactura) and Assigned(Factura) then
|
||||||
|
FViewFactura.Factura := Factura;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
@ -0,0 +1,26 @@
|
|||||||
|
unit uIEditorInformeComprasArticulosReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
FactuGES_Intf, uIEditorInformeBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorInformeComprasArticulosReport = interface(IEditorInformeBase)
|
||||||
|
['{E54D5C61-1775-4FBC-9572-C4AF9EECBC7D}']
|
||||||
|
function GetFechaFin: Variant;
|
||||||
|
function GetFechaInicio: Variant;
|
||||||
|
function GetListaIDArticulos: TIntegerArray;
|
||||||
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
|
// function GetDesglosadoCliente: Boolean;
|
||||||
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
|
||||||
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
|
// property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,26 @@
|
|||||||
|
unit uIEditorInformeVentasArticulosReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
FactuGES_Intf, uIEditorInformeBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorInformeVentasArticulosReport = interface(IEditorInformeBase)
|
||||||
|
['{18C10591-E52F-458D-8685-6CE266E1B9AC}']
|
||||||
|
function GetFechaFin: Variant;
|
||||||
|
function GetFechaInicio: Variant;
|
||||||
|
function GetListaIDArticulos: TIntegerArray;
|
||||||
|
function GetListaIDComerciales: TIntegerArray;
|
||||||
|
// function GetDesglosadoCliente: Boolean;
|
||||||
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
|
||||||
|
property ListaIDComerciales: TIntegerArray read GetListaIDComerciales;
|
||||||
|
// property DesglosadoCliente: Boolean read GetDesglosadoCliente;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,18 @@
|
|||||||
|
unit uIViewFiltroArticulos;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uIViewParametrosInforme;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewFiltroArticulos = interface(IViewParametrosInforme)
|
||||||
|
['{286EBFA7-AF1D-4752-A727-887423B81A45}']
|
||||||
|
procedure setIdArticulo(const IdArticulo:Integer);
|
||||||
|
function getIdArticulo: Integer;
|
||||||
|
property IdArticulo : Integer read getIdArticulo write setIdArticulo;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,18 @@
|
|||||||
|
unit uIViewFiltroComerciales;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uIViewParametrosInforme;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewFiltroComerciales = interface(IViewParametrosInforme)
|
||||||
|
['{78E3C663-FBD2-4E75-B6A9-93F19C626498}']
|
||||||
|
procedure setIdComercial(const IdComercial:Integer);
|
||||||
|
function getIdComercial: Integer;
|
||||||
|
property IdComercial : Integer read getIdComercial write setIdComercial;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,245 @@
|
|||||||
|
inherited fEditorInformeComprasArticulosReport: TfEditorInformeComprasArticulosReport
|
||||||
|
Caption = 'fEditorInformeComprasArticulosReport'
|
||||||
|
ClientHeight = 655
|
||||||
|
ClientWidth = 895
|
||||||
|
ExplicitWidth = 911
|
||||||
|
ExplicitHeight = 693
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 895
|
||||||
|
ExplicitTop = 78
|
||||||
|
ExplicitWidth = 895
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 868
|
||||||
|
ExplicitLeft = 868
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Width = 895
|
||||||
|
ExplicitWidth = 895
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 895
|
||||||
|
end
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
ExplicitWidth = 616
|
||||||
|
object TBXItem58: TTBXItem [0]
|
||||||
|
Action = actRefrescar
|
||||||
|
DisplayMode = nbdmImageAndText
|
||||||
|
Images = SmallImages
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Top = 636
|
||||||
|
Width = 895
|
||||||
|
ExplicitTop = 636
|
||||||
|
ExplicitWidth = 895
|
||||||
|
end
|
||||||
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
|
Height = 531
|
||||||
|
ExplicitTop = 105
|
||||||
|
ExplicitHeight = 531
|
||||||
|
end
|
||||||
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
|
Left = 703
|
||||||
|
Width = 192
|
||||||
|
Height = 531
|
||||||
|
ExplicitLeft = 703
|
||||||
|
ExplicitWidth = 192
|
||||||
|
ExplicitHeight = 531
|
||||||
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
|
DockedWidth = 188
|
||||||
|
ExplicitWidth = 192
|
||||||
|
ExplicitHeight = 515
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
Top = 365
|
||||||
|
ExplicitTop = 365
|
||||||
|
ExplicitWidth = 188
|
||||||
|
inherited TBXButton1: TTBXButton
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 3
|
||||||
|
Top = 3
|
||||||
|
Width = 182
|
||||||
|
Height = 37
|
||||||
|
Margins.Left = 8
|
||||||
|
Margins.Top = 8
|
||||||
|
Margins.Right = 8
|
||||||
|
Margins.Bottom = 8
|
||||||
|
Align = alTop
|
||||||
|
ExplicitLeft = 3
|
||||||
|
ExplicitTop = 3
|
||||||
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 37
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewFiltroArticulos1: TfrViewFiltroArticulos
|
||||||
|
Left = 0
|
||||||
|
Top = 296
|
||||||
|
Width = 188
|
||||||
|
Height = 146
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 296
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 146
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited bElegirArticulo: TBitBtn
|
||||||
|
Width = 108
|
||||||
|
ExplicitWidth = 108
|
||||||
|
end
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited edtArticulo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 188
|
||||||
|
Height = 136
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 136
|
||||||
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
Height = 98
|
||||||
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 98
|
||||||
|
inherited Label3: TLabel
|
||||||
|
Width = 172
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 74
|
||||||
|
Top = 77
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 74
|
||||||
|
ExplicitTop = 77
|
||||||
|
ExplicitWidth = 99
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Top = 136
|
||||||
|
Width = 182
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 136
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 172
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 99
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
|
||||||
|
Left = 0
|
||||||
|
Top = 136
|
||||||
|
Width = 188
|
||||||
|
Height = 160
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 136
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 160
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited bElegirProveedor: TBitBtn
|
||||||
|
Width = 119
|
||||||
|
ExplicitWidth = 119
|
||||||
|
end
|
||||||
|
inherited edtProveedor: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 152
|
||||||
|
Width = 152
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,130 @@
|
|||||||
|
unit uEditorInformeComprasArticulosReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||||
|
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||||
|
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||||
|
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||||
|
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
|
JvExControls, JvNavigationPane, uCustomView,
|
||||||
|
uViewBase, uViewPeriodoFechas,
|
||||||
|
uViewFiltroArticulos, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeComprasArticulosReport,
|
||||||
|
uBizContactos, uViewFiltroProveedores;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorInformeComprasArticulosReport = class(TfEditorInformeBase, IEditorInformeComprasArticulosReport)
|
||||||
|
TBXItem58: TTBXItem;
|
||||||
|
frViewFiltroArticulos1: TfrViewFiltroArticulos;
|
||||||
|
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||||
|
frViewFiltroProveedores1: TfrViewFiltroProveedores;
|
||||||
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FListaIDArticulos: TIntegerArray;
|
||||||
|
FListaIDProveedores: TIntegerArray;
|
||||||
|
function GetFechaFin: Variant;
|
||||||
|
function GetFechaInicio: Variant;
|
||||||
|
function GetListaIDArticulos: TIntegerArray;
|
||||||
|
function GetListaIDProveedores: TIntegerArray;
|
||||||
|
|
||||||
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
|
public
|
||||||
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
|
||||||
|
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
|
||||||
|
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App, uStringsUtils;
|
||||||
|
|
||||||
|
{ TfEditorGestorInformesReport }
|
||||||
|
|
||||||
|
procedure TfEditorInformeComprasArticulosReport.actRefrescarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarInforme;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorInformeComprasArticulosReport.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FListaIDArticulos := TIntegerArray.Create;
|
||||||
|
FListaIDProveedores := TIntegerArray.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorInformeComprasArticulosReport.Destroy;
|
||||||
|
begin
|
||||||
|
FListaIDArticulos.Free;
|
||||||
|
FListaIDProveedores.Free;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeComprasArticulosReport.GetFechaFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
|
|
||||||
|
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||||
|
if not VarIsNull(Result) then
|
||||||
|
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeComprasArticulosReport.GetFechaInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeComprasArticulosReport.GetListaIDArticulos: TIntegerArray;
|
||||||
|
begin
|
||||||
|
FListaIDArticulos.Clear;
|
||||||
|
if Assigned(frViewFiltroArticulos1.Articulo) then
|
||||||
|
FListaIDArticulos.Add(frViewFiltroArticulos1.Articulo.ID);
|
||||||
|
|
||||||
|
Result := FListaIDArticulos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeComprasArticulosReport.GetListaIDProveedores: TIntegerArray;
|
||||||
|
begin
|
||||||
|
FListaIDProveedores.Clear;
|
||||||
|
if Assigned(frViewFiltroProveedores1.Proveedor) then
|
||||||
|
FListaIDProveedores.Add(frViewFiltroProveedores1.Proveedor.ID);
|
||||||
|
|
||||||
|
Result := FListaIDProveedores;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorInformeComprasArticulosReport.RefrescarInforme;
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeComprasArticulos(
|
||||||
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
|
FechaInicio,
|
||||||
|
FechaFin,
|
||||||
|
ListaIDArticulos,
|
||||||
|
ListaIDProveedores);
|
||||||
|
|
||||||
|
LoadFromStream(AStream);
|
||||||
|
Report.ShowPreparedReport;
|
||||||
|
finally
|
||||||
|
FreeAndNil(AStream);
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,250 @@
|
|||||||
|
inherited fEditorInformeVentasArticulosReport: TfEditorInformeVentasArticulosReport
|
||||||
|
Caption = 'fEditorInformeVentasArticulosReport'
|
||||||
|
ClientHeight = 655
|
||||||
|
ClientWidth = 895
|
||||||
|
ExplicitWidth = 911
|
||||||
|
ExplicitHeight = 693
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 895
|
||||||
|
ExplicitTop = 78
|
||||||
|
ExplicitWidth = 895
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 868
|
||||||
|
ExplicitLeft = 868
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Width = 895
|
||||||
|
ExplicitWidth = 895
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 895
|
||||||
|
end
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
ExplicitWidth = 616
|
||||||
|
object TBXItem58: TTBXItem [0]
|
||||||
|
Action = actRefrescar
|
||||||
|
DisplayMode = nbdmImageAndText
|
||||||
|
Images = SmallImages
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Top = 636
|
||||||
|
Width = 895
|
||||||
|
ExplicitTop = 636
|
||||||
|
ExplicitWidth = 895
|
||||||
|
end
|
||||||
|
inherited TBXMultiDockIzquierdo: TTBXMultiDock
|
||||||
|
Height = 531
|
||||||
|
ExplicitTop = 105
|
||||||
|
ExplicitHeight = 531
|
||||||
|
end
|
||||||
|
inherited TBXMultiDockDerecho: TTBXMultiDock
|
||||||
|
Left = 703
|
||||||
|
Width = 192
|
||||||
|
Height = 531
|
||||||
|
ExplicitLeft = 703
|
||||||
|
ExplicitWidth = 192
|
||||||
|
ExplicitHeight = 531
|
||||||
|
inherited pnlParametros: TTBXDockablePanel
|
||||||
|
DockedWidth = 188
|
||||||
|
ExplicitWidth = 192
|
||||||
|
ExplicitHeight = 515
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
Top = 365
|
||||||
|
ExplicitTop = 365
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 50
|
||||||
|
inherited TBXButton1: TTBXButton
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 3
|
||||||
|
Top = 3
|
||||||
|
Width = 182
|
||||||
|
Height = 37
|
||||||
|
Margins.Left = 8
|
||||||
|
Margins.Top = 8
|
||||||
|
Margins.Right = 8
|
||||||
|
Margins.Bottom = 8
|
||||||
|
Align = alTop
|
||||||
|
ExplicitLeft = 3
|
||||||
|
ExplicitTop = 3
|
||||||
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 37
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewFiltroArticulos1: TfrViewFiltroArticulos
|
||||||
|
Left = 0
|
||||||
|
Top = 296
|
||||||
|
Width = 188
|
||||||
|
Height = 146
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 296
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 146
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited bElegirArticulo: TBitBtn
|
||||||
|
Width = 108
|
||||||
|
ExplicitWidth = 108
|
||||||
|
end
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited edtArticulo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 141
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewFiltroComerciales1: TfrViewFiltroComerciales
|
||||||
|
Left = 0
|
||||||
|
Top = 136
|
||||||
|
Width = 188
|
||||||
|
Height = 160
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 136
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 160
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited bElegirComercial: TBitBtn
|
||||||
|
Width = 119
|
||||||
|
ExplicitWidth = 119
|
||||||
|
end
|
||||||
|
inherited cbxDesglosado: TCheckBox
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited edtComercial: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 152
|
||||||
|
Width = 152
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inline frViewPeriodoFechas1: TfrViewPeriodoFechas
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 188
|
||||||
|
Height = 136
|
||||||
|
Align = alTop
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 188
|
||||||
|
ExplicitHeight = 136
|
||||||
|
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
|
||||||
|
Width = 182
|
||||||
|
Height = 98
|
||||||
|
ExplicitWidth = 182
|
||||||
|
ExplicitHeight = 98
|
||||||
|
inherited Label3: TLabel
|
||||||
|
Width = 85
|
||||||
|
end
|
||||||
|
inherited edtFechaFin: TcxDateEdit
|
||||||
|
Left = 74
|
||||||
|
Top = 77
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 74
|
||||||
|
ExplicitTop = 77
|
||||||
|
ExplicitWidth = 99
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
inherited edtFechaIni: TcxDateEdit
|
||||||
|
Left = 76
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 76
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXLabel2: TTBXLabel
|
||||||
|
Width = 188
|
||||||
|
ExplicitWidth = 188
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
|
||||||
|
Top = 136
|
||||||
|
Width = 182
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 136
|
||||||
|
ExplicitWidth = 182
|
||||||
|
inherited Label4: TLabel
|
||||||
|
Width = 160
|
||||||
|
end
|
||||||
|
inherited edtFechaVenFin: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 99
|
||||||
|
Width = 99
|
||||||
|
end
|
||||||
|
inherited edtFechaVenIni: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 97
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
inherited cbPeriodo2: TcxComboBox
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,130 @@
|
|||||||
|
unit uEditorInformeVentasArticulosReport;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
|
||||||
|
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
|
||||||
|
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
|
||||||
|
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
|
||||||
|
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
|
||||||
|
JvExControls, JvNavigationPane, uCustomView,
|
||||||
|
uViewBase, uViewPeriodoFechas,
|
||||||
|
uViewFiltroArticulos, dxLayoutControl, cxControls, uViewFiltroImportes,
|
||||||
|
FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
|
||||||
|
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeVentasArticulosReport,
|
||||||
|
uBizContactos, uViewFiltroComerciales;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorInformeVentasArticulosReport = class(TfEditorInformeBase, IEditorInformeVentasArticulosReport)
|
||||||
|
TBXItem58: TTBXItem;
|
||||||
|
frViewFiltroArticulos1: TfrViewFiltroArticulos;
|
||||||
|
frViewFiltroComerciales1: TfrViewFiltroComerciales;
|
||||||
|
frViewPeriodoFechas1: TfrViewPeriodoFechas;
|
||||||
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FListaIDArticulos: TIntegerArray;
|
||||||
|
FListaIDComerciales: TIntegerArray;
|
||||||
|
function GetFechaFin: Variant;
|
||||||
|
function GetFechaInicio: Variant;
|
||||||
|
function GetListaIDArticulos: TIntegerArray;
|
||||||
|
function GetListaIDComerciales: TIntegerArray;
|
||||||
|
|
||||||
|
procedure RefrescarInforme;
|
||||||
|
|
||||||
|
public
|
||||||
|
property FechaInicio: Variant read GetFechaInicio;
|
||||||
|
property FechaFin: Variant read GetFechaFin;
|
||||||
|
property ListaIDArticulos: TIntegerArray read GetListaIDArticulos;
|
||||||
|
property ListaIDComerciales: TIntegerArray read GetListaIDComerciales;
|
||||||
|
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App, uStringsUtils;
|
||||||
|
|
||||||
|
{ TfEditorGestorInformesReport }
|
||||||
|
|
||||||
|
procedure TfEditorInformeVentasArticulosReport.actRefrescarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
RefrescarInforme;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorInformeVentasArticulosReport.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FListaIDArticulos := TIntegerArray.Create;
|
||||||
|
FListaIDComerciales := TIntegerArray.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorInformeVentasArticulosReport.Destroy;
|
||||||
|
begin
|
||||||
|
FListaIDArticulos.Free;
|
||||||
|
FListaIDComerciales.Free;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeVentasArticulosReport.GetFechaFin: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
|
||||||
|
|
||||||
|
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
|
||||||
|
if not VarIsNull(Result) then
|
||||||
|
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeVentasArticulosReport.GetFechaInicio: Variant;
|
||||||
|
begin
|
||||||
|
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeVentasArticulosReport.GetListaIDArticulos: TIntegerArray;
|
||||||
|
begin
|
||||||
|
FListaIDArticulos.Clear;
|
||||||
|
if Assigned(frViewFiltroArticulos1.Articulo) then
|
||||||
|
FListaIDArticulos.Add(frViewFiltroArticulos1.Articulo.ID);
|
||||||
|
|
||||||
|
Result := FListaIDArticulos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorInformeVentasArticulosReport.GetListaIDComerciales: TIntegerArray;
|
||||||
|
begin
|
||||||
|
FListaIDComerciales.Clear;
|
||||||
|
if Assigned(frViewFiltroComerciales1.Comercial) then
|
||||||
|
FListaIDComerciales.Add(frViewFiltroComerciales1.Comercial.ID);
|
||||||
|
|
||||||
|
Result := FListaIDComerciales;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorInformeVentasArticulosReport.RefrescarInforme;
|
||||||
|
var
|
||||||
|
AStream: Binary;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeVentasArticulos(
|
||||||
|
AppFactuGES.EmpresaActiva.ID,
|
||||||
|
FechaInicio,
|
||||||
|
FechaFin,
|
||||||
|
ListaIDArticulos,
|
||||||
|
ListaIDComerciales);
|
||||||
|
|
||||||
|
LoadFromStream(AStream);
|
||||||
|
Report.ShowPreparedReport;
|
||||||
|
finally
|
||||||
|
FreeAndNil(AStream);
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
131
Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.dfm
Normal file
131
Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.dfm
Normal file
@ -0,0 +1,131 @@
|
|||||||
|
inherited frViewFiltroArticulos: TfrViewFiltroArticulos
|
||||||
|
Width = 451
|
||||||
|
Align = alTop
|
||||||
|
OnCreate = CustomViewCreate
|
||||||
|
OnDestroy = CustomViewDestroy
|
||||||
|
ExplicitWidth = 451
|
||||||
|
DesignSize = (
|
||||||
|
451
|
||||||
|
195)
|
||||||
|
object TBXLabel2: TTBXLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 451
|
||||||
|
Height = 29
|
||||||
|
Margins.Top = 5
|
||||||
|
Margins.Bottom = 10
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Articulos'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = True
|
||||||
|
ParentFont = False
|
||||||
|
Underline = True
|
||||||
|
end
|
||||||
|
object bElegirArticulo: TBitBtn
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 61
|
||||||
|
Top = 123
|
||||||
|
Width = 382
|
||||||
|
Height = 23
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 2
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Elegir un art'#237'culo'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = bElegirArticuloClick
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||||
|
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
||||||
|
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
||||||
|
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
||||||
|
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
||||||
|
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
||||||
|
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
||||||
|
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||||
|
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||||
|
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||||
|
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||||
|
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||||
|
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||||
|
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||||
|
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||||
|
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||||
|
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object cbxDesglosado: TCheckBox
|
||||||
|
Left = 23
|
||||||
|
Top = 49
|
||||||
|
Width = 146
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Desglosar por art'#237'culo'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object edtArticulo: TcxTextEdit
|
||||||
|
Left = 28
|
||||||
|
Top = 99
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
Enabled = False
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.UseLeftAlignmentOnEditing = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 3
|
||||||
|
Height = 21
|
||||||
|
Width = 415
|
||||||
|
end
|
||||||
|
object rbTodosArticulos: TRadioButton
|
||||||
|
Left = 6
|
||||||
|
Top = 29
|
||||||
|
Width = 147
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Incluir a todos los art'#237'culos'
|
||||||
|
Checked = True
|
||||||
|
TabOrder = 4
|
||||||
|
TabStop = True
|
||||||
|
OnClick = rbTodosArticulosClick
|
||||||
|
end
|
||||||
|
object rbUnArticulo: TRadioButton
|
||||||
|
Left = 3
|
||||||
|
Top = 76
|
||||||
|
Width = 175
|
||||||
|
Height = 17
|
||||||
|
Caption = 'S'#243'lo listar el art'#237'culo siguiente:'
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = rbUnArticuloClick
|
||||||
|
end
|
||||||
|
end
|
||||||
114
Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.pas
Normal file
114
Source/Modulos/Gestor de informes/Views/uViewFiltroArticulos.pas
Normal file
@ -0,0 +1,114 @@
|
|||||||
|
unit uViewFiltroArticulos;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
|
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizArticulos,
|
||||||
|
uArticulosController, uIViewFiltroArticulos;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
|
||||||
|
TfrViewFiltroArticulos = class(TfrViewParametrosInforme, IViewFiltroArticulos)
|
||||||
|
TBXLabel2: TTBXLabel;
|
||||||
|
rbTodosArticulos: TRadioButton;
|
||||||
|
rbUnArticulo: TRadioButton;
|
||||||
|
cbxDesglosado: TCheckBox;
|
||||||
|
bElegirArticulo: TBitBtn;
|
||||||
|
edtArticulo: TcxTextEdit;
|
||||||
|
procedure rbTodosArticulosClick(Sender: TObject);
|
||||||
|
procedure rbUnArticuloClick(Sender: TObject);
|
||||||
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
procedure bElegirArticuloClick(Sender: TObject);
|
||||||
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
|
private
|
||||||
|
FArticulo : IBizArticulo;
|
||||||
|
FArticulosController : IArticulosController;
|
||||||
|
function getIdArticulo: Integer;
|
||||||
|
procedure setIdArticulo(const IdArticulo:Integer);
|
||||||
|
public
|
||||||
|
property IdArticulo : Integer read getIdArticulo write setIdArticulo;
|
||||||
|
property Articulo : IBizArticulo read FArticulo;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrViewFiltroArticulos.bElegirArticuloClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
AArticulos : IBizArticulo;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AArticulos := IBizArticulo(FArticulosController.BuscarTodos);
|
||||||
|
try
|
||||||
|
FArticulo := IBizArticulo(FArticulosController.ElegirArticulos(AArticulos, '', False));
|
||||||
|
if Assigned(FArticulo) then
|
||||||
|
begin
|
||||||
|
FArticulo.Open;
|
||||||
|
edtArticulo.Text := FArticulo.DESCRIPCION;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AArticulos := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroArticulos.CustomViewCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FArticulo := NIL;
|
||||||
|
FArticulosController := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroArticulos.CustomViewDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FArticulo := NIL;
|
||||||
|
FArticulosController := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewFiltroArticulos.getIdArticulo: Integer;
|
||||||
|
begin
|
||||||
|
Result := FArticulo.ID;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroArticulos.rbTodosArticulosClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if rbTodosArticulos.Checked then
|
||||||
|
begin
|
||||||
|
cbxDesglosado.Enabled := True;
|
||||||
|
FArticulo := NIL;
|
||||||
|
bElegirArticulo.Enabled := False;
|
||||||
|
edtArticulo.Clear;
|
||||||
|
edtArticulo.Enabled := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroArticulos.rbUnArticuloClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if rbUnArticulo.Checked then
|
||||||
|
begin
|
||||||
|
cbxDesglosado.Enabled := False;
|
||||||
|
bElegirArticulo.Enabled := True;
|
||||||
|
edtArticulo.Enabled := True;
|
||||||
|
if not Assigned(FArticulosController) then
|
||||||
|
FArticulosController := TArticulosController.Create;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroArticulos.setIdArticulo(const IdArticulo: Integer);
|
||||||
|
begin
|
||||||
|
if not Assigned(FArticulosController) then
|
||||||
|
FArticulosController := TArticulosController.Create;
|
||||||
|
|
||||||
|
FArticulo := IBizArticulo(FArticulosController.Buscar(IdArticulo));
|
||||||
|
if Assigned(FArticulo) then
|
||||||
|
begin
|
||||||
|
FArticulo.Open;
|
||||||
|
edtArticulo.Text := FArticulo.DESCRIPCION;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,131 @@
|
|||||||
|
inherited frViewFiltroComerciales: TfrViewFiltroComerciales
|
||||||
|
Width = 451
|
||||||
|
Align = alTop
|
||||||
|
OnCreate = CustomViewCreate
|
||||||
|
OnDestroy = CustomViewDestroy
|
||||||
|
ExplicitWidth = 451
|
||||||
|
DesignSize = (
|
||||||
|
451
|
||||||
|
195)
|
||||||
|
object TBXLabel2: TTBXLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 451
|
||||||
|
Height = 29
|
||||||
|
Margins.Top = 5
|
||||||
|
Margins.Bottom = 10
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Comerciales'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = True
|
||||||
|
ParentFont = False
|
||||||
|
Underline = True
|
||||||
|
end
|
||||||
|
object bElegirComercial: TBitBtn
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 61
|
||||||
|
Top = 123
|
||||||
|
Width = 382
|
||||||
|
Height = 23
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 2
|
||||||
|
Margins.Bottom = 0
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Elegir un comercial'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = bElegirComercialClick
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000000000000000000000000000000000000FF00FF00FF00
|
||||||
|
FF00FF00FF00EB00EB00C507C600AB13AD00A119A2009F19A000A215A400AA10
|
||||||
|
AC00B608B800CE00CE00EF00EF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00B426B000526840004A823400478F310043962F0042992F0043972F004690
|
||||||
|
3100488533004B7237005A405100D201D200FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0062654E004F81350047903100409C2E003AA62C0038AA2B0039A72B003E9E
|
||||||
|
2D00459230004D84340056753800A0189F00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF005F6B4C004B89330042992F0039A82B0032B428002EBB260031B6270037AB
|
||||||
|
2A00409C2E00498C3200527B3600B015B100FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF0090488700488D32003E9E2D0035AF290035B631007ACB7B002DBF280033B2
|
||||||
|
28003DA12D0047903100576A4800EC01EC00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00F008F1005F7351003E9F2D0034B0290080AC8100D2D3D30081BB820032B2
|
||||||
|
28003DA22D004A863A00C519C500FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EE09EF007861730036923E00598CAE00498CBB004A81A6002B70
|
||||||
|
3A00606D5900D613D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00EA0CF400608CD00054A2D80053A1D6004F9DD300488B
|
||||||
|
C2009D11AC00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF008C67DE005CA9DD005CA9DD005AA7DC0056A4D900519F
|
||||||
|
D400565FAB00EA00EA00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00EC0DF60060A7DE0063B0E30063B0E30061AEE1005CA9DD0056A4
|
||||||
|
D9004E94CC00C105C600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00C532ED0066B2E5006BB7E9006BB7E90067B3E60061AEE1005AA7
|
||||||
|
DC00539FD500A817BE00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00BA3AE7004989B1004A85AC005895BD0068B2E30064B0E4005CA9
|
||||||
|
DE0053A0D400AA1BC300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00CA23E8005098C400539AC7004E93BE00437DA2005190BA005198
|
||||||
|
C6003C79A000BE08C300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00F804FC006995D40062ACDA005DA6D3005299C6004284AD003C7F
|
||||||
|
A900535AA100F300F300FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00C140ED0071BAEA0068B2E00059A1CF004990BC004378
|
||||||
|
AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
|
||||||
|
FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
|
||||||
|
E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
|
||||||
|
end
|
||||||
|
object cbxDesglosado: TCheckBox
|
||||||
|
Left = 23
|
||||||
|
Top = 49
|
||||||
|
Width = 146
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Desglosar por comercial'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object edtComercial: TcxTextEdit
|
||||||
|
Left = 28
|
||||||
|
Top = 99
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
Enabled = False
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.UseLeftAlignmentOnEditing = False
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.TextColor = clWindowText
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 3
|
||||||
|
Height = 21
|
||||||
|
Width = 415
|
||||||
|
end
|
||||||
|
object rbTodosComerciales: TRadioButton
|
||||||
|
Left = 3
|
||||||
|
Top = 26
|
||||||
|
Width = 246
|
||||||
|
Height = 17
|
||||||
|
Caption = 'Incluir a todos los comerciales'
|
||||||
|
Checked = True
|
||||||
|
TabOrder = 4
|
||||||
|
TabStop = True
|
||||||
|
OnClick = rbTodosComercialesClick
|
||||||
|
end
|
||||||
|
object rbUnComercial: TRadioButton
|
||||||
|
Left = 6
|
||||||
|
Top = 76
|
||||||
|
Width = 175
|
||||||
|
Height = 17
|
||||||
|
Caption = 'S'#243'lo listar el comercial siguiente:'
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = rbUnComercialClick
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,114 @@
|
|||||||
|
unit uViewFiltroComerciales;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||||||
|
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
||||||
|
uComercialesController, uIViewFiltroComerciales;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
|
||||||
|
TfrViewFiltroComerciales = class(TfrViewParametrosInforme, IViewFiltroComerciales)
|
||||||
|
TBXLabel2: TTBXLabel;
|
||||||
|
rbTodosComerciales: TRadioButton;
|
||||||
|
rbUnComercial: TRadioButton;
|
||||||
|
cbxDesglosado: TCheckBox;
|
||||||
|
bElegirComercial: TBitBtn;
|
||||||
|
edtComercial: TcxTextEdit;
|
||||||
|
procedure rbTodosComercialesClick(Sender: TObject);
|
||||||
|
procedure rbUnComercialClick(Sender: TObject);
|
||||||
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
|
procedure bElegirComercialClick(Sender: TObject);
|
||||||
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
|
private
|
||||||
|
FComercial : IBizComercial;
|
||||||
|
FComercialesController : IComercialesController;
|
||||||
|
function getIdComercial: Integer;
|
||||||
|
procedure setIdComercial(const IdComercial:Integer);
|
||||||
|
public
|
||||||
|
property IdComercial : Integer read getIdComercial write setIdComercial;
|
||||||
|
property Comercial : IBizComercial read FComercial;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrViewFiltroComerciales.bElegirComercialClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
AComerciales : IBizComercial;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AComerciales := IBizComercial(FComercialesController.BuscarTodos);
|
||||||
|
try
|
||||||
|
FComercial := IBizComercial(FComercialesController.ElegirContacto(AComerciales, '', False));
|
||||||
|
if Assigned(FComercial) then
|
||||||
|
begin
|
||||||
|
FComercial.Open;
|
||||||
|
edtComercial.Text := FComercial.NOMBRE;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AComerciales := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroComerciales.CustomViewCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FComercial := NIL;
|
||||||
|
FComercialesController := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroComerciales.CustomViewDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FComercial := NIL;
|
||||||
|
FComercialesController := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewFiltroComerciales.getIdComercial: Integer;
|
||||||
|
begin
|
||||||
|
Result := FComercial.ID;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroComerciales.rbTodosComercialesClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if rbTodosComerciales.Checked then
|
||||||
|
begin
|
||||||
|
cbxDesglosado.Enabled := True;
|
||||||
|
FComercial := NIL;
|
||||||
|
bElegirComercial.Enabled := False;
|
||||||
|
edtComercial.Clear;
|
||||||
|
edtComercial.Enabled := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroComerciales.rbUnComercialClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if rbUnComercial.Checked then
|
||||||
|
begin
|
||||||
|
cbxDesglosado.Enabled := False;
|
||||||
|
bElegirComercial.Enabled := True;
|
||||||
|
edtComercial.Enabled := True;
|
||||||
|
if not Assigned(FComercialesController) then
|
||||||
|
FComercialesController := TComercialesController.Create;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewFiltroComerciales.setIdComercial(const IdComercial: Integer);
|
||||||
|
begin
|
||||||
|
if not Assigned(FComercialesController) then
|
||||||
|
FComercialesController := TComercialesController.Create;
|
||||||
|
|
||||||
|
FComercial := IBizComercial(FComercialesController.Buscar(IdComercial));
|
||||||
|
if Assigned(FComercial) then
|
||||||
|
begin
|
||||||
|
FComercial.Open;
|
||||||
|
edtComercial.Text := FComercial.NOMBRE;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,22 @@
|
|||||||
|
unit uIEditorResultadoPedidosConArticulo;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uIEditorPedidosProveedor, uBizPedidosProveedor, uGUIBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorResultadoPedidosConArticulo = interface(IEditorPedidosProveedor)
|
||||||
|
['{40985D74-84EB-4FFF-B7D2-4CE36AE7AC24}']
|
||||||
|
function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
|
||||||
|
property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
|
||||||
|
|
||||||
|
procedure SetMensaje (const AValue: String);
|
||||||
|
function GetMensaje: String;
|
||||||
|
property Mensaje : String read GetMensaje write SetMensaje;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,65 @@
|
|||||||
|
object fEditorBuscarArticuloPedido: TfEditorBuscarArticuloPedido
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Buscar art'#237'culo'
|
||||||
|
ClientHeight = 124
|
||||||
|
ClientWidth = 424
|
||||||
|
Color = clWindow
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 21
|
||||||
|
Top = 16
|
||||||
|
Width = 199
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Esrcriba el concepto del art'#237'culo a buscar:'
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 83
|
||||||
|
Width = 424
|
||||||
|
Height = 41
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 1
|
||||||
|
DesignSize = (
|
||||||
|
424
|
||||||
|
41)
|
||||||
|
object bBuscar: TButton
|
||||||
|
Tag = 1
|
||||||
|
Left = 260
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Buscar'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object bCancelar: TButton
|
||||||
|
Tag = 2
|
||||||
|
Left = 341
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Cancelar'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxConceptoABuscar: TcxTextEdit
|
||||||
|
Left = 21
|
||||||
|
Top = 42
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 395
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,54 @@
|
|||||||
|
unit uEditorBuscarArticuloPedido;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
|
||||||
|
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico,
|
||||||
|
cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit,
|
||||||
|
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorBuscarArticuloPedido = class(TfEditorBasico)
|
||||||
|
Label1: TLabel;
|
||||||
|
bBuscar: TButton;
|
||||||
|
bCancelar: TButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
cxConceptoABuscar: TcxTextEdit;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FConceptoABuscar: Variant;
|
||||||
|
function GetConceptoABuscar: Variant;
|
||||||
|
procedure SetConceptoABuscar(const Value: Variant);
|
||||||
|
|
||||||
|
public
|
||||||
|
property ConceptoABuscar: Variant Read GetConceptoABuscar write SetConceptoABuscar;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uFactuGES_App;
|
||||||
|
|
||||||
|
|
||||||
|
{ TfEditorBuscarArticulo }
|
||||||
|
|
||||||
|
procedure TfEditorBuscarArticuloPedido.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxConceptoABuscar.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorBuscarArticuloPedido.GetConceptoABuscar: Variant;
|
||||||
|
begin
|
||||||
|
Result := cxConceptoABuscar.EditValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorBuscarArticuloPedido.SetConceptoABuscar(const Value: Variant);
|
||||||
|
begin
|
||||||
|
cxConceptoABuscar.EditValue := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,325 @@
|
|||||||
|
inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
|
||||||
|
Caption = 'Seleccionar pedido de cliente'
|
||||||
|
ClientWidth = 656
|
||||||
|
ExplicitWidth = 664
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Top = 64
|
||||||
|
Width = 656
|
||||||
|
Caption = 'Lista de pedidos de proveedor'
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 64
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 629
|
||||||
|
ExplicitLeft = 629
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Top = 91
|
||||||
|
Width = 656
|
||||||
|
Height = 53
|
||||||
|
ExplicitTop = 91
|
||||||
|
ExplicitWidth = 656
|
||||||
|
ExplicitHeight = 53
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
Align = alRight
|
||||||
|
ExplicitWidth = 142
|
||||||
|
ExplicitHeight = 27
|
||||||
|
inherited TBXItem2: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem4: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem6: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem36: TTBXItem
|
||||||
|
Action = actAnchoAuto2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxFiltro: TTBXToolbar
|
||||||
|
Left = 142
|
||||||
|
Top = 26
|
||||||
|
DockPos = 115
|
||||||
|
DockRow = 1
|
||||||
|
ExplicitLeft = 142
|
||||||
|
ExplicitTop = 26
|
||||||
|
inherited TBXItem34: TTBXItem
|
||||||
|
Action = actQuitarFiltro2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 656
|
||||||
|
end
|
||||||
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Left = 610
|
||||||
|
Top = 26
|
||||||
|
DockPos = 610
|
||||||
|
DockRow = 1
|
||||||
|
Visible = False
|
||||||
|
ExplicitLeft = 610
|
||||||
|
ExplicitTop = 26
|
||||||
|
ExplicitWidth = 36
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Width = 656
|
||||||
|
Visible = False
|
||||||
|
ExplicitWidth = 656
|
||||||
|
end
|
||||||
|
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 376
|
||||||
|
Width = 656
|
||||||
|
Height = 49
|
||||||
|
Align = alBottom
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitTop = 376
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited JvFooter1: TJvFooter
|
||||||
|
Width = 656
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited bSeleccionar: TJvFooterBtn
|
||||||
|
Left = 444
|
||||||
|
ExplicitLeft = 444
|
||||||
|
end
|
||||||
|
inherited bCancelar: TJvFooterBtn
|
||||||
|
Left = 548
|
||||||
|
ExplicitLeft = 548
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited BarraSeleccionActionList: TActionList
|
||||||
|
inherited actSeleccionar: TAction
|
||||||
|
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
|
||||||
|
OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
|
||||||
|
end
|
||||||
|
inherited actCancelar: TAction
|
||||||
|
OnExecute = frViewBarraSeleccion1actCancelarExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [4]
|
||||||
|
Top = 144
|
||||||
|
Width = 656
|
||||||
|
Height = 232
|
||||||
|
ExplicitTop = 144
|
||||||
|
ExplicitWidth = 656
|
||||||
|
ExplicitHeight = 232
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 656
|
||||||
|
Height = 104
|
||||||
|
RootLevelOptions.DetailTabsPosition = dtpNone
|
||||||
|
ExplicitWidth = 656
|
||||||
|
ExplicitHeight = 104
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0 pedidos'
|
||||||
|
Kind = skCount
|
||||||
|
Column = frViewPedidosProveedor1.cxGridViewNOMBRE
|
||||||
|
end>
|
||||||
|
inherited cxGridViewCODIGO: TcxGridDBColumn
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
|
Width = 656
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 656
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 457
|
||||||
|
Width = 457
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 240
|
||||||
|
Width = 240
|
||||||
|
end
|
||||||
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Left = 300
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 300
|
||||||
|
ExplicitWidth = 404
|
||||||
|
Width = 404
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 656
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited tbxBotones: TTBXToolbar
|
||||||
|
Width = 646
|
||||||
|
ExplicitWidth = 646
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
|
Top = 206
|
||||||
|
ExplicitTop = 206
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 656
|
||||||
|
ExplicitWidth = 656
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
Width = 646
|
||||||
|
ExplicitWidth = 646
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||||
|
PopupMenus = <
|
||||||
|
item
|
||||||
|
GridView = frViewPedidosProveedor1.cxGridView
|
||||||
|
HitTypes = [gvhtCell]
|
||||||
|
Index = 0
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnlHeader: TPanel [5]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 656
|
||||||
|
Height = 64
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clWhite
|
||||||
|
Padding.Left = 25
|
||||||
|
Padding.Top = 8
|
||||||
|
Padding.Right = 25
|
||||||
|
Padding.Bottom = 8
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 5
|
||||||
|
object lblTitle: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 25
|
||||||
|
Top = 8
|
||||||
|
Width = 606
|
||||||
|
Height = 13
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 8
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Seleccione el pedido a proveedor'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
ExplicitWidth = 186
|
||||||
|
end
|
||||||
|
object lblComments: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 50
|
||||||
|
Top = 29
|
||||||
|
Width = 581
|
||||||
|
Height = 27
|
||||||
|
Margins.Left = 25
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Align = alClient
|
||||||
|
ExplicitWidth = 3
|
||||||
|
ExplicitHeight = 13
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [8]
|
||||||
|
Left = 112
|
||||||
|
Top = 192
|
||||||
|
inherited actPrevisualizar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actImprimir: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actDuplicar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actRecibirPedido: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited ActEnviarEMail: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource
|
||||||
|
Left = 8
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [12]
|
||||||
|
end
|
||||||
|
inherited GridPopupMenu: TPopupMenu [13]
|
||||||
|
Left = 80
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
inherited JsNuevoPedidoProveedorDialog: TJSDialog [14]
|
||||||
|
end
|
||||||
|
inherited JsPrevisualizarDialog: TJSDialog [15]
|
||||||
|
end
|
||||||
|
inherited JsImprimirDialog: TJSDialog [16]
|
||||||
|
end
|
||||||
|
object EditorSeleccionActionList: TActionList
|
||||||
|
Images = SmallImages
|
||||||
|
Left = 152
|
||||||
|
Top = 192
|
||||||
|
object actBuscar2: TAction
|
||||||
|
Category = 'Buscar'
|
||||||
|
Caption = 'Buscar'
|
||||||
|
ImageIndex = 10
|
||||||
|
ShortCut = 114
|
||||||
|
end
|
||||||
|
object actQuitarFiltro2: TAction
|
||||||
|
Category = 'Buscar'
|
||||||
|
Caption = 'Quitar filtro y ver todo'
|
||||||
|
ImageIndex = 19
|
||||||
|
OnExecute = actQuitarFiltro2Execute
|
||||||
|
end
|
||||||
|
object actAnchoAuto2: TAction
|
||||||
|
Category = 'Ver'
|
||||||
|
Caption = 'Ancho autom'#225'tico'
|
||||||
|
ImageIndex = 21
|
||||||
|
OnExecute = actAnchoAuto2Execute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,128 @@
|
|||||||
|
unit uEditorElegirPedidosProveedor;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
|
||||||
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||||
|
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
||||||
|
ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
|
||||||
|
pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||||
|
JvNavigationPane, uViewBarraSeleccion, StdCtrls,
|
||||||
|
uBizPedidosProveedor, uIEditorElegirPedidosProveedor,
|
||||||
|
JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor,
|
||||||
|
JSDialog, uDAInterfaces;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorElegirPedidosProveedor = class(TfEditorPedidosProveedor, IEditorElegirPedidosProveedor)
|
||||||
|
frViewBarraSeleccion1: TfrViewBarraSeleccion;
|
||||||
|
EditorSeleccionActionList: TActionList;
|
||||||
|
actBuscar2: TAction;
|
||||||
|
actQuitarFiltro2: TAction;
|
||||||
|
actAnchoAuto2: TAction;
|
||||||
|
pnlHeader: TPanel;
|
||||||
|
lblTitle: TLabel;
|
||||||
|
lblComments: TLabel;
|
||||||
|
procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
|
||||||
|
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||||||
|
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure actAnchoAuto2Execute(Sender: TObject);
|
||||||
|
procedure actQuitarFiltro2Execute(Sender: TObject);
|
||||||
|
protected
|
||||||
|
procedure SetMultiSelect (AValue : Boolean);
|
||||||
|
function GetMultiSelect : Boolean;
|
||||||
|
function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
|
||||||
|
procedure SetViewGrid(const Value: IViewGridBase); override;
|
||||||
|
procedure SetMensaje (const AValue: String);
|
||||||
|
function GetMensaje: String;
|
||||||
|
public
|
||||||
|
property Mensaje : String read GetMensaje write SetMensaje;
|
||||||
|
property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
|
||||||
|
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
|
||||||
|
uGridUtils, uEditorBase, uPedidosProveedorController;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfEditorElegirPedidosProveedor }
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.actAnchoAuto2Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
actAnchoAuto.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.actQuitarFiltro2Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
actQuitarFiltro.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
EditorActionList.State := asSuspended;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actCancelarExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actSeleccionarExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ModalResult := mrOk;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.frViewBarraSeleccion1actSeleccionarUpdate(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorElegirPedidosProveedor.GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
|
||||||
|
begin
|
||||||
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
|
||||||
|
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
|
||||||
|
Result := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorElegirPedidosProveedor.GetMensaje: String;
|
||||||
|
begin
|
||||||
|
Result := lblComments.Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorElegirPedidosProveedor.GetMultiSelect: Boolean;
|
||||||
|
begin
|
||||||
|
Result := ViewGrid.MultiSelect;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.SetMensaje(const AValue: String);
|
||||||
|
begin
|
||||||
|
lblComments.Caption := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.SetMultiSelect(AValue: Boolean);
|
||||||
|
begin
|
||||||
|
ViewGrid.MultiSelect := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirPedidosProveedor.SetViewGrid(const Value: IViewGridBase);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,90 @@
|
|||||||
|
object fEditorElegirTipoOperacionCompra: TfEditorElegirTipoOperacionCompra
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = 'Tipo de operaci'#243'n'
|
||||||
|
ClientHeight = 124
|
||||||
|
ClientWidth = 424
|
||||||
|
Color = clWindow
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 21
|
||||||
|
Top = 16
|
||||||
|
Width = 238
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Seleccione el tipo de operaci'#243'n que desea asignar'
|
||||||
|
end
|
||||||
|
object combo: TLabel
|
||||||
|
Left = 81
|
||||||
|
Top = 45
|
||||||
|
Width = 24
|
||||||
|
Height = 13
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'Tipo:'
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 83
|
||||||
|
Width = 424
|
||||||
|
Height = 41
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 0
|
||||||
|
DesignSize = (
|
||||||
|
424
|
||||||
|
41)
|
||||||
|
object bAceptar: TButton
|
||||||
|
Left = 260
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Aceptar'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object bCancelar: TButton
|
||||||
|
Left = 341
|
||||||
|
Top = 8
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Cancelar'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cbTipo: TcxLookupComboBox
|
||||||
|
Left = 111
|
||||||
|
Top = 42
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.KeyFieldNames = 'ID'
|
||||||
|
Properties.ListColumns = <
|
||||||
|
item
|
||||||
|
FieldName = 'DESCRIPCION'
|
||||||
|
end>
|
||||||
|
Properties.ListOptions.ShowHeader = False
|
||||||
|
Properties.ListOptions.SyncMode = True
|
||||||
|
Properties.ListSource = dsTipo
|
||||||
|
Style.LookAndFeel.Kind = lfOffice11
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfOffice11
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfOffice11
|
||||||
|
StyleHot.LookAndFeel.Kind = lfOffice11
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 266
|
||||||
|
end
|
||||||
|
object dsTipo: TDADataSource
|
||||||
|
Left = 24
|
||||||
|
Top = 64
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,70 @@
|
|||||||
|
unit uEditorElegirTipoOperacionCompra;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
|
||||||
|
cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorElegirTipoOperacionCompra,
|
||||||
|
cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uTiposOperacionCompraController,
|
||||||
|
cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizTiposOperacionCompra;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorElegirTipoOperacionCompra = class(TfEditorBasico, IEditorElegirTipoOperacionCompra)
|
||||||
|
Label1: TLabel;
|
||||||
|
bAceptar: TButton;
|
||||||
|
bCancelar: TButton;
|
||||||
|
combo: TLabel;
|
||||||
|
Panel1: TPanel;
|
||||||
|
cbTipo: TcxLookupComboBox;
|
||||||
|
dsTipo: TDADataSource;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FController: ITiposOperacionCompraController;
|
||||||
|
FListaTiposOperacionCompra : IBizTiposOperacionCompra;
|
||||||
|
FTipoOperacionCompra: Variant;
|
||||||
|
function GetTipoOperacionCompra: Variant;
|
||||||
|
procedure SetTipoOperacionCompra(const Value: Variant);
|
||||||
|
|
||||||
|
public
|
||||||
|
property TipoOperacionCompra: Variant Read GetTipoOperacionCompra write SetTipoOperacionCompra;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uFactuGES_App;
|
||||||
|
|
||||||
|
procedure TfEditorElegirTipoOperacionCompra.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FController := Nil;
|
||||||
|
FListaTiposOperacionCompra := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirTipoOperacionCompra.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
|
||||||
|
i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
FController := TTiposOperacionCompraController.Create;
|
||||||
|
FListaTiposOperacionCompra := FController.BuscarTodos;
|
||||||
|
FListaTiposOperacionCompra.DataTable.Active := True;
|
||||||
|
dsTipo.DataTable := FListaTiposOperacionCompra.DataTable;
|
||||||
|
cbTipo.ItemIndex := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorElegirTipoOperacionCompra.GetTipoOperacionCompra: Variant;
|
||||||
|
begin
|
||||||
|
Result := FListaTiposOperacionCompra.ID;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorElegirTipoOperacionCompra.SetTipoOperacionCompra(const Value: variant);
|
||||||
|
begin
|
||||||
|
// cbTarifa.ItemIndex := cbTarifa.Properties.Items.IndexOfName(Value);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,311 @@
|
|||||||
|
inherited fEditorResultadoPedidosConArticulo: TfEditorResultadoPedidosConArticulo
|
||||||
|
Caption = 'Lista de pedidos encontrados'
|
||||||
|
ClientHeight = 787
|
||||||
|
ClientWidth = 1138
|
||||||
|
ExplicitWidth = 1154
|
||||||
|
ExplicitHeight = 825
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Top = 64
|
||||||
|
Width = 1138
|
||||||
|
Caption = 'Lista de pedidos de proveedor'
|
||||||
|
ExplicitTop = 64
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 1111
|
||||||
|
ExplicitLeft = 629
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Top = 91
|
||||||
|
Width = 1138
|
||||||
|
Height = 52
|
||||||
|
ExplicitTop = 91
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
ExplicitHeight = 52
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
Align = alRight
|
||||||
|
ExplicitWidth = 223
|
||||||
|
ExplicitHeight = 27
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Action = actModificar2
|
||||||
|
end
|
||||||
|
inherited TBXItem6: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem36: TTBXItem
|
||||||
|
Action = actAnchoAuto2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxFiltro: TTBXToolbar
|
||||||
|
Left = 223
|
||||||
|
Top = 25
|
||||||
|
DockPos = 115
|
||||||
|
DockRow = 1
|
||||||
|
ExplicitLeft = 223
|
||||||
|
ExplicitTop = 25
|
||||||
|
ExplicitWidth = 416
|
||||||
|
inherited TBXItem34: TTBXItem
|
||||||
|
Action = actQuitarFiltro2
|
||||||
|
end
|
||||||
|
inherited TBXItem37: TTBXItem
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
end
|
||||||
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Left = 639
|
||||||
|
Top = 25
|
||||||
|
DockPos = 610
|
||||||
|
DockRow = 1
|
||||||
|
Visible = False
|
||||||
|
ExplicitLeft = 639
|
||||||
|
ExplicitTop = 25
|
||||||
|
ExplicitWidth = 495
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Top = 768
|
||||||
|
Width = 1138
|
||||||
|
Visible = False
|
||||||
|
ExplicitTop = 768
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
end
|
||||||
|
inherited frViewPedidosProveedor1: TfrViewPedidosProveedor
|
||||||
|
Top = 143
|
||||||
|
Width = 1138
|
||||||
|
Height = 625
|
||||||
|
ExplicitTop = 143
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
ExplicitHeight = 625
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 1138
|
||||||
|
Height = 497
|
||||||
|
RootLevelOptions.DetailTabsPosition = dtpNone
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
ExplicitHeight = 497
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||||
|
Kind = skSum
|
||||||
|
Position = spFooter
|
||||||
|
Column = frViewPedidosProveedor1.cxGridViewIMPORTE_TOTAL
|
||||||
|
end>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0 pedidos'
|
||||||
|
Kind = skCount
|
||||||
|
Column = frViewPedidosProveedor1.cxGridViewNOMBRE
|
||||||
|
end>
|
||||||
|
inherited cxGridViewCODIGO: TcxGridDBColumn
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
|
Width = 1138
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 1138
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
end
|
||||||
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Left = 676
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 676
|
||||||
|
ExplicitWidth = 404
|
||||||
|
Width = 404
|
||||||
|
end
|
||||||
|
inherited txtFiltroTodo2: TcxTextEdit
|
||||||
|
Left = 706
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 706
|
||||||
|
ExplicitWidth = 468
|
||||||
|
Width = 468
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 1138
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
inherited tbxBotones: TTBXToolbar
|
||||||
|
Width = 1128
|
||||||
|
ExplicitWidth = 1128
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
|
Top = 599
|
||||||
|
ExplicitTop = 599
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 1138
|
||||||
|
ExplicitWidth = 1138
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
Width = 1128
|
||||||
|
ExplicitWidth = 1128
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||||
|
PopupMenus = <
|
||||||
|
item
|
||||||
|
GridView = frViewPedidosProveedor1.cxGridView
|
||||||
|
HitTypes = [gvhtCell]
|
||||||
|
Index = 0
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnlHeader: TPanel [4]
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1138
|
||||||
|
Height = 64
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clWhite
|
||||||
|
Padding.Left = 25
|
||||||
|
Padding.Top = 8
|
||||||
|
Padding.Right = 25
|
||||||
|
Padding.Bottom = 8
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
object lblTitle: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 25
|
||||||
|
Top = 8
|
||||||
|
Width = 1088
|
||||||
|
Height = 13
|
||||||
|
Margins.Left = 0
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Margins.Bottom = 8
|
||||||
|
Align = alTop
|
||||||
|
Caption = 'Seleccione el pedido a proveedor'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
ExplicitWidth = 186
|
||||||
|
end
|
||||||
|
object lblComments: TLabel
|
||||||
|
AlignWithMargins = True
|
||||||
|
Left = 50
|
||||||
|
Top = 29
|
||||||
|
Width = 1063
|
||||||
|
Height = 27
|
||||||
|
Margins.Left = 25
|
||||||
|
Margins.Top = 0
|
||||||
|
Margins.Right = 0
|
||||||
|
Align = alClient
|
||||||
|
ExplicitWidth = 3
|
||||||
|
ExplicitHeight = 13
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList [5]
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList [6]
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [7]
|
||||||
|
Left = 112
|
||||||
|
Top = 192
|
||||||
|
inherited actNuevo: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actEliminar: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actPrevisualizar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actImprimir: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actDuplicar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actRecibirPedido: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited ActEnviarEMail: TAction
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [8]
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource [9]
|
||||||
|
Left = 8
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
inherited StatusBarImages: TPngImageList [10]
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [11]
|
||||||
|
end
|
||||||
|
inherited GridPopupMenu: TPopupMenu
|
||||||
|
Left = 80
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
object EditorSeleccionActionList: TActionList
|
||||||
|
Images = SmallImages
|
||||||
|
Left = 152
|
||||||
|
Top = 192
|
||||||
|
object actBuscar2: TAction
|
||||||
|
Category = 'Buscar'
|
||||||
|
Caption = 'Buscar'
|
||||||
|
ImageIndex = 10
|
||||||
|
ShortCut = 114
|
||||||
|
end
|
||||||
|
object actQuitarFiltro2: TAction
|
||||||
|
Category = 'Buscar'
|
||||||
|
Caption = 'Quitar filtro y ver todo'
|
||||||
|
ImageIndex = 19
|
||||||
|
OnExecute = actQuitarFiltro2Execute
|
||||||
|
end
|
||||||
|
object actAnchoAuto2: TAction
|
||||||
|
Category = 'Ver'
|
||||||
|
Caption = 'Ancho autom'#225'tico'
|
||||||
|
ImageIndex = 21
|
||||||
|
OnExecute = actAnchoAuto2Execute
|
||||||
|
end
|
||||||
|
object actModificar2: TAction
|
||||||
|
Caption = 'Modificar'
|
||||||
|
ImageIndex = 18
|
||||||
|
OnExecute = actModificar2Execute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,146 @@
|
|||||||
|
unit uEditorResultadoPedidosConArticulo;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
|
||||||
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||||
|
ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
|
||||||
|
ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
|
||||||
|
pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||||
|
JvNavigationPane, uViewBarraSeleccion, StdCtrls,
|
||||||
|
uBizPedidosProveedor, uIEditorResultadoPedidosConArticulo,
|
||||||
|
JvExComCtrls, JvStatusBar, uEditorPedidosProveedor, uViewPedidosProveedor,
|
||||||
|
JSDialog, uDAInterfaces;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorResultadoPedidosConArticulo = class(TfEditorPedidosProveedor, IEditorResultadoPedidosConArticulo)
|
||||||
|
EditorSeleccionActionList: TActionList;
|
||||||
|
actBuscar2: TAction;
|
||||||
|
actQuitarFiltro2: TAction;
|
||||||
|
actAnchoAuto2: TAction;
|
||||||
|
pnlHeader: TPanel;
|
||||||
|
lblTitle: TLabel;
|
||||||
|
lblComments: TLabel;
|
||||||
|
actModificar2: TAction;
|
||||||
|
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||||||
|
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure actAnchoAuto2Execute(Sender: TObject);
|
||||||
|
procedure actQuitarFiltro2Execute(Sender: TObject);
|
||||||
|
procedure actModificar2Execute(Sender: TObject);
|
||||||
|
protected
|
||||||
|
function GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
|
||||||
|
procedure SetMensaje (const AValue: String);
|
||||||
|
function GetMensaje: String;
|
||||||
|
procedure PonerTitulos(const ATitulo: String = ''); override;
|
||||||
|
procedure ModificarInterno; override;
|
||||||
|
public
|
||||||
|
property Mensaje : String read GetMensaje write SetMensaje;
|
||||||
|
property PedidosProveedorSeleccionados: IBizPedidoProveedor read GetPedidosProveedorSeleccionados;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uStringsUtils, uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
|
||||||
|
uGridUtils, uEditorBase, uPedidosProveedorController;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfEditorElegirPedidosProveedor }
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.actAnchoAuto2Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
actAnchoAuto.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.actModificar2Execute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.actQuitarFiltro2Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
actQuitarFiltro.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
EditorActionList.State := asSuspended;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.frViewBarraSeleccion1actCancelarExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.frViewBarraSeleccion1actSeleccionarExecute(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ModalResult := mrOk;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorResultadoPedidosConArticulo.GetPedidosProveedorSeleccionados: IBizPedidoProveedor;
|
||||||
|
begin
|
||||||
|
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Pedidos as ISeleccionable).SelectedRecords);
|
||||||
|
// En SelectedRecords tengo los ID de las filas seleccionadas del grid
|
||||||
|
Result := (Controller as IPedidosProveedorController).ExtraerSeleccionados(Pedidos) as IBizPedidoProveedor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.ModificarInterno;
|
||||||
|
var
|
||||||
|
APedido: IBizPedidoProveedor;
|
||||||
|
begin
|
||||||
|
// inherited;
|
||||||
|
APedido := FController.Buscar(Pedidos.ID);
|
||||||
|
APedido.DataTable.Active := True;
|
||||||
|
FController.Ver(APedido);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.PonerTitulos(const ATitulo: String);
|
||||||
|
var
|
||||||
|
AHeaderText,
|
||||||
|
AWindowText : String;
|
||||||
|
begin
|
||||||
|
if EsCadenaVacia(ATitulo) then
|
||||||
|
begin
|
||||||
|
AHeaderText := FHeaderText;
|
||||||
|
AWindowText := 'Listado de pedidos de proveedor encontrados'
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
AHeaderText := ATitulo;
|
||||||
|
AWindowText := 'Listado de pedidos de proveedor encontrados';
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ReadOnly then
|
||||||
|
begin
|
||||||
|
AHeaderText := AHeaderText + ' (NO MODIFICABLE)';
|
||||||
|
AWindowText := AWindowText + ' (NO MODIFICABLE)';
|
||||||
|
end;
|
||||||
|
|
||||||
|
JvNavPanelHeader.Caption := AHeaderText;
|
||||||
|
Caption := AWindowText;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorResultadoPedidosConArticulo.GetMensaje: String;
|
||||||
|
begin
|
||||||
|
Result := lblComments.Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorResultadoPedidosConArticulo.SetMensaje(const AValue: String);
|
||||||
|
begin
|
||||||
|
lblComments.Caption := AValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
@ -43,6 +43,10 @@
|
|||||||
<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">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>
|
<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">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
@ -52,15 +56,15 @@
|
|||||||
<DelphiCompile Include="PresupuestosCliente_model.dpk">
|
<DelphiCompile Include="PresupuestosCliente_model.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\adortl.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\Contactos_controller.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\Contactos_model.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
|
||||||
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
|
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
|
||||||
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
|
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
|
||||||
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
|
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
|
||||||
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
|
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
|
||||||
@ -72,7 +76,7 @@
|
|||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6006
|
EurekaLog Version=6006
|
||||||
Activate=1
|
Activate=0
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
Foreground Tab=0
|
Foreground Tab=0
|
||||||
@ -238,7 +242,7 @@ mtQuestionMsgCaption0="Question."
|
|||||||
Count mtErrorMsgCaption=1
|
Count mtErrorMsgCaption=1
|
||||||
mtErrorMsgCaption0="Error."
|
mtErrorMsgCaption0="Error."
|
||||||
Count mtDialog_Caption=1
|
Count mtDialog_Caption=1
|
||||||
mtDialog_Caption0="Error."
|
mtDialog_Caption0="Error occurred"
|
||||||
Count mtDialog_ErrorMsgCaption=2
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
@ -550,5 +554,5 @@ Count mtException_AntiFreeze=1
|
|||||||
mtException_AntiFreeze0="The application seems to be frozen."
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
Count mtInvalidEmailMsg=1
|
Count mtInvalidEmailMsg=1
|
||||||
mtInvalidEmailMsg0="Invalid email."
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
TextsCollection=English
|
TextsCollection=
|
||||||
EurekaLog Last Line -->
|
EurekaLog Last Line -->
|
||||||
|
|||||||
@ -340,10 +340,14 @@ begin
|
|||||||
if not bEnEdicion then
|
if not bEnEdicion then
|
||||||
DataTable.Edit;
|
DataTable.Edit;
|
||||||
|
|
||||||
|
//Si se cambia el cliente quiere decir que se anula la dirección que tuviera asignada porque el cliente nuevo seleccionado es el que manda (caso detectado por Valeria 24/02/2026)
|
||||||
|
ID_DIRECCIONIsNull := True;
|
||||||
|
|
||||||
ID_CLIENTE := FCliente.ID;
|
ID_CLIENTE := FCliente.ID;
|
||||||
ID_AGENTE := FCliente.ID_AGENTE;
|
ID_AGENTE := FCliente.ID_AGENTE;
|
||||||
NOMBRE_AGENTE := FCliente.AGENTE;
|
NOMBRE_AGENTE := FCliente.AGENTE;
|
||||||
DELEGACION := FCliente.DELEGACION;
|
DELEGACION := FCliente.DELEGACION;
|
||||||
|
|
||||||
// La forma de pago se establece desde el tipo de documento y aunque cambie de cliente no se cambia la formade pago ya que desde la vista se pregunta y se cambia si el usuario lo desea
|
// La forma de pago se establece desde el tipo de documento y aunque cambie de cliente no se cambia la formade pago ya que desde la vista se pregunta y se cambia si el usuario lo desea
|
||||||
// if FCliente.ID_FORMA_PAGO > 0 then
|
// if FCliente.ID_FORMA_PAGO > 0 then
|
||||||
// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
|
||||||
|
|||||||
@ -0,0 +1,212 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid>
|
||||||
|
<MainSource>PedCli_PedProv_relation.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\PedCli_PedProv_relation.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>DEBUG</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<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">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\borland\delphi10\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcl31w100.bpl">Delphi 1.0 Compatibility Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclmid100.bpl">Borland MyBase DataAccess Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcldbxcds100.bpl">Borland SimpleDataset Component (DBX)</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\BPL_D10\dcldxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dclcxSchedulerD10.bpl">ExpressScheduler 2 by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dclcxVerticalGridD10.bpl">ExpressVerticalGrid by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvBandsD10D.bpl">JVCL Band Objects</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvCmpD10D.bpl">JVCL Non-Visual Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvCryptD10D.bpl">JVCL Encryption and Compression Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvDlgsD10D.bpl">JVCL Dialog Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvDockingD10D.bpl">JVCL Docking Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvDotNetCtrlsD10D.bpl">JVCL DotNet Controls</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvEDID10D.bpl">JVCL EDI Components Designtime Package</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvHMID10D.bpl">JVCL HMI Controls design time unit</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvInterpreterD10D.bpl">JVCL Interpreter Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvJansD10D.bpl">JVCL Jans Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvManagedThreadsD10D.bpl">JVCL Managed Threads</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvMMD10D.bpl">JVCL Multimedia and Image Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvNetD10D.bpl">JVCL Network Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvPageCompsD10D.bpl">JVCL Page Style Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvPluginD10D.bpl">JVCL Plugin Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvPrintPreviewD10D.bpl">JVCL Print Preview Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvRuntimeDesignD10D.bpl">JVCL Runtime Design Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvTimeFrameworkD10D.bpl">JVCL Time Framework</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvUIBD10D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvValidatorsD10D.bpl">JVCL Validators and Error Provider Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl">Internet Explorer Components</Excluded_Packages>
|
||||||
|
</Excluded_Packages>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">PedCli_PedProv_relation.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<ItemGroup />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="PedCli_PedProv_relation.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\Contactos_controller.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\Contactos_model.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\ControllerBase.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\PedidosCliente_controller.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\PedidosCliente_model.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\PedidosProveedor_controller.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\PedidosProveedor_model.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||||
|
<DCCReference Include="uGenerarPedidosProvUtils.pas" />
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
</Project>
|
||||||
@ -0,0 +1,41 @@
|
|||||||
|
package PedProv_ConCli_relation;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION ON}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
rtl,
|
||||||
|
Contactos_model,
|
||||||
|
Contactos_controller,
|
||||||
|
PedidosProveedor_model,
|
||||||
|
PedidosProveedor_controller,
|
||||||
|
ContratosCliente_model,
|
||||||
|
ContratosCliente_controller,
|
||||||
|
ApplicationBase,
|
||||||
|
Base;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uGenerarPedidosProvUtils in 'uGenerarPedidosProvUtils.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,688 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{69494a8c-0a35-41ea-b8ec-ea790bfc0662}</ProjectGuid>
|
||||||
|
<MainSource>PedProv_ConCli_relation.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\PedProv_ConCli_relation.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<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><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsmp100.bpl">Borland Sample Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcl31w100.bpl">Delphi 1.0 Compatibility Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclmid100.bpl">Borland MyBase DataAccess Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcltee100.bpl">TeeChart Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dcldbxcds100.bpl">Borland SimpleDataset Component (DBX)</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtItemsD10.bpl">ExpressBars extended items by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\BPL_D10\dcldxBarD10.bpl">ExpressBars by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dclcxSchedulerD10.bpl">ExpressScheduler 2 by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dclcxVerticalGridD10.bpl">ExpressVerticalGrid by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarDBNavD10.bpl">ExpressBars DBNavigator by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxBarExtDBItemsD10.bpl">ExpressBars extended DB items by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\dcldxsbD10.bpl">ExpressSideBar by Developer Express Inc.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvBandsD10D.bpl">JVCL Band Objects</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvCmpD10D.bpl">JVCL Non-Visual Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvCryptD10D.bpl">JVCL Encryption and Compression Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvDlgsD10D.bpl">JVCL Dialog Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvDockingD10D.bpl">JVCL Docking Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvDotNetCtrlsD10D.bpl">JVCL DotNet Controls</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvEDID10D.bpl">JVCL EDI Components Designtime Package</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvHMID10D.bpl">JVCL HMI Controls design time unit</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvInterpreterD10D.bpl">JVCL Interpreter Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvJansD10D.bpl">JVCL Jans Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvManagedThreadsD10D.bpl">JVCL Managed Threads</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvMMD10D.bpl">JVCL Multimedia and Image Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvNetD10D.bpl">JVCL Network Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvPageCompsD10D.bpl">JVCL Page Style Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvPluginD10D.bpl">JVCL Plugin Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvPrintPreviewD10D.bpl">JVCL Print Preview Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvRuntimeDesignD10D.bpl">JVCL Runtime Design Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvTimeFrameworkD10D.bpl">JVCL Time Framework</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvUIBD10D.bpl">JVCL Unified Interbase Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\JvValidatorsD10D.bpl">JVCL Validators and Error Provider Components</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\SMImportD2006.bpl">SMImport suite: data importing into dataset. Scalabium/Mike Shkolnik, 2000-2005</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="T:\Bpl_D10\SMExportD2006.bpl">SMExport suite: data export from dataset. Written by Mike Shkolnik/Scalabium, 1998-2004.</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
|
||||||
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl">Internet Explorer Components</Excluded_Packages>
|
||||||
|
</Excluded_Packages><Source><Source Name="MainSource">PedProv_ConCli_relation.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="PedProv_ConCli_relation.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\Base.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\Contactos_controller.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\Contactos_model.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\ContratosCliente_controller.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\ContratosCliente_model.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\PedidosProveedor_controller.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\PedidosProveedor_model.dcp" />
|
||||||
|
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
|
||||||
|
<DCCReference Include="uGenerarPedidosProvUtils.pas" />
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=2
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=2
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
ProxyURL=
|
||||||
|
ProxyUser=
|
||||||
|
ProxyPassword=
|
||||||
|
ProxyPort=8080
|
||||||
|
TrakerUser=
|
||||||
|
TrakerPassword=
|
||||||
|
TrakerAssignTo=
|
||||||
|
TrakerProject=
|
||||||
|
TrakerCategory=
|
||||||
|
TrakerTrialID=
|
||||||
|
ZipPassword=
|
||||||
|
PreBuildEvent=
|
||||||
|
PostSuccessfulBuildEvent=
|
||||||
|
PostFailureBuildEvent=
|
||||||
|
ExceptionDialogType=2
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesAndProcessesSections=1
|
||||||
|
loSaveAssemblerAndCPUSections=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soAppUpTime=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModuleName=1
|
||||||
|
soExcModuleVersion=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soExcID=1
|
||||||
|
soExcCount=1
|
||||||
|
soExcStatus=1
|
||||||
|
soExcNote=1
|
||||||
|
soUserID=1
|
||||||
|
soUserName=1
|
||||||
|
soUserEmail=1
|
||||||
|
soUserPrivileges=1
|
||||||
|
soUserCompany=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soCmpDisplayDPI=1
|
||||||
|
soCmpVideoCard=1
|
||||||
|
soCmpPrinter=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soOSCharset=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
soCustomData=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=1
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndAddComputerNameInFileName=0
|
||||||
|
edoSendErrorReportChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=0
|
||||||
|
edoShowSendErrorReportOption=1
|
||||||
|
edoShowAttachScreenshotOption=1
|
||||||
|
edoShowCustomButton=0
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoDoNotStoreProcNames=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
boHandleSafeCallExceptions=1
|
||||||
|
boCallRTLExceptionEvent=0
|
||||||
|
boCatchHandledExceptions=0
|
||||||
|
loCatchLeaks=0
|
||||||
|
loGroupsSonLeaks=1
|
||||||
|
loHideBorlandLeaks=1
|
||||||
|
loFreeAllLeaks=1
|
||||||
|
loCatchLeaksExceptions=1
|
||||||
|
cfoReduceFileSize=1
|
||||||
|
cfoCheckFileCorruption=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtErrorMsgCaption=1
|
||||||
|
mtErrorMsgCaption0="Error."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error occurred"
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_ProcessesCaption=1
|
||||||
|
mtDialog_ProcessesCaption0="Processes"
|
||||||
|
Count mtDialog_ProcessesHeader=1
|
||||||
|
mtDialog_ProcessesHeader0="Processes Information"
|
||||||
|
Count mtDialog_AsmCaption=1
|
||||||
|
mtDialog_AsmCaption0="Assembler"
|
||||||
|
Count mtDialog_AsmHeader=1
|
||||||
|
mtDialog_AsmHeader0="Assembler Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_CustomButtonCaption=1
|
||||||
|
mtDialog_CustomButtonCaption0="%26Help"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtMSDialog_ErrorMsgCaption=1
|
||||||
|
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
|
||||||
|
Count mtMSDialog_RestartCaption=1
|
||||||
|
mtMSDialog_RestartCaption0="Restart application."
|
||||||
|
Count mtMSDialog_TerminateCaption=1
|
||||||
|
mtMSDialog_TerminateCaption0="Terminate application."
|
||||||
|
Count mtMSDialog_PleaseCaption=1
|
||||||
|
mtMSDialog_PleaseCaption0="Please tell us about this problem."
|
||||||
|
Count mtMSDialog_DescriptionCaption=1
|
||||||
|
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
|
||||||
|
Count mtMSDialog_SeeDetailsCaption=1
|
||||||
|
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
|
||||||
|
Count mtMSDialog_SeeClickCaption=1
|
||||||
|
mtMSDialog_SeeClickCaption0="click here."
|
||||||
|
Count mtMSDialog_HowToReproduceCaption=1
|
||||||
|
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
|
||||||
|
Count mtMSDialog_EmailCaption=1
|
||||||
|
mtMSDialog_EmailCaption0="Email address (optional):"
|
||||||
|
Count mtMSDialog_SendButtonCaption=1
|
||||||
|
mtMSDialog_SendButtonCaption0="%26Send Error Report"
|
||||||
|
Count mtMSDialog_NoSendButtonCaption=1
|
||||||
|
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_AppUpTime=1
|
||||||
|
mtLog_AppUpTime0="Up Time"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModuleName=1
|
||||||
|
mtLog_ExcModuleName0="Module Name"
|
||||||
|
Count mtLog_ExcModuleVersion=1
|
||||||
|
mtLog_ExcModuleVersion0="Module Version"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ExcID=1
|
||||||
|
mtLog_ExcID0="ID"
|
||||||
|
Count mtLog_ExcCount=1
|
||||||
|
mtLog_ExcCount0="Count"
|
||||||
|
Count mtLog_ExcStatus=1
|
||||||
|
mtLog_ExcStatus0="Status"
|
||||||
|
Count mtLog_ExcNote=1
|
||||||
|
mtLog_ExcNote0="Note"
|
||||||
|
Count mtLog_UserHeader=1
|
||||||
|
mtLog_UserHeader0="User"
|
||||||
|
Count mtLog_UserID=1
|
||||||
|
mtLog_UserID0="ID"
|
||||||
|
Count mtLog_UserName=1
|
||||||
|
mtLog_UserName0="Name"
|
||||||
|
Count mtLog_UserEmail=1
|
||||||
|
mtLog_UserEmail0="Email"
|
||||||
|
Count mtLog_UserCompany=1
|
||||||
|
mtLog_UserCompany0="Company"
|
||||||
|
Count mtLog_UserPrivileges=1
|
||||||
|
mtLog_UserPrivileges0="Privileges"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_CmpDisplayDPI=1
|
||||||
|
mtLog_CmpDisplayDPI0="Display DPI"
|
||||||
|
Count mtLog_CmpVideoCard=1
|
||||||
|
mtLog_CmpVideoCard0="Video Card"
|
||||||
|
Count mtLog_CmpPrinter=1
|
||||||
|
mtLog_CmpPrinter0="Printer"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_OSCharset=1
|
||||||
|
mtLog_OSCharset0="Charset"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtCallStack_LeakCaption=1
|
||||||
|
mtCallStack_LeakCaption0="Memory Leak"
|
||||||
|
Count mtCallStack_LeakData=1
|
||||||
|
mtCallStack_LeakData0="Data"
|
||||||
|
Count mtCallStack_LeakType=1
|
||||||
|
mtCallStack_LeakType0="Type"
|
||||||
|
Count mtCallStack_LeakSize=1
|
||||||
|
mtCallStack_LeakSize0="Total size"
|
||||||
|
Count mtCallStack_LeakCount=1
|
||||||
|
mtCallStack_LeakCount0="Count"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Login=1
|
||||||
|
mtSendDialog_Login0="Login..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtSendDialog_Sent=1
|
||||||
|
mtSendDialog_Sent0="Message sent."
|
||||||
|
Count mtSendDialog_SelectProject=1
|
||||||
|
mtSendDialog_SelectProject0="Select project..."
|
||||||
|
Count mtSendDialog_Searching=1
|
||||||
|
mtSendDialog_Searching0="Searching..."
|
||||||
|
Count mtSendDialog_Modifying=1
|
||||||
|
mtSendDialog_Modifying0="Modifying..."
|
||||||
|
Count mtSendDialog_Disconnecting=1
|
||||||
|
mtSendDialog_Disconnecting0="Disconnecting..."
|
||||||
|
Count mtSendDialog_Disconnected=1
|
||||||
|
mtSendDialog_Disconnected0="Disconnected."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtProcesses_ID=1
|
||||||
|
mtProcesses_ID0="ID"
|
||||||
|
Count mtProcesses_Name=1
|
||||||
|
mtProcesses_Name0="Name"
|
||||||
|
Count mtProcesses_Description=1
|
||||||
|
mtProcesses_Description0="Description"
|
||||||
|
Count mtProcesses_Version=1
|
||||||
|
mtProcesses_Version0="Version"
|
||||||
|
Count mtProcesses_Memory=1
|
||||||
|
mtProcesses_Memory0="Memory"
|
||||||
|
Count mtProcesses_Priority=1
|
||||||
|
mtProcesses_Priority0="Priority"
|
||||||
|
Count mtProcesses_Threads=1
|
||||||
|
mtProcesses_Threads0="Threads"
|
||||||
|
Count mtProcesses_Path=1
|
||||||
|
mtProcesses_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
Count mtSend_BugClosedMsg=2
|
||||||
|
mtSend_BugClosedMsg0="These BUG is just closed."
|
||||||
|
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
|
||||||
|
Count mtSend_UnknownErrorMsg=1
|
||||||
|
mtSend_UnknownErrorMsg0="Unknown error."
|
||||||
|
Count mtSend_InvalidLoginMsg=1
|
||||||
|
mtSend_InvalidLoginMsg0="Invalid login request."
|
||||||
|
Count mtSend_InvalidSearchMsg=1
|
||||||
|
mtSend_InvalidSearchMsg0="Invalid search request."
|
||||||
|
Count mtSend_InvalidSelectionMsg=1
|
||||||
|
mtSend_InvalidSelectionMsg0="Invalid selection request."
|
||||||
|
Count mtSend_InvalidInsertMsg=1
|
||||||
|
mtSend_InvalidInsertMsg0="Invalid insert request."
|
||||||
|
Count mtSend_InvalidModifyMsg=1
|
||||||
|
mtSend_InvalidModifyMsg0="Invalid modify request."
|
||||||
|
Count mtFileCrackedMsg=2
|
||||||
|
mtFileCrackedMsg0="This file is cracked."
|
||||||
|
mtFileCrackedMsg1="The application will be closed."
|
||||||
|
Count mtException_LeakMultiFree=1
|
||||||
|
mtException_LeakMultiFree0="Multi Free memory leak."
|
||||||
|
Count mtException_LeakMemoryOverrun=1
|
||||||
|
mtException_LeakMemoryOverrun0="Memory Overrun leak."
|
||||||
|
Count mtException_AntiFreeze=1
|
||||||
|
mtException_AntiFreeze0="The application seems to be frozen."
|
||||||
|
Count mtInvalidEmailMsg=1
|
||||||
|
mtInvalidEmailMsg0="Invalid email."
|
||||||
|
TextsCollection=English
|
||||||
|
EurekaLog Last Line -->
|
||||||
@ -0,0 +1,606 @@
|
|||||||
|
object dmGenerarPedidosProv: TdmGenerarPedidosProv
|
||||||
|
OldCreateOrder = False
|
||||||
|
Height = 176
|
||||||
|
Width = 254
|
||||||
|
object JsListaPedidosGenerados: TJSDialog
|
||||||
|
Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Text = 'Lista de pedidos a proveedor generados'
|
||||||
|
Instruction.Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Icon = tdiCustom
|
||||||
|
ButtonBar.Buttons = [cbOK]
|
||||||
|
ButtonBar.Cancel = cbOK
|
||||||
|
ButtonBar.UseCancel = False
|
||||||
|
MainIcon = tdiCustom
|
||||||
|
Title = 'FactuGES'
|
||||||
|
Position = dpMainFormCenter
|
||||||
|
Icon.Data = {
|
||||||
|
0000010003002020100001000400E8020000360000002020000001000800A808
|
||||||
|
00001E0300002020000001002000A8100000C60B000028000000200000004000
|
||||||
|
0000010004000000000000020000000000000000000000000000000000000000
|
||||||
|
000000008000008000000080800080000000800080008080000080808000C0C0
|
||||||
|
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
||||||
|
0000000000000000000000000000000008777777777777777777777700000000
|
||||||
|
0877767777677776777767760000000008F88888888888888888888700000000
|
||||||
|
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
|
||||||
|
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
|
||||||
|
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
|
||||||
|
08F8676767677677677658E50000000008FF8888888887878787888700000000
|
||||||
|
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
|
||||||
|
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
|
||||||
|
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
|
||||||
|
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
|
||||||
|
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
|
||||||
|
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
|
||||||
|
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
|
||||||
|
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
|
||||||
|
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
|
||||||
|
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
|
||||||
|
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
|
||||||
|
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
|
||||||
|
0000200000004000000001000800000000000004000000000000000000000001
|
||||||
|
00000001000000000000694731007C5D49007E604C0081635000826451008567
|
||||||
|
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
|
||||||
|
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
|
||||||
|
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
|
||||||
|
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
|
||||||
|
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
|
||||||
|
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
|
||||||
|
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
|
||||||
|
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
|
||||||
|
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
|
||||||
|
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
|
||||||
|
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
|
||||||
|
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
|
||||||
|
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
|
||||||
|
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
|
||||||
|
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
|
||||||
|
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
|
||||||
|
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
|
||||||
|
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
|
||||||
|
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
|
||||||
|
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
|
||||||
|
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
|
||||||
|
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
|
||||||
|
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
|
||||||
|
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
|
||||||
|
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
|
||||||
|
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
|
||||||
|
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
|
||||||
|
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
|
||||||
|
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
|
||||||
|
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
|
||||||
|
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
|
||||||
|
0D0D0000000000000000009C9C19191919191919191919191919191919191919
|
||||||
|
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
|
||||||
|
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
|
||||||
|
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
|
||||||
|
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
|
||||||
|
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
|
||||||
|
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
|
||||||
|
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
|
||||||
|
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
|
||||||
|
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
|
||||||
|
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
|
||||||
|
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
|
||||||
|
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
|
||||||
|
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
|
||||||
|
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
|
||||||
|
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
|
||||||
|
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
|
||||||
|
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
|
||||||
|
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
|
||||||
|
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
|
||||||
|
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
|
||||||
|
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
|
||||||
|
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
|
||||||
|
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
|
||||||
|
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
|
||||||
|
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
|
||||||
|
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
|
||||||
|
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
|
||||||
|
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
|
||||||
|
0000000000000000000000003227000000000000000000000000000000000000
|
||||||
|
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
|
||||||
|
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
|
||||||
|
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000007067
|
||||||
|
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
|
||||||
|
A070000000000000000000000000000000000000000000000000000000005E54
|
||||||
|
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
|
||||||
|
967F000000000000000000000000000000000000000000000000000000006055
|
||||||
|
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
|
||||||
|
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
|
||||||
|
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006056
|
||||||
|
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
|
||||||
|
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
|
||||||
|
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006155
|
||||||
|
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
|
||||||
|
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
|
||||||
|
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006157
|
||||||
|
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
|
||||||
|
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
|
||||||
|
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
|
||||||
|
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
|
||||||
|
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
|
||||||
|
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
|
||||||
|
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006257
|
||||||
|
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
|
||||||
|
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
|
||||||
|
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
|
||||||
|
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
|
||||||
|
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
|
||||||
|
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
|
||||||
|
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
|
||||||
|
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
|
||||||
|
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
|
||||||
|
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
|
||||||
|
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006459
|
||||||
|
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
|
||||||
|
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
|
||||||
|
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
|
||||||
|
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
|
||||||
|
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
|
||||||
|
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
|
||||||
|
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000000000000000000000685A
|
||||||
|
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
|
||||||
|
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000007792910072A7A3001E33366957
|
||||||
|
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
|
||||||
|
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
|
||||||
|
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
|
||||||
|
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
|
||||||
|
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
|
||||||
|
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
|
||||||
|
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
|
||||||
|
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
|
||||||
|
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
|
||||||
|
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
|
||||||
|
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
|
||||||
|
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
|
||||||
|
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
|
||||||
|
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
|
||||||
|
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
|
||||||
|
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
|
||||||
|
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
|
||||||
|
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
|
||||||
|
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
|
||||||
|
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
|
||||||
|
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
|
||||||
|
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
|
||||||
|
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
|
||||||
|
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
|
||||||
|
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
|
||||||
|
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
|
||||||
|
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
|
||||||
|
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
|
||||||
|
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
|
||||||
|
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
|
||||||
|
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
|
||||||
|
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
|
||||||
|
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
|
||||||
|
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
|
||||||
|
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
|
||||||
|
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
|
||||||
|
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
|
||||||
|
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
|
||||||
|
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
|
||||||
|
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||||
|
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||||
|
001F8000003F800000FFF8FFFFFF}
|
||||||
|
Width = 450
|
||||||
|
Left = 56
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
object JsListaPedidosAsignadosAContrato: TJSDialog
|
||||||
|
DialogOptions = [doCommandLinks, doModal]
|
||||||
|
Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Text = 'Se han asignado la/s factura/s de cliente'
|
||||||
|
Instruction.Glyph.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000003104944415478DAAD96FB4B14
|
||||||
|
5114C7CFE463DC1E606444BFF54424D3DC55CA52B1CCD7165A219905054182FD
|
||||||
|
1452FD5810FD100406610A669A998FC4F5BDB6266265DAB60F5DD15E58FE03B2
|
||||||
|
3F99D29ABBA7B9779C71C61D9D6177CFCE70CFDCB97B3EF7DCF3BD33C38082FD
|
||||||
|
B502B2B300CC656020048688A24F036233A0671F40D43160BA87BF62AEEE1010
|
||||||
|
60D7AE293AD8B835815E9B625C80DC8F1E88D4A7C1E8C1FB8F9FD6C3C44035B3
|
||||||
|
21500A65F6D700FE2EA580A5EC551F4A50359316B31D76EFDC0EE5F72A645045
|
||||||
|
A067AE0623074B8140891108F1057064CC0D556053DF173812B707E6DCF332A8
|
||||||
|
225080D201DB4AF99BF335B4D502F371415BCC364833C4C29F458F0C2A031281
|
||||||
|
081734AB0B3C88403C1E6E3E2E7960F6A8FFD27A7D3EF07A11DA2C76C84A8D87
|
||||||
|
A57FCB32E8B8A54A4C8C21B59365C9015996EF2240B6634DF435B51460A46D1F
|
||||||
|
70C093AA46BF09C980C12CA914E6F371ADD707EF1DB3B0B0B8006EB79B8EA96B
|
||||||
|
EA5106121851245129118FD8BFA2DC5C53C6BAF5EBBBBA97C2D64EC064195B1F
|
||||||
|
286C76E956A0EA5C51AEB4764A9929F5750D5A9581D2274B9B651C0BA2F514A8
|
||||||
|
6F28E36B70AD9A4253EF97A9AA55B0CEBA87D03B645B3F43C1DE589C58186D10
|
||||||
|
81150FCAC57B11E161B04517099BB953C78643141B01BA28EEE4DAB0B04DE2B8
|
||||||
|
CA460B9C399902E661BB3AB0F5AD038BF30CD4D7E7DD14815A61023027DD00EF
|
||||||
|
469C1A80FD1C307F1578FD4A81E665945AD68924181A9D5007B6F4DBF1527E32
|
||||||
|
F5C9D3632351F8F549AEE916B14EAA039BCD362C31A6040D23E7887D4A03B0CF
|
||||||
|
86C5C6641A24BB7646D3F2D51A77F8C1BCDCFFC79CD3EAC0D7BD56AE86294165
|
||||||
|
4660CB5C6B737DD3062CCA31D00069E76E05241862CF1EDD05E7D40F756063CF
|
||||||
|
673C7F5A4F679A59541EF03E4C8C3B0893DF67D481AFBAC7B0F05412CD30EBE2
|
||||||
|
ED80F7617CEC0198FEF94B1BF06C6622AD4B4EC99D80F7A1666043D7281A3312
|
||||||
|
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
|
||||||
|
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
|
||||||
|
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
|
||||||
|
Instruction.Icon = tdiCustom
|
||||||
|
ButtonBar.Buttons = [cbOK]
|
||||||
|
ButtonBar.Cancel = cbOK
|
||||||
|
ButtonBar.UseCancel = False
|
||||||
|
MainIcon = tdiCustom
|
||||||
|
Title = 'FactuGES'
|
||||||
|
Position = dpMainFormCenter
|
||||||
|
Icon.Data = {
|
||||||
|
0000010003002020100001000400E8020000360000002020000001000800A808
|
||||||
|
00001E0300002020000001002000A8100000C60B000028000000200000004000
|
||||||
|
0000010004000000000000020000000000000000000000000000000000000000
|
||||||
|
000000008000008000000080800080000000800080008080000080808000C0C0
|
||||||
|
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
|
||||||
|
0000000000000000000000000000000008777777777777777777777700000000
|
||||||
|
0877767777677776777767760000000008F88888888888888888888700000000
|
||||||
|
08F8FF8F8F888888888888860000000008FF8F8F88F8F8888888888C00000000
|
||||||
|
08F88888F8888888888888860000000008F8688878E8888E88E8788700000000
|
||||||
|
08F8688888F8F8FFFFFF88760000000008FF4888888F8FFFFFFF788700000000
|
||||||
|
08F8676767677677677658E50000000008FF8888888887878787888700000000
|
||||||
|
08FF8887887E8888888888860000000008FFE8E8E788C8E8FF8F8F8600000000
|
||||||
|
08FFF8F8F8F8FF8F88F8F8870000000008FFFFFF8FF8F8F8F88F888600000000
|
||||||
|
0FF8477878787878788788860000000008FF68888888F8FF8F8F788700000000
|
||||||
|
08B7588888FF8FFFFFFF78860000083008BB47887776777777776F86000000B7
|
||||||
|
8B9B73BB88788787E87878870000008BB8B9BB78888888EFF8F8FF8600000087
|
||||||
|
B8BB8B888E8E8E88FFF8F886000000088BBB888FFFFFFFFFF8F877770000B9BB
|
||||||
|
B8FFBB9B9BFFFFFFF87466460000BBB9BB8FBBBBB8FFFFFFF88F888700000008
|
||||||
|
B8BB88888FFFFFFFF88F8F7700000008BBBBBB8FFFFFFFFFFF8887700000007B
|
||||||
|
B7B98BB8FFFFFFFFF8887700000000B78B9B87B888F88F88F8877000000007B0
|
||||||
|
08BB883B78888788787700000000000000B9000000000000000000000000FFFF
|
||||||
|
FFFFF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000F9800000FC000000FC000000FC000000FE000000F0000
|
||||||
|
000F0000000FE000000FE000001FC000003FC000007F980000FFFCFFFFFF2800
|
||||||
|
0000200000004000000001000800000000000004000000000000000000000001
|
||||||
|
00000001000000000000694731007C5D49007E604C0081635000826451008567
|
||||||
|
540085685500886B5900896D5B008A6E5D008B705F008E715F008B7260008C72
|
||||||
|
61008E74640084766C00957A6900977D6D00887B72009A8171009D8272009C84
|
||||||
|
76009D8778009F897B00A28A7900A08B7D00A18C7E00E1B06E00E1B67D003E7A
|
||||||
|
970073A0A5007AA2B70074AFBD007BB2BB003CAACE0028A5DB0020ADDF000D9A
|
||||||
|
E500209EE3000DA6E2001AA4EF0000A6FF000CABFE0009ACFE0010A4F10015AC
|
||||||
|
FA0000B5FB0000B0FD000CB6FC0000BFF90000BAFD0004BAFD0009BBFB0013B6
|
||||||
|
F40015BFFA001CBDFB0026B7FD00589EC50040A4CD0040ABCC0050A2C7005DAE
|
||||||
|
C00060A3C20062A4C60060B7CB006AB0CD007BB6C80077BAC80061BADD0044AD
|
||||||
|
E50000C3F80007C6FB0000CAF80000CFFB0000D4F90026C8FA0026CDF8002BCC
|
||||||
|
F90039C4FB0039C2FC0039CAFA003FCFFB0024D6F80030D2F80039D5F80000F8
|
||||||
|
F8001FF8F8002CF6F8003EF4F8005AC6DC0070CDDF0052C0E40054C9E3004DCE
|
||||||
|
FA005FC7FF004FD2FB004DD9F8005FD9FB006ED3E70063CDFE0060D1FB0060D8
|
||||||
|
F90060DDF80046F8F90056F0F8005FFAFA0073E3F80073E4F90073EEF80060F1
|
||||||
|
F800958A84009A918C0081999500A68F8200AD968500A3968C00AE988900AD9A
|
||||||
|
8D00B19A8B00AF9C9000B09E9200B59F9200B7A29300B2A19600B5A19400B7A4
|
||||||
|
9700BDA79700B4A39800B1A59D00B4A79F00BAA69800BCA79900B4A89F00BCA8
|
||||||
|
9900BAA89C00BDAA9D00BEAC9E0083ADBD00B5A9A100BDABA000BEADA100BFAF
|
||||||
|
A500A0BABE00C0AB9E00C1AC9E00C6AE9F00E2B98100E4BA8300E4BB8400E5BC
|
||||||
|
8500E1BD8E00E3BF9000C0ADA000C2B0A300C2B1A500C4B2A600C1B2A800C3B5
|
||||||
|
AB00C8B4A800CCB9AD00CEBCB100D0BEB200D1BFB400E4C19300E5C29400E6C4
|
||||||
|
9600E8C69900D0C9A300CFC1B800D2C1B600D3C3B800D5C4B900D6C6BC00D8C6
|
||||||
|
BC00D6C8BE00DAC9BF00ECD3B000EDD4B200EFD6B500E7D1B800E7D3BD00F0D8
|
||||||
|
B6008CB7C40080BEC70097C3C70099C3C900ABD7CF00AFD9DD0086E3F90086E7
|
||||||
|
F90086ECF8009EE5FB0090E8F900ACEDFC00BCEAFD00BCF1FB00BFF1FD00D7C9
|
||||||
|
C000D9CAC100DCCBC200DACCC200DDCCC300DACCC400DDCEC400DED0C600DED1
|
||||||
|
C900DED3CC00DFD4CD00E1D1C900E2D5CD00F0DCC200E3D8D200E5D9D200E2DA
|
||||||
|
D500E6DBD400E5DCD500E8DDD600E6DDD800E9DFD900E6E0DB00EAE0DA00EAE2
|
||||||
|
DD00ECE3DE00EBE4DE00ECE4DE00F3E7D900C6E1EF00C9EFFD00D7F6FD00DFF3
|
||||||
|
FF00DFFEFE00EBE7E300EDE6E100EFE7E400EEE8E400F0EAE600F2EDE900F2EE
|
||||||
|
EC00F4EFEC00F5F0EE00F9F4ED00E7FAFD00EBF8FF00F6F2F000F7F4F100F8F4
|
||||||
|
F200F9F7F500FAF8F600FBF9F900FCFBFA00FCFCFB00FEFEFE00000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000007D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D0D
|
||||||
|
0D0D0000000000000000009C9C19191919191919191919191919191919191919
|
||||||
|
1903000000000000000000ABDECBCBC7C7AFABABABABAAA3A2A2A0A0A0A0A0A0
|
||||||
|
8607000000000000000000ABECEAE9DEDEDEDED7D5D2D2D2CBCBCBCBB0CBB0CB
|
||||||
|
9007000000000000000000ABEDECEAE9DEDEDBD7D7D5D2D2D2CDCDCBB0B0B0B0
|
||||||
|
9007000000000000000000AFEDE9A9CFD2CFD2CDCBCBCBB0B0ABACA3A3A3A3B0
|
||||||
|
9007000000000000000000AFF0D5017783838386868686869099909999907BB0
|
||||||
|
9007000000000000000000B0F4D501A0B0CBD2D5DEECEDF7FAFAFAFAFAF77BAA
|
||||||
|
9007000000000000000000CBF4DC01A0B0B0B0D2D5DBEAEDF7FAFAFAFAF47BB0
|
||||||
|
9007000000000000000000CBF8DC010404070604090909090D0D110D110D02A3
|
||||||
|
9007000000000000000000CBFAED9E9E9E9C999E8C8C8C868683837E7D7D7ACB
|
||||||
|
9007000000000000000000CBFAF1A7A7A6A6A6A69898989898B5DBDBD5D5D2D2
|
||||||
|
9907000000000000000000CDFAF796969696961D961D931D1DB4DEDBD7D5D5D2
|
||||||
|
9C07000000000000000000CFFAFAFAFAF8F7F0F0EDEDEDECE9E9DEDEDED7D5D5
|
||||||
|
9907000000000000000000CDFAFAEAF0EDEDECEAEAE9DEDEDBDCD5D5D5D5D2D5
|
||||||
|
9C07000000000000000000D2FAEC01737D7D7B7D7D7B7D7B7D7B7B7B7D7B7DD2
|
||||||
|
9907000000000000000000CFFAEC019EABB0CBD2D5DCDEECEDF4F4F4F4EA7BD2
|
||||||
|
9C07000000000000000000B9524601A0B0B0CBB5D5DEEAEDF7FAFAFAFAF47DD5
|
||||||
|
9C070000000000213F0000B83226010C3F5C1F111214141616191B1B1B1807D2
|
||||||
|
9C07000000000000253D8A5B322D711E2860BA7E7E7A7E797A797979767676D5
|
||||||
|
9E0700000000000041375E662F2B65314EBBB6B6B6B6B4B4B1E2F4EDEDEDECEA
|
||||||
|
9C070000000000008F5D66663232394EC1A81C1C1C1C1C1C1CD3F7F4EDDED7D5
|
||||||
|
9C0700000000000000B7BE6E5758BEBDE4E6E6F3FAFAFAFAFAFAF7F4D5928675
|
||||||
|
7304000000002A2A2A2A4A6AFAE7562F2A2A2A5FFAFAFAFAFAFAF8D577010101
|
||||||
|
0101000000004747472F4A59C5E7564A32474766FAFAFAFAFAFAFADCA0D2CFB0
|
||||||
|
A20C00000000000000436C6958686D6BC2C5C5E7FAFAFAFAFAFAFADEAADEDBCB
|
||||||
|
1470000000000000004551534A4A5250C0E7FAFAFAFAFAFAFAFAFADEAAD7B514
|
||||||
|
700000000000000042384C54472B613550C3FAFAFAFAFAFAFAFAFADEA1B0196F
|
||||||
|
000000000000000024234463322EBC5A3664E3ECE9E9E9E9E9E9E9CF90731300
|
||||||
|
000000000000003A3C00002232298B8B3E3B207E8B7E8B7E827E817E74100000
|
||||||
|
0000000000000000000000003227000000000000000000000000000000000000
|
||||||
|
000000000000FFFFFFFFF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800
|
||||||
|
000FF800000FF800000FF800000FF800000F9800000FC000000FC000000FC000
|
||||||
|
000FE000000F0000000F0000000FE000000FE000001FC000003FC000007F9800
|
||||||
|
00FFFCFFFFFF2800000020000000400000000100200000000000801000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000007067
|
||||||
|
5F70AA9382E570513CE3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E3735540E37355
|
||||||
|
40E3735540E3735540E3735540E3735540E3735540E3735540E372533EE5BAAB
|
||||||
|
A070000000000000000000000000000000000000000000000000000000005E54
|
||||||
|
4C7FCAB7ABFFC5B5AAFFA18877FFA28A78FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A
|
||||||
|
79FFA28A79FFA28A79FFA28A79FFA28A79FFA28A79FFA58D7CFF7A5B46FFB2A1
|
||||||
|
967F000000000000000000000000000000000000000000000000000000006055
|
||||||
|
4D7ED7C6BBFFEDE4E0FFD9CCC4FFD9CCC4FFD9CBC3FFD8CAC1FFD7C9BFFFD6C7
|
||||||
|
BDFFD5C6BBFFD4C4BAFFD3C3B8FFD2C1B7FFD1C0B5FFD0BEB3FFCFBDB2FFCEBC
|
||||||
|
B0FFCEBBAFFFCEBBAFFFCEBBAFFFCEBBAFFFCEBCB0FFBEAA9CFF82644FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006056
|
||||||
|
4D7ED7C8BCFFF2EBE8FFEFE9E5FFEEE7E2FFECE5E0FFEBE2DEFFEAE0DBFFE9DE
|
||||||
|
D8FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCDC4FFDCCB
|
||||||
|
C2FFDBC9BFFFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC1FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006155
|
||||||
|
4E7ED8C9BDFFF3EDE9FFF1EAE6FFF0E9E6FFEEE6E1FFECE4DFFFEBE2DDFFEAE0
|
||||||
|
DAFFE9DED7FFE7DBD4FFE5D9D1FFE3D7CFFFE2D4CCFFE1D2C9FFDFD0C7FFDDCD
|
||||||
|
C4FFDCCBC2FFDBC9BFFFDBC9BFFFDBC9BFFFDCCAC0FFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006157
|
||||||
|
4E7ED9C9BFFFF4EFEDFFEFE8E3FFD0C2B9FFDFD5CEFFE0D5CEFFE0D4CCFFDED3
|
||||||
|
CBFFDDD1C8FFDCCFC6FFDACCC4FFD9CBC1FFD8C9BFFFD7C7BDFFD6C5BBFFD5C4
|
||||||
|
B9FFD3C2B7FFD2C0B5FFD2BFB4FFD2BFB4FFDAC8BEFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDACCC0FFF5F2EFFFE5DDD9FF5C3821FFB0998AFFB8A394FFB8A394FFB9A3
|
||||||
|
94FFB8A495FFB9A597FFB9A698FFBAA698FFBBA799FFBBA89AFFBBA89BFFBCA8
|
||||||
|
9BFFBCA89BFFBCA89BFFBBA89AFFB49E8FFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDBCBC1FFF8F4F3FFE7E0DBFF5F3C24FFD0BDB2FFDCCBC1FFDDCCC3FFE2D2
|
||||||
|
CBFFE7DBD4FFEDE2DEFFF0E8E6FFF5F0EDFFF9F7F4FFFDFDFDFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFAF8F7FFB39D8DFFD8C6BBFFC1AC9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006256
|
||||||
|
4F7EDCCEC3FFFAF6F5FFE9E2DDFF5F3C24FFD2BFB5FFDFCDC4FFDECCC3FFE0CE
|
||||||
|
C6FFE4D4CDFFE9DDD6FFEFE4E0FFF1EAE8FFF7F1EFFFFBF8F6FFFFFEFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFBFAFFB5A090FFD9C7BEFFC1AD9FFF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006257
|
||||||
|
4F7EDDCFC4FFFCF9F9FFE9E4E0FF5F3A23FF7C5D49FF7F5F4CFF7E5F4CFF7E60
|
||||||
|
4DFF7F614DFF816350FF826552FF836654FF846856FF856A57FF866B59FF876C
|
||||||
|
5BFF876D5BFF876D5BFF866B59FF72523DFFD5C3B9FFC1AFA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDECFC6FFFCFCFBFFF4F1F0FFC3B6AEFFC3B5ADFFC1B4ACFFC0B3AAFFBFB1
|
||||||
|
A9FFBEB0A6FFBDAEA5FFBDACA3FFBCABA2FFBBAAA0FFBAA99FFFB8A69AFFB8A4
|
||||||
|
98FFB6A396FFB5A194FFB49F93FFB39D90FFDCCDC4FFC2AEA1FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006357
|
||||||
|
507EDFD2C7FFFEFEFDFFF9F5EFFFE8C696FFE9C799FFE8C697FFE7C596FFE7C4
|
||||||
|
95FFE6C394FFE5C293FFE4C091FFE4C090FFE3BF8FFFE2BD8CFFE9D5BFFFEBE1
|
||||||
|
DCFFEADFD8FFE7DCD5FFE5DAD3FFE4D8D0FFE3D4CCFFC2AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE0D3C8FFFFFFFFFFFAF5EFFFE3B77CFFE4B97FFFE2B87EFFE3B77DFFE2B7
|
||||||
|
7CFFE2B67BFFE1B57AFFE1B479FFE0B478FFE0B377FFDFB174FFE6D0B7FFEBE1
|
||||||
|
DCFFE8DFD9FFE8DDD6FFE6D9D2FFE3D8D1FFE4D7CFFFC3AFA2FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006458
|
||||||
|
517EE1D2C9FFFFFFFFFFFEFEFDFFFEFFFFFFFCFDFEFFFBFBFBFFF9F7F8FFF8F5
|
||||||
|
F6FFF7F3F2FFF5F1F0FFF4EFEEFFF1EDEBFFF0EBE9FFEEE9E6FFEDE6E2FFECE3
|
||||||
|
DEFFEBE1DBFFE9DFD9FFE8DDD6FFE6DAD3FFE5D9D2FFC3B0A3FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006459
|
||||||
|
517EE1D4CAFFFFFFFFFFFDFDFCFFEEEBE8FFF5F2F0FFF4F0EFFFF3EFECFFF2ED
|
||||||
|
EAFFF1EBE8FFEEE9E5FFEFE7E3FFECE5E1FFEAE4DEFFEAE1DCFFE8E0DAFFE7DE
|
||||||
|
D8FFE6DDD6FFE5DBD4FFE4D8D1FFE2D6CEFFE6DBD4FFC3B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE2D4CAFFFFFFFFFFF0ECEAFF5B361EFFAB9383FFB39D8EFFB39D8DFFB39D
|
||||||
|
8DFFB29D8DFFB29C8DFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C8CFFB29C
|
||||||
|
8CFFB29C8CFFB29C8CFFB29C8DFFB39D8EFFE3D8D0FFC4B1A4FF81634EFFB2A1
|
||||||
|
967E000000000000000000000000000000000000000000000000000000006559
|
||||||
|
527EE5D4CAFFFFFFFFFFF7F0EBFF5F3B24FFCCB8ADFFD7C5BAFFD9C7BDFFDCCC
|
||||||
|
C3FFE1D4CCFFE5DAD4FFE8E0DBFFEDE5E1FFF1EBE9FFF5F2EFFFF7F5F3FFF8F6
|
||||||
|
F4FFF8F5F4FFF8F6F4FFF1EEEAFFB29C8DFFE6DAD3FFC4B2A5FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000000000000000000000685A
|
||||||
|
527E9AC6C9FF35CFFEFF3DAEEBFF663E24FFD2BFB4FFE0CBBFFFE0C9BDFFE1CD
|
||||||
|
C4FFE4D5CDFFE9DED7FFEEE5E0FFF2EBE8FFF6F2F0FFFCF8F8FFFFFFFEFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFCFAF9FFB49E8FFFE7DED7FFC5B3A6FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000007792910072A7A3001E33366957
|
||||||
|
4C7C86C1C8FF00BFFBFF079AEBFF6A3E23FF926D57FF5FA3C8FF4AC1E8FF6C9C
|
||||||
|
A2FF917260FF927767FF947A69FF957C6CFF977E6FFF998171FF9A8374FF9B85
|
||||||
|
76FF9C8678FF9C8678FF998274FF7D5E49FFE3D9D4FFC5B3A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000005A6F7000A9E5E40075AEAE5C90
|
||||||
|
A5BD75D0E0FF00BFFAFF0CA3F4FF8A9A91FF3C7492FF03A4E4FF4AD5FFFF98C4
|
||||||
|
CBFFB3A196FFB1A197FFB0A096FFB09F95FFAF9D92FFAF9C91FFAD9A8EFFAC99
|
||||||
|
8CFFAB988AFFAB9789FFAA9688FFA99386FFE8E0DAFFC5B4A7FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000002DA5BFC110C2FFFF4DD0
|
||||||
|
FDFF64DBF9FF00B3FAFF09A8FEFF68D7FFFF04B5FFFF24CCFBFFAFD8CEFFF7DA
|
||||||
|
B8FFF3DBBBFFF3DBBAFFF2D9B9FFF1D8B7FFF0D7B4FFEED5B2FFF6EADDFFF9F6
|
||||||
|
F4FFF7F3F1FFF5F1EEFFF5EFECFFF4EDEAFFF1EBE7FFC6B4A8FF81634EFFB2A1
|
||||||
|
967E00000000000000000000000000000000000000005F8A909142C7E4E960DE
|
||||||
|
F8FF64D7FAFF00B6FDFF00B8FDFF21B2FDFF1ECCF7FF93EBFCFFD2C69BFFE1AB
|
||||||
|
63FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDFAC66FFDEA961FFEFDBC0FFF8F6
|
||||||
|
F5FFF6F2F0FFF3EDEBFFECE2DCFFE9DFD9FFE5DBD6FFC2B1A4FF81634FFFB2A1
|
||||||
|
967E000000000000000000000000000E171A000E171A00040B145994A4A990EB
|
||||||
|
FCFF61F1F7FF13FAF7FF23F9F7FF93EDF7FF8CE5F8FFD5F2FDFFE9F8FFFFE7F8
|
||||||
|
FFFFF0FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFDFEFFFFFAFAF9FFF9F7
|
||||||
|
F5FFF7F2F0FFE8DFD8FFC7AE9FFFBEA998FFAF9888FFB09A8AFF7F604DFFB2A1
|
||||||
|
967E00000000000000000000000000AAFFFF00AAFFFF00AAFFFF00A4FFFF00CD
|
||||||
|
FAFF5DFCF9FFFFFFFFFFEEFEFEFF00FBF7FF00AAFEFF00A1FFFF00A1FFFF00A0
|
||||||
|
FFFF56C3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFBFFFCFBFAFFFBFA
|
||||||
|
F8FFE6DDD6FFAA9180FF5D3922FF603D26FF613E27FF613E28FF634029FFB4A3
|
||||||
|
987E00000000000000000000000000CAFFFF00CAFFFF00CBFFFF00B0FFFF00CD
|
||||||
|
FBFF38F5F7FFC3EFFAFFF0FFFEFF00FAF7FF00C8F7FF00C2F7FF00C2F7FF00C1
|
||||||
|
F7FF57D7FAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFFFDFDFCFFFCFC
|
||||||
|
FBFFE7DED8FFCCB9ACFFE6DBD5FFE2D7D0FFDCCFC5FFD7C5BBFF8E705DFFB4A2
|
||||||
|
9680000000000000000000000000002E383C002E383C00252F364C99B0B57DE8
|
||||||
|
FBFF59F1F7FF25F7F7FF41FAF8FF7CEEF7FF77E4F7FFB5EFFCFFC6F2FDFFC3F2
|
||||||
|
FDFFD9F6FCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFEFFFEFE
|
||||||
|
FEFFE9E1DAFFCEBCAFFFF1E9E3FFEADFD8FFE4D5CCFF9D816FFF3A291F868985
|
||||||
|
831C00000000000000000000000000000000000000004E7073774AB0DADC37C9
|
||||||
|
FBFF22D5F7FF00D3F9FF02C3FBFF37D5F7FF34BEFCFFA2E6FAFFECFBFDFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFF
|
||||||
|
FFFFEAE2DCFFCDBBADFFEADFD8FFE3D5CBFF9F8271FF3E2D2386050100200000
|
||||||
|
000000000000000000000000000000000000000000003E9CC4C219C0FFFF23C9
|
||||||
|
FCFF30D3F8FF00BEF8FF06A8FEFF4FDCF8FF00B8FCFF32C2FBFFC0EBFCFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFEAE3DEFFCDB9ABFFDDCEC4FFA58979FF3E2C1F8F0905041B000000000000
|
||||||
|
000000000000000000000000000000000000003451510099DDDB0091C0C35DAD
|
||||||
|
BCCF76D7E9FF00BEF9FF10A9FBFFBDDEDEFF5AC8DDFF0AB5F7FF62CEFFFFCBE4
|
||||||
|
F1FFF1E7E0FFEFE7E1FFEEE6E1FFEEE6E1FFEEE6E0FFEDE6E0FFEDE5E0FFEEE6
|
||||||
|
E1FFE1D4CCFFC5AE9FFFA68D7FF53E2718A10402000E00000000000000000000
|
||||||
|
0000000000000000000000000000000000000075B7AF0099C7C500323E425442
|
||||||
|
3B5C6BA8B1DA00C1FCFF0EA1F3F8A98E80C0AB9081C12698B1C10088C4C14C85
|
||||||
|
A3C1A18D80C19E8D81C19E8B81C19D8C80C19B8C7FC19B8A7FC19C897FC19A89
|
||||||
|
7EC19B8B7EC1897769C2432B1BAC000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000045565A00C5FFFF0094E6E2000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000FFFFFFFFF0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007F0000007F000
|
||||||
|
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
|
||||||
|
0007C0000007C000000700000007000000070000000700000007C000000FC000
|
||||||
|
001F8000003F800000FFF8FFFFFF}
|
||||||
|
Width = 450
|
||||||
|
Left = 88
|
||||||
|
Top = 88
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,235 @@
|
|||||||
|
unit uGenerarPedidosProvUtils;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, uBizContratosCliente, uBizPedidosProveedor, pngimage, JSDialog;
|
||||||
|
|
||||||
|
type
|
||||||
|
TdmGenerarPedidosProv = class(TDataModule)
|
||||||
|
JsListaPedidosGenerados: TJSDialog;
|
||||||
|
JsListaPedidosAsignadosAContrato: TJSDialog;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// function GenerarPedidosProv(const IDPedido : Integer) : Boolean; overload;
|
||||||
|
// function GenerarPedidosProv(APedidoCli : IBizPedidoCliente) : Boolean; overload;
|
||||||
|
// function GenerarPedidosProv : Boolean; overload;
|
||||||
|
|
||||||
|
function AsignarContratoAPedidos(AContrato : IBizContratoCliente; var APedidos: IBizPedidoProveedor): Boolean;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDialogUtils,
|
||||||
|
uContratosClienteController, uPedidosProveedorController, uProveedoresController,
|
||||||
|
uDetallesPedidoProveedorController, uControllerDetallesBase,
|
||||||
|
uBizContactos, schPedidosProveedorClient_Intf;
|
||||||
|
|
||||||
|
var
|
||||||
|
dmGenerarPedidosProv: TdmGenerarPedidosProv;
|
||||||
|
AContratosClienteController : IContratosClienteController;
|
||||||
|
APedidosProveedorController : IPedidosProveedorController;
|
||||||
|
ADetallesPedidosProvController : IDetallesPedidoProveedorController;
|
||||||
|
AProveedoresController : IProveedoresController;
|
||||||
|
|
||||||
|
|
||||||
|
procedure Inicializar;
|
||||||
|
begin
|
||||||
|
dmGenerarPedidosProv := TdmGenerarPedidosProv.Create(nil);
|
||||||
|
AContratosClienteController := TContratosClienteController.Create;
|
||||||
|
APedidosProveedorController := TPedidosProveedorController.Create;
|
||||||
|
ADetallesPedidosProvController := TDetallesPedidoProveedorController.Create;
|
||||||
|
AProveedoresController := TProveedoresController.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure Finalizar;
|
||||||
|
begin
|
||||||
|
FreeAndNIL(dmGenerarPedidosProv);
|
||||||
|
AContratosClienteController := nil;
|
||||||
|
APedidosProveedorController := nil;
|
||||||
|
ADetallesPedidosProvController := nil;
|
||||||
|
AProveedoresController := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
function AsignarContratoAPedidos(AContrato : IBizContratoCliente; var APedidos: IBizPedidoProveedor): Boolean;
|
||||||
|
var
|
||||||
|
i: integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if not Assigned(APedidos) then
|
||||||
|
raise Exception.Create ('Pedidos no asignadas (AsignarContratoAPedidos)');
|
||||||
|
|
||||||
|
if not Assigned(AContrato) then
|
||||||
|
raise Exception.Create ('Contrato no asignado (AsignarContratoAPedidos)');
|
||||||
|
|
||||||
|
if not APedidos.DataTable.Active then
|
||||||
|
APedidos.DataTable.Active := True;
|
||||||
|
|
||||||
|
if not Assigned(AContratosClienteController) then
|
||||||
|
Inicializar;
|
||||||
|
|
||||||
|
with dmGenerarPedidosProv.JsListaPedidosAsignadosAContrato do
|
||||||
|
begin
|
||||||
|
Content.Clear;
|
||||||
|
APedidos.DataTable.First;
|
||||||
|
for i := 0 to APedidos.DataTable.RecordCount - 1 do
|
||||||
|
begin
|
||||||
|
if (APedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE) then
|
||||||
|
begin
|
||||||
|
APedidos.Edit;
|
||||||
|
APedidos.ID_CONTRATO_CLIENTE := AContrato.ID;
|
||||||
|
APedidos.REF_CON_CLIENTE := AContrato.REFERENCIA;
|
||||||
|
APedidos.NOMBRE_CLIENTE := AContrato.NOMBRE_CLIENTE;
|
||||||
|
Content.Add(APedidos.REFERENCIA + ': Asignado contrato ' + AContrato.REFERENCIA);
|
||||||
|
APedidos.Post;
|
||||||
|
Result := True;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Content.Add(APedidos.REFERENCIA + ': El pedido está parcialmente recibido o recibido, por lo que no se puede modificar el contrato asociado ' + APedidos.REF_CON_CLIENTE);
|
||||||
|
APedidos.Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
dmGenerarPedidosProv.JsListaPedidosAsignadosAContrato.Execute;
|
||||||
|
APedidos.DataTable.ApplyUpdates;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{function GenerarPedidosProv(const IDPedido : Integer) : Boolean; overload;
|
||||||
|
var
|
||||||
|
APedido : IBizPedidoCliente;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
try
|
||||||
|
if not Assigned(APedidosClienteController) then
|
||||||
|
Inicializar;
|
||||||
|
|
||||||
|
APedido := APedidosClienteController.Buscar(IDPedido);
|
||||||
|
if Assigned(APedido) then
|
||||||
|
Result := GenerarPedidosProv(APedido);
|
||||||
|
finally
|
||||||
|
if Assigned(APedidosClienteController) then
|
||||||
|
Finalizar;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GenerarPedidosProv(APedidoCli : IBizPedidoCliente) : Boolean; overload;
|
||||||
|
var
|
||||||
|
APedidoProv : IBizPedidoProveedor;
|
||||||
|
AArticulosPend : IBizPedidoClienteArticulosPendientesPedirAProv;
|
||||||
|
ALista : TStringList;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if not Assigned(APedidoCli) then
|
||||||
|
raise Exception.Create('Pedido de cliente no asignado (GenerarPedidosProv)');
|
||||||
|
|
||||||
|
if not APedidoCli.DataTable.Active then
|
||||||
|
APedidoCli.DataTable.Active := True;
|
||||||
|
|
||||||
|
if not Assigned(APedidosClienteController) then
|
||||||
|
Inicializar;
|
||||||
|
|
||||||
|
AArticulosPend := APedidosClienteController.BuscarPendientesPedir(APedidoCli.ID);
|
||||||
|
if not Assigned(AArticulosPend) then
|
||||||
|
raise Exception.Create('Error al recuperar la lista de artículos pendientes de pedir (GenerarPedidosProv)');
|
||||||
|
|
||||||
|
ALista := TStringList.Create;
|
||||||
|
try
|
||||||
|
if not AArticulosPend.DataTable.Active then
|
||||||
|
AArticulosPend.DataTable.Active := True;
|
||||||
|
|
||||||
|
if AArticulosPend.DataTable.RecordCount = 0 then
|
||||||
|
begin
|
||||||
|
ShowInfoMessage('Este pedido a cliente no tiene artículos pendientes que se tengan que pedir a los proveedores');
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
APedidoProv := NIL;
|
||||||
|
AArticulosPend.DataTable.First;
|
||||||
|
while not AArticulosPend.DataTable.EOF do
|
||||||
|
begin
|
||||||
|
if Assigned(APedidoProv) and
|
||||||
|
(AArticulosPend.ID_PROVEEDOR <> APedidoProv.ID_PROVEEDOR) then
|
||||||
|
begin
|
||||||
|
APedidosProveedorController.Guardar(APedidoProv);
|
||||||
|
ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
|
||||||
|
APedidoProv := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not Assigned(APedidoProv) then
|
||||||
|
begin
|
||||||
|
APedidoProv := APedidosProveedorController.Nuevo;
|
||||||
|
APedidoProv.Edit;
|
||||||
|
APedidoProv.Proveedor := (AProveedoresController.Buscar(AArticulosPend.ID_PROVEEDOR) as IBizProveedor);
|
||||||
|
APedidoProv.ID_PEDIDO_CLIENTE := APedidoCli.ID;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//OJO IMPORTANTE
|
||||||
|
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
|
||||||
|
//obligarle siempre a recalcular los detalles una sola vez
|
||||||
|
ADetallesController.BeginUpdate(APedidoProv.Detalles);
|
||||||
|
|
||||||
|
ADetallesPedidosProvController.Add(APedidoProv.Detalles, TIPO_DETALLE_CONCEPTO);
|
||||||
|
ADetallesPedidosProvController.AnadirArticulo(APedidoProv.Detalles, AArticulosPend.ID_ARTICULO);
|
||||||
|
with APedidoProv.Detalles do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
CANTIDAD := AArticulosPend.CANT_PENDIENTE_PEDIR;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
ADetallesController.EndUpdate(APedidoProv.Detalles);
|
||||||
|
AArticulosPend.DataTable.Next;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(APedidoProv) then
|
||||||
|
begin
|
||||||
|
APedidosProveedorController.Guardar(APedidoProv);
|
||||||
|
ALista.Add(APedidoProv.REFERENCIA + ': ' + APedidoProv.NOMBRE);
|
||||||
|
APedidoProv := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ALista.Count > 0 then
|
||||||
|
begin
|
||||||
|
dmGenerarPedidosProv.JsListaPedidosGenerados.Content.Clear;
|
||||||
|
dmGenerarPedidosProv.JsListaPedidosGenerados.Content.AddStrings(ALista);
|
||||||
|
dmGenerarPedidosProv.JsListaPedidosGenerados.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
FreeAndNIL(ALista);
|
||||||
|
AArticulosPend := NIL;
|
||||||
|
|
||||||
|
if Assigned(APedidosClienteController) then
|
||||||
|
Finalizar;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GenerarPedidosProv : Boolean; overload;
|
||||||
|
var
|
||||||
|
APedidoCli : IBizPedidoCliente;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
try
|
||||||
|
if not Assigned(APedidosClienteController) then
|
||||||
|
Inicializar;
|
||||||
|
|
||||||
|
APedidoCli := APedidosClienteController.ElegirPedidos(APedidosClienteController.BuscarPendientes,
|
||||||
|
'Elija el pedido de cliente que desea utilizar para dar de alta el pedido o pedidos a proveedor.'
|
||||||
|
, False);
|
||||||
|
|
||||||
|
if Assigned(APedidoCli) then
|
||||||
|
Result := GenerarPedidosProv(APedidoCli);
|
||||||
|
finally
|
||||||
|
if Assigned(APedidosClienteController) then
|
||||||
|
Finalizar;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
|
||||||
|
end.
|
||||||
Binary file not shown.
@ -28,7 +28,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType/>
|
<Borland.ProjectType/>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">5.5.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.5.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 21 de enero de 2026 16:29</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">5.5.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.5.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 01 de marzo de 2026 21:27</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
|
<Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\cxLibraryD11.bpl">Express Cross Platform Library by Developer Express Inc.</Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
<Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
|
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SDACDriver_D11.bpl">RemObjects Data Abstract - CoreLabs SDAC Driver</Excluded_Packages>
|
||||||
|
|||||||
4963
Source/Servidor/schPedidosProveedorServer_Intf.pas
Normal file
4963
Source/Servidor/schPedidosProveedorServer_Intf.pas
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user