Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Combobox de Lista de tiendas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@152 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-02-26 18:08:51 +00:00
parent f51df31caf
commit d135e41292
67 changed files with 1498 additions and 1580 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -22,6 +22,8 @@ type
procedure DescartarCambios(AEmpresa : IBizEmpresa); procedure DescartarCambios(AEmpresa : IBizEmpresa);
function Existe(const ID: Integer) : Boolean; function Existe(const ID: Integer) : Boolean;
function ToStringList(AEmpresa : IBizEmpresa) : TStringList; function ToStringList(AEmpresa : IBizEmpresa) : TStringList;
function DarListaTiendas(AEmpresa : IBizEmpresa): TStringList;
end; end;
TEmpresasController = class(TControllerBase, IEmpresasController) TEmpresasController = class(TControllerBase, IEmpresasController)
@ -45,13 +47,15 @@ type
procedure Ver(AEmpresa : IBizEmpresa); virtual; procedure Ver(AEmpresa : IBizEmpresa); virtual;
procedure VerTodos(AEmpresas: IBizEmpresa); virtual; procedure VerTodos(AEmpresas: IBizEmpresa); virtual;
function ToStringList(AEmpresa : IBizEmpresa) : TStringList; virtual; function ToStringList(AEmpresa : IBizEmpresa) : TStringList; virtual;
function DarListaTiendas(AEmpresa : IBizEmpresa): TStringList;
end; end;
implementation implementation
uses uses
uEditorRegistryUtils, cxControls, DB, uFactuGES_App, uEditorRegistryUtils, cxControls, DB, uFactuGES_App,
uDataModuleEmpresas, uIEditorEmpresa; uDataModuleEmpresas, uIEditorEmpresa, uBizEmpresasTiendas;
{ TEmpresasController } { TEmpresasController }
@ -75,10 +79,40 @@ begin
FDataModule := TDataModuleEmpresas.Create(Nil); FDataModule := TDataModuleEmpresas.Create(Nil);
end; end;
function TEmpresasController.DarListaTiendas(
AEmpresa: IBizEmpresa): TStringList;
var
ATiendas: IBizEmpresasTiendas;
i : integer;
begin
if not Assigned(AEmpresa) then
raise Exception.Create ('Empresa no asignada (DarListaTiendas)');
ATiendas := AEmpresa.Tiendas;
ATiendas.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
Add(Format('%s=%d', [CTE_TODAS, CTE_ID_TODAS]));
ATiendas.DataTable.First;
while not ATiendas.DataTable.EOF do
begin
Add(Format('%s=%d', [ATiendas.NOMBRE, ATiendas.ID]));
ATiendas.DataTable.Next;
end;
end;
finally
ATiendas := NIL;
end;
end;
procedure TEmpresasController.DescartarCambios(AEmpresa: IBizEmpresa); procedure TEmpresasController.DescartarCambios(AEmpresa: IBizEmpresa);
begin begin
if not Assigned(AEmpresa) then if not Assigned(AEmpresa) then
raise Exception.Create ('Empresa no asignada'); raise Exception.Create ('Empresa no asignada (DescartarCambios)');
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -102,7 +136,7 @@ begin
Result := False; Result := False;
if not Assigned(AEmpresa) then if not Assigned(AEmpresa) then
raise Exception.Create ('Empresa no asignada'); raise Exception.Create ('Empresa no asignada (Eliminar)');
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -184,7 +218,7 @@ begin
Result := False; Result := False;
if not Assigned(AEmpresa) then if not Assigned(AEmpresa) then
raise Exception.Create ('Empresa no asignada'); raise Exception.Create ('Empresa no asignada (ValidarEmpresa)');
if (AEmpresa.DataTable.State in dsEditModes) then if (AEmpresa.DataTable.State in dsEditModes) then
AEmpresa.DataTable.Post; AEmpresa.DataTable.Post;

103
Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas
View File

@ -8,23 +8,17 @@ uses
type type
ITiendasEmpresaController = interface ITiendasEmpresaController = interface
['{9B6CB172-F32C-414F-A0E2-99920CAF88FB}'] ['{5DCF4163-7FA0-4560-9E5E-FA2A99EA4F59}']
// procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizTiendasEmpresa; AAnadir : Boolean = True); procedure VerTienda(ATienda : IBizEmpresasTiendas);
procedure Ver(ATienda : IBizEmpresasTiendas);
// function Localizar(ADirecciones: IBizTiendasEmpresa; const ID : Integer): Boolean;
function DarListaTiendas: TStringList; function DarListaTiendas: TStringList;
function DarListaIDTiendas: TIntegerList;
end; end;
TTiendasEmpresaController = class(TInterfacedObject, ITiendasEmpresaController) TTiendasEmpresaController = class(TInterfacedObject, ITiendasEmpresaController)
private private
FDataModule : IDataModuleEmpresas; FDataModule : IDataModuleEmpresas;
public public
// procedure CopiarDireccionFiscal(AContacto: IBizContacto; ADireccion: IBizTiendasEmpresa; AAnadir : Boolean = True); procedure VerTienda(ATienda : IBizEmpresasTiendas);
procedure Ver(ATienda : IBizEmpresasTiendas);
function DarListaTiendas: TStringList; function DarListaTiendas: TStringList;
function DarListaIDTiendas: TIntegerList;
// function Localizar(ADirecciones: IBizTiendasEmpresa; const ID : Integer): Boolean;
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -37,72 +31,36 @@ uses
uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorTiendaEmpresa, uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorTiendaEmpresa,
uEditorRegistryUtils, cxControls, uFactuGES_App; uEditorRegistryUtils, cxControls, uFactuGES_App;
{
procedure TTiendasEmpresaController.CopiarDireccionFiscal(
AContacto: IBizContacto; ADireccion: IBizTiendasEmpresa;
AAnadir: Boolean);
begin
if not Assigned(AContacto) then
raise Exception.Create ('Contacto no asignado (CopiarDireccionFiscal)');
if not Assigned(ADireccion) then
raise Exception.Create ('Dirección no asignada (CopiarDireccionFiscal)');
if AAnadir then
ADireccion.DataTable.Insert
else
ADireccion.DataTable.Edit;
try
with ADireccion do
begin
NOMBRE := 'Dirección de entrega';
CALLE := AContacto.CALLE;
POBLACION := AContacto.POBLACION;
PROVINCIA := AContacto.PROVINCIA;
CODIGO_POSTAL := AContacto.CODIGO_POSTAL;
TELEFONO := AContacto.TELEFONO_1;
EMAIL := AContacto.EMAIL_1;
end;
finally
ADireccion.DataTable.Post;
end;
end;
}
constructor TTiendasEmpresaController.Create; constructor TTiendasEmpresaController.Create;
begin begin
inherited; inherited;
FDataModule := TDataModuleEmpresas.Create(Nil); FDataModule := TDataModuleEmpresas.Create(Nil);
end; end;
function TTiendasEmpresaController.DarListaIDTiendas: TIntegerList;
begin
Result := TIntegerList.Create;
with Result do
begin
Add(CTE_ID_TODAS); //Todas las tiendas
AppFactuGES.EmpresaActiva.Tiendas.DataTable.First;
while not AppFactuGES.EmpresaActiva.Tiendas.DataTable.EOF do
begin
Add(AppFactuGES.EmpresaActiva.Tiendas.ID);
AppFactuGES.EmpresaActiva.Tiendas.DataTable.Next;
end;
end;
end;
function TTiendasEmpresaController.DarListaTiendas: TStringList; function TTiendasEmpresaController.DarListaTiendas: TStringList;
var
ATiendas: IBizEmpresasTiendas;
i : integer;
begin begin
ATiendas := AppFactuGES.EmpresaActiva.Tiendas;
ATiendas.DataTable.Active := True;
Result := TStringList.Create; Result := TStringList.Create;
try
with Result do with Result do
begin begin
Append(CTE_TODAS); //Todas las tiendas Add(Format('%s=%d', [CTE_TODAS, CTE_ID_TODAS]));
AppFactuGES.EmpresaActiva.Tiendas.DataTable.First;
while not AppFactuGES.EmpresaActiva.Tiendas.DataTable.EOF do ATiendas.DataTable.First;
while not ATiendas.DataTable.EOF do
begin begin
Append(AppFactuGES.EmpresaActiva.Tiendas.NOMBRE); Add(Format('%s=%d', [ATiendas.NOMBRE, ATiendas.ID]));
AppFactuGES.EmpresaActiva.Tiendas.DataTable.Next; ATiendas.DataTable.Next;
end; end;
end; end;
finally
ATiendas := NIL;
end;
end; end;
destructor TTiendasEmpresaController.Destroy; destructor TTiendasEmpresaController.Destroy;
@ -111,28 +69,7 @@ begin
inherited; inherited;
end; end;
{ procedure TTiendasEmpresaController.VerTienda(ATienda: IBizEmpresasTiendas);
function TTiendasEmpresaController.Localizar(
ADirecciones: IBizTiendasEmpresa; const ID: Integer): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with ADirecciones.DataTable do
begin
DisableControls;
First;
if not Locate(fld_TiendasEmpresaID, ID, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
}
procedure TTiendasEmpresaController.Ver(ATienda: IBizEmpresasTiendas);
var var
AEditor : IEditorTiendaEmpresa; AEditor : IEditorTiendaEmpresa;
begin begin

8
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schEmpresasClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -232,7 +232,7 @@ type
end; end;
{ TEmpresasTiendasDataTableRules } { TEmpresasTiendasDataTableRules }
TEmpresasTiendasDataTableRules = class(TDADataTableRules, IEmpresasTiendas) TEmpresasTiendasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasTiendas)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -488,7 +488,7 @@ type
end; end;
{ TEmpresasDataTableRules } { TEmpresasDataTableRules }
TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas) TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_LOGOTIPO: IROStream; f_LOGOTIPO: IROStream;
@ -705,7 +705,7 @@ type
end; end;
{ TEmpresasDatosBancoDataTableRules } { TEmpresasDatosBancoDataTableRules }
TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco) TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

17
Source/ApplicationBase/Empresas/Views/uViewTienda.dfm
View File

@ -1,16 +1,15 @@
inherited frViewTienda: TfrViewTienda inherited frViewTienda: TfrViewTienda
Width = 451 Width = 451
Height = 180 Height = 41
Align = alBottom
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 180 ExplicitHeight = 41
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 451
Height = 73 Height = 41
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -21,14 +20,14 @@ inherited frViewTienda: TfrViewTienda
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
451 451
73) 41)
object cbTienda: TcxDBComboBox object cbTienda: TcxComboBox
Left = 51 Left = 51
Top = 10 Top = 10
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'TIENDA'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.OnValidate = cbTiendaPropertiesValidate
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -56,8 +55,4 @@ inherited frViewTienda: TfrViewTienda
end end
end end
end end
object dsVendedores: TDADataSource
Left = 400
Top = 40
end
end end

100
Source/ApplicationBase/Empresas/Views/uViewTienda.pas
View File

@ -5,27 +5,31 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics, Dialogs, uViewBase, ExtCtrls, StdCtrls, DB, uDADataTable, cxGraphics,
cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, cxControls;
cxCheckBox, cxMemo, uDAInterfaces, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, dxLayoutControl, uTiendasEmpresaController,
uIntegerListUtils, uUsuariosController;
type type
TfrViewTienda = class(TfrViewBase) IViewTienda = interface(IViewBase)
cbTienda: TcxDBComboBox; ['{9FD357AB-2E87-4CAF-8AEB-04368AD075AF}']
end;
TfrViewTienda = class(TfrViewBase, IViewTienda)
cbTienda: TcxComboBox;
dxLayoutControl1Group_Root: TdxLayoutGroup; dxLayoutControl1Group_Root: TdxLayoutGroup;
dxLayoutControl1: TdxLayoutControl; dxLayoutControl1: TdxLayoutControl;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
dsVendedores: TDADataSource;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbTiendaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
private private
FDataItem : TDADataTable;
FListaTiendas : TStringList; FListaTiendas : TStringList;
FListaIDTiendas: TIntegerList; function GetDataItem: TDADataTable;
procedure SetDataItem(const Value: TDADataTable);
public public
property DataItem : TDADataTable read GetDataItem write SetDataItem;
procedure ElegirTienda(const AIDTienda : Integer);
function getIDTienda: Integer; function getIDTienda: Integer;
procedure SetIDTienda(const ID: Integer); procedure SetIDTienda(const ID: Integer);
@ -33,57 +37,97 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
procedure TfrViewTienda.CustomViewCreate(Sender: TObject); uses
uFactuGES_App;
procedure TfrViewTienda.cbTiendaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
AIndex : integer;
begin begin
inherited; inherited;
FListaTiendas := Nil;
FListaIDTiendas := Nil; if Assigned(FDataItem) and FDataItem.Active then
with TTiendasEmpresaController.Create do
begin begin
FListaTiendas := DarListaTiendas; AIndex := StrToInt(FListaTiendas.Values[DisplayValue]);
FListaIDTiendas := DarListaIDTiendas;
FDataItem.Edit;
if Assigned(FDataItem.FindField('ID_TIENDA')) then
FDataItem.FieldByName('ID_TIENDA').AsInteger := AIndex;
if Assigned(FDataItem.FindField('TIENDA')) then
FDataItem.FieldByName('TIENDA').AsString := DisplayValue;
end;
end; end;
if Assigned(FListaTiendas) then procedure TfrViewTienda.CustomViewCreate(Sender: TObject);
var
i : integer;
begin
inherited;
FListaTiendas := AppFactuGES.EmpresasController.DarListaTiendas(AppFactuGES.EmpresaActiva);
with cbTienda.Properties.Items do with cbTienda.Properties.Items do
begin begin
BeginUpdate; BeginUpdate;
try try
Clear; Clear;
AddStrings(FListaTiendas); for i := 0 to FListaTiendas.Count - 1 do
Add(FListaTiendas.Names[i]);
finally finally
EndUpdate; EndUpdate;
end; end;
cbTienda.ItemIndex := 0;
end; end;
end; end;
procedure TfrViewTienda.CustomViewDestroy(Sender: TObject); procedure TfrViewTienda.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
if Assigned(FListaTiendas) then FreeAndNIL(FListaTiendas);
FreeAndNil(FListaTiendas); end;
if Assigned(FListaIDTiendas) then procedure TfrViewTienda.ElegirTienda(const AIDTienda: Integer);
FreeAndNil(FListaIDTiendas); var
i : integer;
begin
for i := 0 to FListaTiendas.Count-1 do
begin
if FListaTiendas.ValueFromIndex[i] = IntToStr(AIDTienda) then
begin
cbTienda.Text := FListaTiendas.Names[i];
Break;
end;
end;
end;
function TfrViewTienda.GetDataItem: TDADataTable;
begin
Result := FDataItem;
end; end;
function TfrViewTienda.getIDTienda: Integer; function TfrViewTienda.getIDTienda: Integer;
begin begin
if FListaTiendas.IndexOf(cbTienda.Text) < 0 then { if FListaTiendas.IndexOf(cbTienda.Text) < 0 then
Result := FListaTiendas.IndexOf(cbTienda.Text) Result := FListaTiendas.IndexOf(cbTienda.Text)
else else
Result := FListaIDTiendas.Integers[FListaTiendas.IndexOf(cbTienda.Text)]; Result := FListaIDTiendas.Integers[FListaTiendas.IndexOf(cbTienda.Text)];}
end;
procedure TfrViewTienda.SetDataItem(const Value: TDADataTable);
begin
FDataItem := Value;
if Assigned(FDataItem.FindField('ID_TIENDA')) then
ElegirTienda(FDataItem.FieldByName('ID_TIENDA').AsInteger);
end; end;
procedure TfrViewTienda.SetIDTienda(const ID: Integer); procedure TfrViewTienda.SetIDTienda(const ID: Integer);
var var
AIndex: Integer; AIndex: Integer;
begin begin
if FListaIDTiendas.Find(ID, AIndex) then { if FListaIDTiendas.Find(ID, AIndex) then
cbTienda.Text := FListaTiendas.Strings[AIndex]; cbTienda.Text := FListaTiendas.Strings[AIndex];}
end; end;
end. end.

