diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas index 14f0b17..329ce8b 100644 --- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas +++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas @@ -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 diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm index da576ad..25a2bda 100644 --- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm @@ -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 diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas index c26cc6e..f9bf532 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas @@ -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); diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas index 11b0d0c..7c19151 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas @@ -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; diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm index af31e10..a7c881e 100644 --- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm +++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm @@ -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 diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index e11c23e..5aa7799 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -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; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm index 63e7dd9..99f0aff 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDatosYSeleccionProveedorAlbaran.dfm @@ -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