Puntos GDiaz:

--Cotizaciones, cargas/descargas en excel.

Ventas/Ventas.aspx.vb

@@ -3486,7 +3486,13 @@ Partial Class Ventas
             ''EN REALIDAD SE OCUPAN ESTAS COSAS DENTRO DEL POSTABCK ???
             If Not CveVenta > 0 Then
                 'LbDescargarExcel.Visible = True
-                HlAgregarExcel.Visible = True
+                If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    HLCargaCotizaciones.Visible = True
+                    HlAgregarExcel.Visible = False
+                Else
+                    HLCargaCotizaciones.Visible = False
+                    HlAgregarExcel.Visible = True
+                End If
             End If
 
             If DdlTipoComprobante.SelectedValue.Contiene("Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then
@@ -21291,6 +21297,16 @@ Partial Class Ventas
             TdOrdenPago.Visible = True
         End If
 
+        If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            HLCargaCotizaciones.Visible = True
+            HlAgregarExcel.Visible = False
+        Else
+            HLCargaCotizaciones.Visible = False
+            HlAgregarExcel.Visible = True
+        End If
+
+        UpCargaExceles.Update()
+
         UpFacturar.Update()
 
     End Sub
@@ -26426,9 +26442,30 @@ Partial Class Ventas
             Response.End()
         End If
     End Sub
+
+    Public Sub DescargarFormatoCotizaciones()
+        Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoCotizaciones.xlsx"
+
+        Dim Archivo As New IO.FileInfo(Directorio)
+        If Archivo.Exists Then
+            Response.Clear()
+            Response.ClearHeaders()
+            Response.ClearContent()
+            Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
+            Response.AddHeader("Content-Length", Archivo.Length.ToString())
+            Response.ContentType = "text/plain"
+            Response.Flush()
+            Response.TransmitFile(Archivo.FullName)
+            Response.End()
+        End If
+    End Sub
     Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcelVentas.Click
         DescargarFormato()
     End Sub
+
+    Public Sub LbDescargarExcelCotizaciones_Click(sender As Object, e As EventArgs) Handles LbDescargarExcelCotizaciones.Click
+        DescargarFormatoCotizaciones()
+    End Sub
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String, FileUrl As String)
         Dim dt As New DataTable
         Dim ErrorArchivo As Boolean = False
@@ -26597,6 +26634,141 @@ Partial Class Ventas
         End If
         dt.Dispose()
     End Sub