12
Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
View File

@ -52,7 +52,11 @@ begin
try try
with TTiendasEmpresaController.Create do with TTiendasEmpresaController.Create do
Ver((dsDetalles.DataTable) as IBizEmpresasTiendas); try
VerTienda((dsDetalles.DataTable) as IBizEmpresasTiendas);
finally
Free;
end;
finally finally
if (dsDetalles.DataTable.State in dsEditModes) then if (dsDetalles.DataTable.State in dsEditModes) then
dsDetalles.DataTable.Post; dsDetalles.DataTable.Post;
@ -69,7 +73,11 @@ procedure TfrViewTiendas.ModificarInterno;
begin begin
inherited; inherited;
with TTiendasEmpresaController.Create do with TTiendasEmpresaController.Create do
Ver((dsDetalles.DataTable) as IBizEmpresasTiendas); try
VerTienda((dsDetalles.DataTable) as IBizEmpresasTiendas);
finally
Free;
end;
end; end;
end. end.

3
Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
View File

@ -109,7 +109,6 @@ begin
FUsuario.Edit; FUsuario.Edit;
FUsuario.ID_PERFIL := AIndex; FUsuario.ID_PERFIL := AIndex;
FUsuario.Post;
end; end;
end; end;
@ -197,7 +196,7 @@ begin
if FListaPerfiles.ValueFromIndex[i] = IntToStr(FUsuario.ID_PERFIL) then if FListaPerfiles.ValueFromIndex[i] = IntToStr(FUsuario.ID_PERFIL) then
begin begin
cbPerfil.Text := FListaPerfiles.Names[i]; cbPerfil.Text := FListaPerfiles.Names[i];
break; Break;
end; end;
end; end;
end; end;

82
Source/Base/Base.dproj
View File

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

12
Source/Cliente/uBootStrap.pas
View File

@ -28,10 +28,10 @@ begin
LoadModule('Contactos_plugin.bpl'); LoadModule('Contactos_plugin.bpl');
{$IFDEF ALMACEN} {$IFDEF ALMACEN}
LoadModule('Familias_plugin.bpl'); { LoadModule('Familias_plugin.bpl');
LoadModule('UnidadesMedida_plugin.bpl'); LoadModule('UnidadesMedida_plugin.bpl');
LoadModule('Almacenes_plugin.bpl'); LoadModule('Almacenes_plugin.bpl');
LoadModule('Articulos_plugin.bpl'); LoadModule('Articulos_plugin.bpl');}
{$ENDIF} {$ENDIF}
LoadModule('PresupuestosCliente_plugin.bpl'); LoadModule('PresupuestosCliente_plugin.bpl');
@ -41,8 +41,8 @@ begin
LoadModule('FacturasCliente_plugin.bpl'); LoadModule('FacturasCliente_plugin.bpl');
{$IFDEF PEDIDOSPROVEEDOR} {$IFDEF PEDIDOSPROVEEDOR}
LoadModule('PedidosProveedor_plugin.bpl'); { LoadModule('PedidosProveedor_plugin.bpl');
LoadModule('AlbaranesProveedor_plugin.bpl'); LoadModule('AlbaranesProveedor_plugin.bpl');}
{$ENDIF} {$ENDIF}
LoadModule('RecibosProveedor_plugin.bpl'); LoadModule('RecibosProveedor_plugin.bpl');
@ -52,8 +52,8 @@ begin
LoadModule('RemesasProveedor_plugin.bpl'); LoadModule('RemesasProveedor_plugin.bpl');
{$IFDEF ALMACEN} {$IFDEF ALMACEN}
LoadModule('Inventario_plugin.bpl'); { LoadModule('Inventario_plugin.bpl');
LoadModule('HistoricoMovimientos_plugin.bpl'); LoadModule('HistoricoMovimientos_plugin.bpl');}
{$ENDIF} {$ENDIF}
LoadModule('Ejercicios_plugin.bpl'); LoadModule('Ejercicios_plugin.bpl');

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

@ -6,7 +6,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 612 ExplicitHeight = 619
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -149,6 +149,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Height = 406 Height = 406
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 759 ExplicitWidth = 759
ExplicitHeight = 406 ExplicitHeight = 406
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -190,7 +192,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 751 Width = 751
ExplicitWidth = 757 ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
@ -218,7 +220,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitHeight = 378 ExplicitHeight = 378
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 751
ExplicitWidth = 757 ExplicitWidth = 751
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
@ -281,20 +283,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 369 Left = 368
Top = 11 Top = 11
Width = 7 Width = 7
Height = 54 Height = 54
ExplicitLeft = 369 ExplicitLeft = 368
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 7 ExplicitWidth = 7
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 485 Left = 484
Top = 92 Top = 92
Width = 192 Width = 192
ExplicitLeft = 485 ExplicitLeft = 484
ExplicitTop = 92 ExplicitTop = 92
ExplicitWidth = 192 ExplicitWidth = 192
end end
@ -308,20 +310,20 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 556 Left = 555
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 556 ExplicitLeft = 555
ExplicitTop = 38 ExplicitTop = 38
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 486 Left = 485
Top = 112 Top = 112
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 486 ExplicitLeft = 485
ExplicitTop = 112 ExplicitTop = 112
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -334,36 +336,36 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitTop = 112 ExplicitTop = 112
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 485 Left = 484
Top = 38 Top = 38
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 ExplicitLeft = 484
ExplicitTop = 38 ExplicitTop = 38
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 485 Left = 484
Top = 11 Top = 11
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 ExplicitLeft = 484
ExplicitTop = 11 ExplicitTop = 11
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 485 Left = 484
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 485 ExplicitLeft = 484
ExplicitTop = 65 ExplicitTop = 65
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 556 Left = 555
Top = 65 Top = 65
DataBinding.DataField = '' DataBinding.DataField = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 556 ExplicitLeft = 555
ExplicitTop = 65 ExplicitTop = 65
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -397,9 +399,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 221 Left = 220
Top = 38 Top = 38
ExplicitLeft = 221 ExplicitLeft = 220
ExplicitTop = 38 ExplicitTop = 38
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

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

@ -133,8 +133,6 @@ begin
end; end;
procedure TfEditorAlbaranCliente.FormShow(Sender: TObject); procedure TfEditorAlbaranCliente.FormShow(Sender: TObject);
var
i:Integer;
begin begin
inherited; inherited;

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

@ -123,32 +123,9 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 759
ExplicitHeight = 406
inherited pagGeneral: TTabSheet
ExplicitWidth = 751
ExplicitHeight = 378
end
inherited pagContenido: TTabSheet
inherited frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
inherited TBXDock1: TTBXDock
ExplicitWidth = 751
end
end
end
inherited pagInicidencias: TTabSheet inherited pagInicidencias: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 378
inherited frViewIncidenciasCli: TfrViewIncidencias inherited frViewIncidenciasCli: TfrViewIncidencias
ExplicitWidth = 751
ExplicitHeight = 378
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
ExplicitWidth = 751
ExplicitHeight = 350
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 726 ExplicitWidth = 726
ExplicitHeight = 319 ExplicitHeight = 319
@ -167,15 +144,15 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 332 Left = 331
Height = 54 Height = 54
ExplicitLeft = 332 ExplicitLeft = 331
ExplicitHeight = 54 ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 448 Left = 447
Width = 285 Width = 285
ExplicitLeft = 448 ExplicitLeft = 447
ExplicitWidth = 285 ExplicitWidth = 285
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
@ -184,16 +161,16 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 519 Left = 518
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 519 ExplicitLeft = 518
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 449 Left = 448
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 449 ExplicitLeft = 448
ExplicitWidth = 284 ExplicitWidth = 284
Width = 284 Width = 284
end end
@ -201,26 +178,26 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 448 Left = 447
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 448 ExplicitLeft = 447
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 448 Left = 447
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 448 ExplicitLeft = 447
ExplicitWidth = 285 ExplicitWidth = 285
Width = 285 Width = 285
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 448 Left = 447
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 448 ExplicitLeft = 447
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 519 Left = 518
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 519 ExplicitLeft = 518
ExplicitWidth = 214 ExplicitWidth = 214
Width = 214 Width = 214
end end
@ -239,8 +216,8 @@ inherited fEditorAlbaranDevCliente: TfEditorAlbaranDevCliente
Width = 81 Width = 81
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 184 Left = 183
ExplicitLeft = 184 ExplicitLeft = 183
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219 ExplicitWidth = 219

21
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -14,7 +14,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 822
DesignSize = ( DesignSize = (
825 825
620) 620)
@ -56,7 +55,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 469 Top = 464
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -527,9 +526,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 430 Left = 430
Top = 387 Top = 387
Width = 822 Width = 451
Height = 46 Height = 41
Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -540,15 +538,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ReadOnly = False ReadOnly = False
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 387 ExplicitTop = 387
ExplicitWidth = 822
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 822 inherited cbTienda: TcxComboBox
ExplicitWidth = 822 ExplicitWidth = 376
inherited cbTienda: TcxDBComboBox Width = 376
DataBinding.DataSource = DADataSource
Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
ExplicitWidth = 412
Width = 412
end end
end end
end end
@ -742,6 +735,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
object dxLayoutControl1Group17: TdxLayoutGroup object dxLayoutControl1Group17: TdxLayoutGroup
Caption = 'El albar'#225'n pertenece a la tienda' Caption = 'El albar'#225'n pertenece a la tienda'
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item17: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
Control = frViewTienda1 Control = frViewTienda1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False

20
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas
View File

@ -105,9 +105,9 @@ type
dxLayoutControl1Item21: TdxLayoutItem; dxLayoutControl1Item21: TdxLayoutItem;
eFechaEnvio: TcxDBDateEdit; eFechaEnvio: TcxDBDateEdit;
dxLayoutControl1Group16: TdxLayoutGroup; dxLayoutControl1Group16: TdxLayoutGroup;
dxLayoutControl1Item17: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Group17: TdxLayoutGroup; dxLayoutControl1Group17: TdxLayoutGroup;
frViewTienda1: TfrViewTienda;
dxLayoutControl1Item17: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);
@ -127,7 +127,6 @@ type
procedure frViewClienteAlbaranButton1Click(Sender: TObject); procedure frViewClienteAlbaranButton1Click(Sender: TObject);
procedure frViewClienteAlbaranButton2Click(Sender: TObject); procedure frViewClienteAlbaranButton2Click(Sender: TObject);
procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject); procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected protected
FAlbaran : IBizAlbaranCliente; FAlbaran : IBizAlbaranCliente;
@ -161,7 +160,7 @@ implementation
uses uses
uClientesController, uBizDireccionesContacto, uClientesController, uBizDireccionesContacto,
schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils, schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils,
uDialogUtils; uDialogUtils, uFactuGES_App;
procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject); procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject);
@ -243,6 +242,8 @@ begin
end; end;
procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject); procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject);
var
i : integer;
begin begin
inherited; inherited;
FFormasPago := Nil; FFormasPago := Nil;
@ -358,16 +359,6 @@ begin
frViewClienteAlbaran.actAnadirContacto.Execute; frViewClienteAlbaran.actAnadirContacto.Execute;
end; end;
procedure TfrViewAlbaranCliente.frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
begin
inherited;
if assigned(Albaran)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Albaran, frViewTienda1.getIDTienda);
end;
end;
function TfrViewAlbaranCliente.GetAlbaran: IBizAlbaranCliente; function TfrViewAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
begin begin
Result := FAlbaran; Result := FAlbaran;
@ -389,6 +380,7 @@ begin
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin
DADataSource.DataTable := FAlbaran.DataTable; DADataSource.DataTable := FAlbaran.DataTable;
frViewTienda1.DataItem := FAlbaran.DataTable;
frViewClienteAlbaran.Cliente := FAlbaran.Cliente; frViewClienteAlbaran.Cliente := FAlbaran.Cliente;
FFormasPago := FFormasPagoController.BuscarTodos; FFormasPago := FFormasPagoController.BuscarTodos;

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

@ -123,17 +123,7 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end
inherited pagInicidencias: TTabSheet inherited pagInicidencias: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 757
ExplicitHeight = 432
inherited frViewIncidenciasCli: TfrViewIncidencias inherited frViewIncidenciasCli: TfrViewIncidencias
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
@ -149,32 +139,14 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
inherited frViewTotales1: TfrViewTotales inherited frViewTotales1: TfrViewTotales
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
inherited Bevel1: TBevel
Width = 73
ExplicitWidth = 73
end
inherited Bevel3: TBevel
Height = 30
ExplicitHeight = 30
end
inherited Bevel4: TBevel
Width = 21
ExplicitWidth = 21
end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 93
Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 137
Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 137
Width = 137
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
@ -184,34 +156,18 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 92
Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitWidth = 147
Width = 147
end
inherited eIVA: TcxDBLookupComboBox
ExplicitWidth = 81
Width = 81
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
ExplicitWidth = 219
Width = 219
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup

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

@ -10,7 +10,8 @@ uses
JvStatusBar, uViewIncidencias, uViewDetallesBase, uViewDetallesDTO, JvStatusBar, uViewIncidencias, uViewDetallesBase, uViewDetallesDTO,
uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase, uViewDetallesArticulos, uViewDetallesAlbaranProveedor, uCustomView, uViewBase,
uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, uViewAlbaranProveedor, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor; JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranDevProveedor,
uDAInterfaces;
type type
TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor) TfEditorAlbaranDevProveedor = class(TfEditorAlbaranProveedor, IEditorAlbaranDevProveedor)

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

@ -6,7 +6,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ClientWidth = 765 ClientWidth = 765
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 773
ExplicitHeight = 646 ExplicitHeight = 653
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -147,16 +147,17 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 759
Height = 454 Height = 454
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 759 ExplicitWidth = 759
ExplicitHeight = 454 ExplicitHeight = 454
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 757 ExplicitWidth = 751
ExplicitHeight = 432 ExplicitHeight = 426
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'

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

