diff --git a/Source/Informes/InfPedidoProveedor.fr3 b/Source/Informes/InfPedidoProveedor.fr3 index 7a1816cf..90945d5b 100644 --- a/Source/Informes/InfPedidoProveedor.fr3 +++ b/Source/Informes/InfPedidoProveedor.fr3 @@ -1,15 +1,19 @@ - + - + + - + + + + @@ -18,16 +22,16 @@ - + - - - - - + + + + + @@ -35,12 +39,10 @@ - - + + - - diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm index bea00dd6..8616c18e 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm @@ -91,22 +91,22 @@ object RptPedidosProveedor: TRptPedidosProveedor 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.FECHA_ENTREGA,'#10' V_PEDIDOS_PROVEE' + - 'DOR.OBSERVACIONES,'#10' V_PROVEEDORES.NOMBRE,'#10' V_PROVEEDORES.FAX,'#10 + - #10' V_CONTRATOS_CLIENTE.NOMBRE AS NOMBRE_CLIENTE,'#10' V_CONTRATOS_C' + - 'LIENTE.CALLE,'#10' V_CONTRATOS_CLIENTE.POBLACION,'#10' V_CONTRATOS_CLI' + - 'ENTE.PROVINCIA,'#10' V_CONTRATOS_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRAT' + - 'OS_CLIENTE.PERSONA_CONTACTO,'#10' V_CONTRATOS_CLIENTE.TELEFONO,'#10#10' ' + - 'EMPRESAS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE' + - '_EMPRESA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMP' + - 'RESAS.TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EM' + - 'PRESA,'#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1' + - ' AS EMAIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA' + - #10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (' + - 'V_PROVEEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTE' + - 'R JOIN V_CONTRATOS_CLIENTE ON (V_CONTRATOS_CLIENTE.ID = V_PEDIDO' + - 'S_PROVEEDOR.ID_CONTRATO_CLIENTE)'#10' LEFT OUTER JOIN EMPRESAS ON (' + - 'EMPRESAS.ID = V_PEDIDOS_PROVEEDOR.ID_EMPRESA)'#10'WHERE V_PEDIDOS_PR' + - 'OVEEDOR.ID = :ID'#10 + 'DOR.FECHA_ENVIO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEE' + + 'DORES.NOMBRE,'#10' V_PROVEEDORES.FAX,'#10#10' V_CONTRATOS_CLIENTE.NOMBRE' + + ' AS NOMBRE_CLIENTE,'#10' V_CONTRATOS_CLIENTE.CALLE,'#10' V_CONTRATOS_C' + + 'LIENTE.POBLACION,'#10' V_CONTRATOS_CLIENTE.PROVINCIA,'#10' V_CONTRATOS' + + '_CLIENTE.CODIGO_POSTAL,'#10' V_CONTRATOS_CLIENTE.PERSONA_CONTACTO,'#10 + + ' V_CONTRATOS_CLIENTE.TELEFONO,'#10#10' EMPRESAS.NIF_CIF AS NIF_CIF_E' + + 'MPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMPRESAS.RAZON_SO' + + 'CIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1 AS TELEFONO_' + + '1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRESAS.MOVIL_1 AS ' + + 'MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMPRESA,'#10' EMPRES' + + 'AS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_PEDIDOS_PROVEEDOR'#10' ' + + ' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.ID = V_PEDIDOS_' + + 'PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN V_CONTRATOS_CLIENTE ON' + + ' (V_CONTRATOS_CLIENTE.ID = V_PEDIDOS_PROVEEDOR.ID_CONTRATO_CLIEN' + + 'TE)'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS_PROVE' + + 'EDOR.ID_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -201,6 +201,10 @@ object RptPedidosProveedor: TRptPedidosProveedor item DatasetField = 'FECHA_ENTREGA' TableField = 'FECHA_ENTREGA' + end + item + DatasetField = 'FECHA_ENVIO' + TableField = 'FECHA_ENVIO' end> end> Name = 'Informe_Cabecera' @@ -226,6 +230,10 @@ object RptPedidosProveedor: TRptPedidosProveedor Name = 'FECHA_ENTREGA' DataType = datDateTime end + item + Name = 'FECHA_ENVIO' + DataType = datDateTime + end item Name = 'OBSERVACIONES' DataType = datMemo @@ -331,13 +339,14 @@ object RptPedidosProveedor: TRptPedidosProveedor 'SELECT PEDIDOS_PROVEEDOR_DETALLES.ID, PEDIDOS_PROVEEDOR_DETALLES' + '.ID_PEDIDO,'#10' PEDIDOS_PROVEEDOR_DETALLES.POSICION, PEDIDOS_' + 'PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALL' + - 'ES.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS' + - '_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.I' + - 'MPORTE_TOTAL,'#10' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, AR' + - 'TICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_PR' + - 'OVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON (PEDIDOS_PROVEEDOR_DETAL' + - 'LES.ID_ARTICULO = ARTICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'ORD' + - 'ER BY POSICION' + 'ES.CONCEPTO as CONCEPTO_RTF, F_RTFTOTEXT(CONCEPTO) AS CONCEPTO, ' + + 'PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS_PROVEEDOR_DE' + + 'TALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_TOTAL,' + + #10' ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFER' + + 'ENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_PROVEEDOR_DETAL' + + 'LES'#10'LEFT JOIN ARTICULOS ON (PEDIDOS_PROVEEDOR_DETALLES.ID_ARTICU' + + 'LO = ARTICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'ORDER BY POSICIO' + + 'N'#10 StatementType = stSQL ColumnMappings = < item @@ -383,6 +392,11 @@ object RptPedidosProveedor: TRptPedidosProveedor item DatasetField = 'REFERENCIA_PROVEEDOR' TableField = 'REFERENCIA_PROVEEDOR' + end + item + DatasetField = 'CONCEPTO_RTF' + TableField = '' + SQLOrigin = 'CONCEPTO_RTF' end> end> Name = 'Informe_Detalles' @@ -405,26 +419,31 @@ object RptPedidosProveedor: TRptPedidosProveedor Size = 10 end item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - end - item - Name = 'CONCEPTO' + Name = 'CONCEPTO_RTF' DataType = datString Size = 2000 end + item + Name = 'CONCEPTO' + DataType = datString + Size = 32765 + end item Name = 'CANTIDAD' - DataType = datInteger + DataType = datCurrency end item Name = 'IMPORTE_UNIDAD' - DataType = datFloat + DataType = datCurrency end item Name = 'IMPORTE_TOTAL' - DataType = datFloat + DataType = datCurrency + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 end item Name = 'FAMILIA' @@ -461,7 +480,7 @@ object RptPedidosProveedor: TRptPedidosProveedor PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 42093.722987407400000000 + ReportOptions.LastChange = 42258.790290613430000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm index ed34e0d7..5a70be3a 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm @@ -19,7 +19,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor 934 594) inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor - Left = 424 + Left = 435 Top = 28 Width = 357 Height = 215 @@ -29,9 +29,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 11 + TabOrder = 12 ReadOnly = False - ExplicitLeft = 424 + ExplicitLeft = 435 ExplicitTop = 28 ExplicitWidth = 357 ExplicitHeight = 215 @@ -39,7 +39,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 357 Height = 215 Align = alClient - ExplicitWidth = 488 + ExplicitWidth = 357 ExplicitHeight = 215 inherited edtlNombre: TcxDBTextEdit Style.LookAndFeel.SkinName = '' @@ -82,23 +82,23 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 283 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 407 + Left = 396 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 407 + ExplicitLeft = 396 ExplicitWidth = 71 Width = 71 end inherited Button3: TBitBtn - Left = 280 - ExplicitLeft = 280 + Left = 269 + ExplicitLeft = 269 end end end object edtFechaPedido: TcxDBDateEdit - Left = 137 + Left = 158 Top = 55 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PEDIDO' @@ -124,8 +124,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 158 end object edtFechaConfirmacion: TcxDBDateEdit - Left = 137 - Top = 249 + Left = 158 + Top = 276 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_CONFIRMACION' DataBinding.DataSource = DADataSource @@ -146,12 +146,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 9 + TabOrder = 10 Width = 158 end object edtFechaEntrega: TcxDBDateEdit - Left = 137 - Top = 82 + Left = 158 + Top = 109 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENTREGA' DataBinding.DataSource = DADataSource @@ -169,11 +169,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 2 + TabOrder = 3 Width = 158 end object eReferencia: TcxDBTextEdit - Left = 137 + Left = 158 Top = 28 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' @@ -200,7 +200,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv Left = 22 - Top = 334 + Top = 354 Width = 273 Height = 166 Font.Charset = DEFAULT_CHARSET @@ -209,17 +209,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 10 + TabOrder = 11 ReadOnly = False ExplicitLeft = 22 - ExplicitTop = 334 + ExplicitTop = 354 ExplicitWidth = 273 ExplicitHeight = 166 inherited dxLayoutControl1: TdxLayoutControl Width = 273 Height = 166 - ExplicitWidth = 372 - ExplicitHeight = 238 + ExplicitWidth = 273 + ExplicitHeight = 166 inherited rdxDestino1: TRadioButton Width = 255 ExplicitWidth = 255 @@ -233,10 +233,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Width = 425 end inherited bModificar: TBitBtn - Left = 234 - Top = 203 - ExplicitLeft = 234 - ExplicitTop = 203 + Left = 245 + Top = 183 + ExplicitLeft = 245 + ExplicitTop = 183 end end inherited ActionList1: TActionList @@ -249,8 +249,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end end object cbFormaPago: TcxDBLookupComboBox - Left = 137 - Top = 136 + Left = 158 + Top = 163 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Enabled = False @@ -280,22 +280,22 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 4 + TabOrder = 5 Width = 20 end object bFormasPago: TButton - Left = 262 - Top = 136 + Left = 273 + Top = 163 Width = 132 Height = 21 Caption = 'Ver las formas de pago...' Enabled = False - TabOrder = 5 + TabOrder = 6 OnClick = bFormasPagoClick end object edtFechaEnvio: TcxDBDateEdit - Left = 137 - Top = 222 + Left = 158 + Top = 249 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataSource = DADataSource @@ -316,12 +316,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 8 + TabOrder = 9 Width = 158 end object eReferenciaContratoCli: TcxTextEdit - Left = 137 - Top = 163 + Left = 158 + Top = 190 Anchors = [akLeft, akTop, akRight] Properties.ReadOnly = False Properties.ValidateOnEnter = True @@ -342,19 +342,19 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 6 + TabOrder = 7 Width = 20 end object Button1: TButton - Left = 262 - Top = 163 + Left = 273 + Top = 190 Width = 132 Height = 23 Action = actVerContratoCli - TabOrder = 7 + TabOrder = 8 end inline frViewTienda1: TfrViewTienda - Left = 424 + Left = 435 Top = 279 Width = 357 Height = 46 @@ -366,15 +366,15 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 12 + TabOrder = 13 ReadOnly = False - ExplicitLeft = 424 + ExplicitLeft = 435 ExplicitTop = 279 ExplicitWidth = 357 ExplicitHeight = 46 inherited dxLayoutControl1: TdxLayoutControl Width = 357 - ExplicitWidth = 488 + ExplicitWidth = 357 inherited cbTienda: TcxComboBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -384,31 +384,28 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor end end inline frViewObservaciones1: TfrViewObservaciones - Left = 424 + Left = 435 Top = 361 Width = 521 Height = 150 - Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 13 + TabOrder = 14 ReadOnly = False - ExplicitLeft = 424 + ExplicitLeft = 435 ExplicitTop = 361 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource - ExplicitWidth = 488 - ExplicitHeight = 211 end end object edtlDescripcion: TcxDBTextEdit - Left = 137 - Top = 109 + Left = 158 + Top = 136 Anchors = [akLeft, akTop, akRight] AutoSize = False DataBinding.DataField = 'DESCRIPCION_GENERAL' @@ -428,10 +425,36 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' - TabOrder = 3 + TabOrder = 4 Height = 21 Width = 283 end + object edtFechaEnvio2: TcxDBDateEdit + Left = 158 + Top = 82 + Anchors = [akLeft, akTop, akRight] + DataBinding.DataField = 'FECHA_ENVIO' + DataBinding.DataSource = DADataSource + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.Color = clInfoBk + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.Shadow = False + Style.ButtonStyle = bts3D + Style.ButtonTransparency = ebtNone + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 2 + Width = 257 + end object dxLayoutControl1Group_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -457,8 +480,13 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor Control = edtFechaPedido ControlOptions.ShowBorder = False end + object dxLayoutControl1Item15: TdxLayoutItem + Caption = 'Fecha prevista de entrega:' + Control = edtFechaEnvio2 + ControlOptions.ShowBorder = False + end object dxLayoutControl1Item5: TdxLayoutItem - Caption = 'Entrega de entrega:' + Caption = 'Fecha de recepci'#243'n:' Control = edtFechaEntrega ControlOptions.ShowBorder = False end @@ -580,8 +608,6 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor AutoAligns = [aaHorizontal] AlignVert = avClient Caption = 'Observaciones' - Enabled = False - Visible = False object dxLayoutControl1Item6: TdxLayoutItem AutoAligns = [] AlignHorz = ahClient diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas index 3084e3d0..def99263 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas @@ -77,6 +77,8 @@ type dxLayoutControl1Item6: TdxLayoutItem; dxLayoutControl1Item14: TdxLayoutItem; edtlDescripcion: TcxDBTextEdit; + dxLayoutControl1Item15: TdxLayoutItem; + edtFechaEnvio2: TcxDBDateEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure bFormasPagoClick(Sender: TObject); diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm index 553a2c53..24546358 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm @@ -94,8 +94,13 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor DataBinding.FieldName = 'FECHA_PEDIDO' Width = 46 end + object cxGridViewFECHA_ENVIO: TcxGridDBColumn + Caption = 'Fecha prevista de entrega' + DataBinding.FieldName = 'FECHA_ENVIO' + Width = 57 + end object cxGridViewFECHA_ENTREGA: TcxGridDBColumn - Caption = 'Fecha de entrega' + Caption = 'Fecha de recepci'#243'n' DataBinding.FieldName = 'FECHA_ENTREGA' Width = 47 end @@ -156,12 +161,6 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor VisibleForCustomization = False Width = 41 end - object cxGridViewFECHA_ENVIO: TcxGridDBColumn - DataBinding.FieldName = 'FECHA_ENVIO' - Visible = False - VisibleForCustomization = False - Width = 57 - end object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn DataBinding.FieldName = 'FECHA_CONFIRMACION' Visible = False diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Pedidos de proveedor/uGenerarPedidosProvUtils.pas b/Source/Modulos/Relaciones/Contratos de cliente - Pedidos de proveedor/uGenerarPedidosProvUtils.pas index f06e22c8..eeabd84b 100644 --- a/Source/Modulos/Relaciones/Contratos de cliente - Pedidos de proveedor/uGenerarPedidosProvUtils.pas +++ b/Source/Modulos/Relaciones/Contratos de cliente - Pedidos de proveedor/uGenerarPedidosProvUtils.pas @@ -115,28 +115,31 @@ begin AArticulos.DataTable.First; for i := 0 to AArticulos.DataTable.RecordCount - 1 do begin - ADetallesController.Add(ADetalles, AArticulos.TIPO_DETALLE); - ADetalles.Edit; -// ADetalles.REFERENCIA := AArticulos.REFERENCIA; - ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO; - if (AArticulos.PROPIEDAD <> '') then - ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ': '+ AArticulos.CONCEPTO - else - ADetalles.CONCEPTO := AArticulos.CONCEPTO; + if (AArticulos.TIPO_DETALLE = TIPO_DETALLE_CONCEPTO) then + begin + ADetallesController.Add(ADetalles, AArticulos.TIPO_DETALLE); + ADetalles.Edit; + // ADetalles.REFERENCIA := AArticulos.REFERENCIA; + ADetalles.ID_ARTICULO := AArticulos.ID_ARTICULO; + if (AArticulos.PROPIEDAD <> '') then + ADetalles.CONCEPTO := AArticulos.PROPIEDAD + ': '+ AArticulos.CONCEPTO + else + ADetalles.CONCEPTO := AArticulos.CONCEPTO; - if not AArticulos.CANTIDADIsNull then - ADetalles.CANTIDAD := AArticulos.CANTIDAD; - if not AArticulos.IMPORTE_UNIDADIsNull then - ADetalles.IMPORTE_UNIDAD := AArticulos.IMPORTE_UNIDAD; - if not AArticulos.IMPORTE_TOTALIsNull then - ADetalles.IMPORTE_TOTAL := AArticulos.IMPORTE_TOTAL; - if not AArticulos.DESCUENTOIsNull then - ADetalles.DESCUENTO := AArticulos.DESCUENTO; - if not AArticulos.IMPORTE_PORTEIsNull then - ADetalles.IMPORTE_PORTE := AArticulos.IMPORTE_PORTE; - ADetalles.VISIBLE := AArticulos.VISIBLE; -// ADetalles.REFERENCIA_PROVEEDOR := AArticulos.REFERENCIA_PROVEEDOR; - ADetalles.Post; + if not AArticulos.CANTIDADIsNull then + ADetalles.CANTIDAD := AArticulos.CANTIDAD; + if not AArticulos.IMPORTE_UNIDADIsNull then + ADetalles.IMPORTE_UNIDAD := AArticulos.IMPORTE_UNIDAD; + if not AArticulos.IMPORTE_TOTALIsNull then + ADetalles.IMPORTE_TOTAL := AArticulos.IMPORTE_TOTAL; + if not AArticulos.DESCUENTOIsNull then + ADetalles.DESCUENTO := AArticulos.DESCUENTO; + if not AArticulos.IMPORTE_PORTEIsNull then + ADetalles.IMPORTE_PORTE := AArticulos.IMPORTE_PORTE; + ADetalles.VISIBLE := AArticulos.VISIBLE; + // ADetalles.REFERENCIA_PROVEEDOR := AArticulos.REFERENCIA_PROVEEDOR; + ADetalles.Post; + end; AArticulos.Next; end; finally diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 9667d09e..9a59c399 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico" 1 VERSIONINFO -FILEVERSION 2,6,4,0 -PRODUCTVERSION 2,6,4,0 +FILEVERSION 2,6,6,0 +PRODUCTVERSION 2,6,6,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.6.4.0\0" + VALUE "FileVersion", "2.6.6.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" - VALUE "ProductVersion", "2.6.4.0\0" - VALUE "CompileDate", "jueves, 10 de septiembre de 2015 17:53\0" + VALUE "ProductVersion", "2.6.6.0\0" + VALUE "CompileDate", "jueves, 10 de septiembre de 2015 18:31\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index bc872d4d..5976d21b 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