Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -4190,7 +4190,7 @@ Partial Class Compras_Compras
                     Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
                     Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero
 
-                    If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
+                    If RBLPago.SelectedValue.ToEntero = 2 Then 'Contado
 
                         If RBLContado.SelectedValue = "1" Then
                             ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal
@@ -6740,7 +6740,7 @@ Partial Class Compras_Compras
                                                                 '    End If
                                                                 'End If
 
-                                                                For Each Ant As Anticipos In ArrAnticipos
+                                                                For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
 
                                                                     Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
                                                                     Dim CveCompraNC As Integer = CveCompra
@@ -7327,7 +7327,7 @@ Partial Class Compras_Compras
                                                 Dim PorcentajePago As Decimal
                                                 Dim CveConceptoAnt As Integer = 21
                                                 Dim CveCompraNC As Integer
-                                                For Each Ant As Anticipos In ArrAnticipos
+                                                For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                                                     CveCompraNC = CveCompra
                                                     Dim CveConceptoPago As Integer = 17
                                                     Select Case Ant.TipoMovto
@@ -8840,7 +8840,7 @@ Partial Class Compras_Compras
 
                 Dim ImporteAnticipo As Decimal = 0
                 If ArrAnticipos.Count > 0 Then
-                    For Each Ant As Anticipos In ArrAnticipos
+                    For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                         ImporteAnticipo += Ant.Importe
                     Next
                 End If
@@ -12255,7 +12255,7 @@ Partial Class Compras_Compras
         Select Case RBLContado.SelectedValue
             Case "1" ' Bancos
                 PnlContadoBancos.Visible = True
-                TxtDocumentoImporte.Text = TxtTotal.Text
+                TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
             Case "2" ' F y E
                 PnlContadoFyE.Visible = True
                 CargaFuncionariosEmpleados()
@@ -12270,7 +12270,7 @@ Partial Class Compras_Compras
                 CargaAcreedores()
             Case "6" ' Caja Chica
                 PnlContadoCajaChica.Visible = True
-                TxtDocumentoImporteCaja.Text = TxtTotal.Text
+                TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
         End Select
 
         UpContado.Update()
@@ -14596,7 +14596,7 @@ Partial Class Compras_Compras
         'ANTICIPOS COMPRA
         Dim ImporteAnticipo As Decimal = 0
         If ArrAnticipos.Count > 0 Then
-            For Each Ant As Anticipos In ArrAnticipos
+            For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
                 ImporteAnticipo += Ant.Importe
             Next
         End If

Compras/PopUpVerFactura.aspx.vb

@@ -890,6 +890,7 @@ Partial Class PopUpVerFactura
             Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
             Vta.RefDocto = dtVentas(0)("Ref").ToString
             Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
+            Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
             Vta.Version = dtVentas(0)("Version").ToString
 
             Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString

Compras/RepComprasPrecios.aspx

@@ -83,9 +83,9 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
+    <%--    <li>
         <asp:LinkButton ID="LnkPdf" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
+    </li>--%>
     <li>
         <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
@@ -141,18 +141,17 @@
     </div>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText="No se encontró información"
+            <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True"
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
+                ShowFooter="True" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Texto" CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
-                data-sort="true" Style="text-align: center;" GridLines="None" ShowHeader="true" DataKeyNames="CvePS">
                 <Columns>
 
-<%--                    <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
+                    <%--                    <asp:TemplateField HeaderText="PS" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Literal ID="HplREQ" runat="server" Text='<%# Eval("PS") %>'></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField>
+                    </asp:TemplateField>--%>
 
-                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
+                    <%--                    <asp:TemplateField HeaderText="Ultima Compra" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Literal ID="HplOC" runat="server" Text='<%# Eval("UltCompra", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
@@ -163,11 +162,10 @@
                             <asp:Literal ID="HplOC2" runat="server" Text='<%# Eval("PrecioLista", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>--%>
-
                 </Columns>
-                <HeaderStyle CssClass="Titulos" />
+                <%--                <HeaderStyle CssClass="Titulos" />
                 <RowStyle CssClass="Texto" />
-                <AlternatingRowStyle CssClass="TextoAlterno" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />--%>
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>

Compras/RepComprasPrecios.aspx.vb