@ -204,6 +204,7 @@ begin
frViewDetallesAlbaranProveedor1.BeginUpdate; frViewDetallesAlbaranProveedor1.BeginUpdate;
try try
bEsNuevo := FAlbaran.EsNuevo; bEsNuevo := FAlbaran.EsNuevo;
FController.SetID_Tienda(FAlbaran, TfrViewAlbaranProveedor(ViewAlbaran).frViewTienda1.getIDTienda);
FController.Guardar(FAlbaran); FController.Guardar(FAlbaran);
finally finally
frViewDetallesAlbaranProveedor1.EndUpdate; frViewDetallesAlbaranProveedor1.EndUpdate;

52
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranDevProveedor.dfm
View File

@ -7,20 +7,14 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited edtFechaAlbaran: TcxDBDateEdit inherited edtFechaAlbaran: TcxDBDateEdit
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 119
Width = 119
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 186 ExplicitHeight = 61
ExplicitHeight = 162 Height = 61
Height = 162
Width = 186
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 143
Width = 143
end end
inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor inherited frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -47,37 +41,13 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
end end
end end
inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv inherited frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Width = 445
Height = 175
ExplicitWidth = 445
ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 445
Height = 175
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
end
inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 425
Width = 425
end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 109 Left = 199
Top = 109 Top = 109
ExplicitLeft = 109 ExplicitLeft = 199
ExplicitTop = 109 ExplicitTop = 109
end end
inherited txtDireccion: TStaticText
Width = 549
Height = 110
ExplicitWidth = 549
ExplicitHeight = 110
end
inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutItem1: TdxLayoutItem inherited dxLayoutItem1: TdxLayoutItem
Visible = False Visible = False
@ -97,8 +67,6 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
Left = 114 Left = 114
ExplicitLeft = 114 ExplicitLeft = 114
ExplicitWidth = 90
Width = 90
end end
inherited eReferenciaPedidoCli: TcxTextEdit inherited eReferenciaPedidoCli: TcxTextEdit
Left = 114 Left = 114
@ -107,16 +75,16 @@ inherited frViewAlbaranDevProveedor: TfrViewAlbaranDevProveedor
Width = 69 Width = 69
end end
inherited eRefFactura: TcxDBTextEdit inherited eRefFactura: TcxDBTextEdit
ExplicitWidth = 172 ExplicitWidth = 262
Width = 172 Width = 262
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 172 ExplicitWidth = 262
Width = 172 Width = 262
end end
inherited eReferenciaFacturaProveedor: TcxDBTextEdit inherited eReferenciaFacturaProveedor: TcxDBTextEdit
ExplicitWidth = 172 ExplicitWidth = 262
Width = 172 Width = 262
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group6: TdxLayoutGroup inherited dxLayoutControl1Group6: TdxLayoutGroup

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

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxTextEdit, StdCtrls, cxDropDownEdit, cxLookupEdit, dxLayoutControl, cxTextEdit, StdCtrls, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, uViewDireccionEntregaAlbaranProv, cxDBLookupEdit, cxDBLookupComboBox, uViewDireccionEntregaAlbaranProv,
uCustomView, uViewBase, uViewDatosYSeleccionProveedor, cxDBEdit, cxMemo, uCustomView, uViewBase, uViewDatosYSeleccionProveedor, cxDBEdit, cxMemo,
cxContainer, cxEdit, cxMaskEdit, cxCalendar, cxControls; cxContainer, cxEdit, cxMaskEdit, cxCalendar, cxControls, uDAInterfaces,
uViewTienda;
type type
IViewAlbaranDevProveedor = interface(IViewAlbaranProveedor) IViewAlbaranDevProveedor = interface(IViewAlbaranProveedor)

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

@ -14,7 +14,6 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 827
DesignSize = ( DesignSize = (
723 723
585) 585)
@ -41,7 +40,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 119 Width = 119
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 512 Left = 416
Top = 276 Top = 276
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
@ -81,7 +80,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 143 Width = 143
end end
inline frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor inline frViewProveedorAlbaran: TfrViewDatosYSeleccionProveedor
Left = 512 Left = 416
Top = 28 Top = 28
Width = 350 Width = 350
Height = 212 Height = 212
@ -93,7 +92,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ParentFont = False ParentFont = False
TabOrder = 11 TabOrder = 11
ReadOnly = False ReadOnly = False
ExplicitLeft = 512 ExplicitLeft = 416
ExplicitTop = 28 ExplicitTop = 28
ExplicitHeight = 212 ExplicitHeight = 212
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -144,7 +143,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end end
inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv inline frViewDireccionEntregaAlbaranProv1: TfrViewDireccionEntregaAlbaranProv
Left = 22 Left = 22
Top = 331 Top = 317
Width = 445 Width = 445
Height = 175 Height = 175
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -156,7 +155,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
TabOrder = 10 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 331 ExplicitTop = 317
ExplicitWidth = 445 ExplicitWidth = 445
ExplicitHeight = 175 ExplicitHeight = 175
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -177,10 +176,10 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 425 Width = 425
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 322 Left = 226
Top = 197 Top = 211
ExplicitLeft = 322 ExplicitLeft = 226
ExplicitTop = 197 ExplicitTop = 211
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Height = 110 Height = 110
@ -223,7 +222,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 90 Width = 90
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 350 Left = 254
Top = 192 Top = 192
Width = 132 Width = 132
Height = 21 Height = 21
@ -255,7 +254,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Width = 122 Width = 122
end end
object Button1: TButton object Button1: TButton
Left = 350 Left = 254
Top = 109 Top = 109
Width = 132 Width = 132
Height = 23 Height = 23
@ -337,9 +336,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 22 Left = 22
Top = 249 Top = 249
Width = 827 Width = 366
Height = 46 Height = 32
Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -350,15 +348,13 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 249 ExplicitTop = 249
ExplicitWidth = 827 ExplicitWidth = 366
ExplicitHeight = 32
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 827 Width = 366
ExplicitWidth = 827 inherited cbTienda: TcxComboBox
inherited cbTienda: TcxDBComboBox ExplicitWidth = 376
DataBinding.DataSource = DADataSource Width = 376
Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
ExplicitWidth = 300
Width = 300
end end
end end
end end

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

@ -86,7 +86,6 @@ type
procedure frViewProveedorAlbaranactAnadirContactoUpdate(Sender: TObject); procedure frViewProveedorAlbaranactAnadirContactoUpdate(Sender: TObject);
procedure actElegirDireccionUpdate(Sender: TObject); procedure actElegirDireccionUpdate(Sender: TObject);
procedure actVerPedidoUpdate(Sender: TObject); procedure actVerPedidoUpdate(Sender: TObject);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected protected
FAlbaran : IBizAlbaranProveedor; FAlbaran : IBizAlbaranProveedor;
@ -234,16 +233,6 @@ begin
frViewProveedorAlbaran.actAnadirContacto.Execute; frViewProveedorAlbaran.actAnadirContacto.Execute;
end; end;
procedure TfrViewAlbaranProveedor.frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
begin
inherited;
if assigned(Albaran)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Albaran, frViewTienda1.getIDTienda);
end;
end;
function TfrViewAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor; function TfrViewAlbaranProveedor.GetAlbaran: IBizAlbaranProveedor;
begin begin
Result := FAlbaran; Result := FAlbaran;
@ -265,6 +254,7 @@ begin
if Assigned(FAlbaran) then if Assigned(FAlbaran) then
begin begin
DADataSource.DataTable := FAlbaran.DataTable; DADataSource.DataTable := FAlbaran.DataTable;
frViewTienda1.DataItem := FAlbaran.DataTable;
FFormasPago := FFormasPagoController.BuscarTodos; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;

31
Source/Modulos/Contactos/Controller/uEmpleadosController.pas
View File

@ -3,7 +3,7 @@ unit uEmpleadosController;
interface interface
uses uses
uCustomEditor, Classes, uCustomEditor,
uContactosController, uBizContactos, uContactosController, uBizContactos,
uIEditorEmpleados, uIEditorEmpleado, uIDataModuleContactos, uIDataModuleEmpleados; uIEditorEmpleados, uIEditorEmpleado, uIDataModuleContactos, uIDataModuleEmpleados;
@ -18,6 +18,7 @@ type
procedure Preview(AEmpleado : IBizEmpleado; AllItems: Boolean = false); procedure Preview(AEmpleado : IBizEmpleado; AllItems: Boolean = false);
procedure Print(AEmpleado : IBizEmpleado; AllItems: Boolean = false); procedure Print(AEmpleado : IBizEmpleado; AllItems: Boolean = false);
function BuscarVendedores: IBizContacto; function BuscarVendedores: IBizContacto;
function DarListaVendedores : TStringList;
end; end;
TEmpleadosController = class(TContactosController, IEmpleadosController) TEmpleadosController = class(TContactosController, IEmpleadosController)
@ -33,6 +34,8 @@ type
procedure Ver(AContacto : IBizContacto); override; procedure Ver(AContacto : IBizContacto); override;
procedure VerTodos(AContactos: IBizContacto); override; procedure VerTodos(AContactos: IBizContacto); override;
function DarListaVendedores : TStringList;
function Eliminar(AEmpleado: IBizContacto; AllItems: Boolean = false): Boolean; overload; function Eliminar(AEmpleado: IBizContacto; AllItems: Boolean = false): Boolean; overload;
function EsEliminable(AEmpleado: IBizContacto): Boolean; function EsEliminable(AEmpleado: IBizContacto): Boolean;
@ -43,7 +46,7 @@ type
implementation implementation
uses uses
Classes, Windows, SysUtils, cxControls, Dialogs, uDataModuleEmpleados, uEditorRegistryUtils, Windows, SysUtils, cxControls, Dialogs, uDataModuleEmpleados, uEditorRegistryUtils,
uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uFichasEmpleadoReportController, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uFichasEmpleadoReportController,
uEditorGridBase, uDAInterfaces; uEditorGridBase, uDAInterfaces;
@ -90,6 +93,30 @@ begin
FDataModule := TDataModuleEmpleados.Create(Nil); FDataModule := TDataModuleEmpleados.Create(Nil);
end; end;
function TEmpleadosController.DarListaVendedores: TStringList;
var
AVendedores: IBizContacto;
i : integer;
begin
AVendedores := BuscarVendedores;
AVendedores.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
AVendedores.DataTable.First;
while not AVendedores.DataTable.EOF do
begin
Add(Format('%s=%d', [AVendedores.NOMBRE, AVendedores.ID]));
AVendedores.DataTable.Next;
end;
end;
finally
AVendedores := NIL;
end;
end;
function TEmpleadosController.Duplicar(AContacto: IBizContacto): IBizContacto; function TEmpleadosController.Duplicar(AContacto: IBizContacto): IBizContacto;
begin begin
Result := inherited Duplicar(AContacto); Result := inherited Duplicar(AContacto);

50
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,31 +49,31 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\Contactos_model.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\dsnap.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" /> <DCCReference Include="..\..\Albaranes de cliente\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>

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

