Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios varios

Browse Source
This commit is contained in:
Roberto 2026-03-03 11:38:24 +01:00
parent 39dc7e8374
commit 17d141e4e6
52 changed files with 12771 additions and 166 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Source/ApplicationBase/uPlugins_Intf.pas Normal file
View 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.

3
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +52,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

22
Source/Modulos/Albaranes de proveedor/Controller/View/uIEditorResultadoAlbaranesConArticulo.pas Normal file
View File

@ -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.

65
Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.dfm Normal file
View File

@ -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

54
Source/Modulos/Albaranes de proveedor/Views/uEditorBuscarArticuloAlbaran.pas Normal file
View File

@ -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.

109
Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.dfm Normal file
View File

@ -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

94
Source/Modulos/Albaranes de proveedor/Views/uEditorResultadoAlbaranesConArticulo.pas Normal file
View File

@ -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.

18
Source/Modulos/Contactos/Controller/uClientesController.pas
View File

@ -67,7 +67,7 @@ implementation
{$INCLUDE ..\..\..\FactuGES.inc}
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,
uIEditorElegirClientes, uEditorGridBase, uDAInterfaces, uFactuGES_App, uIEditorElegirDireccionEntrega,
Dialogs, uIntegerListUtils;
@ -257,6 +257,22 @@ begin
if Assigned((Result as IBizCliente).Descuentos) then
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;
function TClientesController.ElegirContacto(AContactos : IBizContacto;

107
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -4,7 +4,7 @@ inherited fEditorCliente: TfEditorCliente
Caption = 'Ficha de cliente'
ClientHeight = 939
ClientWidth = 1063
ExplicitWidth = 1071
ExplicitWidth = 1079
ExplicitHeight = 977
PixelsPerInch = 96
TextHeight = 13
@ -47,6 +47,12 @@ inherited fEditorCliente: TfEditorCliente
AE426082}
ExplicitLeft = 565
end
inherited lblDesbloquear: TcxLabel
Left = 938
ExplicitLeft = 938
AnchorX = 983
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
Width = 1063
@ -69,18 +75,18 @@ inherited fEditorCliente: TfEditorCliente
end
inherited pgPaginas: TPageControl
Width = 1057
Height = 805
Height = 806
ActivePage = pagDistribuidor
ExplicitWidth = 1057
ExplicitHeight = 805
ExplicitHeight = 806
inherited pagGeneral: TTabSheet
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inline frViewCliente1: TfrViewCliente
Left = 0
Top = 0
Width = 1049
Height = 777
Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -91,13 +97,13 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 1049
Height = 777
Height = 778
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited PngSpeedButton1: TPngSpeedButton
Left = 1004
Top = 218
@ -339,7 +345,8 @@ inherited fEditorCliente: TfEditorCliente
ExplicitHeight = 127
inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewCliente1.dsContacto
ExplicitWidth = 521
ExplicitWidth = 1005
ExplicitHeight = 387
Height = 127
Width = 521
end
@ -385,7 +392,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
Height = 777
Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -396,12 +403,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited cxGrid: TcxGrid
Width = 1049
Height = 752
Height = 753
ExplicitWidth = 1049
ExplicitHeight = 752
ExplicitHeight = 753
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn
SortIndex = 0
@ -412,50 +419,50 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 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
inherited pagPersonal: TTabSheet [2]
Tag = 2
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 1049
Height = 777
Height = 778
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited cxGrid: TcxGrid
Width = 1049
Height = 752
Height = 753
ExplicitWidth = 1049
ExplicitHeight = 752
ExplicitHeight = 753
end
inherited ToolBar1: TToolBar
Width = 1049
ButtonWidth = 126
ExplicitWidth = 1049
inherited ToolButton1: TToolButton
ExplicitWidth = 62
ExplicitWidth = 66
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
Left = 66
ExplicitWidth = 82
end
inherited ToolButton5: TToolButton
Left = 148
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
Left = 156
ExplicitLeft = 156
ExplicitWidth = 74
end
inherited ToolButton6: TToolButton
Left = 230
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
Left = 238
ExplicitLeft = 238
ExplicitWidth = 130
end
end
end
@ -642,12 +649,12 @@ inherited fEditorCliente: TfEditorCliente
inherited pagDatosBancarios: TTabSheet [4]
Tag = 4
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 1049
Height = 777
Height = 778
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited dxLayoutControl1: TdxLayoutControl
Width = 1049
LookAndFeel = dxLayoutOfficeLookAndFeel
@ -703,7 +710,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
Height = 777
Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -714,12 +721,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited cxGrid: TcxGrid
Width = 1049
Height = 752
Height = 753
ExplicitWidth = 1049
ExplicitHeight = 752
ExplicitHeight = 753
end
inherited ToolBar1: TToolBar
Width = 1049
@ -747,7 +754,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
Height = 777
Height = 778
Align = alClient
AutoSize = True
Font.Charset = DEFAULT_CHARSET
@ -759,15 +766,15 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited layoutApunte: TdxLayoutControl
Width = 1049
Height = 777
Height = 778
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
DesignSize = (
1049
777)
778)
inherited eRefSubCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
@ -823,7 +830,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 1049
Height = 777
Height = 778
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -834,12 +841,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited dxLayoutControl1: TdxLayoutControl
Width = 1049
Height = 777
Height = 778
ExplicitWidth = 1049
ExplicitHeight = 777
ExplicitHeight = 778
inherited cbEsDistribuidor: TcxDBCheckBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''

