Repaso de releaciones entre modulos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@59 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-09-15 16:41:43 +00:00
parent 696cad13b3
commit ecbc916cb9
7 changed files with 196 additions and 71 deletions

View File

@ -1204,6 +1204,7 @@ begin
// Hay que dejar algunos campos como si fuera una factura nueva
Result.Edit;
Result.TIPO := CTE_TIPO_ALBARAN_DEV;
Result.ID_ALBARAN_DEV := AAlbaran.ID;
Result.Post;
finally

View File

@ -360,12 +360,13 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item
Name = 'CANTIDAD'
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DisplayLabel = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
DictionaryEntry = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
end
item
Name = 'IMPORTE_UNIDAD'
@ -423,11 +424,14 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_PEDIDO'
end
item
Name = 'REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
DisplayLabel = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
end>
Params = <>
MasterMappingMode = mmWhere

View File

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{67FE3121-0CE7-44D8-ACA8-DD41FC61C261}';
RID_AlbaranesProveedor = '{35158E6A-D01B-419D-A2EA-50F406DE673F}';
RID_AlbaranesProveedor_Detalles = '{058C3E31-7243-4BF5-82E7-4DAE76DDB637}';
RID_ListaAnosAlbaranes = '{DCE523D3-B15A-40EE-9B47-9361FE439404}';
RID_AlbaranesProveedor = '{6B6C4CC5-85E7-44E7-A12E-09502AE76066}';
RID_AlbaranesProveedor_Detalles = '{462A059B-E769-4C13-BD57-CA2DF45B5A7C}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -159,7 +159,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{1ACBFBC1-8E84-4ED5-B38E-C9A682A139A7}']
['{62EAAFE2-3068-4D25-A37E-6158C88B9DC9}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -194,7 +194,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{F880F855-AF71-44A7-9893-AE9DDB0C73D9}']
['{3744DF7C-2532-421F-81C9-A36DB6E45B39}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -757,7 +757,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{016EE213-5C1E-47B9-AF6B-80B093BA8C57}']
['{BECB0B29-05CC-4C96-94D3-698989CE1793}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}';
RID_AlbaranesProveedorDelta = '{E1D5D564-4E1B-40E7-836F-99DEF018E818}';
RID_AlbaranesProveedor_DetallesDelta = '{F56457BE-97AC-46CB-A5B8-A4334B643925}';
RID_ListaAnosAlbaranesDelta = '{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}';
RID_AlbaranesProveedorDelta = '{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}';
RID_AlbaranesProveedor_DetallesDelta = '{A4442F40-9AF5-4666-B9C7-8C453A7518C3}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}']
['{EF015A95-C6D1-401E-A6A6-86F2CA9666B7}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{E1D5D564-4E1B-40E7-836F-99DEF018E818}']
['{FECA98BD-AD60-4D59-BA3F-A8DC611C07E9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -614,7 +614,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{F56457BE-97AC-46CB-A5B8-A4334B643925}']
['{A4442F40-9AF5-4666-B9C7-8C453A7518C3}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;

View File

@ -493,16 +493,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'TE_TOTAL, ALBARANES_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ALBARANES_P' +
'ROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESC' +
'UENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTIC' +
'ULOS.REFERENCIA, ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REFERE' +
'NCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO,'#10' ' +
'ARTICULOS.REFERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ALBARAN' +
'ES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR' +
'_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN ALBARANES_PROVEED' +
'OR ON (ALBARANES_PROVEEDOR.ID = ALBARANES_PROVEEDOR_DETALLES.ID_' +
'ALBARAN)'#10'LEFT JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDO' +
'RES.ID_ARTICULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PR' +
'OVEEDOR = ALBARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE {where}'#10'ORDER' +
' BY POSICION;'#10#10#10#10
'ULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEED' +
'OR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDIDO,'#10' ARTICULOS.RE' +
'FERENCIA_FABR as REFERENCIA_FABRICANTE'#10#10'FROM ALBARANES_PROVEEDOR' +
'_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID' +
'_ARTICULO = ARTICULOS.ID'#10'LEFT JOIN ALBARANES_PROVEEDOR ON (ALBAR' +
'ANES_PROVEEDOR.ID = ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN)'#10'LEF' +
'T JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTIC' +
'ULO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = AL' +
'BARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE {where}'#10'ORDER BY POSICION' +
';'#10#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -610,12 +610,12 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'CANTIDAD'
DataType = datFloat
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
end
item
Name = 'IMPORTE_UNIDAD'
@ -662,11 +662,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_PEDIDO'
end
item
Name = 'REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
end>
end>
JoinDataTables = <>
@ -674,14 +676,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Commands = <
item
Params = <
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item
Name = 'ID_DIRECCION'
Value = ''
end
item
Name = 'ID'
DataType = datAutoInc
@ -690,130 +684,184 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_ALBARAN'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
Value = ''
end>
Statements = <
@ -831,17 +879,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCIAS_ACTIVAS,'#10' FEC' +
'HA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ' +
' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ID_ALB' +
'ARAN)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' ' +
' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBARAN,' +
#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA,'#10' ' +
' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10' ' +
':CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA_CON' +
'TACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' +
'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_TOTA' +
'L,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_ACTIVA' +
'S,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :' +
'ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_' +
'PORTE,'#10' :ID_ALBARAN);'#10
'ARAN_DEV)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR' +
','#10' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV,'#10' :FECHA_ALBA' +
'RAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REFERENCIA' +
','#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :CALLE,'#10 +
' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :PERSONA' +
'_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' +
' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :IMPORTE_' +
'TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDENCIAS_AC' +
'TIVAS,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
' :ID_ALMACEN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPO' +
'RTE_PORTE,'#10' :ID_ALBARAN_DEV);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -867,144 +915,191 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end
item
Params = <
item
Name = 'ID_ALBARAN'
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item
Name = 'ID_DIRECCION'
Value = ''
end
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_ALBARAN_DEV'
DataType = datInteger
Value = ''
end
item
@ -1034,7 +1129,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :USUARIO,'#10' ' +
' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PO' +
'RTE,'#10' ID_ALBARAN = :ID_ALBARAN'#10' WHERE'#10' (ID = :OLD_ID);'#10
'RTE,'#10' ID_ALBARAN_DEV = :ID_ALBARAN_DEV'#10' WHERE'#10' (ID = :OLD_I' +
'D);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1654,6 +1750,25 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'AlbaranesProveedor_REFERENCIA_ALBARAN'
DataType = datString
Size = 255
end
item
Name = 'POSICIONCONCEPTO'
DataType = datInteger
DisplayLabel = 'POSICION'
end
item
Name = 'CANTIDAD'
DataType = datFloat
end
item
Name = 'AlbaranesProveedor_Detalles_UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'AlbaranesProveedor_Detalles_REFERENCIA_FABRICANTE'
DataType = datString
Size = 255
end>
Left = 48
Top = 128

View File

@ -105,7 +105,6 @@ procedure TfEditorAlbaranesProveedor.actGenerarDevolucionUpdate(
begin
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and (Albaranes.REF_FACTURA = '')
and ViewGrid.esSeleccionCeldaDatos;
end;

View File

@ -1,13 +1,13 @@
inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedorAlbaran
Width = 505
Height = 171
Height = 214
ExplicitWidth = 505
ExplicitHeight = 171
ExplicitHeight = 214
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 505
Height = 171
Height = 214
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
@ -19,7 +19,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
AutoContentSizes = [acsWidth, acsHeight]
DesignSize = (
505
171)
214)
object edtlNombre: TcxDBTextEdit
Left = 63
Top = 41
@ -76,7 +76,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end
object edtPersonaContacto: TcxDBTextEdit
Left = 63
Top = 101
Top = 150
Anchors = [akLeft, akTop, akRight]
AutoSize = False
DataBinding.DataField = 'PERSONA_CONTACTO_PROV'
@ -100,7 +100,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end
object edtDireccion: TcxTextEdit
Left = 63
Top = 70
Top = 68
AutoSize = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
@ -118,7 +119,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 121
Height = 50
Width = 403
end
object Button4: TButton
Left = 472
@ -130,7 +132,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end
object Button5: TButton
Left = 472
Top = 99
Top = 148
Width = 23
Height = 25
Action = actElegirPersonaContacto
@ -138,7 +140,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end
object Button3: TBitBtn
Left = 297
Top = 130
Top = 179
Width = 198
Height = 25
Action = actVerContacto
@ -309,6 +311,8 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
end
end
object dxLayoutControl1Group3: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
@ -316,7 +320,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
AlignVert = avCenter
AlignVert = avClient
Caption = 'Direcci'#243'n'
Control = edtDireccion
ControlOptions.ShowBorder = False
@ -326,6 +330,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
AlignHorz = ahRight
Caption = 'Button4'
ShowCaption = False
Visible = False
Control = Button4
ControlOptions.ShowBorder = False
end
@ -336,6 +341,7 @@ inherited frViewDatosYSeleccionProveedorAlbaran: TfrViewDatosYSeleccionProveedor
ShowBorder = False
object dxLayoutControl1Group2: TdxLayoutGroup
ShowCaption = False
Visible = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False