@ -11,7 +11,7 @@ inherited fEditorCliente: TfEditorCliente
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 896 Width = 896
Caption = 'Ficha de cliente' Caption = 'Ficha de cliente'
ExplicitWidth = 656 ExplicitWidth = 896
inherited Image1: TImage inherited Image1: TImage
Left = 869 Left = 869
Picture.Data = { Picture.Data = {
@ -50,7 +50,7 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 896 Width = 896
ExplicitWidth = 656 ExplicitWidth = 896
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 446 ExplicitWidth = 446
object TBXItem7: TTBXItem [7] object TBXItem7: TTBXItem [7]
@ -65,11 +65,11 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 890 Width = 890
Height = 544 Height = 544
ExplicitWidth = 650 ExplicitWidth = 890
ExplicitHeight = 484 ExplicitHeight = 544
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
Left = 0 Left = 0
Top = 0 Top = 0
@ -84,14 +84,14 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 882 Width = 882
Height = 516 Height = 516
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 837 Left = 837
Top = 218 Top = 218
@ -112,10 +112,10 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 586 Left = 586
Top = 352 Top = 341
Width = 269 Width = 269
ExplicitLeft = 586 ExplicitLeft = 586
ExplicitTop = 352 ExplicitTop = 341
ExplicitWidth = 269 ExplicitWidth = 269
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
@ -176,9 +176,9 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 586 Left = 586
Top = 397 Top = 386
ExplicitLeft = 586 ExplicitLeft = 586
ExplicitTop = 397 ExplicitTop = 386
ExplicitWidth = 272 ExplicitWidth = 272
Width = 272 Width = 272
end end
@ -284,11 +284,9 @@ inherited fEditorCliente: TfEditorCliente
ExplicitLeft = 586 ExplicitLeft = 586
ExplicitTop = 270 ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 270 inherited cbTienda: TcxComboBox
inherited cbTienda: TcxDBComboBox ExplicitWidth = 376
DataBinding.DataSource = frViewCliente1.dsContacto Width = 376
ExplicitWidth = 412
Width = 412
end end
end end
end end
@ -300,17 +298,17 @@ inherited fEditorCliente: TfEditorCliente
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 882 Width = 882
Height = 516 Height = 516
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 882 Width = 882
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 642 ExplicitWidth = 882
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114 ExplicitWidth = 114
Width = 114 Width = 114
@ -335,8 +333,6 @@ inherited fEditorCliente: TfEditorCliente
object pagDatosComerciales: TTabSheet object pagDatosComerciales: TTabSheet
Caption = 'Datos comerciales' Caption = 'Datos comerciales'
ImageIndex = 4 ImageIndex = 4
ExplicitWidth = 642
ExplicitHeight = 456
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
@ -351,12 +347,12 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 193 ExplicitHeight = 193
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 882 Width = 882
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 642 ExplicitWidth = 882
inherited Label1: TLabel inherited Label1: TLabel
Left = 492 Left = 492
Top = 30 Top = 30
@ -425,8 +421,6 @@ inherited fEditorCliente: TfEditorCliente
object pagDirecciones: TTabSheet object pagDirecciones: TTabSheet
Caption = 'Direcciones' Caption = 'Direcciones'
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 642
ExplicitHeight = 456
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
@ -441,13 +435,13 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 882 Width = 882
Height = 491 Height = 491
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 431 ExplicitHeight = 491
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID: TcxGridDBColumn inherited cxGridViewID: TcxGridDBColumn
SortIndex = 0 SortIndex = 0
@ -457,7 +451,19 @@ inherited fEditorCliente: TfEditorCliente
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 882 Width = 882
ExplicitWidth = 642 ExplicitWidth = 882
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -465,8 +471,6 @@ inherited fEditorCliente: TfEditorCliente
Caption = 'Descuentos' Caption = 'Descuentos'
ImageIndex = 2 ImageIndex = 2
TabVisible = False TabVisible = False
ExplicitWidth = 642
ExplicitHeight = 456
inline frViewClienteDescuentos1: TfrViewClienteDescuentos inline frViewClienteDescuentos1: TfrViewClienteDescuentos
Left = 0 Left = 0
Top = 0 Top = 0
@ -481,43 +485,27 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 882 Width = 882
Height = 491 Height = 491
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 431 ExplicitHeight = 491
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 882 Width = 882
ExplicitWidth = 642 ExplicitWidth = 882
inherited ToolButton1: TToolButton inherited ToolButton1: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 62 ExplicitWidth = 62
end end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited ToolButton5: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton2: TToolButton inherited ToolButton2: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 67 ExplicitWidth = 67
end end
inherited ToolButton6: TToolButton
Top = 0
ExplicitTop = 0
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Top = 0
ExplicitTop = 0
ExplicitWidth = 117 ExplicitWidth = 117
end end
end end
@ -526,8 +514,6 @@ inherited fEditorCliente: TfEditorCliente
object pagContabilidad: TTabSheet object pagContabilidad: TTabSheet
Caption = 'Contabilidad' Caption = 'Contabilidad'
ImageIndex = 5 ImageIndex = 5
ExplicitWidth = 642
ExplicitHeight = 456
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
Left = 0 Left = 0
Top = 0 Top = 0
@ -543,13 +529,13 @@ inherited fEditorCliente: TfEditorCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited layoutApunte: TdxLayoutControl inherited layoutApunte: TdxLayoutControl
Width = 882 Width = 882
Height = 516 Height = 516
ExplicitWidth = 642 ExplicitWidth = 882
ExplicitHeight = 456 ExplicitHeight = 516
inherited eRefSubCuenta: TcxDBTextEdit inherited eRefSubCuenta: TcxDBTextEdit
ExplicitWidth = 346 ExplicitWidth = 346
Width = 346 Width = 346
@ -582,8 +568,8 @@ inherited fEditorCliente: TfEditorCliente
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 626 Top = 626
Width = 896 Width = 896
ExplicitTop = 566 ExplicitTop = 626
ExplicitWidth = 656 ExplicitWidth = 896
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList
object actGruposCliente: TAction object actGruposCliente: TAction

7
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -53,7 +53,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uFactuGES_App, uCustomEditor, uDataModuleContactos, cxControls, uFactuGES_App, uCustomEditor, uDataModuleContactos,
uDMBase, uDataModuleUsuarios; uDMBase, uDataModuleUsuarios;
{ {
@ -77,8 +77,13 @@ end;
procedure TfEditorContacto.GuardarInterno; procedure TfEditorContacto.GuardarInterno;
begin begin
inherited; inherited;
ShowHourglassCursor;
try
FController.Guardar(FContacto); FController.Guardar(FContacto);
Modified := False; Modified := False;
finally
HideHourglassCursor;
end;
end; end;
procedure TfEditorContacto.PonerTitulos(const ATitulo: string); procedure TfEditorContacto.PonerTitulos(const ATitulo: string);

2
Source/Modulos/Contactos/Views/uEditorDireccion.pas
View File

@ -6,7 +6,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton, Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton,
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
uIEditorDireccionContacto, uDireccionesContactoController, uBizDireccionesContacto, uIEditorDireccionContacto, uDireccionesContactoController, uBizDireccionesContacto,
cxCurrencyEdit; cxCurrencyEdit, uDAInterfaces;
type type
TfEditorDireccion = class(TForm, IEditorEditorDireccion) TfEditorDireccion = class(TForm, IEditorEditorDireccion)

2
Source/Modulos/Contactos/Views/uEditorElegirProveedores.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorElegirProveedores: TfEditorElegirProveedores
ClientHeight = 480 ClientHeight = 480
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 507 ExplicitHeight = 514
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]

81
Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
View File

@ -60,7 +60,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 670 Width = 670
Height = 475 Height = 475
ActivePage = pagFormacion
ExplicitWidth = 670 ExplicitWidth = 670
ExplicitHeight = 475 ExplicitHeight = 475
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -107,32 +106,32 @@ inherited fEditorEmpleado: TfEditorEmpleado
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 233 Top = 236
ExplicitTop = 233 ExplicitTop = 236
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 287 Top = 290
ExplicitTop = 287 ExplicitTop = 290
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 260 Top = 263
ExplicitTop = 260 ExplicitTop = 263
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 295 Left = 242
Top = 260 Top = 263
ExplicitLeft = 295 ExplicitLeft = 242
ExplicitTop = 260 ExplicitTop = 263
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 338 Top = 341
ExplicitTop = 338 ExplicitTop = 341
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 94 ExplicitHeight = 94
Height = 94 Height = 94
@ -157,33 +156,33 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 225 Width = 225
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 483 Left = 430
Top = 57 Top = 57
ExplicitLeft = 483 ExplicitLeft = 430
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 483 Left = 430
Top = 30 Top = 30
ExplicitLeft = 483 ExplicitLeft = 430
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 483 Left = 430
Top = 84 Top = 84
ExplicitLeft = 483 ExplicitLeft = 430
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 483 Left = 430
Top = 111 Top = 111
ExplicitLeft = 483 ExplicitLeft = 430
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -195,35 +194,35 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 211 Left = 186
Top = 30 Top = 30
ExplicitLeft = 211 ExplicitLeft = 186
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 483 Left = 430
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 483 ExplicitLeft = 430
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 483 Left = 430
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 483 ExplicitLeft = 430
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 483 Left = 430
Top = 217 Top = 217
ExplicitLeft = 483 ExplicitLeft = 430
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -235,26 +234,24 @@ inherited fEditorEmpleado: TfEditorEmpleado
Width = 97 Width = 97
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 206 Top = 209
ExplicitTop = 206 ExplicitTop = 209
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 388 Left = 335
Top = 270 Top = 270
Width = 316 Width = 451
Height = 42 ExplicitLeft = 335
ExplicitLeft = 388
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 316 ExplicitWidth = 451
ExplicitHeight = 42
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 316 Width = 451
inherited cbTienda: TcxDBComboBox ExplicitWidth = 451
DataBinding.DataSource = frViewEmpleado1.dsContacto inherited cbTienda: TcxComboBox
ExplicitWidth = 412 ExplicitWidth = 376
Width = 412 Width = 376
end end
end end
end end

11
Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.dfm
View File

@ -1,22 +1,11 @@
inherited fEditorEtiquetasContactosPreview: TfEditorEtiquetasContactosPreview inherited fEditorEtiquetasContactosPreview: TfEditorEtiquetasContactosPreview
Caption = 'Previsualizar la factura' Caption = 'Previsualizar la factura'
ExplicitWidth = 803
ExplicitHeight = 240 ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
ExplicitWidth = 795
inherited Image1: TImage inherited Image1: TImage
Left = 768
ExplicitLeft = 768 ExplicitLeft = 768
end end
end end
inherited StatusBar: TJvStatusBar
ExplicitWidth = 795
end
inherited frxReport1: TfrxReport
Datasets = <>
Variables = <>
Style = <>
end
end end

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

@ -10,7 +10,8 @@ uses
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorEtiquetasContactosPreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorEtiquetasContactosPreview,
JvExComCtrls, JvStatusBar; JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS;
type type
TfEditorEtiquetasContactosPreview = class(TfEditorPreview, IEditorEtiquetasContactosPreview) TfEditorEtiquetasContactosPreview = class(TfEditorPreview, IEditorEtiquetasContactosPreview)

11
Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.dfm
View File

@ -1,22 +1,11 @@
inherited fEditorFichasEmpleadoPreview: TfEditorFichasEmpleadoPreview inherited fEditorFichasEmpleadoPreview: TfEditorFichasEmpleadoPreview
Caption = 'Previsualizar la factura' Caption = 'Previsualizar la factura'
ExplicitWidth = 803
ExplicitHeight = 240 ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
ExplicitWidth = 795
inherited Image1: TImage inherited Image1: TImage
Left = 768
ExplicitLeft = 768 ExplicitLeft = 768
end end
end end
inherited StatusBar: TJvStatusBar
ExplicitWidth = 795
end
inherited frxReport1: TfrxReport
Datasets = <>
Variables = <>
Style = <>
end
end end

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

@ -10,7 +10,8 @@ uses
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorFichasEmpleadoPreview, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorFichasEmpleadoPreview,
JvExComCtrls, JvStatusBar; JvExComCtrls, JvStatusBar, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS;
type type
TfEditorFichasEmpleadoPreview = class(TfEditorPreview, IEditorFichasEmpleadoPreview) TfEditorFichasEmpleadoPreview = class(TfEditorPreview, IEditorFichasEmpleadoPreview)

4
Source/Modulos/Contactos/Views/uEditorGruposCliente.dfm
View File

@ -48,6 +48,10 @@ object fEditorGruposCliente: TfEditorGruposCliente
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Grupos de cliente' Caption = 'Grupos de cliente'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel object Label1: TLabel
Left = 10 Left = 10
Top = 12 Top = 12

2
Source/Modulos/Contactos/Views/uEditorGruposCliente.pas
View File

@ -29,7 +29,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList, Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorGruposCliente, uCustomEditor, uGUIBase, ExtCtrls, uIEditorGruposCliente, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizGruposCliente, uGruposClienteController; ComCtrls, uBizGruposCliente, uGruposClienteController, uDAInterfaces;
type type
TfEditorGruposCliente = class(TCustomEditor, IEditorGruposCliente) TfEditorGruposCliente = class(TCustomEditor, IEditorGruposCliente)

12
Source/Modulos/Contactos/Views/uEditorGruposEmpleado.dfm
View File

@ -4,7 +4,7 @@ object fEditorGruposEmpleado: TfEditorGruposEmpleado
ActiveControl = ListaGruposEmpleado ActiveControl = ListaGruposEmpleado
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'Administraci'#243'n de categorías de empleados' Caption = 'Administraci'#243'n de categor'#237'as de empleados'
ClientHeight = 499 ClientHeight = 499
ClientWidth = 404 ClientWidth = 404
Color = clBtnFace Color = clBtnFace
@ -47,13 +47,17 @@ object fEditorGruposEmpleado: TfEditorGruposEmpleado
ActivePage = TabSheet1 ActivePage = TabSheet1
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Categorías de empleado' Caption = 'Categor'#237'as de empleado'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel object Label1: TLabel
Left = 10 Left = 10
Top = 12 Top = 12
Width = 121 Width = 155
Height = 13 Height = 13
Caption = 'Lista de categorías de empleado' Caption = 'Lista de categor'#237'as de empleado'
end end
object ListaGruposEmpleado: TDBLookupListBox object ListaGruposEmpleado: TDBLookupListBox
Left = 8 Left = 8

2
Source/Modulos/Contactos/Views/uEditorGruposEmpleado.pas
View File

@ -29,7 +29,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList, Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorGruposEmpleado, uCustomEditor, uGUIBase, ExtCtrls, uIEditorGruposEmpleado, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizGruposEmpleado, uGruposEmpleadoController; ComCtrls, uBizGruposEmpleado, uGruposEmpleadoController, uDAInterfaces;
type type
TfEditorGruposEmpleado = class(TCustomEditor, IEditorGruposEmpleado) TfEditorGruposEmpleado = class(TCustomEditor, IEditorGruposEmpleado)

6
Source/Modulos/Contactos/Views/uEditorGruposProveedor.dfm
View File

@ -48,10 +48,14 @@ object fEditorGruposProveedor: TfEditorGruposProveedor
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Grupos de proveedor' Caption = 'Grupos de proveedor'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel object Label1: TLabel
Left = 10 Left = 10
Top = 12 Top = 12
Width = 121 Width = 138
Height = 13 Height = 13
Caption = 'Lista de grupos de proveedor' Caption = 'Lista de grupos de proveedor'
end end

2
Source/Modulos/Contactos/Views/uEditorGruposProveedor.pas
View File

@ -29,7 +29,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList, Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorGruposProveedor, uCustomEditor, uGUIBase, ExtCtrls, uIEditorGruposProveedor, uCustomEditor, uGUIBase, ExtCtrls,
ComCtrls, uBizGruposProveedor, uGruposProveedorController; ComCtrls, uBizGruposProveedor, uGruposProveedorController, uDAInterfaces;
type type
TfEditorGruposProveedor = class(TCustomEditor, IEditorGruposProveedor) TfEditorGruposProveedor = class(TCustomEditor, IEditorGruposProveedor)

238
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -53,18 +53,18 @@ inherited fEditorProveedor: TfEditorProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 648 Width = 642
Height = 495 Height = 489
ExplicitWidth = 648 ExplicitWidth = 642
ExplicitHeight = 495 ExplicitHeight = 489
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inline frViewProveedor1: TfrViewProveedor inline frViewProveedor1: TfrViewProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 640 Width = 634
Height = 467 Height = 461
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -74,89 +74,89 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
Width = 640 Width = 634
Height = 467 Height = 461
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 595 Left = 589
Top = 218 Top = 218
ExplicitLeft = 595 ExplicitLeft = 589
ExplicitTop = 218 ExplicitTop = 218
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 595 Left = 589
Top = 190 Top = 190
ExplicitLeft = 595 ExplicitLeft = 589
ExplicitTop = 190 ExplicitTop = 190
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 595 Left = 589
Top = 162 Top = 162
ExplicitLeft = 595 ExplicitLeft = 589
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 395 Left = 391
Top = 297 Top = 341
Width = 342 Width = 342
ExplicitLeft = 395 ExplicitLeft = 391
ExplicitTop = 297 ExplicitTop = 341
ExplicitWidth = 342 ExplicitWidth = 342
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 294 Top = 241
ExplicitTop = 294 ExplicitTop = 241
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 348 Top = 295
ExplicitTop = 348 ExplicitTop = 295
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 321 Top = 268
ExplicitTop = 321 ExplicitTop = 268
ExplicitWidth = 108 ExplicitWidth = 108
Width = 108 Width = 108
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 302 Left = 298
Top = 321 Top = 268
ExplicitLeft = 302 ExplicitLeft = 298
ExplicitTop = 321 ExplicitTop = 268
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 399 Top = 424
ExplicitTop = 399 ExplicitTop = 424
ExplicitWidth = 580 ExplicitWidth = 580
ExplicitHeight = 56 ExplicitHeight = 56
Height = 56 Height = 56
Width = 580 Width = 580
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 395 Left = 391
Top = 270 Top = 373
ExplicitLeft = 395 ExplicitLeft = 391
ExplicitTop = 270 ExplicitTop = 373
ExplicitWidth = 310 ExplicitWidth = 310
Width = 310 Width = 310
end end
inherited cxDBCheckBox2: TcxDBCheckBox inherited cxDBCheckBox2: TcxDBCheckBox
Top = 189 Top = 346
ExplicitTop = 189 ExplicitTop = 346
ExplicitWidth = 326 ExplicitWidth = 326
Width = 326 Width = 326
end end
inherited eCertificaciones: TcxDBTextEdit inherited eCertificaciones: TcxDBTextEdit
Top = 216 Top = 373
ExplicitTop = 216 ExplicitTop = 373
ExplicitWidth = 227 ExplicitWidth = 227
Width = 227 Width = 227
end end
@ -179,33 +179,33 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 221 Width = 221
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 490 Left = 486
Top = 57 Top = 57
ExplicitLeft = 490 ExplicitLeft = 486
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 490 Left = 486
Top = 30 Top = 30
ExplicitLeft = 490 ExplicitLeft = 486
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 490 Left = 486
Top = 84 Top = 84
ExplicitLeft = 490 ExplicitLeft = 486
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 490 Left = 486
Top = 111 Top = 111
ExplicitLeft = 490 ExplicitLeft = 486
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -217,35 +217,35 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 217 Left = 215
Top = 30 Top = 30
ExplicitLeft = 217 ExplicitLeft = 215
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 254 ExplicitWidth = 254
Width = 254 Width = 254
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 490 Left = 486
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 490 ExplicitLeft = 486
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 490 Left = 486
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 490 ExplicitLeft = 486
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 490 Left = 486
Top = 217 Top = 217
ExplicitLeft = 490 ExplicitLeft = 486
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
@ -257,33 +257,45 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 100 Width = 100
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 267 Top = 214
ExplicitTop = 267 ExplicitTop = 214
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited frViewTienda1: TfrViewTienda
Left = 391
Top = 270
ExplicitLeft = 391
ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end
end
end
end end
end end
end end
inherited pagDatosBancarios: TTabSheet inherited pagDatosBancarios: TTabSheet
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 640 Width = 634
Height = 467 Height = 461
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 640 Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 640 ExplicitWidth = 634
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114 ExplicitWidth = 114
Width = 114 Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 325 Left = 323
ExplicitLeft = 325 ExplicitLeft = 323
ExplicitWidth = 270 ExplicitWidth = 270
Width = 270 Width = 270
end end
@ -304,7 +316,7 @@ inherited fEditorProveedor: TfEditorProveedor
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
Left = 0 Left = 0
Top = 0 Top = 0
Width = 640 Width = 634
Height = 121 Height = 121
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -315,17 +327,17 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 121 ExplicitHeight = 121
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 640 Width = 634
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 640 ExplicitWidth = 634
inherited Label1: TLabel inherited Label1: TLabel
Left = 416 Left = 412
Top = 30 Top = 30
Width = 190 Width = 190
ExplicitLeft = 416 ExplicitLeft = 412
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 190 ExplicitWidth = 190
end end
@ -342,9 +354,9 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 121 Width = 121
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 256 Left = 252
Top = 57 Top = 57
ExplicitLeft = 256 ExplicitLeft = 252
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
@ -354,15 +366,15 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 121 Width = 121
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 256 Left = 252
Top = 84 Top = 84
ExplicitLeft = 256 ExplicitLeft = 252
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
Left = 460 Left = 456
Top = 62 Top = 62
ExplicitLeft = 460 ExplicitLeft = 456
ExplicitTop = 62 ExplicitTop = 62
ExplicitWidth = 73 ExplicitWidth = 73
Width = 73 Width = 73
@ -376,8 +388,8 @@ inherited fEditorProveedor: TfEditorProveedor
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
Left = 0 Left = 0
Top = 0 Top = 0
Width = 640 Width = 634
Height = 467 Height = 461
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -387,17 +399,29 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 640 Width = 634
Height = 442 Height = 436
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 442 ExplicitHeight = 436
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 640 Width = 634
ExplicitWidth = 640 ExplicitWidth = 640
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -407,8 +431,8 @@ inherited fEditorProveedor: TfEditorProveedor
inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto inline frViewSubCuentaContacto1: TfrViewSubCuentaContacto
Left = 0 Left = 0
Top = 0 Top = 0
Width = 640 Width = 634
Height = 467 Height = 461
Align = alClient Align = alClient
AutoSize = True AutoSize = True
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -419,32 +443,32 @@ inherited fEditorProveedor: TfEditorProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inherited layoutApunte: TdxLayoutControl inherited layoutApunte: TdxLayoutControl
Width = 640 Width = 634
Height = 467 Height = 461
ExplicitWidth = 640 ExplicitWidth = 634
ExplicitHeight = 467 ExplicitHeight = 461
inherited eRefSubCuenta: TcxDBTextEdit inherited eRefSubCuenta: TcxDBTextEdit
ExplicitWidth = 346 ExplicitWidth = 346
Width = 346 Width = 346
end end
inherited BitBtn3: TBitBtn inherited BitBtn3: TBitBtn
Left = 393 Left = 292
ExplicitLeft = 393 ExplicitLeft = 292
end end
inherited eSubCuenta: TcxDBTextEdit inherited eSubCuenta: TcxDBTextEdit
ExplicitWidth = 265 ExplicitWidth = 265
Width = 265 Width = 265
end end
inherited BitBtn1: TBitBtn inherited BitBtn1: TBitBtn
Left = 474 Left = 408
ExplicitLeft = 474 ExplicitLeft = 408
end end
inherited BitBtn2: TBitBtn inherited BitBtn2: TBitBtn
Left = 555 Left = 534
ExplicitLeft = 555 ExplicitLeft = 534
end end
inherited cbIgnorarContabilidad: TcxDBCheckBox inherited cbIgnorarContabilidad: TcxDBCheckBox
DataBinding.DataSource = frViewProveedor1.dsContacto DataBinding.DataSource = frViewProveedor1.dsContacto

17
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -24,7 +24,7 @@ inherited frViewCliente: TfrViewCliente
end end
object Label1: TLabel [3] object Label1: TLabel [3]
Left = 354 Left = 354
Top = 361 Top = 357
Width = 269 Width = 269
Height = 39 Height = 39
Margins.Bottom = 0 Margins.Bottom = 0
@ -165,7 +165,7 @@ inherited frViewCliente: TfrViewCliente
end end
object cxDBCheckBox1: TcxDBCheckBox [13] object cxDBCheckBox1: TcxDBCheckBox [13]
Left = 354 Left = 354
Top = 406 Top = 402
Caption = 'Permitir el acceso de este cliente a la tienda web' Caption = 'Permitir el acceso de este cliente a la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -313,21 +313,16 @@ inherited frViewCliente: TfrViewCliente
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 354 Left = 354
Width = 270 Width = 270
Height = 41
AutoSize = True AutoSize = True
TabOrder = 21 TabOrder = 21
ExplicitLeft = 354 ExplicitLeft = 354
ExplicitWidth = 270 ExplicitWidth = 270
ExplicitHeight = 41
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 270 Width = 270
Height = 41 ExplicitWidth = 270
ExplicitWidth = 262 inherited cbTienda: TcxComboBox
ExplicitHeight = 41 ExplicitWidth = 376
inherited cbTienda: TcxDBComboBox Width = 376
DataBinding.DataSource = dsContacto
ExplicitWidth = 412
Width = 412
end end
end end
end end

44
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -157,7 +157,7 @@ inherited frViewContacto: TfrViewContacto
Width = 111 Width = 111
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 248 Left = 196
Top = 355 Top = 355
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -195,7 +195,7 @@ inherited frViewContacto: TfrViewContacto
Width = 630 Width = 630
end end
object eTlfParticular: TcxDBTextEdit object eTlfParticular: TcxDBTextEdit
Left = 438 Left = 386
Top = 55 Top = 55
DataBinding.DataField = 'TELEFONO_2' DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -213,7 +213,7 @@ inherited frViewContacto: TfrViewContacto
Width = 91 Width = 91
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 438 Left = 386
Top = 28 Top = 28
DataBinding.DataField = 'TELEFONO_1' DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -231,7 +231,7 @@ inherited frViewContacto: TfrViewContacto
Width = 127 Width = 127
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
Left = 438 Left = 386
Top = 82 Top = 82
DataBinding.DataField = 'MOVIL_1' DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -249,7 +249,7 @@ inherited frViewContacto: TfrViewContacto
Width = 155 Width = 155
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
Left = 438 Left = 386
Top = 109 Top = 109
DataBinding.DataField = 'FAX' DataBinding.DataField = 'FAX'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -287,7 +287,7 @@ inherited frViewContacto: TfrViewContacto
Width = 221 Width = 221
end end
object eNIFCIF: TcxDBTextEdit object eNIFCIF: TcxDBTextEdit
Left = 234 Left = 205
Top = 28 Top = 28
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -306,7 +306,7 @@ inherited frViewContacto: TfrViewContacto
Width = 57 Width = 57
end end
object eMailTrabajo: TcxDBHyperLinkEdit object eMailTrabajo: TcxDBHyperLinkEdit
Left = 438 Left = 386
Top = 166 Top = 166
DataBinding.DataField = 'EMAIL_1' DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -328,7 +328,7 @@ inherited frViewContacto: TfrViewContacto
Width = 133 Width = 133
end end
object eMailParticular: TcxDBHyperLinkEdit object eMailParticular: TcxDBHyperLinkEdit
Left = 438 Left = 386
Top = 194 Top = 194
DataBinding.DataField = 'EMAIL_2' DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -350,7 +350,7 @@ inherited frViewContacto: TfrViewContacto
Width = 133 Width = 133
end end
object ePaginaWeb: TcxDBHyperLinkEdit object ePaginaWeb: TcxDBHyperLinkEdit
Left = 438 Left = 386
Top = 221 Top = 221
DataBinding.DataField = 'PAGINA_WEB' DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -411,11 +411,10 @@ inherited frViewContacto: TfrViewContacto
Width = 256 Width = 256
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 343 Left = 291
Top = 280 Top = 280
Width = 311 Width = 451
Height = 42 Height = 41
Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
@ -424,19 +423,12 @@ inherited frViewContacto: TfrViewContacto
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 15
ReadOnly = False ReadOnly = False
ExplicitLeft = 343 ExplicitLeft = 291
ExplicitTop = 280 ExplicitTop = 280
ExplicitWidth = 311
ExplicitHeight = 42
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 311 inherited cbTienda: TcxComboBox
Height = 42 ExplicitWidth = 376
ExplicitHeight = 42 Width = 376
inherited cbTienda: TcxDBComboBox
DataBinding.DataSource = dsContacto
Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
ExplicitWidth = 412
Width = 412
end end
end end
end end
@ -633,8 +625,8 @@ inherited frViewContacto: TfrViewContacto
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
Caption = 'El contacto pertenece a la tienda' Caption = 'El contacto pertenece a la tienda'
object dxLayoutControlContactoItem16: TdxLayoutItem object dxLayoutControlContactoItem16: TdxLayoutItem
AutoAligns = [aaHorizontal] Caption = 'New Item'
AlignVert = avClient ShowCaption = False
Control = frViewTienda1 Control = frViewTienda1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False

21
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

@ -86,9 +86,9 @@ type
dxLayoutControlContactoGroup16: TdxLayoutGroup; dxLayoutControlContactoGroup16: TdxLayoutGroup;
dxLayoutControlContactoItem167: TdxLayoutItem; dxLayoutControlContactoItem167: TdxLayoutItem;
ePersonaContacto: TcxDBTextEdit; ePersonaContacto: TcxDBTextEdit;
dxLayoutControlContactoItem16: TdxLayoutItem;
frViewTienda1: TfrViewTienda;
dxLayoutControlContactoGroup100: TdxLayoutGroup; dxLayoutControlContactoGroup100: TdxLayoutGroup;
frViewTienda1: TfrViewTienda;
dxLayoutControlContactoItem16: TdxLayoutItem;
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject); procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
procedure actMandarCorreoParticularExecute(Sender: TObject); procedure actMandarCorreoParticularExecute(Sender: TObject);
procedure actMandarCorreoTrabajoExecute(Sender: TObject); procedure actMandarCorreoTrabajoExecute(Sender: TObject);
@ -98,7 +98,6 @@ type
procedure actVerPaginaWebUpdate(Sender: TObject); procedure actVerPaginaWebUpdate(Sender: TObject);
procedure eMailTrabajoPropertiesValidate(Sender: TObject; procedure eMailTrabajoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected protected
FContacto: IBizContacto; FContacto: IBizContacto;
FController: IContactosController; FController: IContactosController;
@ -114,7 +113,8 @@ type
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uFactuGES_App; uses
uFactuGES_App;
type type
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit); THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
@ -175,16 +175,6 @@ begin
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []); DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
end; end;
procedure TfrViewContacto.frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
begin
inherited;
if assigned(Contacto)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Contacto, frViewTienda1.getIDTienda);
end;
end;
function TfrViewContacto.GetContacto: IBizContacto; function TfrViewContacto.GetContacto: IBizContacto;
begin begin
Result := FContacto; Result := FContacto;
@ -196,11 +186,14 @@ begin
end; end;
procedure TfrViewContacto.SetContacto(const Value: IBizContacto); procedure TfrViewContacto.SetContacto(const Value: IBizContacto);
var
i : integer;
begin begin
FContacto := Value; FContacto := Value;
if Assigned(FContacto) then if Assigned(FContacto) then
begin begin
dsContacto.DataTable := FContacto.DataTable; dsContacto.DataTable := FContacto.DataTable;
frViewTienda1.DataItem := FContacto.DataTable;
end end
else begin else begin
dsContacto.DataTable := Nil; dsContacto.DataTable := Nil;

