Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@77 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
David Arranz 2007-11-12 19:34:38 +00:00
parent 704bf32957
commit 685e3c9e21
11 changed files with 186 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

144
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj Normal file
View File

@ -0,0 +1,144 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{586839ac-ba64-4412-bacf-f6b42162c99d}</ProjectGuid>
</PropertyGroup>
<ItemGroup />
<ItemGroup>
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
<Projects Include="..\..\Base\Base.dproj" />
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="Controller\AlbaranesCliente_controller.dproj" />
<Projects Include="Data\AlbaranesCliente_data.dproj" />
<Projects Include="Model\AlbaranesCliente_model.dproj" />
<Projects Include="Plugin\AlbaranesCliente_plugin.dproj" />
<Projects Include="Views\AlbaranesCliente_view.dproj" />
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions>
<Target Name="Base">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
</Target>
<Target Name="Base:Clean">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Clean" />
</Target>
<Target Name="Base:Make">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="Make" />
</Target>
<Target Name="GUIBase">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="" />
</Target>
<Target Name="GUIBase:Clean">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Clean" />
</Target>
<Target Name="GUIBase:Make">
<MSBuild Projects="..\..\GUIBase\GUIBase.dproj" Targets="Make" />
</Target>
<Target Name="ApplicationBase">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="" />
</Target>
<Target Name="ApplicationBase:Clean">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
</Target>
<Target Name="ApplicationBase:Make">
<MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
</Target>
<Target Name="Contactos_view">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
</Target>
<Target Name="Contactos_view:Clean">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Contactos_view:Make">
<MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
</Target>
<Target Name="Articulos_view">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="" />
</Target>
<Target Name="Articulos_view:Clean">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Clean" />
</Target>
<Target Name="Articulos_view:Make">
<MSBuild Projects="..\Articulos\Views\Articulos_view.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_model">
<MSBuild Projects="Model\AlbaranesCliente_model.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_model:Clean">
<MSBuild Projects="Model\AlbaranesCliente_model.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_model:Make">
<MSBuild Projects="Model\AlbaranesCliente_model.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_data">
<MSBuild Projects="Data\AlbaranesCliente_data.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_data:Clean">
<MSBuild Projects="Data\AlbaranesCliente_data.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_data:Make">
<MSBuild Projects="Data\AlbaranesCliente_data.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_controller">
<MSBuild Projects="Controller\AlbaranesCliente_controller.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_controller:Clean">
<MSBuild Projects="Controller\AlbaranesCliente_controller.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_controller:Make">
<MSBuild Projects="Controller\AlbaranesCliente_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_view">
<MSBuild Projects="Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_view:Clean">
<MSBuild Projects="Views\AlbaranesCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesCliente_plugin">
<MSBuild Projects="Plugin\AlbaranesCliente_plugin.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_plugin:Clean">
<MSBuild Projects="Plugin\AlbaranesCliente_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_plugin:Make">
<MSBuild Projects="Plugin\AlbaranesCliente_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
</Target>
<Target Name="FactuGES:Clean">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES:Make">
<MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

2
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf67.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf176.tmp */

2
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf65.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf174.tmp */

2
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf63.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf172.tmp */

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

@ -56,6 +56,7 @@ type
function GetDetalles: IBizDetallesAlbaranCliente; function GetDetalles: IBizDetallesAlbaranCliente;
procedure SetDetalles(Value: IBizDetallesAlbaranCliente); procedure SetDetalles(Value: IBizDetallesAlbaranCliente);
function GetSITUACIONValue: String; override;
procedure SetFECHA_ALBARANValue(const aValue: TDateTime); override; procedure SetFECHA_ALBARANValue(const aValue: TDateTime); override;
procedure SetFECHA_ENVIOValue(const aValue: TDateTime); override; procedure SetFECHA_ENVIOValue(const aValue: TDateTime); override;
procedure SetFECHA_RECEPCIONValue(const aValue: TDateTime); override; procedure SetFECHA_RECEPCIONValue(const aValue: TDateTime); override;
@ -73,6 +74,8 @@ type
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure IniciarValoresAlbaranNuevo; procedure IniciarValoresAlbaranNuevo;
public public
function EsNuevo : Boolean; function EsNuevo : Boolean;
procedure CalcularImporteTotal; procedure CalcularImporteTotal;
@ -203,6 +206,11 @@ begin
Result := FDetalles; Result := FDetalles;
end; end;
function TBizAlbaranCliente.GetSITUACIONValue: String;
begin
result := Trim(DataTable.Fields[idx_AlbaranesClienteSITUACION].AsString);
end;
procedure TBizAlbaranCliente.OnNewRecord(Sender: TDADataTable); procedure TBizAlbaranCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;