3
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -15,7 +15,8 @@ uses
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto,
uViewPersonalContacto, Grids, DBGrids, uViewClienteDatosDistribuidor;
uViewPersonalContacto, Grids, DBGrids, uViewClienteDatosDistribuidor,
cxControls, cxContainer, cxEdit, cxLabel;
type
TfEditorCliente = class(TfEditorContacto, IEditorCliente)

39
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -86,6 +86,7 @@ type
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
function RevisarContratosTerminados(const Ano: String): Boolean;
end;
@ -183,6 +184,7 @@ type
function AceptarContrato(AContrato: IBizContratoCliente): Boolean;
function AnadirIncidenciaContrato(AIdContrato: Integer): Boolean;
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
function RevisarContratosTerminados(const Ano: String): Boolean;
end;
@ -843,6 +845,43 @@ begin
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;
begin
inherited;

3
Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas
View File

@ -370,12 +370,11 @@ begin
TELEFONO := FCliente.TELEFONO_1;
MOVIL := FCliente.MOVIL_1;
IDIOMA_ISO := FCliente.IDIOMA_ISO;
IDIOMA := FCliente.IDIOMA;
IDIOMA := FCliente.IDIOMA;
PAIS := FCliente.PAIS;
ID_AGENTE := FCliente.ID_AGENTE;
//Establecemos como dirección de envio por defecto la dirección fiscal del cliente
ID_DIRECCION_ENVIO := 1;
CALLE_ENVIO := FCliente.CALLE;