43
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -1,8 +1,6 @@
inherited frViewEmpleado: TfrViewEmpleado inherited frViewEmpleado: TfrViewEmpleado
Width = 642 Width = 642
Height = 578 Height = 578
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 578 ExplicitHeight = 578
inherited dxLayoutControlContacto: TdxLayoutControl inherited dxLayoutControlContacto: TdxLayoutControl
@ -50,10 +48,10 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 51 Width = 51
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 261 Left = 263
Top = 304 Top = 304
TabOrder = 8 TabOrder = 8
ExplicitLeft = 261 ExplicitLeft = 263
ExplicitTop = 304 ExplicitTop = 304
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
@ -121,27 +119,27 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 4
Width = 225 Width = 160
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 451 Left = 453
TabOrder = 11 TabOrder = 11
ExplicitLeft = 451 ExplicitLeft = 453
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 451 Left = 453
TabOrder = 10 TabOrder = 10
ExplicitLeft = 451 ExplicitLeft = 453
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 451 Left = 453
TabOrder = 12 TabOrder = 12
ExplicitLeft = 451 ExplicitLeft = 453
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 451 Left = 453
TabOrder = 13 TabOrder = 13
ExplicitLeft = 451 ExplicitLeft = 453
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 121 Left = 121
@ -156,25 +154,25 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 100 Width = 100
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 451 Left = 453
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 14 TabOrder = 14
ExplicitLeft = 451 ExplicitLeft = 453
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 451 Left = 453
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 15 TabOrder = 15
ExplicitLeft = 451 ExplicitLeft = 453
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 451 Left = 453
TabOrder = 16 TabOrder = 16
ExplicitLeft = 451 ExplicitLeft = 453
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
@ -192,17 +190,14 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 152 Width = 152
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 356 Left = 358
Width = 264 Width = 264
TabOrder = 17 TabOrder = 17
ExplicitLeft = 356 ExplicitLeft = 358
ExplicitWidth = 264 ExplicitWidth = 264
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 264 Width = 264
ExplicitWidth = 316 ExplicitWidth = 316
inherited cbTienda: TcxDBComboBox
DataBinding.DataSource = dsContacto
end
end end
end end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup

2
Source/Modulos/Contactos/Views/uViewEmpleado.pas
View File

@ -85,8 +85,6 @@ procedure TfrViewEmpleado.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FGrupoController := TGruposEmpleadoController.Create; FGrupoController := TGruposEmpleadoController.Create;
frViewTienda1.dsVendedores.DataTable := AppFactuGES.UsuariosController.BuscarTodosUsuarios.DataTable;
frViewTienda1.dsVendedores.DataTable.Active := True;
end; end;
procedure TfrViewEmpleado.CustomViewDestroy(Sender: TObject); procedure TfrViewEmpleado.CustomViewDestroy(Sender: TObject);

