cambios

2020-01-12 21:33:58 -07:00
parent 0563bd37dd
commit 2a0079aba9
5 changed files with 57 additions and 37 deletions
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -54,8 +54,8 @@ Namespace Extensiones

            '    BaseDatos = CType(System.Web.HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.BaseDatosNombre
            'End If
-
-            Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos)
+            Return ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            ' Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos)


        End Function
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -289,7 +289,7 @@
                                                    <%--<asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="NombreCortoProveedor" DataValueField="CveProveedor">
                                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                                    </asp:DropDownList>--%>
-                                                    <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
+                                                    <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " metodo DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
                                                    <%--<asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                                    <ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                                    <asp:ImageButton ID="ImgCambiaProv" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" />
@@ -2556,9 +2556,11 @@
                        <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>
+                                <%--<asp:DropDownList ID="DdlProveedorCot" runat="server" Width="100%" CssClass="select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedorCot" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
+                                                    
+<%--                                <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>
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -1741,20 +1741,25 @@ Partial Class OC
        CboUnidadMedida.DataBind()
    End Sub
    Private Sub CargaProveedores()
-        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
            DdlProveedores.setEsWebService(True)
-            DdlProveedores.Attributes.Add("metodo", "getproveedores")
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Seleccione"
+            DdlProveedores.SelectedValue = "-1"
+            DdlProveedorCot.setEsWebService(True)
+            DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores")
        Else

-            GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
            DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
            DdlProveedores.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
+            DdlProveedorCot.DataBind()
+            DdlProveedorCot.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
        End If
-        '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
@@ -2105,6 +2110,8 @@ Partial Class OC
            Return True
        End If

+
+
        'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
        'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then
        '    If Not UsuarioActual.TienePermisoProceso(179) Then 'PERMISO PARA GENERAR CON O
@@ -2222,6 +2229,13 @@ Partial Class OC
            TieneError = True
        End If

+        'Valida que tenga proveedore
+        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+
+
        'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
        If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
            If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
@@ -5966,7 +5980,7 @@ Partial Class OC

    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 excelFile As ExcelFile = excelFile.Load(flatFilePath)

        Dim unnamed As Integer = 0
        Dim cols As Integer
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -812,7 +812,7 @@
            </ContentTemplate>
        </asp:UpdatePanel>
        
-        <asp:UpdatePanel ID="UpTurno" runat="server" UpdateMode="Conditional" class="portlet light xspadding bordered whitoutcol" style="width: 30%;display: flex;flex-direction:row;color:white;background-color:#c49f47">
+        <asp:UpdatePanel ID="UpTurno" runat="server" UpdateMode="Conditional" Visible="false" class="portlet light xspadding bordered whitoutcol" style="width: 20%;display: flex;flex-direction:row;color:white;background-color:#c49f47">
            <ContentTemplate>
                <div id="DivTurno" runat="server" style="width:100%;text-align:center;">
                    Turno: <asp:Label runat="server" ID="LblTurno"></asp:Label>
@@ -3240,11 +3240,8 @@
                                                <asp:TextBox ID="TxtObsAlmacen" runat="server" Rows="2" TextMode="MultiLine" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
                                        </tr>
                                        <tr align="left" id="TrKilometraje" runat="server" visible ="false">
-                                            <td>Kilometraje&nbsp;</td>
-                                        </tr>
-                                        <tr align="left" id="TrKilometrajeTxt" runat="server" visible ="false">
-                                            <td>
-                                                <asp:TextBox ID="TxtKilometraje" runat="server" Rows="1" TextMode="MultiLine" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
+                                            <td>Kilometraje&nbsp;                                        
+                                                <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
                                        </tr>
                                    </table>
                                </div>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2523,7 +2523,8 @@ Partial Class Ventas
                DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
                DivContadoOtros.Visible = True
                TrKilometraje.Visible = True
-                TrKilometrajeTxt.Visible = True
+                TrPedido.Visible = False
+                ' TrKilometrajeTxt.Visible = True
            End If

        End If
@@ -2582,8 +2583,9 @@ Partial Class Ventas
                LkbEstadodeCaja.Visible = True
                LkbIngreso.Visible = True
                LkbRetiro.Visible = True
-                UpTurno.Update()
+                UpTurno.Visible = True
            Else
+                UpTurno.Visible = False
                'Ingresar un nuevo Turno
                RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }")
            End If
@@ -6462,22 +6464,27 @@ Partial Class Ventas
        End If
        'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras)
        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+
+            If txtkilometraje.text.toentero = 0 Then
+                Alert("No se ha especificado el <strong>kilometraje</strong>.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
            If TxtObsFact.Text = "" Then
                Dim FaltaObservacion As Integer = -1
-                For Each PS As GridViewRow In GvPS.Rows
-                    Dim PsRenglon As GridViewRow = PS
-                    Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero
-                    If CveClasificacion = 20345 Or CveClasificacion = 20342 Then
-                        FaltaObservacion = CveClasificacion
-                        Exit For
-                    End If
-                Next
+                'For Each PS As GridViewRow In GvPS.Rows
+                '    Dim PsRenglon As GridViewRow = PS
+                '    Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero
+                '    If CveClasificacion = 20345 Or CveClasificacion = 20342 Then
+                '        FaltaObservacion = CveClasificacion
+                '        Exit For
+                '    End If
+                '
+                FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero
+
                If FaltaObservacion = 20345 Then
                    Alert("No se ha especificado la <strong>serie</strong> para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia)
                    Exit Sub
-                ElseIf FaltaObservacion = 20342 Then
-                    Alert("No se ha especificado el <strong>kilometraje</strong> para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
                End If
            End If
        End If
@@ -9125,7 +9132,7 @@ Partial Class Ventas
                           CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                           DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then
+                           Kilometraje:=TxtKilometraje.Text.todouble) Then

            ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")

@@ -14276,7 +14283,7 @@ Partial Class Ventas


        'AGREGA PS ADICIONAL
-        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(284) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
+        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(285) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then

            For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
                Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
@@ -16408,7 +16415,7 @@ Partial Class Ventas
                                      Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                      PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero,
                                      CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
-                                      OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then
+                                      OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
            OcurrioError = True
        End If

@@ -22080,7 +22087,7 @@ Partial Class Ventas
                                  Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                  PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero,
                                  CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
            MensajeError = "Ocurrió un error al actualizar la información de la cotización"
            OcurrioError = True
        End If