166
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -193,10 +193,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesContratoCliente1: TfrViewDetallesContratoCliente
Left = 0
Top = 0
@ -218,83 +214,97 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited ToolBar1: TToolBar
Width = 1320
Height = 24
ButtonWidth = 123
ExplicitWidth = 1320
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
Left = 304
Wrap = False
ExplicitWidth = 57
end
inherited ToolButton14: TToolButton
Left = 334
Left = 361
Top = 0
ExplicitLeft = 334
ExplicitLeft = 361
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Left = 395
Top = 0
ExplicitLeft = 368
ExplicitLeft = 395
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Left = 540
Top = 0
Width = 124
ExplicitLeft = 513
ExplicitLeft = 540
ExplicitTop = 0
ExplicitWidth = 124
end
inherited UpDown1: TUpDown
Left = 637
Left = 664
Top = 0
ExplicitLeft = 637
ExplicitLeft = 664
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 654
Left = 681
Top = 0
ExplicitLeft = 654
ExplicitLeft = 681
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 662
Left = 689
Top = 0
ExplicitLeft = 662
ExplicitLeft = 689
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 696
Left = 723
Top = 0
ExplicitLeft = 696
ExplicitLeft = 723
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 730
Left = 757
Top = 0
ExplicitLeft = 730
ExplicitLeft = 757
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 764
Left = 791
Top = 0
ExplicitLeft = 764
ExplicitLeft = 791
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 772
Left = 799
Top = 0
ExplicitLeft = 772
ExplicitLeft = 799
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 806
Left = 833
Top = 0
ExplicitLeft = 806
ExplicitLeft = 833
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 840
Left = 867
Top = 0
ExplicitLeft = 840
ExplicitLeft = 867
ExplicitTop = 0
end
end
@ -392,10 +402,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -473,6 +479,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited PnlComentario: TPanel
Width = 1334
ExplicitWidth = 1334
inherited lbComentario: TLabel
Width = 1324
Height = 25
end
end
inline frViewTotales1: TfrViewTotales [5]
Left = 0
@ -495,129 +505,93 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 1334
ExplicitWidth = 1334
inherited Bevel3: TBevel
Left = 619
Height = 122
ExplicitLeft = 619
ExplicitHeight = 122
Left = 752
ExplicitLeft = 752
end
inherited Bevel4: TBevel
Left = 731
Width = 210
ExplicitLeft = 731
ExplicitWidth = 210
end
inherited Bevel2: TBevel
Width = 333
ExplicitWidth = 333
Left = 864
ExplicitLeft = 864
end
inherited Bevel1: TBevel
Left = 638
Width = 332
ExplicitLeft = 638
ExplicitWidth = 332
Left = 771
ExplicitLeft = 771
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 802
Left = 935
Style.IsFontAssigned = True
ExplicitLeft = 802
ExplicitWidth = 137
Width = 137
ExplicitLeft = 935
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 732
Left = 865
Style.IsFontAssigned = True
ExplicitLeft = 732
ExplicitWidth = 137
Width = 137
ExplicitLeft = 865
end
inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True
end
inherited edtIVA: TcxDBSpinEdit
Left = 731
Left = 864
Style.IsFontAssigned = True
ExplicitLeft = 731
ExplicitLeft = 864
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 731
Left = 864
Style.IsFontAssigned = True
ExplicitLeft = 731
ExplicitWidth = 92
Width = 92
ExplicitLeft = 864
end
inherited edtRE: TcxDBSpinEdit
Left = 731
Left = 864
Style.IsFontAssigned = True
ExplicitLeft = 731
ExplicitLeft = 864
end
inherited edtIRPF: TcxDBSpinEdit
Left = 731
Left = 864
Style.IsFontAssigned = True
ExplicitLeft = 731
ExplicitLeft = 864
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 802
Left = 935
Style.IsFontAssigned = True
ExplicitLeft = 802
ExplicitWidth = 56
Width = 56
ExplicitLeft = 935
end
inherited ImporteIRPF: TcxDBCurrencyEdit
Left = 802
Left = 935
Style.IsFontAssigned = True
ExplicitLeft = 802
ExplicitWidth = 56
Width = 56
ExplicitLeft = 935
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
ExplicitWidth = 81
Width = 81
end
inherited bTiposIVA: TButton
Left = 471
Left = 604
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 471
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
ExplicitLeft = 604
end
inherited edtRetencion: TcxDBSpinEdit
Left = 731
Left = 864
Style.IsFontAssigned = True
ExplicitLeft = 731
ExplicitLeft = 864
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 802
Left = 935
Style.IsFontAssigned = True
ExplicitLeft = 802
ExplicitWidth = 342
Width = 342
ExplicitLeft = 935
end
inherited edtFechaRetencion: TcxDBDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 333
Width = 333
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup

32
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas
View File

@ -415,12 +415,42 @@ end;
procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
var
AClientesController : IClientesController;
ADireccion : IBizDireccionesContacto;
APrimerCliente : Boolean;
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
begin
APrimerCliente := (FContrato.Cliente.ID = 0);
FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente;
FContrato.Cliente := ViewContrato.ViewClienteContrato.Cliente;
if (ShowConfirmMessage('Cambio forma de pago y tipo de IVA', '¿Desea actualizar la forma de pago y el tipo de IVA a la asignada en la ficha del cliente seleccionado?') = IDYES) then
FController.ActualizarFormaDePago(FContrato, FContrato.Cliente.ID_FORMA_PAGO);

219
Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.dfm Normal file
View File

@ -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

138
Source/Modulos/Contratos de cliente/Views/uEditorElegirContratosClienteParaCompra.pas Normal file
View File