33
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -24,7 +24,7 @@ inherited frViewProveedor: TfrViewProveedor
end end
object Label1: TLabel [3] object Label1: TLabel [3]
Left = 402 Left = 402
Top = 358 Top = 357
Width = 342 Width = 342
Height = 26 Height = 26
Caption = Caption =
@ -70,12 +70,14 @@ inherited frViewProveedor: TfrViewProveedor
Top = 575 Top = 575
TabOrder = 22 TabOrder = 22
ExplicitTop = 575 ExplicitTop = 575
ExplicitWidth = 630
ExplicitHeight = 20 ExplicitHeight = 20
Height = 20 Height = 20
Width = 630
end end
object cxDBCheckBox1: TcxDBCheckBox [9] object cxDBCheckBox1: TcxDBCheckBox [9]
Left = 402 Left = 402
Top = 390 Top = 389
Caption = 'Incluir este proveedor en la tienda web' Caption = 'Incluir este proveedor en la tienda web'
DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataField = 'TIENDA_WEB'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -207,25 +209,35 @@ inherited frViewProveedor: TfrViewProveedor
Left = 497 Left = 497
TabOrder = 14 TabOrder = 14
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 91
Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 497 Left = 497
TabOrder = 13 TabOrder = 13
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 127
Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 497 Left = 497
TabOrder = 15 TabOrder = 15
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 155
Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 497 Left = 497
TabOrder = 16 TabOrder = 16
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 121
Width = 121
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 138 Left = 138
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitWidth = 221
Width = 221
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 211 Left = 211
@ -238,21 +250,29 @@ inherited frViewProveedor: TfrViewProveedor
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 17 TabOrder = 17
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 133
Width = 133
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 497 Left = 497
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 18 TabOrder = 18
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 133
Width = 133
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 497 Left = 497
TabOrder = 19 TabOrder = 19
ExplicitLeft = 497 ExplicitLeft = 497
ExplicitWidth = 133
Width = 133
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 138 Left = 138
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitWidth = 38
Width = 38
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 138 Left = 138
@ -260,18 +280,21 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 6 TabOrder = 6
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 353 ExplicitTop = 353
ExplicitWidth = 256
Width = 256
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 402 Left = 402
Width = 290 Width = 290
Align = alNone
TabOrder = 20 TabOrder = 20
ExplicitLeft = 402 ExplicitLeft = 402
ExplicitWidth = 290 ExplicitWidth = 290
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 290 Width = 290
inherited cbTienda: TcxDBComboBox ExplicitWidth = 290
DataBinding.DataSource = dsContacto inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end end
end end
end end

14
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
View File

@ -1,5 +1,5 @@
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 591 Width = 451
Height = 304 Height = 304
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -10,15 +10,15 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
object layoutApunte: TdxLayoutControl object layoutApunte: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 591 Width = 451
Height = 304 Height = 304
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451 ExplicitWidth = 591
DesignSize = ( DesignSize = (
591 451
304) 304)
object eRefSubCuenta: TcxDBTextEdit object eRefSubCuenta: TcxDBTextEdit
Left = 93 Left = 93
@ -41,7 +41,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 346 Width = 346
end end
object BitBtn3: TBitBtn object BitBtn3: TBitBtn
Left = 249 Left = 119
Top = 37 Top = 37
Width = 110 Width = 110
Height = 25 Height = 25
@ -105,7 +105,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 265 Width = 265
end end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 365 Left = 235
Top = 37 Top = 37
Width = 120 Width = 120
Height = 25 Height = 25
@ -149,7 +149,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00} E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object BitBtn2: TBitBtn object BitBtn2: TBitBtn
Left = 491 Left = 361
Top = 37 Top = 37
Width = 90 Width = 90
Height = 25 Height = 25

230
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -3,19 +3,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Top = 208 Top = 208
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ClientHeight = 642 ClientHeight = 642
ClientWidth = 950 ClientWidth = 813
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 958 ExplicitWidth = 821
ExplicitHeight = 669 ExplicitHeight = 676
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 950 Width = 813
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ExplicitWidth = 950 ExplicitWidth = 813
inherited Image1: TImage inherited Image1: TImage
Left = 923 Left = 786
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,8 +39,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 950 Width = 813
ExplicitWidth = 950 ExplicitWidth = 813
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -54,7 +54,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 950 ExplicitWidth = 813
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -69,22 +69,22 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 944 Width = 807
Height = 378 Height = 378
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 944 ExplicitWidth = 807
ExplicitHeight = 378 ExplicitHeight = 378
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 936 ExplicitWidth = 799
ExplicitHeight = 350 ExplicitHeight = 350
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 936 Width = 799
Height = 350 Height = 350
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -95,41 +95,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 936 ExplicitWidth = 799
ExplicitHeight = 350 ExplicitHeight = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 936 Width = 799
Height = 350 Height = 350
ExplicitWidth = 936 ExplicitWidth = 799
ExplicitHeight = 350 ExplicitHeight = 350
DesignSize = (
936
350)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 393 ExplicitWidth = 159
Width = 393 Width = 159
end end
inherited edtFecha: TcxDBDateEdit inherited edtFecha: TcxDBDateEdit
ExplicitWidth = 393 ExplicitWidth = 159
Width = 393 Width = 159
end end
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
ExplicitWidth = 473 ExplicitWidth = 301
ExplicitHeight = 109 ExplicitHeight = 159
Height = 109 Height = 159
Width = 473 Width = 301
end end
inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente inherited frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 545 Width = 314
Width = 332 ExplicitWidth = 314
ExplicitLeft = 545
ExplicitWidth = 332
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 332 Width = 314
ExplicitWidth = 332
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
Properties.OnChange = frViewClienteFacturaedtlNombrePropertiesChange
ExplicitWidth = 224 ExplicitWidth = 224
Width = 224 Width = 224
end end
@ -154,35 +147,25 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 261 Left = 284
DataBinding.DataSource = frViewFacturaCliente1.DADataSource DataBinding.DataSource = frViewFacturaCliente1.DADataSource
ExplicitLeft = 261 ExplicitLeft = 284
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 151 Left = 174
ExplicitLeft = 151 ExplicitLeft = 174
end end
end end
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 255 ExplicitWidth = 78
Width = 255 Width = 78
end
inherited bFormasPago: TButton
Left = 385
ExplicitLeft = 385
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 556
Width = 729
ExplicitLeft = 556
ExplicitWidth = 729
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 729 inherited cbTienda: TcxComboBox
inherited cbTienda: TcxDBComboBox ExplicitWidth = 399
DataBinding.DataSource = frViewFacturaCliente1.DADataSource Width = 399
ExplicitWidth = 376
Width = 376
end end
end end
end end
@ -195,7 +178,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 936 Width = 799
Height = 350 Height = 350
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -208,104 +191,77 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 936 ExplicitWidth = 799
ExplicitHeight = 350 ExplicitHeight = 350
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 936 Width = 799
Height = 24 ExplicitWidth = 799
ExplicitWidth = 936
ExplicitHeight = 24
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
inherited ToolButton14: TToolButton inherited ToolButton14: TToolButton
Left = 334 Left = 334
Top = 0 Top = 0
Wrap = True
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontName: TJvFontComboBox
Left = 368 Left = 0
Top = 0 ExplicitLeft = 0
ExplicitLeft = 368
ExplicitTop = 0
end end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 513 Left = 145
Top = 0
Width = 57 Width = 57
ExplicitLeft = 513 ExplicitLeft = 145
ExplicitTop = 0
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 570 Left = 218
Top = 0 ExplicitLeft = 218
ExplicitLeft = 570
ExplicitTop = 0
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 587 Left = 235
Top = 0 ExplicitLeft = 235
ExplicitLeft = 587
ExplicitTop = 0
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 595 Left = 243
Top = 0 ExplicitLeft = 243
ExplicitLeft = 595
ExplicitTop = 0
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 629 Left = 277
Top = 0 ExplicitLeft = 277
ExplicitLeft = 629
ExplicitTop = 0
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 663 Left = 311
Top = 0 ExplicitLeft = 311
ExplicitLeft = 663
ExplicitTop = 0
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 697 Left = 345
Top = 0 ExplicitLeft = 345
ExplicitLeft = 697
ExplicitTop = 0
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 705 Left = 353
Top = 0 ExplicitLeft = 353
ExplicitLeft = 705
ExplicitTop = 0
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 739 Left = 387
Top = 0 ExplicitLeft = 387
ExplicitLeft = 739
ExplicitTop = 0
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 773 Left = 421
Top = 0 ExplicitLeft = 421
ExplicitLeft = 773
ExplicitTop = 0
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Width = 799
Width = 936 Height = 278
Height = 300 ExplicitWidth = 799
ExplicitTop = 50 ExplicitHeight = 278
ExplicitWidth = 936
ExplicitHeight = 300
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Width = 799
Width = 936 ExplicitWidth = 799
ExplicitTop = 24
ExplicitWidth = 936
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
@ -346,18 +302,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 623 Top = 623
Width = 950 Width = 813
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 623 ExplicitTop = 623
ExplicitWidth = 950 ExplicitWidth = 813
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 460 Top = 460
Width = 950 Width = 813
Height = 163 Height = 163
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -369,12 +325,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 460 ExplicitTop = 460
ExplicitWidth = 950 ExplicitWidth = 813
ExplicitHeight = 163 ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 950 Width = 813
LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1 LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
ExplicitWidth = 950 ExplicitWidth = 813
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 111 Top = 111
Width = 73 Width = 73
@ -382,18 +338,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 504 Left = 433
Top = 30 Top = 30
Height = 122 Height = 122
ExplicitLeft = 504 ExplicitLeft = 433
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 616 Left = 545
Top = 111 Top = 111
Width = 186 Width = 186
ExplicitLeft = 616 ExplicitLeft = 545
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 186 ExplicitWidth = 186
end end
@ -405,19 +361,19 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 687 Left = 616
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 687 ExplicitLeft = 616
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 617 Left = 546
Top = 131 Top = 131
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 617 ExplicitLeft = 546
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -429,34 +385,34 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 131 ExplicitTop = 131
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 616 Left = 545
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 616 ExplicitLeft = 545
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 616 Left = 545
Top = 30 Top = 30
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 616 ExplicitLeft = 545
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 616 Left = 545
Top = 84 Top = 84
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 616 ExplicitLeft = 545
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 687 Left = 616
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 687 ExplicitLeft = 616
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -487,10 +443,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 134 Width = 134
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 356 Left = 285
Top = 57 Top = 57
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 356 ExplicitLeft = 285
ExplicitTop = 57 ExplicitTop = 57
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

1
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -257,6 +257,7 @@ begin
frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FFactura.EsNuevo; bEsNuevo := FFactura.EsNuevo;
FController.SetID_Tienda(FFactura, frViewFacturaCliente1.frViewTienda1.getIDTienda);
FController.Guardar(FFactura); FController.Guardar(FFactura);
finally finally
frViewDetallesFacturaCliente1.EndUpdate; frViewDetallesFacturaCliente1.EndUpdate;

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -143,8 +143,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 351 Left = 351
ExplicitLeft = 351 ExplicitLeft = 351
ExplicitWidth = 273
Width = 273
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

4
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -129,8 +129,8 @@ begin
end; end;
procedure TfEditorFacturasCliente.DuplicarInterno; procedure TfEditorFacturasCliente.DuplicarInterno;
var {var
AFactura : IBizFacturaCliente; AFactura : IBizFacturaCliente;}
begin begin
AppFactuGES.ShowCapado; AppFactuGES.ShowCapado;
{ {

104
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 896 Width = 745
Height = 476 Height = 458
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 896 Width = 745
Height = 476 Height = 458
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -19,8 +19,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
896 745
476) 458)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 124 Left = 124
Top = 30 Top = 30
@ -64,7 +64,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 137 Top = 275
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -76,12 +76,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 TabOrder = 6
Height = 159 Height = 159
Width = 301 Width = 301
end end
inline frViewClienteFactura: TfrViewDatosYSeleccionCliente inline frViewClienteFactura: TfrViewDatosYSeleccionCliente
Left = 368 Left = 401
Top = 30 Top = 30
Width = 314 Width = 314
Height = 215 Height = 215
@ -93,7 +93,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 5 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitLeft = 368 ExplicitLeft = 401
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 314 ExplicitWidth = 314
ExplicitHeight = 215 ExplicitHeight = 215
@ -128,13 +128,13 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 414 Left = 230
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
ExplicitLeft = 414 ExplicitLeft = 230
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 304 Left = 120
ExplicitLeft = 304 ExplicitLeft = 120
end end
end end
end end
@ -170,7 +170,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 208 Left = 241
Top = 84 Top = 84
Width = 132 Width = 132
Height = 23 Height = 23
@ -179,34 +179,38 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 379 Left = 22
Top = 270 Top = 137
Width = 729 Width = 351
Height = 180 Height = 48
Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitLeft = 379 ExplicitLeft = 22
ExplicitTop = 270 ExplicitTop = 137
ExplicitWidth = 729 ExplicitWidth = 351
ExplicitHeight = 48
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 729 Width = 351
ExplicitWidth = 729 Height = 63
inherited cbTienda: TcxDBComboBox ExplicitWidth = 351
DataBinding.DataSource = DADataSource ExplicitHeight = 63
Properties.OnChange = frViewTienda1cbTiendaPropertiesChange inherited cbTienda: TcxComboBox
ExplicitWidth = 376 ExplicitWidth = 399
Width = 376 Width = 399
end end
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group7: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
@ -248,16 +252,14 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaVertical]
AlignVert = avClient Caption = 'La factura pertenece a la tienda'
Caption = 'Observaciones' object dxLayoutControl1Item3: TdxLayoutItem
LayoutDirection = ldHorizontal Caption = 'New Item'
object dxLayoutControl1Item5: TdxLayoutItem ShowCaption = False
AutoAligns = [] Control = frViewTienda1
AlignHorz = ahClient ControlOptions.AutoColor = True
AlignVert = avClient
Control = memObservaciones
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
@ -272,16 +274,20 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group4: TdxLayoutGroup
Caption = 'New Group'
object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
LayoutDirection = ldHorizontal
object dxLayoutControl1Item5: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Control = memObservaciones
ControlOptions.ShowBorder = False
end
end end
end end
end end

15
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -51,10 +51,10 @@ type
frViewTienda1: TfrViewTienda; frViewTienda1: TfrViewTienda;
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
dxLayoutControl1Group7: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected protected
FFactura : IBizFacturaCliente; FFactura : IBizFacturaCliente;
FController : IFacturasClienteController; FController : IFacturasClienteController;
@ -100,17 +100,6 @@ begin
FFormasPagoController := NIL; FFormasPagoController := NIL;
end; end;
procedure TfrViewFacturaCliente.frViewTienda1cbTiendaPropertiesChange(
Sender: TObject);
begin
inherited;
if assigned(Factura)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Factura, frViewTienda1.getIDTienda);
end;
end;
function TfrViewFacturaCliente.GetController: IFacturasClienteController; function TfrViewFacturaCliente.GetController: IFacturasClienteController;
begin begin
Result := FController; Result := FController;
@ -138,6 +127,8 @@ begin
begin begin
DADataSource.DataTable := FFactura.DataTable; DADataSource.DataTable := FFactura.DataTable;
frViewTienda1.DataItem := FFactura.DataTable;
FFormasPago := FFormasPagoController.BuscarTodos; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;