@@ -22,7 +22,7 @@ Partial Class RepComprasPrecios
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaProveedor()
-            CargaDatos()
+            'CargaDatos()
         End If
     End Sub
 
@@ -45,6 +45,8 @@ Partial Class RepComprasPrecios
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            'GvDatos.Columns(1).ItemStyle.Width = New Unit("500px")
+
             GvDatos.HeaderRow.Cells(0).Visible = False
             e.Row.Cells(0).Visible = False
 
@@ -70,15 +72,6 @@ Partial Class RepComprasPrecios
                 End If
             Next
 
-            'Cuando es titulo
-            'If e.Row.DBCampo("PS").ToString.Trim = "" Then
-            '    e.Row.CssClass = "Totales"
-
-            '    e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
-            '    e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
-            '    e.Row.Cells(3).Text = String.Format("Almacen Destino: {0} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
-            'End If
-
         End If
     End Sub
 #End Region
@@ -93,41 +86,36 @@ Partial Class RepComprasPrecios
 #End Region
 
 #Region "IMPRESION"
-    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+    'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
-        Imprime("PDF")
+    '    Imprime("PDF")
-    End Sub
+    'End Sub
     Private Sub Imprime(Formato As String)
-        'If DtInventarios IsNot Nothing Then
+        If DtCompras IsNot Nothing Then
-        '    Dim StrFiltro As New StringBuilder
+            Dim StrFiltro As New StringBuilder
-        '    If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio:</b> {0}", txtFechaI.Text.ToDate.ToShortDateString)
+            If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedItem.Text)
-        '    If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin:</b> {0}", txtFechaF.Text.ToDate.ToShortDateString)
+            GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)
 
-        '    If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Origen:</b> {0}", DdlAlmacenOrigen.SelectedItem.Text)
+            'Dim StrFiltro As New StringBuilder
-        '    If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Almacén Destino:</b> {0}", DdlAlmacenDestino.SelectedItem.Text)
-        '    If ChkRecibido.Checked Then StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>Si") Else StrFiltro.AppendFormat("&emsp;<b>Recibidos: </b>No")
 
-        '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            'If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)
-        '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
-        '    Dim FechaI, FechaF As String
+            'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        '    FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
+            'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-        '    FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
 
-        '    Dim params As New List(Of ReportParameter)
+
-        '    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            'Dim params As New List(Of ReportParameter)
-        '    params.Add(New ReportParameter("FechaInicio", FechaI))
+            'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-        '    params.Add(New ReportParameter("FechaFin", FechaF))
+            'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-        '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            'params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
-        '    params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
+            'If Imagen.Exists Then
-        '    If Imagen.Exists Then
+            '    params.Add(New ReportParameter("LogoPath", logouri))
-        '        params.Add(New ReportParameter("LogoPath", logouri))
+            'Else
-        '    Else
+            '    params.Add(New ReportParameter("LogoPath", ""))
-        '        params.Add(New ReportParameter("LogoPath", ""))
+            'End If
-        '    End If
+            'ImprimirPDF("Empresas/Grales/Formatos/RepComprasPrecios.rdlc", DtCompras, params, String.Format("RepComprasPrecios-{0}", Now.ToDateTime.ToShortDateString), Formato)
-        '    ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
+        Else
-        'Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-        '    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
-        'End If
     End Sub
 #End Region
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -137,4 +125,6 @@ Partial Class RepComprasPrecios
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
         Imprime("Excel")
     End Sub
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 End Class

Contabilidad/RegPoliza.aspx.vb

@@ -1819,15 +1819,19 @@ Partial Class RegPoliza
 
                     Dim Referencia As String = Row("Referencia").ToString
                     Dim Cuenta As String = Row("Código Cuenta").ToString + " - " + Row("Nombre Cuenta").ToString
+                    Dim Cuenta2 = AgregaComilla(Cuenta) 'Agregar otra comilla simple adicional cuando contenga una
+
                     Dim CveCuenta As String = ""
-                    If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'") IsNot Nothing Then
+                    If DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'") IsNot Nothing Then
-                        CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta & "'")("Id").ToString
+                        CveCuenta = DTCuentas.FiltroPrimero("CtaCodigo = '" & Cuenta2 & "'")("Id").ToString
                     End If
 
                     Dim SegNeg As String = Row("SegNeg").ToString
