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

Se arregla la carga dela direccion del cliente en pedidos de provedeedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@678 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2019-06-25 14:30:40 +00:00
parent 9c78b4b849
commit 5923c8c27c
5 changed files with 24 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,27 +49,27 @@
<DelphiCompile Include="PedidosProveedor_view.dpk"> <DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Contratos de cliente\Almacenes_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Almacenes_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Almacenes_model.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Articulos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
<DCCReference Include="..\..\Contratos de cliente\Contactos_view.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
<DCCReference Include="..\..\Contratos de cliente\ContratosCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\ContratosCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Contratos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\..\Contratos de cliente\GUIBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\..\Contratos de cliente\PedidosProveedor_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Contratos de cliente\PedidosProveedor_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Contratos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\..\Contratos de cliente\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas"> <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form> <Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass> <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>

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

Binary file not shown.

5
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

@ -111,7 +111,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 357 ExplicitWidth = 357
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 357 Width = 357
ExplicitWidth = 318
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
ExplicitWidth = 283 ExplicitWidth = 283
Width = 283 Width = 283
@ -166,8 +165,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 273 Width = 273
Height = 166 Height = 166
ExplicitWidth = 499
ExplicitHeight = 20
inherited rdxDestino1: TRadioButton inherited rdxDestino1: TRadioButton
Width = 253 Width = 253
ExplicitWidth = 253 ExplicitWidth = 253
@ -227,7 +224,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 357 ExplicitWidth = 357
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 357 Width = 357
ExplicitWidth = 318
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
ExplicitWidth = 390 ExplicitWidth = 390
Width = 390 Width = 390
@ -239,7 +235,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 422 ExplicitWidth = 422
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewPedidoProveedor1.DADataSource DataBinding.DataSource = frViewPedidoProveedor1.DADataSource
ExplicitWidth = 363
Width = 422 Width = 422
end end
end end

3
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -151,7 +151,8 @@ begin
Pedido.DataTable.Active := True; Pedido.DataTable.Active := True;
pgPaginas.ActivePage := pagGeneral; pgPaginas.ActivePage := pagGeneral;
frViewPedidoProveedor1.frViewDireccionEntregaPedidoProv1.CambioDireccionAlmacen; if Assigned(Pedido) and not Pedido.ID_ALMACENIsNull then
frViewPedidoProveedor1.frViewDireccionEntregaPedidoProv1.CambioDireccionAlmacen;
end; end;
procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate( procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(

2
Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas
View File

@ -93,7 +93,7 @@ procedure TfrViewDireccionEntregaPedidoProv.actListaClienteExecute(
begin begin
inherited; inherited;
actListaCliente.Checked := True; actListaCliente.Checked := True;
RefrescarDireccion; CambioDireccionCliente;
end; end;
procedure TfrViewDireccionEntregaPedidoProv.actListaExecute(Sender: TObject); procedure TfrViewDireccionEntregaPedidoProv.actListaExecute(Sender: TObject);