1
Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj
View File

@ -41,6 +41,7 @@
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

176
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -2,20 +2,20 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 454 Left = 454
Top = 208 Top = 208
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ClientHeight = 573 ClientHeight = 606
ClientWidth = 788 ClientWidth = 746
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 796 ExplicitWidth = 754
ExplicitHeight = 600 ExplicitHeight = 640
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 788 Width = 746
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ExplicitWidth = 788 ExplicitWidth = 746
inherited Image1: TImage inherited Image1: TImage
Left = 761 Left = 719
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -39,8 +39,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 788 Width = 746
ExplicitWidth = 788 ExplicitWidth = 746
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -54,7 +54,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 788 ExplicitWidth = 746
inherited TBXSubmenuItem4: TTBXSubmenuItem inherited TBXSubmenuItem4: TTBXSubmenuItem
inherited TBXItem8: TTBXItem inherited TBXItem8: TTBXItem
Visible = False Visible = False
@ -69,23 +69,23 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 782 Width = 740
Height = 309 Height = 342
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 782 ExplicitWidth = 740
ExplicitHeight = 309 ExplicitHeight = 342
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 774 ExplicitWidth = 732
ExplicitHeight = 281 ExplicitHeight = 314
inline frViewFacturaProveedor1: TfrViewFacturaProveedor inline frViewFacturaProveedor1: TfrViewFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 774 Width = 732
Height = 281 Height = 314
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -95,13 +95,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 774 ExplicitWidth = 732
ExplicitHeight = 281 ExplicitHeight = 314
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 774 Height = 314
Height = 281 ExplicitWidth = 732
ExplicitWidth = 774 ExplicitHeight = 314
ExplicitHeight = 281 DesignSize = (
732
314)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159 ExplicitWidth = 159
Width = 159 Width = 159
@ -117,54 +119,42 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 301 Width = 301
end end
inherited cbFormaPago: TcxDBLookupComboBox inherited cbFormaPago: TcxDBLookupComboBox
ExplicitWidth = 78 ExplicitWidth = 169
Width = 78 Width = 169
end
inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 316
Width = 316
end end
inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inherited frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource ExplicitWidth = 276
Width = 276
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource ExplicitWidth = 241
ExplicitWidth = 177 Width = 241
Width = 177
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource ExplicitWidth = 289
ExplicitWidth = 327 Width = 289
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 322
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitLeft = 322
end
inherited Button3: TBitBtn
Left = 206
ExplicitLeft = 206
end end
end end
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Width = 694
ExplicitWidth = 694
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 694 inherited cbTienda: TcxComboBox
inherited cbTienda: TcxDBComboBox ExplicitWidth = 376
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource Width = 376
ExplicitWidth = 412
Width = 412
end end
end end
end end
@ -177,8 +167,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 774 Width = 732
Height = 281 Height = 314
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -190,11 +180,11 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 774 ExplicitWidth = 732
ExplicitHeight = 281 ExplicitHeight = 314
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 774 Width = 732
ExplicitWidth = 774 ExplicitWidth = 732
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
Wrap = False Wrap = False
end end
@ -253,14 +243,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 774 Width = 732
Height = 209 Height = 242
ExplicitWidth = 774 ExplicitWidth = 732
ExplicitHeight = 209 ExplicitHeight = 242
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 774 Width = 732
ExplicitWidth = 774 ExplicitWidth = 732
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
@ -270,6 +260,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContabilidad: TTabSheet object pagContabilidad: TTabSheet
Caption = 'Contabilidad' Caption = 'Contabilidad'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cbIgnorarContabilidad: TcxDBCheckBox object cbIgnorarContabilidad: TcxDBCheckBox
Left = 16 Left = 16
Top = 12 Top = 12
@ -296,19 +290,19 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 554 Top = 587
Width = 788 Width = 746
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 554 ExplicitTop = 587
ExplicitWidth = 788 ExplicitWidth = 746
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 391 Top = 424
Width = 788 Width = 746
Height = 163 Height = 163
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -319,12 +313,12 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 391 ExplicitTop = 424
ExplicitWidth = 788 ExplicitWidth = 746
ExplicitHeight = 163 ExplicitHeight = 163
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 788 Width = 746
ExplicitWidth = 788 ExplicitWidth = 746
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 111 Top = 111
Width = 73 Width = 73
@ -332,18 +326,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 73 ExplicitWidth = 73
end end
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 420 Left = 398
Top = 30 Top = 30
Height = 122 Height = 122
ExplicitLeft = 420 ExplicitLeft = 398
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122 ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 532 Left = 510
Top = 111 Top = 111
Width = 186 Width = 186
ExplicitLeft = 532 ExplicitLeft = 510
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 186 ExplicitWidth = 186
end end
@ -355,19 +349,19 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 93 Width = 93
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 603 Left = 581
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 581
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 533 Left = 511
Top = 131 Top = 131
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 533 ExplicitLeft = 511
ExplicitTop = 131 ExplicitTop = 131
ExplicitWidth = 137 ExplicitWidth = 137
Width = 137 Width = 137
@ -379,34 +373,34 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitTop = 131 ExplicitTop = 131
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 532 Left = 510
Top = 57 Top = 57
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 510
ExplicitTop = 57 ExplicitTop = 57
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 532 Left = 510
Top = 30 Top = 30
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 510
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 92 ExplicitWidth = 92
Width = 92 Width = 92
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 532 Left = 510
Top = 84 Top = 84
Properties.AssignedValues.MinValue = True Properties.AssignedValues.MinValue = True
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 532 ExplicitLeft = 510
ExplicitTop = 84 ExplicitTop = 84
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 603 Left = 581
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 603 ExplicitLeft = 581
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 56 ExplicitWidth = 56
Width = 56 Width = 56
@ -437,10 +431,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 134 Width = 134
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 272 Left = 250
Top = 57 Top = 57
OnClick = frViewTotales1bTiposIVAClick OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 272 ExplicitLeft = 250
ExplicitTop = 57 ExplicitTop = 57
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox

1
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -246,6 +246,7 @@ begin
frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco frViewDetallesFacturaProveedor1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FFactura.EsNuevo; bEsNuevo := FFactura.EsNuevo;
FController.SetID_Tienda(FFactura, frViewFacturaProveedor1.frViewTienda1.getIDTienda);
FController.Guardar(FFactura); FController.Guardar(FFactura);
finally finally
frViewDetallesFacturaProveedor1.EndUpdate; frViewDetallesFacturaProveedor1.EndUpdate;

124
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 694 Width = 732
Height = 401 Height = 410
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 694 Width = 732
Height = 401 Height = 410
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -19,8 +19,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
694 732
401) 410)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 136
Top = 30 Top = 30
@ -28,7 +28,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
DataBinding.DataField = 'REFERENCIA' DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False Enabled = False
Properties.ReadOnly = False
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clInfoBk Style.Color = clInfoBk
@ -65,7 +64,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 164 Top = 262
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -77,7 +76,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 7
Height = 159 Height = 159
Width = 301 Width = 301
end end
@ -110,10 +109,10 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 3
Width = 78 Width = 169
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 162 Left = 210
Top = 111 Top = 111
Width = 132 Width = 132
Height = 23 Height = 23
@ -139,12 +138,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Width = 158 Width = 316
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 322 Left = 370
Top = 30 Top = 30
Width = 350 Width = 340
Height = 202 Height = 202
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -154,9 +153,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 322 ExplicitLeft = 370
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 340
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 340
ExplicitWidth = 340
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562 ExplicitWidth = 562
Width = 562 Width = 562
@ -166,44 +168,54 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 562 Width = 562
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 177 ExplicitWidth = 241
Width = 177 Width = 241
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327 ExplicitWidth = 289
Width = 327 Width = 289
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 248
ExplicitLeft = 248
end
inherited Button3: TBitBtn
Left = 132
ExplicitLeft = 132
end end
end end
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 333 Left = 22
Top = 257 Top = 164
Width = 694 Width = 320
Height = 46 Height = 36
Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 5
ReadOnly = False ReadOnly = False
ExplicitLeft = 333 ExplicitLeft = 22
ExplicitTop = 257 ExplicitTop = 164
ExplicitWidth = 694 ExplicitWidth = 320
ExplicitHeight = 36
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 694 Width = 320
ExplicitWidth = 694 ExplicitWidth = 210
inherited cbTienda: TcxDBComboBox inherited cbTienda: TcxComboBox
DataBinding.DataSource = DADataSource ExplicitWidth = 376
Properties.OnChange = frViewTienda1cbTiendaPropertiesChange Width = 376
ExplicitWidth = 412
Width = 412
end end
end end
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group7: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
@ -252,6 +264,28 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
end end
end end
object dxLayoutControl1Group4: TdxLayoutGroup
Caption = 'La factura pertenece a la tienda'
object dxLayoutControl1Item7: TdxLayoutItem
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Datos del proveedor'
object dxLayoutControl1Item3: TdxLayoutItem
AutoAligns = [aaVertical]
Control = frViewProveedorFactura
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
@ -266,26 +300,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
end end
end end
object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Datos del proveedor'
object dxLayoutControl1Item3: TdxLayoutItem
Control = frViewProveedorFactura
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup
Caption = 'La factura pertenece a la tienda'
object dxLayoutControl1Item7: TdxLayoutItem
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
end
end
end
end end
object DADataSource: TDADataSource object DADataSource: TDADataSource
Left = 16 Left = 16

16
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -50,15 +50,15 @@ type
eReferenciaProveedor: TcxDBTextEdit; eReferenciaProveedor: TcxDBTextEdit;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
frViewProveedorFactura: TfrViewDatosYSeleccionProveedor; frViewProveedorFactura: TfrViewDatosYSeleccionProveedor;
dxLayoutControl1Group4: TdxLayoutGroup;
dxLayoutControl1Item7: TdxLayoutItem; dxLayoutControl1Item7: TdxLayoutItem;
frViewTienda1: TfrViewTienda; frViewTienda1: TfrViewTienda;
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group7: TdxLayoutGroup;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure frViewProveedorFacturaButton1Click(Sender: TObject); procedure frViewProveedorFacturaButton1Click(Sender: TObject);
procedure frViewProveedorFacturaButton2Click(Sender: TObject); procedure frViewProveedorFacturaButton2Click(Sender: TObject);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected protected
FFactura : IBizFacturaProveedor; FFactura : IBizFacturaProveedor;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
@ -129,17 +129,6 @@ begin
frViewProveedorFactura.actAnadirContacto.Execute; frViewProveedorFactura.actAnadirContacto.Execute;
end; end;
procedure TfrViewFacturaProveedor.frViewTienda1cbTiendaPropertiesChange(
Sender: TObject);
begin
inherited;
if assigned(Factura)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Factura, frViewTienda1.getIDTienda);
end;
end;
function TfrViewFacturaProveedor.GetController: IFacturasProveedorController; function TfrViewFacturaProveedor.GetController: IFacturasProveedorController;
begin begin
Result := FController; Result := FController;
@ -164,6 +153,7 @@ begin
if Assigned(FFactura) then if Assigned(FFactura) then
begin begin
DADataSource.DataTable := FFactura.DataTable; DADataSource.DataTable := FFactura.DataTable;
frViewTienda1.DataItem := FFactura.DataTable;
FFormasPago := FFormasPagoController.BuscarTodos; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;

8
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -641,20 +641,22 @@ begin
if not APresupuesto.DataTable.Editing then if not APresupuesto.DataTable.Editing then
APresupuesto.DataTable.Edit; APresupuesto.DataTable.Edit;
if ID_Tienda < 0 then if (ID_Tienda < 0) then
begin begin
APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteID_TIENDA).AsVariant := Null; APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteID_TIENDA).AsVariant := Null;
APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteTIENDA).AsVariant := Null APresupuesto.DataTable.FieldByName(fld_PresupuestosClienteTIENDA).AsVariant := Null
end end
else else begin
begin
APresupuesto.ID_TIENDA := ID_Tienda; APresupuesto.ID_TIENDA := ID_Tienda;
APresupuesto.TIENDA := Tienda; APresupuesto.TIENDA := Tienda;
end; end;
APresupuesto.DataTable.DisableControls; APresupuesto.DataTable.DisableControls;
try
APresupuesto.DataTable.Post; APresupuesto.DataTable.Post;
finally
APresupuesto.DataTable.EnableControls; APresupuesto.DataTable.EnableControls;
end;
if EnEdicion then if EnEdicion then
APresupuesto.DataTable.Edit; APresupuesto.DataTable.Edit;

9
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
View File

@ -6,7 +6,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ClientWidth = 674 ClientWidth = 674
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 682 ExplicitWidth = 682
ExplicitHeight = 658 ExplicitHeight = 665
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -149,6 +149,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
Height = 459 Height = 459
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 459 ExplicitHeight = 459
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -230,7 +232,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 660 Width = 660
ExplicitWidth = 624 ExplicitTop = 46
ExplicitWidth = 660
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 548
end end
@ -258,7 +261,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
ExplicitHeight = 431 ExplicitHeight = 431
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 660 Width = 660
ExplicitWidth = 624 ExplicitWidth = 660
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end

