Cambios vrios

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@626 f4e31baf-9722-1c47-927c-6f952f962d4b

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 = '<unknown>'
+                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

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

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);

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

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

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"