Se arregla el editorgridbase para que su getmodified siempre devuelva false y asi no salga la pregunta desea guardar los cambios.

Tambien se modifica viewfiltrobase para que herede de viewbase en lugar de tframe.
Se arreglan las remesas de cliente y proveedor para que la lista de recibos a añadir en la remesa no aparezcan los que ya estén añadidos (ya que todo esta en memosria y hasta que no se guarde no pasa a bd y no se sabe que tiene o no tiene la remesa)

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@427 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-07-09 15:23:11 +00:00
parent c7d80d66b7
commit 4a60ef48e5
5 changed files with 38 additions and 37 deletions

View File

@ -58,38 +58,38 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Controller\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\frx11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\fs11.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\Controller\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.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\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\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

View File

@ -33,7 +33,7 @@ type
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
protected
function HayDatos: Boolean;
function GetModified: Boolean; override;
// function GetModified: Boolean; override;
procedure RefrescarInterno; override;
procedure CancelarCambiosInterno; override;
end;
@ -163,7 +163,7 @@ begin
and Assigned(dsDataTable.DataTable) then
(Sender as TAction).Enabled := not dsDataTable.DataTable.ReadOnly;
end;
{
function TfEditorDBBase.GetModified: Boolean;
begin
if ReadOnly then
@ -171,6 +171,7 @@ begin
else
Result := DataTableModified(dsDataTable.DataTable) or inherited GetModified;
end;
}
function TfEditorDBBase.HayDatos: Boolean;
begin

View File

@ -102,14 +102,14 @@ type
procedure ImprimirInterno; override;
procedure RefrescarInterno; override;
function GetModified: Boolean; override;
public
property ListaAnos: TStringList read GetListaAnos write SetListaAnos;
property ViewGrid: IViewGridBase read GetViewGrid write SetViewGrid;
property DynWhereDataTable: WideString read GetDynWhereDataTable write SetDynWhereDataTable;
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
function GetModified: Boolean; override;
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
end;

Binary file not shown.

View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.3.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.4.0\0"
VALUE "CompileDate", "jueves, 09 de julio de 2009 10:31\0"
VALUE "CompileDate", "jueves, 09 de julio de 2009 17:15\0"
END
END
BLOCK "VarFileInfo"