VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FErrorPreciosCli 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Error en Historial de Precios para Clientes"
   ClientHeight    =   2850
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9495
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2850
   ScaleWidth      =   9495
   StartUpPosition =   2  'CenterScreen
   Begin MSDataGridLib.DataGrid dbDetalleError 
      Height          =   1905
      Left            =   270
      TabIndex        =   0
      Top             =   630
      Width           =   8925
      _ExtentX        =   15743
      _ExtentY        =   3360
      _Version        =   393216
      HeadLines       =   1
      RowHeight       =   15
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "Registro que no pueden ser ingresados"
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   3082
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   3082
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin VB.Image Image1 
      Height          =   525
      Left            =   270
      Picture         =   "FErrorPreciosCli.frx":0000
      Stretch         =   -1  'True
      Top             =   135
      Width           =   660
   End
   Begin VB.Label Label1 
      Caption         =   "Recuerde que el nuevo precio no puede ser negativo o ser inferior al costo"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   900
      TabIndex        =   1
      Top             =   225
      Width           =   7890
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H80000002&
      Height          =   2625
      Left            =   90
      Top             =   90
      Width           =   9330
   End
End
Attribute VB_Name = "FErrorPreciosCli"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private objHist_Pre_Cli As DB_MA_MANTENIMIENTOS.C_HIST_PRE_CLI
Public MlngCorrelativo As Long
Public MstrMoneda As String

Private Sub dbDetalleError_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        Unload Me
    End If
End Sub

Private Sub Form_Load()
    KeyPreview = True
    Set objHist_Pre_Cli = New DB_MA_MANTENIMIENTOS.C_HIST_PRE_CLI
    
    Set dbDetalleError.DataSource = objHist_Pre_Cli.ObtieneRegistrosIncorrectos(MlngCorrelativo, MstrMoneda)
    FormatoGrilla
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set objHist_Pre_Cli = Nothing
End Sub

Private Sub FormatoGrilla()

    dbDetalleError.Columns(0).Width = 1000
    dbDetalleError.Columns(1).Width = 1000
    dbDetalleError.Columns(2).Width = 4200
    dbDetalleError.Columns(3).Width = 1000
    dbDetalleError.Columns(3).Alignment = dbgRight
    dbDetalleError.Columns(3).NumberFormat = GMascara(GintDecPrecio)
    dbDetalleError.Columns(4).Width = 1000
    dbDetalleError.Columns(4).Alignment = dbgRight
    dbDetalleError.Columns(4).NumberFormat = GMascara(GintDecResultado)
 
End Sub