6
Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc
View File

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf17E.tmp */

BIN
Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.res
View File

Binary file not shown.

32
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc
View File

@ -12,19 +12,19 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranesCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranesCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewDetallesAlbaranCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewDetallesAlbaranCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewDireccionEntregaAlbaranCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewDireccionEntregaAlbaranCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewElegirArticulosAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewElegirArticulosAlbaranesCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorElegirArticulosAlbaranCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorElegirArticulosAlbaranCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranesClienteReport.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranesClienteReport.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorElegirAlbaranesCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorElegirAlbaranesCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranesDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranesDevCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranesDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranesDevCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */ /* C:\Codigo Tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
/* C:\Codigo tecsitel\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.drf */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf17C.tmp */

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res
View File

Binary file not shown.

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

@ -25,7 +25,7 @@ type
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente; frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
frViewTotales1: TfrViewTotales; frViewTotales1: TfrViewTotales;
procedure FormShow(Sender: TObject); override; procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;

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

@ -14,7 +14,7 @@ uses
// uBizPedidosCliente, uPedidosClienteController, // uBizPedidosCliente, uPedidosClienteController,
ExtCtrls, cxLookupEdit, cxDBLookupEdit, ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago,
cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces; cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces;
type type
@ -125,6 +125,7 @@ type
// FPedidoAsociado : IBizPedidoCliente; // FPedidoAsociado : IBizPedidoCliente;
// FPedidoController : IPedidosClienteController; // FPedidoController : IPedidosClienteController;
FViewClienteAlbaran : TfrViewDatosYSeleccionCliente; FViewClienteAlbaran : TfrViewDatosYSeleccionCliente;
FFormasPago : IBizFormaPago;
FFormasPagoController : IFormasPagoController; FFormasPagoController : IFormasPagoController;
function GetAlbaran: IBizAlbaranCliente; function GetAlbaran: IBizAlbaranCliente;
@ -145,7 +146,7 @@ implementation
uses uses
uClientesController, uBizDireccionesContacto, uAlbaranesClienteController, uClientesController, uBizDireccionesContacto, uAlbaranesClienteController,
schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils, schAlbaranesClienteClient_Intf, uBizAlmacenes, uDateUtils,
uDialogUtils; uDialogUtils;
@ -204,7 +205,8 @@ begin
procedure TfrViewAlbaranCliente.bFormasPagoClick(Sender: TObject); procedure TfrViewAlbaranCliente.bFormasPagoClick(Sender: TObject);
begin begin
inherited; inherited;
FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago); if Assigned(FFormasPago) then
FFormasPagoController.VerTodos(FFormasPago);
end; end;
procedure TfrViewAlbaranCliente.cbConAlmacenClick(Sender: TObject); procedure TfrViewAlbaranCliente.cbConAlmacenClick(Sender: TObject);
@ -229,7 +231,8 @@ end;
procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject); procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FFormasPagoController := TFormasPagoController.Create; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create;
// FPedidoAsociado := NIL; // FPedidoAsociado := NIL;
// FPedidoController := TPedidosClienteController.Create; // FPedidoController := TPedidosClienteController.Create;
FViewClienteAlbaran := frViewClienteAlbaran; FViewClienteAlbaran := frViewClienteAlbaran;
@ -240,9 +243,10 @@ end;
procedure TfrViewAlbaranCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewAlbaranCliente.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
FFormasPago := Nil;
FFormasPagoController := NIL;
FViewClienteAlbaran := Nil; FViewClienteAlbaran := Nil;
// FPedidoController := NIL; // FPedidoController := NIL;
FFormasPagoController := NIL;
// FPedidoAsociado := NIL; // FPedidoAsociado := NIL;
FAlmacenesController := NIL; FAlmacenesController := NIL;
end; end;
@ -358,7 +362,8 @@ begin
DADataSource.DataTable := FAlbaran.DataTable; DADataSource.DataTable := FAlbaran.DataTable;
frViewClienteAlbaran.Cliente := FAlbaran.Cliente; frViewClienteAlbaran.Cliente := FAlbaran.Cliente;
dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable; FFormasPago := FFormasPagoController.BuscarTodos;
dsFormaPago.DataTable := FFormasPago.DataTable;
dsFormaPago.DataTable.Active := True; dsFormaPago.DataTable.Active := True;
dsAlmacenes.DataTable := (FAlmacenesController.BuscarTodos).DataTable; dsAlmacenes.DataTable := (FAlmacenesController.BuscarTodos).DataTable;