+                    Dim SegNeg2 = AgregaComilla(SegNeg) 'Agregar otra comilla simple adicional cuando contenga una
+
                     Dim IdSegNeg As String = ""
-                    If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'") IsNot Nothing Then
+                    If DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'") IsNot Nothing Then
-                        IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg & "'")("Id").ToString
+                        IdSegNeg = DTSegmentosNegocio.FiltroPrimero("Nombre = '" & SegNeg2 & "'")("Id").ToString
                     End If
 
                     Dim Concepto As String = Row("Nombre/Concepto").ToString
@@ -1884,4 +1888,18 @@ Partial Class RegPoliza
         DescargarFormato()
     End Sub
 
+    Private Function AgregaComilla(str As String) As String
+        If str.Contains("'") Then
+            Dim arr = Split(str, "'")
+            str = ""
+            For i = 0 To arr.Length() - 1
+                If i = arr.Length - 1 Then
+                    str += arr(i)
+                Else
+                    str += arr(i) + "''"
+                End If
+            Next
+        End If
+        Return str
+    End Function
 End Class

Inventarios/RecepcionEntrega.aspx.vb

@@ -1628,7 +1628,7 @@ Partial Class Inventarios_RecepcionEntrega
                 'Exit Sub
 
                 Dim TieneErrorExistencia = False
-                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                     If ObjInventario.DtResultados.Rows.Count > 0 Then
                         TieneErrorExistencia = True
                         For Each Dr As DataRow In ObjInventario.DtResultados.Rows
@@ -2520,7 +2520,7 @@ Partial Class Inventarios_RecepcionEntrega
         StrXML.Append("</conceptos>")
 
         Dim TieneErrorExistencia = False
-        If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero, TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 TieneErrorExistencia = True
                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows

OC/OC.aspx

@@ -855,7 +855,8 @@
 
 
 
-                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
+                                    <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" GridLines=" none" BorderColor="Transparent" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" 
+                                        DataKeyNames="SubProyecto, Cantidad, Importe, Descuento, CveOrdenCompra, CveUnidadMedida, CvePresupuestoEgreso, PS,CveClasificacion, CvePS, CveSubProyecto, CveActivoFijo, CodigoAF, TipoDato, Observacion, CveOrdenCompraDetalle,CveCompra,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje" data-tableheader=".GVDHeader" ShowHeader="false" data-rows="0">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <EditItemTemplate>
@@ -1192,26 +1193,21 @@
 
                 <ajax:TabPanel HeaderText="Cotizaciones" runat="server" ID="tabCotizaciones" Enabled="false">
                     <ContentTemplate>
-
                         <div class="row">
                             <div class="col-md-6">
                             </div>
                             <div class="col-md-6" style="text-align: right!important">
-
+                                <asp:HyperLink ID="hplCargarCotExcel" Font-Size="13" CssClass="Texto" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelCotizaciones" runat="server" Text="<i class='fa fa-file-excel-o'></i>&nbsp; Cargar Cotización"></asp:HyperLink>
+                                &nbsp;&nbsp;
                                 <asp:HyperLink ID="hplAgregarCotizacion" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-plus'></i>&nbsp;Agregar Cotizacion" Style="cursor: pointer;" ToolTip="Agregar Cotizacion"></asp:HyperLink>
-                                &nbsp;&nbsp;
+                                &nbsp;&nbsp;
-                               
                                 <asp:HyperLink ID="hplEnviarCorreo" Font-Size="13" CssClass="Texto thickbox" runat="server" Text="<i class='fa fa-envelope'></i>&nbsp;Enviar cotización por correo" Style="cursor: pointer;" ToolTip="Enviar cotización por correo"></asp:HyperLink>
-
                             </div>
                             <div class="col-md-6">
                             </div>
                         </div>
-
                         <asp:UpdatePanel ID="uppCotizaciones" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-
-
                                 <asp:GridView ID="gvCotizacionesANT" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontro ninguna Cotización" Visible="false" GridLines="None" BorderWidth="0" CssClass="table table-striped table-hover table-advance Widthall">
                                     <Columns>
                                         <asp:TemplateField>
@@ -1366,11 +1362,8 @@
 
                             </ContentTemplate>
                         </asp:UpdatePanel>
-
                     </ContentTemplate>
-
                 </ajax:TabPanel>