@ -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.

832
Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.dfm Normal file
View File

@ -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

541
Source/Modulos/Contratos de cliente/Views/uViewContratosClienteParaCompra.pas Normal file
View File

@ -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.

2
Source/Modulos/Contratos de cliente/Views/uViewDatosYSeleccionClienteContrato.pas
View File

@ -225,7 +225,7 @@ var
ADireccion : IBizDireccionesContacto;
begin
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
ADireccion := FDireccionesController.Nuevo;
FDireccionesController.CopiarDireccionFiscal(FCliente, ADireccion);

678
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.dfm Normal file
View File

@ -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

469
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor - copia.pas Normal file
View File

@ -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.

26
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeComprasArticulosReport.pas Normal file
View File

@ -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.

26
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeVentasArticulosReport.pas Normal file
View File

@ -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.

18
Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroArticulos.pas Normal file
View File

@ -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.

18
Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroComerciales.pas Normal file
View File

@ -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.

245
Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.dfm Normal file
View File

@ -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

130
Source/Modulos/Gestor de informes/Views/uEditorInformeComprasArticulosReport.pas Normal file
View File

@ -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.

250
Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.dfm Normal file
View File

@ -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

130
Source/Modulos/Gestor de informes/Views/uEditorInformeVentasArticulosReport.pas Normal file
View File

@ -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
View 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
View 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.

131
Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.dfm Normal file
View File

@ -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

114
Source/Modulos/Gestor de informes/Views/uViewFiltroComerciales.pas Normal file
View File

@ -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.

22
Source/Modulos/Pedidos a proveedor/Controller/View/uIEditorResultadoPedidosConArticulo.pas Normal file
View File

@ -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.

65
Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.dfm Normal file
View File

@ -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

54
Source/Modulos/Pedidos a proveedor/Views/uEditorBuscarArticuloPedido.pas Normal file
View File

@ -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.

325
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.dfm Normal file
View File

@ -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

128
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor - copia.pas Normal file
View File

@ -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.

90
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.dfm Normal file
View File

@ -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

70
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirTipoOperacionCompra.pas Normal file
View File

@ -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.

311
Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.dfm Normal file
View File

@ -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

146
Source/Modulos/Pedidos a proveedor/Views/uEditorResultadoPedidosConArticulo.pas Normal file
View File

@ -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.

28
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.dproj
View File

@ -43,6 +43,10 @@
<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\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -52,15 +56,15 @@
<DelphiCompile Include="PresupuestosCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_controller.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
<DCCReference Include="$(SystemRoot)\system32\adortl.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\dbrtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\dsnap.dcp" />
<DCCReference Include="$(SystemRoot)\system32\rtl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcl.dcp" />
<DCCReference Include="$(SystemRoot)\system32\vcldb.dcp" />
<DCCReference Include="Data\uIDataModulePresupuestosCliente.pas" />
<DCCReference Include="Data\uIDataModulePresupuestosClienteReport.pas" />
<DCCReference Include="schPresupuestosClienteClient_Intf.pas" />
@ -72,7 +76,7 @@
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=1
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
@ -238,7 +242,7 @@ mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error."
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."
@ -550,5 +554,5 @@ Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
TextsCollection=
EurekaLog Last Line -->

4
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -340,10 +340,14 @@ begin
if not bEnEdicion then
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_AGENTE := FCliente.ID_AGENTE;
NOMBRE_AGENTE := FCliente.AGENTE;
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
// if FCliente.ID_FORMA_PAGO > 0 then
// ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;

212
Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedCli_PedProv_relation.dproj Normal file
View File

@ -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>

41
Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dpk Normal file
View File

@ -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.

688
Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/PedProv_ConCli_relation.dproj Normal file
View File

@ -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 -->

606
Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.dfm Normal file
View File

@ -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

235
Source/Modulos/Relaciones/Pedidos a proveedor - Contratos de cliente/uGenerarPedidosProvUtils.pas Normal file
View File

@ -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.

BIN
Source/Modulos/Tarifas/Controller/Tarifas_controller.dcu
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<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\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>

4963
Source/Servidor/schPedidosProveedorServer_Intf.pas Normal file
View File

File diff suppressed because it is too large Load Diff