+
+    Private Sub CargarArchivoCotizacion(Ruta As String, FileName As String, Tipo As String, FileUrl As String)
+        Dim dt As New DataTable
+        Dim ErrorArchivo As Boolean = False
+        Dim n As Integer = 0
+        dt = ReadExcelFile(FileUrl, True)
+        If Not ErrorArchivo Then
+            If Not dt.Columns(0).ColumnName = "Cantidad" Then
+                Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(1).ColumnName = "Código" Then
+                Alert("El nombre de la segunda columna debe ser 'Código'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(2).ColumnName = "Codigo Barras" Then
+                Alert("El nombre de la tecera columna debe ser 'Codigo Barras'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(3).ColumnName = "Precio Unitario" Then
+                Alert("El nombre de la sexta columna debe ser 'Precio Unitario'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            If Not dt.Columns(4).ColumnName = "Descuento" Then
+                Alert("El nombre de la sexta columna debe ser 'Descuento'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            dt.TableName = "Datos"
+
+            Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
+
+            If Not ErrorArchivo Then
+                NumRow = 1
+                Dim RowNoEncontrados As String = ""
+                Dim NumAgregados As Integer = 0
+                For Each Row As DataRow In dt.Rows
+                    NumAgregados = NumAgregados + 1
+
+                    Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                    Dim Codigo As String = Row("Código").ToString().Trim.ToUpper()
+                    Dim CodigoBarras As String = Row("Codigo Barras").ToString().Trim.ToUpper()
+                    Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString().ToDecimal()
+                    Dim Descuento As Decimal = Row("Descuento").ToString().ToDecimal()
+                    Dim Proyecto = ""
+                    Dim CvePS As Integer = 0
+                    Dim CveClasificacion As Integer = 0
+                    Dim CveUM As Integer = 0
+                    Dim UM As String = ""
+                    Dim PS As String = ""
+                    Dim DrProyecto As DataRow = DtSubProyecto.FiltroPrimero("")
+                    Dim SubProyecto As String = ""
+                    Dim CveProyecto As Integer = 0
+                    Dim CveSubProyecto As Integer = 0
+
+                    NumRow = NumRow + 1
+
+                    If DrProyecto IsNot Nothing Then
+                        CveSubProyecto = DrProyecto("CveSubProyecto").ToString().ToEntero()
+                        CveProyecto = DrProyecto("CveProyecto").ToString().ToEntero()
+                        SubProyecto = DrProyecto("SubProyecto").ToString()
+                        Proyecto = DrProyecto("Proyecto").ToString()
+                    End If
+
+                    'If CveSubProyecto <= 0 Then
+                    '    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Proyecto, NumRow, "Proyecto", RowNoEncontrados)
+                    'End If
+
+                    If CveSubProyecto > 0 Then
+                        If Codigo <> "" Then
+
+                            Using ObjPS As New ClsProductosServicios
+                                If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, Codigo:=Codigo) Then
+                                    If ObjPS.CvePS > 0 Then
+                                        CvePS = ObjPS.CvePS
+                                        PS = ObjPS.PS
+                                        CveUM = ObjPS.CveUnidadMedida
+                                        CveClasificacion = ObjPS.CveClasificacion
+                                    Else
+                                        RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                    End If
+                                Else
+                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                End If
+                            End Using
+
+                        ElseIf CodigoBarras <> "" Then
+
+                            Using ObjPS As New ClsProductosServicios
+                                If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa, CodigoBarras:=CodigoBarras) Then
+                                    If ObjPS.CvePS > 0 Then
+                                        CvePS = ObjPS.CvePS
+                                        PS = ObjPS.PS
+                                        CveUM = ObjPS.CveUnidadMedida
+                                        CveClasificacion = ObjPS.CveClasificacion
+                                    Else
+                                        RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                    End If
+                                Else
+                                    RowNoEncontrados = String.Format("{3}&nbsp;&nbsp;&nbsp;&nbsp;-  No se encontró '{0}' en la fila {1}, columna '{2}'<\BR>(NoBD)", Codigo, NumRow, "Codigo", RowNoEncontrados)
+                                End If
+                            End Using
+                            RowNoEncontrados &= "<\BR>&nbsp;&nbsp;&nbsp;&nbsp;- En la fila " & NumRow & " no se especificó código, código de barras ó descripción."
+                        End If
+                    End If
+
+
+                    If CvePS > 0 Then
+
+                        If PrecioUnitario <= 0 Then
+                            Dim ObjPrecioSugerido As Modelos.MPrecioSugerido = CalculaPrecioSugerido(CvePS, CveClasificacion)
+                            PrecioUnitario = ObjPrecioSugerido.PrecioSugerido
+                        End If
+
+                        AgregarProductoServicio(Cantidad, CveUM, UM, -1, "",
+                            CvePS, PS, "", PrecioUnitario, Descuento,
+                            CveProyecto, Proyecto, CveSubProyecto, SubProyecto)
+                    End If
+                Next
+
+                CalculaTotalesVenta()
+
+                If RowNoEncontrados.Length > 0 Then
+                    Alert("Los siguientes productos o servicios no se encontraron en la Base de Datos.<\BR>" & RowNoEncontrados, TipoMensaje.MsgAdvertencia)
+                Else
+                    Alert("Se cargaron " & NumAgregados & " productos o servicios correctamente.")
+                End If
+            End If
+        End If
+        dt.Dispose()
+    End Sub
     Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
@@ -26608,6 +26780,17 @@ Partial Class Ventas
         End If
     End Sub
 
+    Private Sub BtnCargarExcelCotizaciones_Click(sender As Object, e As EventArgs) Handles BtnCargarExcelCotizaciones.Click
+        If TxtExcelCotizaciones.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcelCotizaciones.getfiles().Archivos(0)
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path
+            Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+            CargarArchivoCotizacion(Directorio, file.filename, Tipo, file.FileUrl)
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+    End Sub
+
 
     'Private dtps As DataTable = Nothing
     'Private Function GetPS(Opt As String, Valor As String) As String
@@ -30982,6 +31165,7 @@ Partial Class Ventas
         LiDevolucionAlmacen.Visible = False
         HLPagar.Visible = False
         HlAgregarExcel.Visible = False
+        HLCargaCotizaciones.Visible = False
         HplDownXML.Visible = False
         HplDownPDF.Visible = False
         HLSaldarVenta.Visible = False
@@ -31422,6 +31606,7 @@ Partial Class Ventas
         LiDevolucionAlmacen.Visible = False
         HLPagar.Visible = False
         HlAgregarExcel.Visible = False
+        HLCargaCotizaciones.Visible = False
         HplDownXML.Visible = False
         HplDownPDF.Visible = False
         HLSaldarVenta.Visible = False
@@ -33712,7 +33897,7 @@ Partial Class Ventas
         LiDevolucionAlmacen.Visible = False
         HLPagar.Visible = False
         HlAgregarExcel.Visible = False
-
+        HLCargaCotizaciones.Visible = False
 
         'REINICIALIZA VALORES DE CANTIDAD FACTURADA - SOLO DEBEN MOSTRARSE AL CARGAR UNA REMISION/COTIZACIÓN
         GvPS.Columns(6).Visible = False