-
                 <ajax:TabPanel HeaderText="Almacen" runat="server" ID="TabAlmacen" Visible="false">
                     <ContentTemplate>
                         <asp:UpdatePanel ID="UpAlmacen" UpdateMode="Conditional" runat="server">
@@ -2548,15 +2541,63 @@
             </asp:UpdatePanel>
         </div>
     </div>
-
+    <%--CARGA EXCEL--%>
-
+    <div id="DivCargaExcelCotizaciones" class="modal ADS fade" role="dialog">
-
+        <div class="modal-dialog">
-
+            <!-- Modal content-->
-
+            <div class="modal-content">
-
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Cargar Cotizaciones</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row v-center">
+                        <div class="col-md-6 v-center">
+                            <label class="col-md-6 v-center truncate">Proveedor:</label>
+                            <div class="col-md-6 v-center">
+                                <asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVProveedorExcel" runat="server" ControlToValidate="DdlProveedorCot" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor selecionarlo." ValidationGroup="GrpCargarExcel"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedorExcel" Width="300px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px;">
+                            <asp:TextBox ID="TxtExcelCot" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-2" style="text-align: left">
+                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnDescargarFormatoCot" OnClick="BtnDescargarFormatoCot_Click" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="BtnDescargarFormatoCot" />
+                                </Triggers>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div class="col-md-10" style="text-align: right">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>                                   
+                                    <asp:Button ID="BtnCargaExcelCot" runat="server" OnClick="BtnCargaExcelCot_Click" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
+                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
     <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
-
-
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="server">
     <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>

OC/OC.aspx.vb

@@ -1,5 +1,4 @@
 Option Explicit On
-Option Strict On
 
 Imports System.Data
 Imports Extensiones
@@ -176,7 +175,7 @@ Partial Class OC
     End Property
     Private Property NumCotizacionesEvaluar As Integer
         Get
-            NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "-1", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
+            NumCotizacionesEvaluar = IfNull(ViewState("NumCotizacionesEvaluar"), "0", ViewState("NumCotizacionesEvaluar")).ToString().ToEntero()
         End Get
         Set(value As Integer)
             ViewState("NumCotizacionesEvaluar") = value
@@ -1509,7 +1508,7 @@ Partial Class OC
 
 
             'Si requiere cotizacion y el estatus siguiente es el final, desabilitar el combo del estatus
-            If ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
+            If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
                 CboE.Enabled = False
                 LblMsgEstatus.Visible = True
                 LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -1669,7 +1668,7 @@ Partial Class OC
 
 
             'If ChkCotizacion.Checked AndAlso objOC.CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
-            If ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1 Then
                 CboE.Enabled = False
                 LblMsgEstatus.Visible = True
                 LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -1745,6 +1744,11 @@ Partial Class OC
         DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
         DdlProveedores.DataBind()
         DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
+        DdlProveedorCot.DataBind()
+        DdlProveedorCot.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         UPProv.Update() : UPPEmp.Update()
     End Sub
 
@@ -2766,9 +2770,9 @@ Partial Class OC
                     If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                         If CveConfianzaProveedor > 0 Then
 
-                            If CveConfianzaProveedor = 1 AndAlso Me.NumCotizaciones >= 1 Then
+                            If CveConfianzaProveedor = 1 AndAlso Me.NumCotizacionesEvaluar >= 1 Then
                                 TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
-                            ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizaciones >= 2 Then
+                            ElseIf CveConfianzaProveedor = 2 AndAlso Me.NumCotizacionesEvaluar >= 2 Then
                                 TieneError = GeneraOrdenes(OC, Conta, ObjInventarios)
                             Else
                                 TieneError = True
@@ -2878,7 +2882,7 @@ Partial Class OC
         Promocion = TxtPromocion.Text.Trim
 
         Try
-            If ChkCotizacion.Checked Then
+            If ChkCotizacion.Checked AndAlso gvCotizaciones.Rows.Count > 0 AndAlso (NumCotizacionesGanadoras > 0 OrElse Not (NumCotizacionesGanadoras <= 0 AndAlso CveConfianzaProveedor = 1)) Then
                 Dim CveProveedor = -1
                 Dim TotalCot = 0.0, IVACot = 0D, RetIVA = 0.0, RetISR = 0.0, PorIVA = 0.0, Porcentaje = 0.0
                 Dim IdPoliza = -1