19
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -126,7 +126,7 @@ end;
procedure TfEditorPresupuestoCliente.EliminarInterno; procedure TfEditorPresupuestoCliente.EliminarInterno;
begin begin
if (ShowConfirmMessage('¿Desea borrar este Presupuesto de cliente?', '') = IDYES) then if (ShowConfirmMessage('¿Desea borrar este presupuesto de cliente?', '') = IDYES) then
begin begin
FController.Eliminar(FPresupuesto); FController.Eliminar(FPresupuesto);
inherited inherited
@ -141,7 +141,7 @@ begin
raise Exception.Create('No hay ninguna vista asignada'); raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(Presupuesto) then if not Assigned(Presupuesto) then
raise Exception.Create('No hay ningún Presupuesto asignado'); raise Exception.Create('No hay ningún presupuesto asignado');
Presupuesto.DataTable.Active := True; Presupuesto.DataTable.Active := True;
pgPaginas.ActivePage := pagGeneral; pgPaginas.ActivePage := pagGeneral;
@ -187,6 +187,7 @@ begin
frViewDetallesPresupuestoCliente1.BeginUpdate; frViewDetallesPresupuestoCliente1.BeginUpdate;
try try
bEsNuevo := FPresupuesto.EsNuevo; bEsNuevo := FPresupuesto.EsNuevo;
FController.SetID_Tienda(FPresupuesto, TfrViewPresupuestoCliente(FViewPresupuesto).frViewTienda1.getIDTienda, '');
FController.Guardar(FPresupuesto); FController.Guardar(FPresupuesto);
finally finally
frViewDetallesPresupuestoCliente1.EndUpdate; frViewDetallesPresupuestoCliente1.EndUpdate;
@ -194,7 +195,7 @@ begin
HideHourglassCursor; HideHourglassCursor;
end; end;
if bEsNuevo then if bEsNuevo then
ShowInfoMessage('El Presupuesto se ha dado de alta con el código ' + FPresupuesto.REFERENCIA); ShowInfoMessage('El presupuesto se ha dado de alta con el código ' + FPresupuesto.REFERENCIA);
Modified := False; Modified := False;
end; end;
@ -220,16 +221,18 @@ begin
AClientesController := TClientesController.Create; AClientesController := TClientesController.Create;
try try
if not AClientesController.TieneDatosBancarios(FPresupuesto.Cliente) then // No avisar si el cliente no tiene datos bancarios
MessageBox(0, 'Este cliente no tiene datos bancarios en su ficha', 'Atención', MB_ICONWARNING or MB_OK); {if not AClientesController.TieneDatosBancarios(FPresupuesto.Cliente) then
MessageBox(0, 'Este cliente no tiene datos bancarios en su ficha', 'Atención', MB_ICONWARNING or MB_OK);}
case FPresupuesto.Cliente.Direcciones.RecordCount of case FPresupuesto.Cliente.Direcciones.RecordCount of
0 : begin // No avisar si el cliente no tiene direcciones
{0 : begin
FController.QuitarDireccionEnvio(FPresupuesto); FController.QuitarDireccionEnvio(FPresupuesto);
MessageBox(0, '¡Atención! Este cliente no tiene ' + #10#13 + 'ninguna dirección de envío en su ficha', 'Atención', MB_ICONWARNING or MB_OK); MessageBox(0, '¡Atención! Este cliente no tiene ' + #10#13 + 'ninguna dirección de envío en su ficha', 'Atención', MB_ICONWARNING or MB_OK);
FPresupuesto.Edit; FPresupuesto.Edit;
FPresupuesto.IMPORTE_PORTE := 0; FPresupuesto.IMPORTE_PORTE := 0;
end; end;}
1 : begin 1 : begin
FController.CopiarDireccionEnvio(FPresupuesto.Cliente.Direcciones, FPresupuesto); FController.CopiarDireccionEnvio(FPresupuesto.Cliente.Direcciones, FPresupuesto);
FPresupuesto.Edit; FPresupuesto.Edit;
@ -266,7 +269,7 @@ begin
inherited; inherited;
if (not Assigned(FPresupuesto)) or (FPresupuesto.ID_CLIENTE = 0) then if (not Assigned(FPresupuesto)) or (FPresupuesto.ID_CLIENTE = 0) then
begin begin
ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este Presupuesto'); ShowWarningMessage('Antes de introducir conceptos debe elegir un cliente para este presupuesto');
AllowChange := False; AllowChange := False;
end; end;
end; end;

114
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -1,21 +1,21 @@
inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 985 Width = 787
Height = 473 Height = 473
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 985 ExplicitWidth = 787
ExplicitHeight = 473 ExplicitHeight = 473
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 985 Width = 787
Height = 473 Height = 473
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
DesignSize = ( DesignSize = (
985 787
473) 473)
object edtFechaPresupuesto: TcxDBDateEdit object edtFechaPresupuesto: TcxDBDateEdit
Left = 123 Left = 123
@ -42,7 +42,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 351 Top = 344
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -54,7 +54,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10 TabOrder = 11
Height = 100 Height = 100
Width = 941 Width = 941
end end
@ -85,7 +85,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 143 Width = 143
end end
inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente inline frViewClientePresupuesto: TfrViewDatosYSeleccionCliente
Left = 679 Left = 477
Top = 28 Top = 28
Width = 350 Width = 350
Height = 212 Height = 212
@ -95,9 +95,9 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 679 ExplicitLeft = 477
ExplicitTop = 28 ExplicitTop = 28
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -121,12 +121,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 192 Left = 196
ExplicitLeft = 192 ExplicitLeft = 196
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 82 Left = 86
ExplicitLeft = 82 ExplicitLeft = 86
end end
end end
inherited DADataSource: TDADataSource inherited DADataSource: TDADataSource
@ -141,7 +141,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 123 Left = 123
Top = 190 Top = 217
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -166,16 +166,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 7
Width = 101 Width = 101
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 517 Left = 315
Top = 190 Top = 217
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 7 TabOrder = 8
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaDecision: TcxDBDateEdit object edtFechaDecision: TcxDBDateEdit
@ -275,41 +275,58 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 121 Width = 412
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 22 Left = 22
Top = 247 Top = 274
Width = 766 Width = 425
Height = 46 Height = 34
Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 247 ExplicitTop = 274
ExplicitWidth = 766 ExplicitWidth = 425
ExplicitHeight = 46 ExplicitHeight = 34
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 766 Width = 425
Height = 46 ExplicitWidth = 425
ExplicitWidth = 766 inherited cbTienda: TcxComboBox
ExplicitHeight = 46 Margins.Left = 0
inherited cbTienda: TcxDBComboBox Margins.Top = 0
Margins.Right = 0
Margins.Bottom = 0
ExplicitWidth = 62
Width = 62
end
end
end
object cbVendedor: TcxDBComboBox
Left = 123
Top = 190
DataBinding.DataField = 'ID_VENDEDOR'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.OnValidate = frViewTienda1cbTiendaPropertiesValidate Properties.DropDownListStyle = lsEditFixedList
ExplicitWidth = 412 Properties.ImmediatePost = True
Width = 412 Properties.ImmediateUpdateText = True
end Properties.Sorted = True
inherited cbVendedor: TcxDBLookupComboBox Properties.OnValidate = cbVendedorPropertiesValidate
DataBinding.DataSource = DADataSource Style.LookAndFeel.Kind = lfStandard
end Style.LookAndFeel.NativeStyle = True
end StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 121
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -317,13 +334,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -362,6 +378,11 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = cbSituacion Control = cbSituacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item11: TdxLayoutItem
Caption = 'Vendedor:'
Control = cbVendedor
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Visible = False Visible = False
@ -386,11 +407,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient Caption = 'El presupuesto pertenece a la tienda'
Caption = 'El presupuesto pertenece al al tienda'
object dxLayoutControl1Item9: TdxLayoutItem object dxLayoutControl1Item9: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient AlignVert = avClient
Caption = 'Tienda:'
ShowCaption = False
Control = frViewTienda1 Control = frViewTienda1
ControlOptions.AutoColor = True ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
@ -398,7 +420,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
end end
object dxLayoutControl1Group2: TdxLayoutGroup object dxLayoutControl1Group2: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Datos del cliente' Caption = 'Datos del cliente'
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
@ -410,7 +432,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
end end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avBottom AlignVert = avClient
Caption = 'Observaciones' Caption = 'Observaciones'
object dxLayoutControl1Item6: TdxLayoutItem object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]

110
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -66,6 +66,8 @@ type
frViewTienda1: TfrViewTienda; frViewTienda1: TfrViewTienda;
dxLayoutControl1Group3: TdxLayoutGroup; dxLayoutControl1Group3: TdxLayoutGroup;
dxLayoutControl1Group4: TdxLayoutGroup; dxLayoutControl1Group4: TdxLayoutGroup;
cbVendedor: TcxDBComboBox;
dxLayoutControl1Item11: TdxLayoutItem;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);
@ -73,15 +75,14 @@ type
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure frViewClientePresupuestoButton1Click(Sender: TObject); procedure frViewClientePresupuestoButton1Click(Sender: TObject);
procedure frViewClientePresupuestoButton2Click(Sender: TObject); procedure frViewClientePresupuestoButton2Click(Sender: TObject);
procedure frViewTienda1cbTiendaPropertiesValidate(Sender: TObject; procedure cbVendedorPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected protected
FPresupuesto : IBizPresupuestoCliente; FPresupuesto : IBizPresupuestoCliente;
FController : IPresupuestosClienteController; FController : IPresupuestosClienteController;
FFormasPago : IBizFormaPago; FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
FEmpleadosController : IEmpleadosController; FListaVendedores : TStringList;
FViewClientePresupuesto : TfrViewDatosYSeleccionCliente; FViewClientePresupuesto : TfrViewDatosYSeleccionCliente;
function GetPresupuesto: IBizPresupuestoCliente; function GetPresupuesto: IBizPresupuestoCliente;
@ -104,7 +105,7 @@ implementation
{ TfrViewPresupuestoCliente } { TfrViewPresupuestoCliente }
uses uses
uClientesController, uBizDireccionesContacto, uFactuGES_App; uClientesController, uBizContactos, uBizDireccionesContacto, uFactuGES_App;
procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject); procedure TfrViewPresupuestoCliente.actElegirDireccionExecute(Sender: TObject);
@ -118,7 +119,7 @@ begin
APresupuestoController := TPresupuestosClienteController.Create; APresupuestoController := TPresupuestosClienteController.Create;
try try
ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones, ADireccion := AClientesController.ElegirDireccionEntrega(FPresupuesto.Cliente.Direcciones,
'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este Presupuesto.'); 'Seleccione la dirección del cliente que quiere utilizar como dirección de este presupuesto.');
if Assigned(ADireccion) then if Assigned(ADireccion) then
begin begin
APresupuestoController.CopiarDireccionEnvio(ADireccion, FPresupuesto); APresupuestoController.CopiarDireccionEnvio(ADireccion, FPresupuesto);
@ -152,21 +153,60 @@ begin
FFormasPagoController.VerTodos(FFormasPago); FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewPresupuestoCliente.CustomViewCreate(Sender: TObject); procedure TfrViewPresupuestoCliente.cbVendedorPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
var
AIndex : integer;
begin begin
inherited; inherited;
FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
FViewClientePresupuesto := frViewClientePresupuesto;
FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el Presupuesto.';
FEmpleadosController := TEmpleadosController.Create; if Assigned(FPresupuesto) and FPresupuesto.Active then
frViewTienda1.dsVendedores.DataTable := FEmpleadosController.BuscarVendedores.DataTable; begin
frViewTienda1.dsVendedores.DataTable.Active := true; AIndex := StrToInt(FListaVendedores.Values[DisplayValue]);
FPresupuesto.Edit;
FPresupuesto.ID_VENDEDOR := AIndex;
end;
end;
procedure TfrViewPresupuestoCliente.CustomViewCreate(Sender: TObject);
var
i : integer;
begin
inherited;
FListaVendedores := NIL;
FFormasPago := NIL;
FFormasPagoController := TFormasPagoController.Create;
FViewClientePresupuesto := frViewClientePresupuesto;
FViewClientePresupuesto.MsgElegirCliente := 'Elija el cliente al que se le realizará el presupuesto.';
with TEmpleadosController.Create do
begin
try
FListaVendedores := DarListaVendedores;
with cbVendedor.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FListaVendedores.Count - 1 do
Add(FListaVendedores.Names[i]);
finally
EndUpdate;
end;
end;
finally
Free;
end;
end;
end; end;
procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewPresupuestoCliente.CustomViewDestroy(Sender: TObject);
begin begin
FreeAndNIL(FListaVendedores);
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
FViewClientePresupuesto := NIL; FViewClientePresupuesto := NIL;
@ -178,7 +218,7 @@ begin
if Assigned(Presupuesto) and Assigned(Presupuesto.Cliente) and if Assigned(Presupuesto) and Assigned(Presupuesto.Cliente) and
Assigned (Presupuesto.Detalles) and (Presupuesto.Detalles.RecordCount > 0) then Assigned (Presupuesto.Detalles) and (Presupuesto.Detalles.RecordCount > 0) then
begin begin
if (Application.MessageBox('Los descuentos de los artículos del Presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then if (Application.MessageBox('Los descuentos de los artículos del presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit; Exit;
end; end;
frViewClientePresupuesto.actElegirContacto.Execute; frViewClientePresupuesto.actElegirContacto.Execute;
@ -189,37 +229,12 @@ begin
if Assigned(Presupuesto) and Assigned(Presupuesto.Cliente) and if Assigned(Presupuesto) and Assigned(Presupuesto.Cliente) and
Assigned (Presupuesto.Detalles) and (Presupuesto.Detalles.RecordCount > 0) then Assigned (Presupuesto.Detalles) and (Presupuesto.Detalles.RecordCount > 0) then
begin begin
if (Application.MessageBox('Los descuentos de los artículos del Presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then if (Application.MessageBox('Los descuentos de los artículos del presupuesto serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
Exit; Exit;
end; end;
frViewClientePresupuesto.actAnadirContacto.Execute; frViewClientePresupuesto.actAnadirContacto.Execute;
end; end;
procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesChange(
Sender: TObject);
begin
inherited;
{
if assigned(Presupuesto)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda);
end;
}
end;
procedure TfrViewPresupuestoCliente.frViewTienda1cbTiendaPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
if assigned(Presupuesto)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Presupuesto, frViewTienda1.getIDTienda, frViewTienda1.cbTienda.Text);
end;
end;
function TfrViewPresupuestoCliente.GetController: IPresupuestosClienteController; function TfrViewPresupuestoCliente.GetController: IPresupuestosClienteController;
begin begin
Result := FController; Result := FController;
@ -241,20 +256,29 @@ begin
end; end;
procedure TfrViewPresupuestoCliente.SetPresupuesto(const Value: IBizPresupuestoCliente); procedure TfrViewPresupuestoCliente.SetPresupuesto(const Value: IBizPresupuestoCliente);
var
i : integer;
begin begin
FPresupuesto := Value; FPresupuesto := Value;
if Assigned(FPresupuesto) then if Assigned(FPresupuesto) then
begin begin
DADataSource.DataTable := FPresupuesto.DataTable; DADataSource.DataTable := FPresupuesto.DataTable;
cbVendedor.Text := '';
for i := 0 to FListaVendedores.Count-1 do
begin
if FListaVendedores.ValueFromIndex[i] = IntToStr(FPresupuesto.ID_VENDEDOR) then
begin
cbVendedor.Text := FListaVendedores.Names[i];
Break;
end;
end;
FFormasPago := FFormasPagoController.BuscarTodos; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable; dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
frViewClientePresupuesto.Cliente := FPresupuesto.Cliente; frViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
//REPASAR frViewTienda1.DataItem := FPresupuesto.DataTable;
if FPresupuesto.EsNuevo then
frViewTienda1.SetIDTienda(FPresupuesto.ID_TIENDA);
end end
else begin else begin
DADataSource.DataTable := NIL; DADataSource.DataTable := NIL;

10
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -23,7 +23,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '0 pedidos' Format = '0 presupuestos'
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA Column = cxGridViewREFERENCIA
end end
@ -151,14 +151,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 931 Width = 931
ExplicitWidth = 931 ExplicitWidth = 931
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 383 Left = 383
ExplicitLeft = 383 ExplicitLeft = 383

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -29,8 +29,6 @@
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</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">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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 26 de febrero de 2008 17:08\0" VALUE "CompileDate", "martes, 26 de febrero de 2008 18:24\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"