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

- Repaso a multiempresa y tiendas.

Browse Source 
- Limpieza de warnings.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@294 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-28 11:58:45 +00:00
parent 5d5d98d8d0
commit b68b3e630a
39 changed files with 209 additions and 336 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,7 +43,7 @@ inherited frViewTienda: TfrViewTienda
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 376
Width = 390
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False

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

@ -16,6 +16,12 @@ uses
type
IViewTienda = interface(IViewBase)
['{9FD357AB-2E87-4CAF-8AEB-04368AD075AF}']
function GetDataItem: TDADataTable;
procedure SetDataItem(const Value: TDADataTable);
property DataItem : TDADataTable read GetDataItem write SetDataItem;
procedure ElegirTienda(const AIDTienda : Integer);
end;
TfrViewTienda = class(TfrViewBase, IViewTienda)
@ -35,9 +41,6 @@ type
public
property DataItem : TDADataTable read GetDataItem write SetDataItem;
procedure ElegirTienda(const AIDTienda : Integer);
function getIDTienda: Integer;
procedure SetIDTienda(const ID: Integer);
end;
@ -115,14 +118,6 @@ begin
Result := FDataItem;
end;
function TfrViewTienda.getIDTienda: Integer;
begin
{ if FListaTiendas.IndexOf(cbTienda.Text) < 0 then
Result := FListaTiendas.IndexOf(cbTienda.Text)
else
Result := FListaIDTiendas.Integers[FListaTiendas.IndexOf(cbTienda.Text)];}
end;
procedure TfrViewTienda.SetDataItem(const Value: TDADataTable);
begin
FDataItem := Value;
@ -130,12 +125,4 @@ begin
ElegirTienda(FDataItem.FieldByName('ID_TIENDA').AsInteger);
end;
procedure TfrViewTienda.SetIDTienda(const ID: Integer);
{var
AIndex: Integer;}
begin
{ if FListaIDTiendas.Find(ID, AIndex) then
cbTienda.Text := FListaTiendas.Strings[AIndex];}
end;
end.

27
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -59,8 +59,6 @@ type
ANuevaSituacion: String; AFechaEnvio : TDateTime = 0;
AFechaRecibido : TDateTime = 0;
DoPost: Boolean = True) : Boolean;
procedure SetID_Tienda (AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer);
end;
TAlbaranesClienteController = class(TControllerBase, IAlbaranesClienteController)
@ -138,8 +136,6 @@ type
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure SetID_Tienda (AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer);
end;
implementation
@ -871,27 +867,6 @@ begin
FDetallesController := Value;
end;
procedure TAlbaranesClienteController.SetID_Tienda(AAlbaran: IBizAlbaranCliente; const ID_Tienda: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AAlbaran) then
begin
EnEdicion := AAlbaran.DataTable.Editing;
if not AAlbaran.DataTable.Editing then
AAlbaran.DataTable.Edit;
if ID_Tienda < 0 then
AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteID_TIENDA).AsVariant := Null
else
AAlbaran.ID_TIENDA := ID_Tienda;
AAlbaran.DataTable.Post;
if EnEdicion then
AAlbaran.DataTable.Edit;
end;
end;
function TAlbaranesClienteController.Guardar(AAlbaran: IBizAlbaranCliente): Boolean;
var
@ -1081,4 +1056,4 @@ begin
end;
end.

11
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -65,7 +65,8 @@ type
procedure SetID_PEDIDOValue(const aValue: Integer); override;
procedure SetID_FACTURAValue(const aValue: Integer); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_TIENDAValue(const aValue: Integer); override;
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField);
@ -248,6 +249,14 @@ begin
end;
end;
procedure TBizAlbaranCliente.SetID_TIENDAValue(const aValue: Integer);
begin
if aValue < 0 then
DataTable.Fields[idx_AlbaranesClienteID_TIENDA].AsVariant := NULL
else
inherited SetID_TIENDAValue(aValue);
end;
procedure TBizAlbaranCliente.SetDetalles(Value: IBizDetallesAlbaranCliente);
begin
FDetalles := Value;