@@ -2932,6 +2936,7 @@ Partial Class OC
                             HuboError = True
                             Exit For
                         End If
+
                     End If
 
                     'AGREGA DETALLES
@@ -4174,7 +4179,7 @@ Partial Class OC
         '    uppOpciones.Update()
         'End If
 
-        If ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
+        If UsuarioActual.Empresa.Funcionalidad(556) = "1" AndAlso ChkCotizacion.Checked AndAlso CveEstatusSiguiente = CveEstatusFinalOK AndAlso (gvCotizaciones.Rows.Count = 0 Or NumCotizacionesGanadoras < gvCotizaciones.Rows.Count - 1) Then
             CboE.Enabled = False
             LblMsgEstatus.Visible = True
             LblMsgEstatus.Text = "Cotización requerida para avanzar"
@@ -7307,4 +7312,173 @@ Partial Class OC
 
 #End Region
 
+#Region "C A R G A R  E X C E L "
+    Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs)
+        If TxtExcelCot.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            CargarArchivoCot(Directorio, file.filename)
+
+            CargaCotizaciones(CveOrdenCompra)
+            RegistraScript("$('#DivCargaExcelCotizaciones').modal('hide');")
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+    End Sub
+
+    Protected Sub BtnDescargarFormatoCot_Click(sender As Object, e As EventArgs)
+        'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
+        Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+
+        Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows
+                                    Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
+                                    Where row.RowType = DataControlRowType.DataRow
+                                    Select New With
+                                        {
+                                            .Cantidad = row.DataKey("Cantidad"),
+                                            .Codigo = rowPS("Codigo"),
+                                            .Producto = rowPS("PSCodigo"),
+                                            .PrecioUnitario = row.DataKey("Importe").ToDecimal(),
+                                            .FechaEntrega = "",
+                                            .Observacion = row.DataKey("Observacion")
+                                        }).QueryToDataTable(True)
+        If DtExcel.Rows.Count < 2 Then
+            Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        DtExcel.TableName = "Cotización"
+        'DtExcel.Columns("Codigo").ColumnName = "Código"
+        'DtExcel.Columns("PS").ColumnName = "Producto / Servicio"
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim FileExcel As New ExcelFile()
+
+        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0,
+                .StartColumn = 0
+            })
+        worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+        worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+
+        FileExcel.Save(Response, "Cotizacion.xlsx", SaveOptions.XlsxDefault)
+
+    End Sub
+    Protected Sub CargarArchivoCot(Ruta As String, FileName As String)
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim dt As DataTable = Nothing
+        Dim ErrorArchivo = False
+
+        Try
+            dt = ReadExcelFile(Ruta + FileName, True)
+        Catch ex As Exception
+            ErrorArchivo = True
+            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
+        End Try
+
+        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
+            'cantidad, Producto, Precio Unitario, Fecha Entrega, Observación
+            If DdlProveedorCot.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe Seleccionar la lista de precios a cargar. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(0).ColumnName = "Cantidad" Then
+                Alert("El nombre de la tercera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName = "Codigo" Then
+                Alert("El nombre de la cuarta columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(2).ColumnName = "Producto" Then
+                Alert("El nombre de la cuarta columna debe ser 'Producto'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "PrecioUnitario" Then
+                Alert("El nombre de la sexta columna debe ser 'PrecioUnitario'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(4).ColumnName = "FechaEntrega" Then
+                Alert("El nombre de la sexta columna debe ser 'FechaEntrega'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(5).ColumnName = "Observacion" Then
+                Alert("El nombre de la sexta columna debe ser 'Observacion'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+
+            dt.TableName = "Datos"
+            Dim ProductosNoCargados As New StringBuilder()
+            Dim RowsCargados As Integer = 0
+            Dim RowsNoCargados As Integer = 0
+            Dim TieneError As Boolean = False
+
+            Dim objCotizacion As New ClsOC
+            objCotizacion.IniciaTransacSQL()
+
+            Try
+                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+
+                Dim DtOCDetalle As DataTable = (From row As GridViewRow In GvD.Rows
+                                                Join rowPS In DtPS On rowPS("CvePS").ToString().ToEntero() Equals row.DataKey("CvePS").ToEntero()
+                                                Where row.RowType = DataControlRowType.DataRow
+                                                Select New With
+                                                {
+                                                    .CvePS = row.DataKey("CvePS").ToEntero(),
+                                                    .CveUnidadMedida = rowPS("CveUnidadMedida").ToString().ToEntero(),
+                                                    .CveOrdenCompraDetalle = row.DataKey("CveOrdenCompraDetalle").ToString().ToEntero(),
+                                                    .Codigo = rowPS("Codigo")
+                                                }).QueryToDataTable(True)
+
+
+
+                Dim Folio As String = ""
+                Dim CveProveedor As Integer = DdlProveedorCot.SelectedValue.ToEntero()
+
+                If CveProveedor > 0 Then
+                    If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, -1, Folio, TxtFecha.Text, "", DdlMoneda.SelectedValue.ToEntero, 0, UsuarioActual.CveUsuario) Then
+                        For Each dr As DataRow In dt.Rows
+                            Dim RowPS = DtOCDetalle.FiltroPrimero(String.Format("Codigo='{0}'", dr("Codigo").ToString()))
+
+                            Dim CveOrdenCompraDetalle As Integer = RowPS("CveOrdenCompraDetalle").ToString().ToEntero()
+                            Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
+                            Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
+                            Dim Fecha As String = If(String.IsNullOrEmpty(dr("FechaEntrega").ToString()), "", If(IsDate(dr("FechaEntrega").ToString()), dr("FechaEntrega").ToString(), ""))
+
+                            TieneError = Not objCotizacion.AddCotizacionDetalle(objCotizacion.CveCotizacion, CvePS, dr("PrecioUnitario").ToString().ToDecimal(), dr("Cantidad").ToString().ToDouble, CveUnidadMedida,
+                                                                              dr("Cantidad").ToString().ToDouble, Fecha, dr("Observacion").ToString(), CveOrdenCompraDetalle)
+                            If TieneError = True Then Exit For
+                        Next
+                    End If
+                Else
+                    TieneError = False
+                End If
+
+            Catch ex As Exception
+                TieneError = True
+                OnError("Ocurrió un error al cargar las cotizaciones.", ex)
+            Finally
+                If TieneError Then
+                    objCotizacion.RollBack()
+                    Alert("Ocurrió un error al cargar las cotizaciones.")
+                Else
+                    objCotizacion.Commit()
+                    Alert("Las cotizaciones se cargaron correctamente.")
+                End If
+                objCotizacion.Dispose()
+            End Try
+
+        End If
+    End Sub
+#End Region
+
 End Class

Ventas/ActualizarPrecios.aspx

@@ -229,11 +229,11 @@
                                 </div>
                             </div>
                             <asp:GridView ID="gvSucursal" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSubProyecto" EmptyDataText="No se encontraron Sucursales" ToolTip="Listado de Sucursales habilitadas para Productos o Servicios"
-                                CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
+                                CssClass="table table-striped table-smallpadding table-advance table-hover Widthall" OnRowDataBound="gvSucursal_RowDataBound" Style="text-align: center;" GridLines="None">
                                 <Columns>
                                     <asp:TemplateField>
                                         <ItemTemplate>
-                                            <asp:CheckBox ID="chkSucursal" runat="server" Checked='<%# Eval("Activo") %>' CssClass="CsMCheckGvSucursal" />
+                                            <asp:CheckBox ID="chkSucursal" runat="server" Checked="false" CssClass="CsMCheckGvSucursal" />
                                             <asp:HiddenField ID="hdnEnBD" runat="server" Value='<%# If (IsDBNull(Eval("CvePS")),0,1)  %>' />
                                         </ItemTemplate>
                                     </asp:TemplateField>
@@ -415,6 +415,9 @@
                 $('.CsMCheckGvSucursal').find('input[type=checkbox]').prop('checked', false);
             }
         }
+        function FncSeleccionaChk(chk) {
+            chk.checked = true;
+        }
 
 
 

Ventas/ActualizarPrecios.aspx.vb

@@ -468,7 +468,12 @@ Partial Class Ventas_ActualizarPrecios
         End While
 
         Return dataTable
-    End Function
+    End Function
 #End Region
-
+
+    Protected Sub gvSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
+        End If
+    End Sub
 End Class