- scorecard

Ventas/CatMetasVendedores.aspx.vb

@@ -15,6 +15,7 @@ Partial Class CatMetasVendedores
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            txtMesAnio.Text = Now.FirstDayOfMonth.ToShortDateString
             CargaDatosModal()
             CargaCombos()
             CargaDatos()
@@ -87,7 +88,7 @@ Partial Class CatMetasVendedores
             Dim ObjVentas As New ClsVentas
             If BtnAgregarMetaVendedor.Text = "Agregar" Then
                 If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
-                                            TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero) Then
+                                            TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                     Alert("Se agregó la meta al vendedor")
                 Else
                     Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
@@ -279,105 +280,75 @@ Partial Class CatMetasVendedores
             Dim ProductosNoCargados As New StringBuilder()
             Dim RowsCargados As Integer = 0
             Dim RowsNoCargados As Integer = 0
-            Dim ObjMetas As New ClsVentas
-            'ObjPS.IniciaTransacSQL()
+            Dim ObjMetas As New ClsVentas
+            Dim Correcto As Boolean = True
+            ObjMetas.IniciaTransacSQL()
             Try
                 Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
                 Dim DtClasificaciones As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
-                Dim DtClasificaciones2 As DataTable = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
-
-                For Each row As DataRow In dt.Rows
-                    Dim Correcto As Boolean = False
-                    Dim TieneError As Boolean = False
-                    Dim CveVendedor As Integer = DtVendedores.FiltroPrimeroValor("CveVendedor", String.Format("Vendedor LIKE '%{0}%'", row("Vendedor").ToString().TrimStart().TrimEnd())).ToEntero
-                    Dim CveClasificacion As Integer = DtClasificaciones.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación Superior").ToString().TrimStart().TrimEnd())).ToEntero
-                    Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero
-                    Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero
-
-                    Dim Mes As Decimal = row("Mes").ToString().ToDecimal()
-                    Dim Anio As Decimal = row("Año").ToString().ToDecimal()
-                    Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal()
-                    Dim Importe As Decimal = row("Importe").ToString().ToDecimal()
-
-                    Dim FechaRef As New DateTime(Anio, Mes, 1)
-                    If CveVendedor > 0 AndAlso CveVendedor > 0 AndAlso CveClasificacion > 0 AndAlso CveClasificacion2 > 0 AndAlso CveMarca > 0 Then
-                        Correcto = ObjMetas.AddMetasVendedores(CveVendedor, FechaRef, CveMarca, Cantidad, Importe, CveClasificacion2, CveClasificacion)
-                        If Correcto Then
-                            RowsCargados += 1
-                        End If
-                    End If
-
-                    If Not Correcto Then
-                        RowsNoCargados += 1
-                    End If
+                Dim DtClasificaciones2 As DataTable = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
+
+
+                For Each row As DataRow In dt.Rows
+
+                    If Correcto Then
+                        Dim TieneError As Boolean = False
+                        Dim CveVendedor As Integer = DtVendedores.FiltroPrimeroValor("CveVendedor", String.Format("trim(Vendedor) LIKE '%{0}%'", row("Vendedor").ToString().TrimStart().TrimEnd())).ToEntero
+                        Dim CveClasificacion As Integer = DtClasificaciones.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación Superior").ToString().TrimStart().TrimEnd())).ToEntero
+                        Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("trim(Clasificacion)='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero
+                        Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero
+
+                        Dim Mes As Decimal = row("Mes").ToString().ToDecimal()
+                        Dim Anio As Decimal = row("Año").ToString().ToDecimal()
+                        Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal()
+                        Dim Importe As Decimal = row("Importe").ToString().ToDecimal()
+
+                        Dim FechaRef As New DateTime(Anio, Mes, 1)
+                        If CveVendedor > 0 AndAlso CveVendedor > 0 AndAlso CveClasificacion > 0 AndAlso CveClasificacion2 > 0 AndAlso CveMarca > 0 Then
+                            Correcto = ObjMetas.AddMetasVendedores(CveVendedor, FechaRef, CveMarca, Cantidad, Importe, CveClasificacion2, CveClasificacion, UsuarioActual.CveEmpresa)
+                            If Correcto Then
+                                RowsCargados += 1
+                            End If
+                        End If
+
+                        If Not Correcto Then
+                            RowsNoCargados += 1
+                        End If
+                    End If
+
                 Next
             Catch ex As Exception
                 OnError("Ocurrió un error al cargar los precios.", ex)
             Finally
-                ObjMarcas.Dispose()
-
-                Dim MensajeFinal As New StringBuilder()
-                If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then
-                    MensajeFinal.Append("Las metas se cargaron correctamente. <br/><br/>")
-                End If
-                If RowsCargados > 0 Then
-                    MensajeFinal.Append("Se cargaron <b>" & RowsCargados & "</b> metas correctamente.")
-                End If
-                If RowsNoCargados > 0 Then
-                    MensajeFinal.Append("No se pudieron actualizar <b>" & RowsNoCargados & "</b> metas. <br/>")
-                End If
-
-                Alert(MensajeFinal.ToString())
+                Dim MensajeFinal As New StringBuilder()
+
+                If Correcto Then
+                    ObjMetas.Commit()
+                    If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then
+                        MensajeFinal.Append("Las metas se cargaron correctamente. <br/><br/>")
+                    End If
+                    If RowsCargados > 0 Then
+                        MensajeFinal.Append("Se cargaron <b>" & RowsCargados & "</b> metas correctamente.")
+                    End If
+                    If RowsNoCargados > 0 Then
+                        MensajeFinal.Append("No se pudieron actualizar <b>" & RowsNoCargados & "</b> metas. <br/>")
+                    End If
+
+                    Alert(MensajeFinal.ToString())
+                Else
+                    ObjMetas.RollBack()
+                    If RowsNoCargados > 0 Then
+                        MensajeFinal.Append("No se pudieron actualizar <b>" & RowsNoCargados & "</b> metas. <br/>")
+                    End If
+                    Alert(MensajeFinal.ToString())
+                End If
+
+
+
 
             End Try
 
         End If
-    End Sub
-
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
-
-        Dim unnamed As Integer = 0
-        Dim cols As Integer
-        Dim columns As String()
-        Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
-
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
-
-            If firstRowHasHeaders Then
-
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
-                Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
-                End If
-
-                curRow = 1
-            Else
-                dataTable.Columns.Add("Column " & (cols + 1))
-            End If
-        Next
-
-        While curRow < worksheet.Rows.Count
-            columns = New String(cols - 1) {}
-
-            For curCol = 0 To cols - 1
-
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
-                Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
-            Next
-
-            dataTable.Rows.Add(columns)
-            curRow += 1
-        End While
-
-        Return dataTable
-    End Function
+    End Sub
+
 End Class