27
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -55,8 +55,6 @@ type
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure SetID_Tienda (AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer);
end;
TAlbaranesProveedorController = class(TControllerBase, IAlbaranesProveedorController)
@ -121,7 +119,6 @@ type
procedure Preview(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
procedure SetID_Tienda (AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer);
end;
implementation
@ -944,28 +941,6 @@ begin
FDetallesController := Value;
end;
procedure TAlbaranesProveedorController.SetID_Tienda(AAlbaran: IBizAlbaranProveedor; const ID_Tienda: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AAlbaran) then
begin
EnEdicion := AAlbaran.DataTable.Editing;
if not AAlbaran.DataTable.Editing then
AAlbaran.DataTable.Edit;
if ID_Tienda < 0 then
AAlbaran.DataTable.FieldByName(fld_AlbaranesProveedorID_TIENDA).AsVariant := Null
else
AAlbaran.ID_TIENDA := ID_Tienda;
AAlbaran.DataTable.Post;
if EnEdicion then
AAlbaran.DataTable.Edit;
end;
end;
function TAlbaranesProveedorController.Guardar(AAlbaran: IBizAlbaranProveedor): Boolean;
var
IDNuevo: Integer;
@ -1118,4 +1093,4 @@ begin
end;
end.

9
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -58,6 +58,7 @@ type
procedure SetID_ALMACENValue(const aValue: Integer); override;
procedure SetID_FACTURAValue(const aValue: Integer); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_TIENDAValue(const aValue: Integer);
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@ -277,6 +278,14 @@ begin
inherited;
end;
procedure TBizAlbaranProveedor.SetID_TIENDAValue(const aValue: Integer);
begin
if aValue < 0 then
DataTable.Fields[idx_AlbaranesProveedorID_TIENDA].AsVariant := NULL
else
inherited SetID_TIENDAValue(aValue);
end;
procedure TBizAlbaranProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
if (aValue = 0) then

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

@ -207,6 +207,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0

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

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

3
Source/Modulos/Contabilidad/Views/uEditorCuentas.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorCuentas: TfEditorCuentas
Left = 489
Top = 325
Caption = 'Lista de cuentas'
ExplicitWidth = 320
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
@ -13,7 +14,7 @@ inherited fEditorCuentas: TfEditorCuentas
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F000005EB49444154484B7D95794C944718C607AD52
17100000171001186111DB000005EB49444154484B7D95794C944718C607AD52
235A696BEFA6F58A36D578D4261EAD500FB4D1F84763EA5D44CBE146D1DA2AAB
B11E600139BC0A220B729F4582A260917317B15010644158907B414096BD2F8E
DDA7331F0B858ADDCD2FB3DF3B9BE779E79DF9DEB10A0BFA8D3FD566C2390232

4
Source/Modulos/Contabilidad/Views/uEditorCuentas.pas
View File

@ -120,8 +120,8 @@ begin
end;
procedure TfEditorCuentas.DuplicarInterno;
var
ACuenta : IBizCuenta;
{var
ACuenta : IBizCuenta;}
begin
AppFactuGES.ShowCapado;
{

3
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
Left = 489
Top = 325
Caption = 'Lista de cuentas especiales'
ExplicitWidth = 320
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
@ -13,7 +14,7 @@ inherited fEditorCuentasEspeciales: TfEditorCuentasEspeciales
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F000005F249444154484B7D950954945518862F9AA2
17100000171001186111DB000005F249444154484B7D950954945518862F9AA2
C725C92C2D2D174C2B3C29E5392EA5A688961E4D33734754C446054D73064501
9545365359676010942DE4E0129882E9801AA48902C2A0C48E800CB36F6CF376
EFCF4090DACC79CE9DFFBB73DEF7BBF77EFF772D4467BC058306F4F124209D1F

4
Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas
View File

@ -120,8 +120,8 @@ begin
end;
procedure TfEditorCuentasEspeciales.DuplicarInterno;
var
ACuentaEspecial : IBizCuentaEspecial;
{var
ACuentaEspecial : IBizCuentaEspecial;}
begin
AppFactuGES.ShowCapado;
{

2
Source/Modulos/Contabilidad/Views/uEditorDiario.dfm
View File

@ -2,6 +2,8 @@ inherited fEditorDiario: TfEditorDiario
Left = 489
Top = 325
Caption = 'Libro de diario'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader

8
Source/Modulos/Contabilidad/Views/uEditorDiario.pas
View File

@ -96,8 +96,8 @@ begin
end;
procedure TfEditorDiario.NuevoInterno;
var
NumOrden: Integer;
{var
NumOrden: Integer;}
begin
inherited;
@ -141,8 +141,8 @@ begin
end;
procedure TfEditorDiario.DuplicarInterno;
var
AEpigrafe : IBizAsiento;
{var
AEpigrafe : IBizAsiento;}
begin
AppFactuGES.ShowCapado;
{

3
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
Left = 489
Top = 325
Caption = 'Lista de epigrafes'
ExplicitWidth = 320
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
@ -13,7 +14,7 @@ inherited fEditorEpigrafes: TfEditorEpigrafes
000000180806000000E0773DF8000000017352474200AECE1CE9000000046741
4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
17110000171101CA26F33F000005F849444154484B7D957954945518C6AF99A1
17100000171001186111DB000005F849444154484B7D957954945518C6AF99A1
69162E2D56E714E1C9CED163697F68567A4CD1CAFCA363298A111ADB1460E432
72CC000B704B53111860D8944544140545D61996401074409841F601019995D9
81E1E97E9725086DE6FCCEFDEEBDDF799EF77BEF7BEF9D1279EE0FFECC59CFF8

4
Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas
View File

@ -120,8 +120,8 @@ begin
end;
procedure TfEditorEpigrafes.DuplicarInterno;
var
AEpigrafe : IBizEpigrafe;
{var
AEpigrafe : IBizEpigrafe;}
begin
AppFactuGES.ShowCapado;
{

BIN
Source/Modulos/Contabilidad/Views/uViewApuntes.pas
View File

Binary file not shown.

3
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.dfm
View File

@ -128,9 +128,6 @@ inherited frViewExtractoMovimientos: TfrViewExtractoMovimientos
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
ExplicitWidth = 128
end
inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000

9
Source/Modulos/Contabilidad/Views/uViewExtractoMovimientos.pas
View File

@ -230,10 +230,11 @@ var
begin
inherited;
with TSubCuentasController.Create do
begin
SubCuentas := BuscarCajasBancos;
Free;
end;
try
SubCuentas := BuscarCajasBancos;
finally
Free;
end;
if Assigned(FController) then
begin

2
Source/Modulos/Contabilidad/Views/uViewListaSubCuentas.pas
View File

@ -65,8 +65,6 @@ end;
procedure TfrViewListaSubcuentas.CustomViewCreate(Sender: TObject);
var
i : integer;
begin
inherited;
FTipoSubCuenta := tTodas;

8
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -29,7 +29,7 @@ type
AMensaje: String; AMultiSelect: Boolean): IBizContacto;
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
// procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
end;
@ -61,7 +61,7 @@ type
procedure VerTodos(AContactos: IBizContacto); virtual; abstract;
function ElegirContacto(AContactos : IBizContacto;
AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
// procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
end;
@ -292,7 +292,7 @@ begin
end;
end;
procedure TContactosController.SetID_Tienda(AContacto: IBizContacto; const ID_Tienda: Integer);
{procedure TContactosController.SetID_Tienda(AContacto: IBizContacto; const ID_Tienda: Integer);
var
EnEdicion: Boolean;
begin
@ -312,7 +312,7 @@ begin
if EnEdicion then
AContacto.DataTable.Edit;
end;
end;
end;}
function TContactosController.ValidarContacto(AContacto: IBizContacto): Boolean;
begin

46
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -51,7 +51,6 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
end;
@ -116,7 +115,6 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
procedure SetID_Tienda (AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
end;
@ -963,28 +961,6 @@ begin
FDetallesController := Value;
end;
procedure TFacturasClienteController.SetID_Tienda(AFactura: IBizFacturaCliente; const ID_Tienda: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AFactura) then
begin
EnEdicion := AFactura.DataTable.Editing;
if not AFactura.DataTable.Editing then
AFactura.DataTable.Edit;
if ID_Tienda < 0 then
AFactura.DataTable.FieldByName(fld_FacturasClienteID_TIENDA).AsVariant := Null
else
AFactura.ID_TIENDA := ID_Tienda;
AFactura.DataTable.Post;
if EnEdicion then
AFactura.DataTable.Edit;
end;
end;
procedure TFacturasClienteController.SetIgnorarContabilidad(AFactura: IBizFacturaCliente; const Ignorar: Integer);
var
EnEdicion: Boolean;
@ -1003,28 +979,6 @@ begin
end;
end;
procedure TFacturasClienteController.SetIdSubCuenta(AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AFactura) then
begin
EnEdicion := AFactura.DataTable.Editing;
if not AFactura.DataTable.Editing then
AFactura.DataTable.Edit;
if IdSubCuenta < 0 then
AFactura.DataTable.FieldByName(fld_FacturasClienteID_SUBCUENTA).AsVariant := Null
else
AFactura.ID_SUBCUENTA := IdSubCuenta;
AFactura.DataTable.Post;
if EnEdicion then
AFactura.DataTable.Edit;
end;
end;
function TFacturasClienteController.Guardar(AFactura: IBizFacturaCliente): Boolean;
var
IDNuevo : Integer;

21
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -69,7 +69,9 @@ type
procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField);
procedure SetID_TIENDAValue(const aValue: Integer);
procedure SetID_SUBCUENTAValue(const aValue: Integer);
procedure OnNewRecord(Sender: TDADataTable); override;
function GetSITUACIONValue: String; override;
@ -278,6 +280,23 @@ begin
AsignarTipoIVA(ID_TIPO_IVA);
end;
procedure TBizFacturaCliente.SetID_SUBCUENTAValue(const aValue: Integer);
begin
if aValue < 0 then
DataTable.Fields[idx_FacturasClienteID_SUBCUENTA].AsVariant := NULL
else
inherited SetID_SUBCUENTAValue(aValue);
end;
procedure TBizFacturaCliente.SetID_TIENDAValue(const aValue: Integer);
begin
if aValue < 0 then
DataTable.Fields[idx_FacturasClienteID_TIENDA].AsVariant := NULL
else
inherited SetID_TIENDAValue(aValue);
end;
procedure TBizFacturaCliente.REOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;

50
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -50,8 +50,6 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
end;
@ -116,8 +114,6 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaProveedor);
procedure SetID_Tienda (AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
procedure SetIdSubcuenta (AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
end;
@ -967,50 +963,6 @@ begin
FDetallesController := Value;
end;
procedure TFacturasProveedorController.SetIdSubcuenta(AFactura: IBizFacturaProveedor; const IdSubCuenta: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AFactura) then
begin
EnEdicion := AFactura.DataTable.Editing;
if not AFactura.DataTable.Editing then
AFactura.DataTable.Edit;
if IdSubCuenta < 0 then
AFactura.DataTable.FieldByName(fld_FacturasProveedorID_SUBCUENTA).AsVariant := Null
else
AFactura.ID_SUBCUENTA := IdSubCuenta;
AFactura.DataTable.Post;
if EnEdicion then
AFactura.DataTable.Edit;
end;
end;
procedure TFacturasProveedorController.SetID_Tienda(AFactura: IBizFacturaProveedor; const ID_Tienda: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(AFactura) then
begin
EnEdicion := AFactura.DataTable.Editing;
if not AFactura.DataTable.Editing then
AFactura.DataTable.Edit;
if ID_Tienda < 0 then
AFactura.DataTable.FieldByName(fld_FacturasProveedorID_TIENDA).AsVariant := Null
else
AFactura.ID_TIENDA := ID_Tienda;
AFactura.DataTable.Post;
if EnEdicion then
AFactura.DataTable.Edit;
end;
end;
procedure TFacturasProveedorController.SetIgnorarContabilidad(AFactura: IBizFacturaProveedor; const Ignorar: Integer);
var
EnEdicion: Boolean;
@ -1241,4 +1193,4 @@ begin
end;
end.

19
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -68,6 +68,8 @@ type
procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField);
procedure REOnChange(Sender: TDACustomField);
procedure SetID_TIENDAValue(const aValue: Integer);
procedure SetID_SUBCUENTAValue(const aValue: Integer);
procedure OnNewRecord(Sender: TDADataTable); override;
@ -230,6 +232,23 @@ begin
CalcularImporteTotal;
end;
procedure TBizFacturaProveedor.SetID_SUBCUENTAValue(const aValue: Integer);
begin
if aValue < 0 then
DataTable.Fields[idx_FacturasProveedorID_SUBCUENTA].AsVariant := NULL
else
inherited SetID_SUBCUENTAValue(aValue);
end;
procedure TBizFacturaProveedor.SetID_TIENDAValue(const aValue: Integer);
begin
if aValue < 0 then
DataTable.Fields[idx_FacturasProveedorID_TIENDA].AsVariant := NULL
else
inherited SetID_TIENDAValue(aValue);
end;
procedure TBizFacturaProveedor.IMPORTE_PORTEOnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;

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

@ -199,6 +199,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaProveedor1: TfrViewDetallesFacturaProveedor
Left = 0
Top = 0

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

@ -253,8 +253,9 @@ begin
bEsNuevo := FFactura.EsNuevo;
{$IFDEF CONTABILIDAD}
FFactura.Edit;
FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta);
FFactura.ID_SUBCUENTA := frViewListaSubCuentas1.IdSubCuenta;
{$ENDIF}
FController.Guardar(FFactura);

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

@ -47,8 +47,6 @@ type
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
procedure RecuperarProveedor(APedido: IBizPedidoProveedor);
procedure SetID_Tienda (APedido: IBizPedidoProveedor; const ID_Tienda: Integer);
end;
TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController)
@ -110,8 +108,6 @@ type
function ExtraerSeleccionados(APedido: IBizPedidoProveedor) : IBizPedidoProveedor;
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
procedure SetID_Tienda (APedido: IBizPedidoProveedor; const ID_Tienda: Integer);
end;
implementation
@ -677,28 +673,6 @@ begin
FDetallesController := Value;
end;
procedure TPedidosProveedorController.SetID_Tienda(APedido: IBizPedidoProveedor; const ID_Tienda: Integer);
var
EnEdicion: Boolean;
begin
if Assigned(APedido) then
begin
EnEdicion := APedido.DataTable.Editing;
if not APedido.DataTable.Editing then
APedido.DataTable.Edit;
if ID_Tienda < 0 then
APedido.DataTable.FieldByName(fld_PedidosProveedorID_TIENDA).AsVariant := Null
else
APedido.ID_TIENDA := ID_Tienda;
APedido.DataTable.Post;
if EnEdicion then
APedido.DataTable.Edit;
end;
end;
function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean;
var
IDNuevo : Integer;
@ -820,4 +794,4 @@ begin
end;
end.

10
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -62,6 +62,7 @@ type
procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override;
// procedure SetINCIDENCIASValue(const aValue: IROStrings); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_TIENDAValue(const aValue: Integer);
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@ -215,6 +216,15 @@ begin
CalcularImporteTotal;
end;
procedure TBizPedidoProveedor.SetID_TIENDAValue(const aValue: Integer);
begin
if aValue < 0 then
DataTable.Fields[idx_PedidosProveedorID_TIENDA].AsVariant := NULL
else
inherited SetID_TIENDAValue(aValue);
end;
function TBizPedidoProveedor.GetDetalles: IBizDetallesPedidoProveedor;
begin
Result := FDetalles;

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

@ -41,60 +41,20 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">PedidosProveedor_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PedidosProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\PedidosProveedor_model.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>
@ -146,7 +106,6 @@
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

22
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res
View File

Binary file not shown.

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

@ -13,6 +13,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
704
@ -20,7 +21,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
Left = 325
Top = 28
Width = 310
Width = 357
Height = 215
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -32,33 +33,33 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ReadOnly = False
ExplicitLeft = 325
ExplicitTop = 28
ExplicitWidth = 310
ExplicitWidth = 357
ExplicitHeight = 215
inherited dxLayoutControl1: TdxLayoutControl
Width = 310
Width = 357
Height = 215
Align = alClient
ExplicitWidth = 310
ExplicitWidth = 357
ExplicitHeight = 215
inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 185
Width = 185
ExplicitWidth = 283
Width = 283
end
inherited edtNIFCIF: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
ExplicitWidth = 283
Width = 283
end
inherited edtCalle: TcxDBTextEdit
ExplicitWidth = 562
Width = 562
ExplicitWidth = 283
Width = 283
end
inherited edtPoblacion: TcxDBTextEdit
ExplicitWidth = 46
Width = 46
ExplicitWidth = 176
Width = 176
end
inherited edtProvincia: TcxDBTextEdit
ExplicitWidth = 327
Width = 327
ExplicitWidth = 283
Width = 283
end
inherited edtCodigoPostal: TcxDBTextEdit
Left = 276
@ -92,7 +93,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Width = 127
Width = 158
end
object edtFechaConfirmacion: TcxDBDateEdit
Left = 137
@ -113,7 +114,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 63
Width = 158
end
object edtFechaEntrega: TcxDBDateEdit
Left = 137
@ -132,7 +133,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
Width = 55
Width = 158
end
object memObservaciones: TcxDBMemo
Left = 325
@ -149,8 +150,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
Height = 133
Width = 530
Height = 84
Width = 357
end
object eReferencia: TcxDBTextEdit
Left = 137
@ -172,12 +173,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Width = 143
Width = 158
end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22
Top = 279
Width = 445
Width = 273
Height = 166
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -189,24 +190,24 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 279
ExplicitWidth = 445
ExplicitWidth = 273
ExplicitHeight = 166
inherited dxLayoutControl1: TdxLayoutControl
Width = 445
Width = 273
Height = 166
ExplicitWidth = 445
ExplicitWidth = 273
ExplicitHeight = 166
inherited rdxDestino1: TRadioButton
Width = 255
ExplicitWidth = 255
Width = 253
ExplicitWidth = 253
end
inherited rdxDestino2: TRadioButton
Width = 287
ExplicitWidth = 287
Width = 253
ExplicitWidth = 253
end
inherited cbLista: TcxDBLookupComboBox
ExplicitWidth = 112
Width = 112
ExplicitWidth = 238
Width = 238
end
inherited bModificar: TBitBtn
Left = 135
@ -214,6 +215,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitLeft = 135
ExplicitTop = 131
end
inherited txtDireccion: TStaticText
Width = 238
Height = 42
ExplicitWidth = 238
ExplicitHeight = 42
end
end
inherited ActionList1: TActionList
Left = 32
@ -252,7 +259,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Width = 32
Width = 20
end
object bFormasPago: TButton
Left = 163
@ -282,7 +289,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
Width = 195
Width = 158
end
object eReferenciaPedidoCli: TcxTextEdit
Left = 137
@ -305,7 +312,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 78
Width = 20
end
object Button1: TButton
Left = 163
@ -318,7 +325,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
inline frViewTienda1: TfrViewTienda
Left = 325
Top = 279
Width = 704
Width = 357
Height = 46
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@ -331,16 +338,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ReadOnly = False
ExplicitLeft = 325
ExplicitTop = 279
ExplicitWidth = 704
ExplicitWidth = 357
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
Width = 704
ExplicitWidth = 704
inherited cbTienda: TcxDBComboBox
DataBinding.DataSource = DADataSource
Properties.OnChange = frViewTienda1cbTiendaPropertiesChange
ExplicitWidth = 412
Width = 412
end
Width = 357
ExplicitWidth = 357
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup

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

@ -82,7 +82,6 @@ type
procedure actVerPedidoCliUpdate(Sender: TObject);
procedure frViewProveedorPedidoButton1Click(Sender: TObject);
procedure frViewProveedorPedidoButton2Click(Sender: TObject);
procedure frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
protected
FPedido : IBizPedidoProveedor;
FController : IPedidosProveedorController;
@ -174,16 +173,6 @@ begin
frViewProveedorPedido.actAnadirContacto.Execute;
end;
procedure TfrViewPedidoProveedor.frViewTienda1cbTiendaPropertiesChange(Sender: TObject);
begin
inherited;
if assigned(Pedido)
and assigned(Controller) then
begin
Controller.SetID_Tienda(Pedido, frViewTienda1.getIDTienda);
end;
end;
function TfrViewPedidoProveedor.GetController: IPedidosProveedorController;
begin
Result := FController;

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

@ -50,7 +50,7 @@ type
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
// procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
end;
TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
@ -111,7 +111,7 @@ type
procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false);
procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
// procedure SetID_Tienda (APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
end;
implementation
@ -641,7 +641,7 @@ begin
FDetallesController := Value;
end;
procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
{procedure TPresupuestosClienteController.SetID_Tienda(APresupuesto: IBizPresupuestoCliente; const ID_Tienda: Integer; Tienda: Variant);
var
EnEdicion: Boolean;
begin
@ -671,7 +671,7 @@ begin
if EnEdicion then
APresupuesto.DataTable.Edit;
end;
end;
end;}
function TPresupuestosClienteController.Guardar(APresupuesto: IBizPresupuestoCliente): Boolean;
var

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

@ -243,6 +243,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
@ -283,6 +287,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagPortada: TTabSheet
Caption = 'Portada'
ImageIndex = 3
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object edtPortada: TcxDBRichEdit
Left = 0
Top = 0
@ -297,6 +305,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
object pagMemoria: TTabSheet
Caption = 'Memoria'
ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxDBMemo1: TcxDBMemo
Left = 0
Top = 0

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

@ -183,15 +183,12 @@ begin
bEsNuevo := False;
ShowHourglassCursor;
// frViewDetallesPresupuestoCliente1.SaveGridStatus;
frViewDetallesPresupuestoCliente1.BeginUpdate;
try
bEsNuevo := FPresupuesto.EsNuevo;
FController.SetID_Tienda(FPresupuesto, TfrViewPresupuestoCliente(FViewPresupuesto).frViewTienda1.getIDTienda, '');
FController.Guardar(FPresupuesto);
finally
frViewDetallesPresupuestoCliente1.EndUpdate;
// frViewDetallesPresupuestoCliente1.RestoreGridStatus;
HideHourglassCursor;
end;
if bEsNuevo then
@ -202,7 +199,7 @@ end;
procedure TfEditorPresupuestoCliente.ImprimirInterno;
begin
AppFactuGES.ShowCapado;
AppFactuGES.ShowCapado;
{
inherited;
if not Modified then

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.3.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.3.0\0"
VALUE "CompileDate", "jueves, 24 de julio de 2008 16:18\0"
VALUE "CompileDate", "lunes, 28 de julio de 2008 12:58\0"
END
END
BLOCK "VarFileInfo"