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

GPS/Rastreo/JS/GeoRutas.js

@@ -4,7 +4,7 @@ var polylinesGeoRutas = [];
 var polybounds = [];
 
 function initGeoRutas() {
-    NuevaConsultaGeoRutas();
+    //NuevaConsultaGeoRutas();
     var upRutasDiv = document.createElement('div');
     var upRutas = new ControlGeoRutas(upRutasDiv, map);
 
@@ -65,6 +65,8 @@ function NuevaConsultaGeoRutas() {
     polylinesGeoRutas = [];
     polybounds = [];
     markersRutas = [];
+
+    $("#LnkMostarGeoRutas").css("display", "block");
 }
 
 function ControlGeoRutas(controlDiv, map) {
@@ -98,7 +100,7 @@ function ControlGeoRutas(controlDiv, map) {
     ControlSub2.style.fontFamily = ' "Open Sans", sans-serif; ';
     ControlSub2.style.msUserSelect = 'none;';
     ControlSub2.style.fontSize = '11px'
-    ControlSub2.style.display = 'block'
+    ControlSub2.style.display = 'none'
     ControlSub2.style.backgroundColor = 'rgb(255,255,255)'
     ControlSub2.style.padding = '11px'
     ControlSub2.style.backgroundClip = 'padding-box'

GPS/Rastreo/JS/PuntosDeInteres.js

@@ -0,0 +1,108 @@
+//REGION PUNTOS DE INTERES
+var markersPI = [];
+
+function initPI() {
+    //NuevaConsultaPI();
+    var upRutasDiv = document.createElement('div');
+    var upRutas = new ControlPI(upRutasDiv, map);
+
+    map.controls[google.maps.ControlPosition.TOP_LEFT].push(upRutasDiv);
+}
+
+function CreaMarcadorPI(coords, nomEquipo) {
+    var marker = new google.maps.Marker({
+        position: coords,
+        title: nomEquipo,
+        map: map
+    });
+
+    var infowindow = new google.maps.InfoWindow({
+        content: '<h4><b>' + nomEquipo + '</b></h4>'
+    });
+
+    marker.addListener('click', function () {
+        closeLastOpenedInfoWindow();
+        infowindow.open(map, marker);
+        lastOpenedInfoWindow = infowindow;
+    });
+
+    markersPI.push(marker);
+}
+
+function NuevaConsultaPI() {
+    for (var j = 0; j < markersPI.length; j++) {
+        markersPI[j].setMap(null);
+    }
+    markersPI = [];
+    $("#LnkMostarPI").css("display", "block");
+}
+
+function ControlPI(controlDiv, map) {
+
+    // Set CSS for the control border.
+    var controlUI = document.createElement('div');
+    controlUI.style.marginLeft = '10px';
+    controlUI.style.zIndex = '0';
+    controlUI.style.cursor = 'pointer';
+    // controlUI.style.position = 'absolute';
+    controlUI.style.left = "0px";
+    controlUI.style.width = "150px";
+    controlUI.style.marginTop = "10px"
+    controlUI.style.top = "0px";
+    controlUI.className = 'gmnoprint';
+
+    controlDiv.appendChild(controlUI);
+
+    var ControlSub1 = document.createElement('div')
+    ControlSub1.style.float = 'left';
+    ControlSub1.className = 'gm-style-mtc'
+    controlUI.appendChild(ControlSub1)
+
+    var ControlSub2 = document.createElement('div')
+    ControlSub2.style.direction = 'ltr';
+    ControlSub2.style.overflow = 'hidden';
+    ControlSub2.id = "LnkMostarPI"
+    ControlSub2.style.textAlign = 'center';
+    ControlSub2.style.position = 'relative';
+    ControlSub2.style.color = 'rgb(0,0,0)';
+    ControlSub2.style.fontFamily = ' "Open Sans", sans-serif; ';
+    ControlSub2.style.msUserSelect = 'none;';
+    ControlSub2.style.fontSize = '11px'
+    ControlSub2.style.display = 'none'
+    ControlSub2.style.backgroundColor = 'rgb(255,255,255)'
+    ControlSub2.style.padding = '11px'
+    ControlSub2.style.backgroundClip = 'padding-box'
+    ControlSub2.style.minWidth = '28px'
+    ControlSub2.style.fontWeight = '500'
+    ControlSub2.style.boxShadow = '0 1px 4px -1px rgba(0,0,0,.3)';
+    ControlSub2.innerHTML = 'Mostrar Puntos de Interés'
+    ControlSub1.appendChild(ControlSub2)
+
+    ControlSub1.addEventListener('click', function () {
+        VerPI();
+    });
+}
+
+var IsPIVisible = false;
+
+function VerPI() {
+    if (IsPIVisible) {
+        HidePI();
+        IsPIVisible = false;
+    } else {
+        CargaPI();
+        IsPIVisible = true;
+    }
+}
+
+function HidePI() {
+    for (var j = 0; j < markersPI.length; j++) {
+        markersPI[j].setMap(null);
+    }
+}
+
+function CargaPI() {
+    for (var i = 0; i < markersPI.length; i++) {
+        markersPI[i].setMap(map);
+    }
+}

Inventarios/RecepcionUsados.aspx.vb

@@ -1175,7 +1175,7 @@ Partial Class Inventarios_RecepcionUsados
                                 DdlSubProyecto.SelectedValueExist("-1")
                             End If
 
-                            EnvioCorreo()
+                            '  EnvioCorreo()
 
                             CargaPendientesRecibir()
                             UPDatos.Update()

Inventarios/ResguardoMaterial.aspx

@@ -584,10 +584,12 @@
         function ValidarCantidad(i) {
             var Cant = $("#C_Tab_TabLiberacion_GvMLiberacion_TxtCantidad_" + i).val();
             var CantDisp = $("#C_Tab_TabLiberacion_GvMLiberacion_LblCantidad_" + i).text();
-            if (Cant > CantDisp) {
+
+            if (parseFloat(Cant) > parseFloat(CantDisp)) {
                 $("#C_Tab_TabLiberacion_GvMLiberacion_TxtCantidad_" + i).val(formato_numero(CantDisp, 2, '.', ','));
             }
         }
+
         function formato_numero(numero, decimales, separador_decimal, separador_miles) {
             numero = parseFloat(numero);
             if (isNaN(numero)) {

Inventarios/TraspasoAlmacen.aspx

@@ -470,7 +470,7 @@
 
                     <br />
 
-                    <asp:UpdatePanel runat="server">
+                    <asp:UpdatePanel ID="UpNuevoRealizar" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
                             <div class="row" style="text-align: center;">
                                 <div class="col-md-12">

Inventarios/TraspasoAlmacen.aspx.vb

@@ -908,25 +908,47 @@ Partial Class Inventarios_TraspasoAlmacen
                     End If
                 End If
                 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
+                If Not ErrorMovInv Then
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+
+                        Dim resultado As DataTable = ObjInventario.DtResultados
+                        Dim importe As Decimal = resultado.SUMD("Total")
+                        Dim IdCtaContableSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
+                        Dim IdCtaContableEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenDestino.SelectedValue.ToEntero)).ToEntero
+                        Dim Contabilizable As Boolean = True
+
+                        If IdCtaContableSalida = IdCtaContableEntrada Then Contabilizable = False
+
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+                            ErrorMovInv = True
+                        End If
+
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                End If
+            End If
+        Else
             If Not ErrorMovInv Then
                 Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
 
                     Dim resultado As DataTable = ObjInventario.DtResultados
                     Dim importe As Decimal = resultado.SUM("Total").ToDecimal
-                        Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
+                    Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorio.SelectedValue.ToEntero)).ToEntero
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
                         ErrorMovInv = True
                     End If
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
                         ErrorMovInv = True
                     End If
                 End If
             End If
         End If
-        End If
 
 
 
@@ -989,7 +1011,7 @@ Partial Class Inventarios_TraspasoAlmacen
         If ErrorExistencia Then
             CargaGvDatos()
         End If
-
+        ObjConta.Dispose()
         ObjInventario.Dispose()
     End Sub
 
@@ -1573,6 +1595,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim Folio = 0
             Dim ErrorMovInv As Boolean = False
             Dim TextoError = ""
+            Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
 
             '' verifica que no se halla recibido previamente, si ya se recibió da salida
             If ObjInventario.GetMovimientosTransitorios(CveAlmacenDestino, -1, CveAlmacenTransitorio, -1, FolioBusqueda, UsuarioActual.CveEmpresa) Then
@@ -1644,7 +1667,23 @@ Partial Class Inventarios_TraspasoAlmacen
                     End If
                     Cont += 1
                 Next
+                If Not ErrorMovInv Then
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, TxtObservacionesRecepcion.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
 
+                        Dim resultado As DataTable = ObjInventario.DtResultados
+                        Dim importe As Decimal = resultado.SUM("Total").ToDecimal
+                        Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
+
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
+                            ErrorMovInv = True
+                        End If
+
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                End If
             End If
 
 
@@ -1773,6 +1812,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Alert(TextoError, TipoMensaje.MsgError)
             End If
             ObjInventario.Dispose()
+            ObjConta.Dispose()
             CargaRecepcion()
         Else
             Alert("No hay movimientos para el traspaso", TipoMensaje.MsgAdvertencia)

OC/OC.aspx

@@ -591,7 +591,7 @@
                                
                                 </div>
                                 <div class="col-md-2">
-                                    <asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="Nombre" DataValueField="CveCliente" runat="server"></asp:DropDownList>
+                                    <asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="CodigoNombre" DataValueField="CveCliente" runat="server"></asp:DropDownList>
                                     <%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>

Planeacion/CatSubProyectos.aspx.vb

@@ -83,8 +83,8 @@ Partial Class CatSubProyectos
 
     Private Sub RecargaGlobal()
         Dim ObjSubProyectos As New ClsSubProyectos
-        If ObjSubProyectos.GetSubProyectos() Then
+        If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
-            GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+            GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
         End If
         ObjSubProyectos.Dispose()
     End Sub
@@ -400,6 +400,7 @@ Partial Class CatSubProyectos
             RecargaGlobal()
         Else
             ObjSubproyectos.RollBack()
+            RecargaGlobal()
         End If
 
         'se regeneran los subproyectos

Ventas/ClientesAbonar.aspx

@@ -346,7 +346,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Generar NC" Visible="false" >
                         <ItemTemplate>
-                            <asp:CheckBox ID="ChkGenerarNC" CssClass="chkgv" runat="server" Visible="false"></asp:CheckBox>
+                            <asp:CheckBox ID="ChkGenerarNC" CssClass="chkgv" runat="server" Visible="false" Enabled="false"></asp:CheckBox>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="300px">
@@ -501,7 +501,7 @@
         var Ventas = '';
 
         function FnSuma(t, txt, importe) {
-            debugger;
+             
             var chkPesosBancos = $get("ChkPagarPesos");
             var chkDolaresBancos = $get("ChkPagarDolares");
 
@@ -526,7 +526,7 @@
         }
 
         function SumaValores(pagoMultiple, monedaPago) {
-            debugger;
+             
             var Importe = 0;
             var Comision = 0.00;
             var topLevelElem = document.getElementById("form1");
@@ -614,8 +614,6 @@
         }
 
         function FnCambia(chk, txt, saldo, op, pagoMultiple, monedaPago) {
-            debugger;
-
             if (op == 1) {
                 if (txt.value != '') {
                     chk.checked = true;
@@ -650,9 +648,20 @@
                 $get('LbImporteMN').innerHTML = '$ ' + FormatoNumero(SumaConversion, 2) + ' MXN';
             }
         }
+        function FnSeleccionaNC(chk, chkNC)
+        {
+            if (chk.checked) {
+                chkNC.disabled = false;
+                chkNC.click();
+            } else {
+                chkNC.disabled = true;
+                if (chkNC.checked) {
+                    chkNC.click();
+                }               
+            }
+        }
 
         function FnLimites(chk, txt, limiteInferior, limiteSuperior) {
-            debugger;
             if (ToDouble(txt.value) < limiteInferior) {
                 txt.value = limiteInferior;
                 alert("El Importe no debe de exceder a el saldo");
@@ -674,11 +683,8 @@
         }
 
         function CambiaPesosDolares() {
-            debugger;
             $get('TxtImporte').value = FormatoNumero(SumaValores(), 2);
             $('#LtlTotalMXN').text(FormatoNumero(SumaValores(), 2))
-
-            debugger;
             if ($("#LbImporteME").length) {
                 $get('LbImporteME').innerHTML = '$ ' + FormatoNumero(SumaValores(), 2) + ' USD';
                 $get('TxtImporte').value = FormatoNumero(ToDouble($get('TxtImporte').value) * ToDouble($get('TxtTC').value), 2);
@@ -691,12 +697,12 @@
         }
 
         function CambiaDolaresPesos() {
-            debugger;
+             
             $get('TxtImporte').value = FormatoNumero(SumaValores(), 2);
             $('#LtlTotalMXN').text(FormatoNumero(SumaValores(), 2))
 
 
-            debugger;
+             
             if ($("#LbImporteMN").length) {
                 $get('LbImporteMN').innerHTML = '$ ' + FormatoNumero(SumaValores(), 2) + ' MXN';
                 $get('TxtImporte').value = FormatoNumero(ToDouble($get('TxtImporte').value) / ToDouble($get('TxtTCDolares').value), 2);
@@ -743,7 +749,7 @@
 
             for (var i = 0; i < textBoxes.length; i++) {
                 if (textBoxes[i].type == "checkbox") {
-                    debugger;
+                     
 
                     if (textBoxes[i].id == "ChkAll") {
                         check = !textBoxes[i].checked;

Ventas/ClientesAbonar.aspx.vb

@@ -615,8 +615,11 @@ Partial Class Ventas_ClientesAbonar
 
             End Select
 
-
+            If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 Then
+                e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4}); FnSeleccionaNC({5},{6});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda, e.Row.FCCheckBox("Chk").ClientID, e.Row.FCCheckBox("ChkGenerarNC").ClientID))
+            Else
                 e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda))
+            End If
 
             If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
                 If e.Row.DBCampo("TipoDocto") = "Rem" Then
@@ -658,6 +661,16 @@ Partial Class Ventas_ClientesAbonar
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+        If Not TxtImporte.Text.ToDecimal > 0 Then
+            Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If Not (TxtFolio.Text.Trim <> "" Or RblTipoPago.SelectedValue = "2" Or RblTipoPago.SelectedValue = "3") Then
+            Alert("Debe de llevar un Folio", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim Cuenta As String = ""
         Dim CuentaDeposito As String = ""
 
@@ -673,7 +686,6 @@ Partial Class Ventas_ClientesAbonar
             Exit Sub
         End If
 
-
         Dim CvePrePoliza As Integer = 0
         Dim IDPoliza As Integer = 0
         Dim FolioPoliza As String = ""
@@ -681,6 +693,29 @@ Partial Class Ventas_ClientesAbonar
         Dim CveVentasPago As New List(Of Integer)
         Dim SeriesPago As New List(Of String)
 
+        Dim MsgError As String = ""
+        Dim NCGeneradas As New List(Of Modelos.Factura.MMensajeFactura)
+        Dim ListaFacturasGenerarNC As New List(Of Modelos.Factura)
+
+        Dim ImporteSeleccionado As Decimal = 0
+
+        '02-05-2018 MANDAMOS CANCELAR EL COMPLEMENTO A SUSTITUIR
+        Dim ErrorCancelarIE As Boolean = False
+
+        If CveIESustitucion > 0 Then
+            ErrorCancelarIE = CancelarIE()
+            If ErrorCancelarIE Then
+                Exit Sub
+            End If
+        End If
+
+        Dim ObjIE As New ClsBancos()
+        Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
+        Dim ObjVentasSaldos As New ClsVentas(ObjIE.IniciaTransacSQL)
+        Dim ObjEvento As New ClsOIEventos(ObjIE.IniciaTransacSQL)
+        Dim ObjConta As ClsContPAQi = Nothing
+
+        Try
             Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
             Dim filemove As String = ""
             Dim Comprobante As String = ""
@@ -691,87 +726,6 @@ Partial Class Ventas_ClientesAbonar
                 filemove = fileItem.filename
             Next
 
-        Dim MsgError As String = ""
-        Dim NCGeneradas As New List(Of Modelos.Factura.MMensajeFactura)
-        Dim ListaFacturasGenerarNC As New List(Of Modelos.Factura)
-
-        'comentada RMF 2018.09.28
-        'Dim Dep As New ClsGenerales
-        'If Dep.GetCuentasDepositos(CveCliente:=CveCliente) Then
-        '    Dim Row = Dep.DtResultados.FiltroPrimero(String.Format("CveCuentaDeposito = {0}", DdlCuentaDeposito.SelectedValue.ToEntero))
-        '    If Row IsNot Nothing AndAlso Row("Estatus").ToString = "False" Then
-        '        Alert("La cuenta depósito del proveedor esta inactiva.", TipoMensaje.MsgAdvertencia)
-        '        Dep.Dispose()
-        '        Exit Sub
-        '    End If
-        'End If
-        'Dep.Dispose()
-
-        Dim ImporteSeleccionado As Decimal = 0
-        'If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
-        '    Dim Validada As Boolean = False
-        '    Dim MsgValidadas As New StringBuilder
-
-
-
-        'If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
-
-
-        '    Dim Valida As New ClsValidaCFDi()
-
-        '    'veririco ante el SAT las ventas que voy a pagar
-        '    For Each gvr As GridViewRow In GvCxC.Rows
-        '        If gvr.FCCheckBox("Chk").Checked Then
-        '            ImporteSeleccionado += gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-
-        '            If gvr.DataKey("UUID") <> "" Then
-
-        '                Valida.Verificar(gvr.DataKey("UUID"), gvr.DataKey("RFC"), UsuarioActual.Empresa.RFC, gvr.DataKey("Original").ToDecimal)
-
-        '                If Valida.EsValida > 0 Then
-        '                    If Valida.EsValida = 2 Then 'Cancelada
-        '                        MsgValidadas.AppendFormat("La factura está cancelada ante el SAT: {0}<br>", gvr.DataKey("SerieFolio"))
-        '                    Else
-        '                        Validada = True
-        '                    End If
-        '                Else
-        '                    Validada = True
-        '                End If
-        '            End If
-        '        End If
-        '    Next
-        '    Valida.Dispose()
-
-        'End If
-
-        '    If MsgValidadas.Length > 0 Then
-        '        Alert(String.Format("<br>Las Facturas presentan la siguiente situación ante el SAT. <br>{0}", MsgValidadas.ToString), TipoMensaje.MsgAdvertencia)
-        '        Exit Sub
-        '    End If
-        'End If
-
-
-        Dim ObjIE As New ClsBancos()
-        Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
-        Dim ObjVentasSaldos As New ClsVentas(ObjIE.IniciaTransacSQL)
-        Dim ObjConta As ClsContPAQi = Nothing
-
-        Dim ObjEvento As ClsOIEventos = New ClsOIEventos()
-
-        If TxtImporte.Text.ToDecimal > 0 Then
-
-            '02-05-2018 MANDAMOS CANCELAR EL COMPLEMENTO A SUSTITUIR
-            Dim ErrorCancelarIE As Boolean = False
-
-            If CveIESustitucion > 0 Then
-                ErrorCancelarIE = CancelarIE()
-                If ErrorCancelarIE Then
-                    'Alert("Ocurrio un error al Cancelar el IE.", TipoMensaje.MsgError)
-                    Exit Sub
-                End If
-            End If
-
-            If TxtFolio.Text.Trim <> "" Or RblTipoPago.SelectedValue = "2" Or RblTipoPago.SelectedValue = "3" Then
             Dim ConceptoPoliza As String = String.Format("{0} {1}", TxtAboneA.Text, TxtObservaciones.Text)
 
             If DdlCuenta.SelectedValue > 0 Then
@@ -1596,11 +1550,11 @@ Partial Class Ventas_ClientesAbonar
                 End If
             End If
 
+            Dim ErrorAC As Boolean = False
+
             If MsgError = "" Then
-                    'se agregan las pólizas de Armonización Contable
                 If UsuarioActual.Empresa.UsaAC Then
                     Dim Fecha As Date = TxtFechaDocumento.Text.Trim.ToDate
-                        Dim ErrorAC As Boolean = False
                     ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
                     ObjConta.IniciaTransacSQL()
                     Dim Facturas As New StringBuilder
@@ -1626,23 +1580,9 @@ Partial Class Ventas_ClientesAbonar
                                         Total = drt("TotalPresupuesto").ToString.ToDecimal * PorcentajePago
                                         ConceptoRenglon = String.Format("{0} {1}", gvr.DataKey("SerieFolio"), drt("FuenteRecaudacionRubroIngreso").ToString)
                                         If Total > 0 Then
-
-                                                '' NO DEBERIA
-                                                'If gvr.DataKey("TipoDocto").Contiene("Com") Then
-                                                '    If Not ObjConta.AddMovimiento(IDPoliza, drt("IdCuentaPorEjecutar").ToString.ToEntero, False, Total, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For
-                                                '    If Not ObjConta.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, True, Total, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For
-                                                '    If Not ObjConta.AddMovimiento(IDPoliza, drt("IdCuentaMatriz").ToString.ToEntero, True, Total, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For
-                                                'End If
-                                                '' NO DEBERIA
-
-
-
-
-
                                             If Not ObjConta.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, False, Total, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For : Exit For
 
                                             If Not ObjConta.AddMovimiento(IDPoliza, drt("IdCuentaRecaudado").ToString.ToEntero, True, Total, "", ConceptoRenglon, 0, Fecha, "") Then ErrorAC = True : Exit For : Exit For
-
                                         End If
 
                                     Next
@@ -1669,44 +1609,41 @@ Partial Class Ventas_ClientesAbonar
                         ErrorAC = True
                     End If
 
-                        If Not ErrorAC Then
+                    ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza)
-                            ObjConta.AjustaPoliza(IDPoliza)
-                            ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0)
-                            ObjIE.Commit()
-                            ObjConta.Commit()
-                            UPVentas.Update()
 
-
+                    ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0)
-                            Dim TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentasPago, SeriesPago)
-                            Dim SbMensaje As New StringBuilder
-                            SbMensaje.Append(String.Format("Abono Registrado Correctamente.<br/><br/> Poliza: <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>{1}</a><br/><br/>{2}", IDPoliza, FolioPoliza, TextoComplementoPago))
-
-                            For Each NC In NCGeneradas
-                                For Each msg In NC.Mensajes
-                                    SbMensaje.Append(msg)
-                                Next
-                                SbMensaje.Append("</br>")
-                            Next
-
-                            Alert(SbMensaje.ToString())
-                        Else
-                            ObjIE.RollBack()
-                            If ObjConta IsNot Nothing Then ObjConta.RollBack()
-                            Alert("Error al Agregar la Póliza de Armonización Contable.", TipoMensaje.MsgError)
                 End If
-                        ObjConta.Dispose()
+            End If
-                    Else
+
+            If ErrorAC Then
+                MsgError = "Error al Agregar la Póliza de Armonización Contable"
+            End If
+
+            'BITACORA
+            If MsgError = "" Then
+                If CveIESustitucion > 0 And ComplementoSustitucionGenerado Then
+                    If Not ObjEvento.AddEventoBitacora($"Complemento de pago Cancelado por sustitución con Folio <a href='/Bancos/IE.aspx?CveIE={CveIE}' target='_blank' class='Texto'>{TxtFolio.Text}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIESustitucion) Then
+                        MsgError = "Ocurrió un error al agregar la bitacora"
+                    End If
+                    If Not ObjEvento.AddEventoBitacora($"Complemento de pago Generado por Sustitución de <a href='/Bancos/IE.aspx?CveIE={CveIESustitucion}' target='_blank' class='Texto'>{FolioIECancelado}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+                        MsgError = "Ocurrió un error al agregar la bitacora"
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            MsgError = "Ocurrió un error al guardar el movimiento"
+            OnError("Ocurrió un error al guardar el movimiento", ex)
+        End Try
+
+        If MsgError = "" Then
             ObjIE.Commit()
             If ObjConta IsNot Nothing Then ObjConta.Commit()
-                        UPVentas.Update()
 
             Dim StrMsg As New StringBuilder
             StrMsg.Append("Abono Registrado Correctamente.<br/>")
-
-
             StrMsg.AppendFormat("Folio <b><a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>{1}</a></b>", CveIE, ObjIE.Folio)
 
-
             If IDPoliza > 0 Then StrMsg.AppendFormat("<br/> Poliza: <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>{1}</a>", IDPoliza, FolioPoliza)
 
             Dim TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentasPago, SeriesPago)
@@ -1722,35 +1659,23 @@ Partial Class Ventas_ClientesAbonar
             Next
 
             Alert($"{StrMsg.ToString}<br/><br/>{TextoComplementoPago}", TipoMensaje.MsgInformacion, If(ChkSeguirRegistrando.Checked, "location.href =""#""", "location.href =""/Bancos/RepCxCCliente.aspx"""))
-                    End If
 
         Else
+            If ObjConta IsNot Nothing Then ObjConta.RollBack()
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgAdvertencia)
         End If
-            Else
-                Alert("Debe de llevar un Folio", TipoMensaje.MsgAdvertencia)
-            End If
-        Else
-            Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)
-        End If
 
         ObjIE.Dispose()
         ObjVentasSaldos.Dispose()
         ObjMov.Dispose()
-
+        If ObjConta IsNot Nothing Then ObjConta.Dispose()
-        'BITACORA
-        If CveIESustitucion > 0 And ComplementoSustitucionGenerado Then
-            If Not ObjEvento.AddEventoBitacora($"Complemento de pago Cancelado por sustitución con Folio <a href='/Bancos/IE.aspx?CveIE={CveIE}' target='_blank' class='Texto'>{TxtFolio.Text}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIESustitucion) Then
-
-            End If
-            If Not ObjEvento.AddEventoBitacora($"Complemento de pago Generado por Sustitución de <a href='/Bancos/IE.aspx?CveIE={CveIESustitucion}' target='_blank' class='Texto'>{FolioIECancelado}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
-
-            End If
-        End If
         ObjEvento.Dispose()
+
         LimpiaCampos()
 
+        UPVentas.Update()
+
     End Sub
 
 #Region " N O T A - D E - C R E D I T O"
@@ -1761,31 +1686,42 @@ Partial Class Ventas_ClientesAbonar
         ObjFacturaDevolucion.CveUsuario = UsuarioActual.CveUsuario
         ObjFacturaDevolucion.UsuarioCreo = UsuarioActual.Usuario
 
-        'If CveVentaPadre > 0 Then
+        Dim CveSubProyecto As Integer = Me.CveSubProyecto
-        '    ObjFacturaDevolucion.CveVentaPadre = CveVentaPadre
+        Dim CveMoneda As Integer = Me.CveMoneda
-        '    ObjFacturaDevolucion.CveVentaRelacion = CveVentaPadre
+        Dim CveCliente As Integer = Me.CveCliente
+
+        If CveSubProyecto <= 0 Then
+            CveSubProyecto = ListaVentasGenerarNC(0).CveSubProyecto
+        End If
+
+        If CveMoneda <= 0 Then
+            CveMoneda = ListaVentasGenerarNC(0).CveMoneda
+        End If
+
+        If CveCliente <= 0 Then
+            CveCliente = ListaVentasGenerarNC(0).CveCliente
+        End If
+
+        Dim Folio As Integer = -1
+        Dim Serie As String = "-1"
+
+        'Dim ObjFolios As New ClsGralFolios()
+        'If ObjFolios.GetFolios("Egs", UsuarioActual.CveEmpresa) Then
+        '    Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", Me.CveSubProyecto))
+        '    If DT.Rows.Count > 0 Then
+        '        Serie = DT.Rows(0)("Serie").ToString()
+        '        Folio = DT.Rows(0)("FActual").ToString()
+        '    End If
+        '    DT.Dispose()
         'End If
-
+        'ObjFolios.Dispose()
-        Dim Folio As String = ""
-        Dim Serie As String = ""
-
-        Dim ObjFolios As New ClsGralFolios()
-        If ObjFolios.GetFolios("Egs", UsuarioActual.CveEmpresa) Then
-            Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", Me.CveSubProyecto))
-            If DT.Rows.Count > 0 Then
-                Serie = DT.Rows(0)("Serie").ToString()
-                Folio = DT.Rows(0)("FActual").ToString()
-            End If
-            DT.Dispose()
-        End If
-        ObjFolios.Dispose()
 
         ObjFacturaDevolucion.CveEmpresa = UsuarioActual.CveEmpresa
         ObjFacturaDevolucion.TipoCambio = If(Me.CveMoneda = 1, 1, GlobalTipoCambio(Now).FormatoNumero(4).ToDecimal())
         ObjFacturaDevolucion.ConvertirPesos = False
-        ObjFacturaDevolucion.CveMoneda = Me.CveMoneda
+        ObjFacturaDevolucion.CveMoneda = CveMoneda
-        ObjFacturaDevolucion.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {Me.CveMoneda}")
+        ObjFacturaDevolucion.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {CveMoneda}")
-        ObjFacturaDevolucion.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {Me.CveMoneda}")
+        ObjFacturaDevolucion.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {CveMoneda}")
         ObjFacturaDevolucion.Serie = Serie
         ObjFacturaDevolucion.Folio = Folio
         ObjFacturaDevolucion.Fecha = Now
@@ -1809,10 +1745,10 @@ Partial Class Ventas_ClientesAbonar
         ObjFacturaDevolucion.MetodoPago = ""
         ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {ObjFacturaDevolucion.CveMetodoPago33}")
 
-        ObjFacturaDevolucion.CveSubProyecto = Me.CveSubProyecto
+        ObjFacturaDevolucion.CveSubProyecto = CveSubProyecto
         ObjFacturaDevolucion.SetSubProyecto()
 
-        ObjFacturaDevolucion.CveCliente = Me.CveCliente
+        ObjFacturaDevolucion.CveCliente = CveCliente
         ObjFacturaDevolucion.SetCliente()
 
         Dim ObjCliente As New ClsClientes
@@ -1863,10 +1799,6 @@ Partial Class Ventas_ClientesAbonar
                 ObjFacturaDevolucion.TipoDocumento = ""
         End Select
 
-        If ObjFacturaDevolucion.TipoDocto IsNot Nothing Then
-            ViewState("TipoDoctoDevolucion") = ObjFacturaDevolucion.TipoDocto
-        End If
-
         ObjFacturaDevolucion.FechaPago = Now
 
         ObjFacturaDevolucion.CveCorte = -1
@@ -1912,8 +1844,12 @@ Partial Class Ventas_ClientesAbonar
         DtVentasNC.AcceptChanges()
 
         ObjFacturaDevolucion.DtVentasNC = DtVentasNC
-        ObjFacturaDevolucion.GenerarPDFFactura = True
+        'ObjFacturaDevolucion.GenerarPDFFactura = True
         Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=Trasac, ObjContPaqTransac:=ObjConta)
+
+        ObjFacturaDevolucion.Dispose()
+
+
         Return Resp
 
     End Function
@@ -2822,6 +2758,7 @@ Partial Class Ventas_ClientesAbonar
         Dim IdPolizaNueva = -1
         Dim FolioPolizaNueva = -1
 
+        Try
             'CANCELA IE CONTABILIZADO
             If IDPoliza > 0 Then
                 If ObjAC Is Nothing Then
@@ -2940,10 +2877,14 @@ Partial Class Ventas_ClientesAbonar
                     End If
                 End If
             End If
+        Catch ex As Exception
+            ErrorCancelar = True
+            OnError("Ocurrió un error al cancelar el IE", ex)
+        End Try
 
         If Not ErrorCancelar Then
-            If ObjAC IsNot Nothing Then ObjAC.Commit()
             Banc.Commit()
+            If ObjAC IsNot Nothing Then ObjAC.Commit()
 
             Dim Msg As New StringBuilder
             Msg.Append("El movimiento bancario quedó cancelado exitosamente.")
@@ -2951,8 +2892,8 @@ Partial Class Ventas_ClientesAbonar
             If IdPolizaNueva > 0 Then Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza de cancelación</a>", IdPolizaNueva)
             Alert(Msg.ToString, TipoMensaje.MsgInformacion)
         Else
-            If ObjAC IsNot Nothing Then ObjAC.RollBack()
             Banc.RollBack()
+            If ObjAC IsNot Nothing Then ObjAC.RollBack()
             Alert("El movimiento bancario no se pudo cancelar. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
 

Ventas/PV.aspx

@@ -2830,6 +2830,7 @@
                                                                 <ADS:DropDownLost ID="DdlPSAjuste" CssStyle="width: 100%;" CssClass=" form-control input-sm DdlPS" IncluyeTodos="false" CssClassDdl="select2me form-control" runat="server"  CausesValidation="true" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange="DdlPSAjuste_selectedindexchange" >
                                                                 </ADS:DropDownLost>
                                                                 <asp:HiddenField ID="HdnPSAjusteMarca" ClientIDMode="Static" runat="server" Value="-1" />
+                                                                <asp:HiddenField ID="HdnPSAjusteClasificacion" ClientIDMode="Static" runat="server" Value="-1" />
                                                                 <label for="<%= DdlPSAjuste.ClientID.ToString()%>">Producto/Servicio a Recibir:</label>
                                                             </div>
                                                         </div>
@@ -2916,6 +2917,7 @@
                                                         <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtCodInspeccion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                                 <asp:CustomValidator id="CVCodInspeccion" runat="server"  ControlToValidate="TxtCodInspeccion" ClientValidationFunction="ValidarCodigoInspeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Inspección''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
                                                                 <asp:RegularExpressionValidator ID="REVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Inspección''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" ValidationExpression="^[A-L][0-9][1-9A-Z][A-HJ-M]$"></asp:RegularExpressionValidator>
                                                                 <%--<asp:RequiredFieldValidator ID="RFVCodInspeccion" runat="server" ControlToValidate="TxtCodInspeccion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod. Inspeccion''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
                                                                 <%--<ajax:ValidatorCalloutExtender ID="VCECodInspeccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVCodInspeccion"></ajax:ValidatorCalloutExtender>--%>
@@ -3011,26 +3013,68 @@
     <script type="text/javascript">
 
         function ValidarCodigoEnsamble(source, arguments) {
-            var CveMarca = HdnPSAjusteMarca.value;
+            let CveMarca = HdnPSAjusteMarca.value;
+            let CveClasificacion = HdnPSAjusteClasificacion.value;
+            let regex = "";
+
+            //SI ES MOTOBATERIA
+            if (CveClasificacion = "20517") {
+                regex = "[*]|"
+            //SI ES OPTIMA
+            } else if (CveClasificacion = "20511") {
+                regex = "[1X]|"
+            }
+
+            //MARCA OPTIMA
             if (CveMarca == "1086") {
-                var re = new RegExp("^[0-9]+$");
+                let re = new RegExp("^" + regex + "[0-9]+$");
                 arguments.IsValid = re.test(parseInt(arguments.Value));
+                return;
             } else {
-                var re = new RegExp("^[0-9][A-HJ-M]([[0-2][0-9]|3[0-1])[0-9A-Z][ACEN][2-5]$");
+                let re = new RegExp("^" + regex + "[0-9][A-HJ-M]([[0-2][0-9]|3[0-1])[0-9A-Z][ACEN][2-5]$");
                 arguments.IsValid = re.test(arguments.Value);
+                return;
             }
         }
+
         function ValidarCodigoLinea(source, arguments) {
             var CveMarca = HdnPSAjusteMarca.value;
+            let CveClasificacion = HdnPSAjusteClasificacion.value;
+            let regex = "";
+
+            //SI ES MOTOBATERIA
+            if (CveClasificacion = "20517") {
+                regex = "[*]|";
+            } else {
+                regex = "";
+            }
+
             if (CveMarca == "1086") {
-                var re = new RegExp("^[0-9]+$");
+                var re = new RegExp("^" + regex + "[0-9]+$");
                 arguments.IsValid = re.test(parseInt(arguments.Value));
             } else {
-                var re = new RegExp("^[*]$");
+                var re = new RegExp("^" + regex + "$");
                 arguments.IsValid = re.test(arguments.Value);
             }
         }
 
+        function ValidarCodigoInspeccion(source, arguments) {
+            let CveClasificacion = HdnPSAjusteClasificacion.value;
+
+            let clasificaciones = ["20517", "20511"]
+
+            //SI ES MOTOBATERIA
+            if (clasificaciones.includes(CveClasificacion)) {
+                var re = new RegExp("^[*]|[A-L][0-9][1-9A-Z][A-HJ-M]$");
+                arguments.IsValid = re.test(parseInt(arguments.Value));
+                return;
+            } else {
+                var re = new RegExp("^[A-L][0-9][1-9A-Z][A-HJ-M]$");
+                arguments.IsValid = re.test(arguments.Value);
+                return;
+            }
+        }
+
         function CalculaMesesUso() {
             $get("BtnCalculaMesesUso").click();
         }

Ventas/PV.aspx.vb

@@ -5232,11 +5232,13 @@ Partial Class PV
             Dim CvePSParametro As Integer = DdlPSAjuste.SelectedValue.ToEntero
             Dim PrecioSugerido As Decimal = 0
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
-            Dim CveMarca As Integer
+            Dim CveMarca As Integer = -1
+            Dim CveClasificacion As Integer = -1
 
             If drPS IsNot Nothing Then
                 PrecioSugerido = drPS("Precio").ToString.ToDecimal
                 CveMarca = drPS("CveMarca").ToString.ToEntero
+                CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
             End If
 
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
@@ -5247,6 +5249,7 @@ Partial Class PV
             DdlTipoUso.DataBind()
 
             HdnPSAjusteMarca.Value = CveMarca.ToString()
+            HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()
 
         End If
 

Ventas/RepVentaDetalle.aspx.vb

@@ -230,7 +230,7 @@ Partial Class RepVentaDetalle
             ImgExcel.Visible = False
         End If
 
-        If UsuarioActual.CveVendedor > 0 Then
+        If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
             DdlVendedor.SelectedValuesIfExistM(UsuarioActual.CveVendedor.ToString)
             DdlVendedor.Attributes.Add("disabled", "")
             DdlVendedor.Enabled = False

Ventas/Ventas.aspx

@@ -212,10 +212,6 @@
 
             <%--INICIA: CANCELAR - NC - DEVOLUCION [OLD]--%>
 
-            <li>
-                <asp:LinkButton ID="LkDevolucion" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  Devolución"
-                    data-toggle="confirmation" data-popout="true" data-original-title="¿Aplicar Devolución?" data-btn-ok-label="si" Visible="false" />
-            </li>
             <%--<li>
                 <asp:LinkButton ID="LkNotaCredito" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  Nota de crédito"
                     data-toggle="confirmation" data-popout="true" data-original-title="¿Aplicar Nota de crédito?" data-btn-ok-label="si" Visible="false" />
@@ -359,7 +355,7 @@
             <li>
                 <asp:LinkButton runat="server" ID="LnkEnviarPolizaVirtual" Visible="false" OnClick="LnkEnviarPolizaVirtual_Click">Enviar Póliza Virtual</asp:LinkButton>
             </li>
-<%--            <li>
+            <%--            <li>
                 <asp:LinkButton runat="server" ID="LnkDescargarFacturaPrueba" OnClick="LnkDescargarFacturaPrueba_Click">Descargar Factura Prueba</asp:LinkButton>
             </li>--%>
         </ContentTemplate>
@@ -6094,7 +6090,7 @@
                                     <asp:GridView ID="GvAplicaDevolucion" runat="server" OnRowDataBound="GvAplicaDevolucion_RowDataBound" AutoGenerateColumns="false" GridLines="None" CssClass="table table-grid table-striped table-advance table-hover Widthall"
                                         DataKeyNames="CveVentaDetalle, PU, Total, Cantidad,Descuento,CvePS,PS,Codigo,CodigoPS,CveTipoPS,CveTipoInvPS,CveUM,UM,CveClasificacion,
                                             Clasificacion,CveProyecto,Proyecto,CveSubProyecto,SubProyecto,Obs,PorcentajeIVA,ImporteIVA,PorcentajeRetIVA,ImporteRetIVA,PorcentajeRetISR,
-                                            ImporteRetISR,PorcentajeIEPS,ImporteIEPS,SATClaveProdServ,SATClaveUM,CantSur,CantRes"
+                                            ImporteRetISR,PorcentajeIEPS,ImporteIEPS,SATClaveProdServ,SATClaveUM,CantSur,CantRes,CveTamaño"
                                         AllowPaging="False">
                                         <Columns>
                                             <asp:TemplateField>
@@ -6510,6 +6506,25 @@
             }
 
         }
+        function CalculaSaldoRNCChk(TxtImporte, Saldo, Chk) {
+            if (Chk.checked) {
+                TxtImporte.value = FormatoNumero(Saldo, 2);
+            } else {
+                TxtImporte.value = "";
+            }
+        }
+        function LimitaSaldoRNCChk(TxtImporte, Saldo) {
+            var Importe = 0;
+            if (TxtImporte.value != '') {
+                Importe = parseFloat(TxtImporte.value);
+            }
+
+            if (Importe >  Saldo) {
+                TxtImporte.value = FormatoNumero(Saldo, 2);
+            } else {
+                TxtImporte.value = FormatoNumero(Importe, 2);;
+            }
+        }
 
         function CalculaTotalChk(Total, SubTotal, TxtTotalGv, TxtImporte, Saldo, Porcentaje, Chk) {
             var Importe = 0, ImporteSinPorcentaje = 0;

Ventas/Ventas.aspx.vb

@@ -3544,7 +3544,6 @@ Partial Class Ventas
                             If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
                                 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
                                 If UsuarioActual.TienePermisoProceso(264) Then
-                                    LkDevolucion.Visible = True
                                     InicializaAplicaDevolucion()
                                 End If
                             End If
@@ -6420,7 +6419,7 @@ Partial Class Ventas
                         'VALIDA EXISTENCIA
                         CveProducto = dr("CvePS").ToString.ToEntero
                         CveUnidad = dr("CveUM").ToString.ToEntero
-                        Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto}") 'VALIDA CONTRA LA SUMA DEL MISMO PS
+                        Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") 'VALIDA CONTRA LA SUMA DEL MISMO PS
                         If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then
                             Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
                             If Existencia < Cantidad Then
@@ -7694,7 +7693,9 @@ Partial Class Ventas
 
 
         'ObjFactura.RefDocto = TxtDocto.Text.Trim
-        ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
+        'si es cancelacion, debe de conservar el folio actual
+        If Not EsCancelacion Then ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
+
         'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
         ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
         ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second)
@@ -13827,7 +13828,7 @@ Partial Class Ventas
                 If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                     'VALIDA EXISTENCIA
                     If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) Then
-                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS}") < TxtCantidad.Text.ToDouble Then
+                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
                             Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
                             Return False
                         End If
@@ -13880,6 +13881,12 @@ Partial Class Ventas
                             If PU * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal) >= DtPromociones.FiltroPrimeroValor("PUPromocion", $"CvePS = {CvePS}").ToDecimal Then
                                 EsValido = True
                             End If
+                        Else
+                            'valida sino tiene promocion la clasificacion
+                            If DtPromociones.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero}").Rows.Count > 0 Then
+                                ''falta aplicar si tiene promocion
+                            End If
+
                         End If
                     End If
 
@@ -16268,12 +16275,7 @@ Partial Class Ventas
         Response.Redirect(url)
 
     End Sub
-    Private Sub BtnGenerarNC_Click(sender As Object, e As EventArgs) Handles LkDevolucion.Click
 
-        Dim url As String = String.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=0", CveVenta)
-        Response.Redirect(url)
-
-    End Sub
     'Private Sub LkNotaCreditoC_Click(sender As Object, e As EventArgs) Handles LkNotaCredito.Click
 
     '    Dim url As String = String.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=2", CveVenta)
@@ -16409,6 +16411,7 @@ Partial Class Ventas
         DdlMetodoPago33.Enabled = True
         DdlFormaPago33.Enabled = True
         UPCondicionesPago.Update()
+        If Me.PermiteCredito Then RBLPago.Enabled = True
 
         ModalidadEdicion = True
 
@@ -17026,7 +17029,19 @@ Partial Class Ventas
         Dim total As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal
 
         DtPagos = Nothing
-        InicializaCondicionesPago()
+
+        DtPagos = New DataTable
+
+        DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
+        DtPagos.Columns.Add("TipoMovimiento", GetType(String))
+        DtPagos.Columns.Add("CveCuenta", GetType(String))
+        DtPagos.Columns.Add("Cuenta", GetType(String))
+        DtPagos.Columns.Add("Folio", GetType(String))
+        DtPagos.Columns.Add("Importe", GetType(Decimal))
+        DtPagos.Columns.Add("Observaciones", GetType(String))
+        DtPagos.Columns.Add("Tipo", GetType(String))
+        DtPagos.Columns.Add("CveMetodoPago", GetType(Integer))
+        DtPagos.Columns.Add("MesesSinIntereses", GetType(Integer))
 
         If total <= 0 Then Alert("No se ha ingresado importe", TipoMensaje.MsgAdvertencia) : Exit Sub
 
@@ -21059,6 +21074,12 @@ Partial Class Ventas
 
         UpDescNC.Update()
     End Sub
+    Protected Sub GvDescNC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDescNC.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
+            e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble});")
+        End If
+    End Sub
 
     Protected Sub GvCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -21347,7 +21368,7 @@ Partial Class Ventas
                              PorcentajeRetISR As Double, ImporteRetISR As Double, PorcentajeIEPS As Double, ImporteIEPS As Double, TipoDescuento As Integer, Descuento As Double,
                              Total As Double, SerieLote As String, TiempoEntrega As String, CvePresupuestoIngreso As Integer, EntregaDirecta As Integer, SATClaveProdServ As String,
                              SATClaveUM As String, CveContratoDetalle As Integer, CveVentaDetalle As Integer, CveMovimientoDetallePedido As Integer, CveOrdenCompraDetalle As Integer,
-                             CveVentaDetalleRemision As Integer, CveVentaDetalleCotizacion As Integer)
+                             CveVentaDetalleRemision As Integer, CveVentaDetalleCotizacion As Integer, Optional CveTamaño As Integer = -1)
 
         Dim Row As DataRow = Nothing
         Row = TmpDT.NewRow()
@@ -21406,6 +21427,8 @@ Partial Class Ventas
         Row("CveVentaDetalleRemision") = CveVentaDetalleRemision
         Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion
 
+        Row("CveTamaño") = CveTamaño
+
         TmpDT.Rows.Add(Row)
     End Sub
 
@@ -21417,7 +21440,6 @@ Partial Class Ventas
 
         'LIMPIA ACCIONES
         HLOrdendeCompra.Visible = False
-        LkDevolucion.Visible = False
         LBAplicaDevolucion.Visible = False
         'LkNotaCredito.Visible = False
         LkEliminarFactura.Visible = False
@@ -21544,7 +21566,7 @@ Partial Class Ventas
 #Region "   APLICA DEVOLUCION   "
     Private Sub InicializaAplicaDevolucion()
         If Not UsuarioActual.CveUsuario = 100 Then
-            If Not UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
+            If Not UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 140, 141, 146) Then
                 Exit Sub
             End If
         End If
@@ -21554,13 +21576,13 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        LkDevolucion.Visible = False
         LBAplicaDevolucion.Visible = True
         Dim SeEsconde As Boolean = False
         Dim ObjVenta As New ClsVentas
         If ObjVenta.GetVentaDetalle(CveVenta) Then
             If Not ObjVenta.DtResultados.SUM("CantSur").ToString.ToDecimal > 0 Then SeEsconde = True
-            GvAplicaDevolucion.DataSource = ObjVenta.DtResultados.FiltraParametros("CantRes > 0")
+            'NO MOSTRAR LOS PRODUCTOS CON LA CLASIFICACION DE USADOS
+            GvAplicaDevolucion.DataSource = ObjVenta.DtResultados.FiltraParametros("CantRes > 0 AND CveClasificacion <> 20519")
         End If
         ObjVenta.Dispose()
 
@@ -21609,6 +21631,8 @@ Partial Class Ventas
 
         Dim AplicaPUEditado As Boolean = UsuarioActual.TienePermisoProceso(253)
 
+        Dim DtUsados As DataTable = TmpDT.FiltraParametros("CveClasificacion = 20519")
+
         TmpDT.Clear()
         For Each Gv As GridViewRow In GvAplicaDevolucion.Rows
             If Gv.FCCheckBox("Chk").Checked And Gv.FCTextBox("TxtCantidadAplicaDevolucion").Text.ToDecimal > 0 Then
@@ -21631,9 +21655,48 @@ Partial Class Ventas
                             Gv.DataKey("PorcentajeRetIVA").ToString.ToDecimal, ImporteRetIVA,
                             Gv.DataKey("PorcentajeRetISR").ToString.ToDecimal, ImporteRetISR, Gv.DataKey("PorcentajeIEPS").ToString.ToDecimal,
                             ImporteIEPS, -1, Descuento, Total, "", "", -1, -1,
-                            Gv.DataKey("SATClaveProdServ").ToString, Gv.DataKey("SATClaveUM").ToString, -1, Gv.DataKey("CveVentaDetalle").ToString.ToEntero, -1, -1, -1, -1)
+                            Gv.DataKey("SATClaveProdServ").ToString, Gv.DataKey("SATClaveUM").ToString, -1, Gv.DataKey("CveVentaDetalle").ToString.ToEntero, -1, -1, -1, -1, Gv.DataKey("CveTamaño").ToEntero())
             End If
         Next
+
+        'AGREGAR LOS USADOS EN LA DEVOLUCION
+        CalculaUsados(DtUsados)
+        'If DtUsados IsNot Nothing AndAlso DtUsados.Rows.Count > 0 Then
+        '    Dim DtPSVenta As DataTable = TmpDT.Copy()
+        '    For Each Row As DataRow In DtPSVenta.Rows
+        '        Dim RowCargo As DataRow = DTTamanios.FiltroPrimero($"CveTamaño = { Row("CveTamaño").ToString.ToEntero } ")
+        '        If RowCargo IsNot Nothing Then
+        '            Dim CvePSCargo As Integer = RowCargo("CvePSCargo").ToString.ToEntero
+
+        '            For Each RowUsado As DataRow In DtUsados.FiltraParametros($"CvePS = {CvePSCargo}").Rows
+        '                'If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then
+        '                'End If
+        '                Dim Cantidad As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
+        '                Dim Descuento As Decimal = Cantidad * RowUsado("Descuento").ToString.ToDecimal / RowUsado("Cantidad").ToString.ToDecimal
+        '                Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal()
+        '                Dim Total As Decimal = (Cantidad * PU)
+        '                Dim TotalImpuestos As Decimal = (Cantidad * PU) - Descuento
+        '                Dim ImporteIVA As Decimal = TotalImpuestos * RowUsado("PorcentajeIVA").ToString.ToDecimal
+        '                Dim ImporteRetIVA As Decimal = TotalImpuestos * RowUsado("PorcentajeRetIVA").ToString.ToDecimal
+        '                Dim ImporteRetISR As Decimal = TotalImpuestos * RowUsado("PorcentajeRetISR").ToString.ToDecimal
+        '                Dim ImporteIEPS As Decimal = TotalImpuestos * RowUsado("PorcentajeIEPS").ToString.ToDecimal
+
+        '                AgregaTempDT(TmpDT, RowUsado("CvePS").ToString.ToEntero, RowUsado("PS").ToString, RowUsado("Codigo").ToString, RowUsado("CodigoPS").ToString,
+        '                                RowUsado("CveTipoPS").ToString.ToEntero, RowUsado("CveTipoInvPS").ToString.ToEntero,
+        '                                RowUsado("CveUM").ToString.ToEntero, RowUsado("UM").ToString, RowUsado("CveClasificacion").ToString.ToEntero,
+        '                                RowUsado("Clasificacion").ToString, RowUsado("CveProyecto").ToString.ToEntero, RowUsado("Proyecto").ToString,
+        '                                RowUsado("CveSubProyecto").ToString.ToEntero, RowUsado("SubProyecto").ToString,
+        '                                RowUsado("Obs").ToString, Cantidad, PU, RowUsado("PorcentajeIVA").ToString.ToDecimal, ImporteIVA,
+        '                                RowUsado("PorcentajeRetIVA").ToString.ToDecimal, ImporteRetIVA,
+        '                                RowUsado("PorcentajeRetISR").ToString.ToDecimal, ImporteRetISR, RowUsado("PorcentajeIEPS").ToString.ToDecimal,
+        '                                ImporteIEPS, -1, Descuento, Total, "", "", -1, -1,
+        '                                RowUsado("SATClaveProdServ").ToString, RowUsado("SATClaveUM").ToString, -1, RowUsado("CveVentaDetalle").ToString.ToEntero, -1, -1, -1, -1)
+        '            Next
+        '        End If
+
+        '    Next
+        'End If
+
         TrTipoRelacion.Visible = True
         DdlTiposRelacion.SelectedValueExist("3")
 
@@ -21733,7 +21796,6 @@ Partial Class Ventas
         BtnEmitir.Visible = False
 
         'REINICIALIZA ACCIONES
-        LkDevolucion.Visible = False
         'LkNotaCredito.Visible = False
         LkEliminarFactura.Visible = False
         ImgDownCancelacion.Visible = False
@@ -23379,7 +23441,6 @@ Partial Class Ventas
         BtnGenerarOS.Visible = False
         BtnsFacturar.Visible = False
         HLOrdendeCompra.Visible = False
-        LkDevolucion.Visible = False
         LBAplicaDevolucion.Visible = False
         'LkNotaCredito.Visible = False
         LkEliminarFactura.Visible = False
@@ -23701,8 +23762,8 @@ Partial Class Ventas
 #Region "U S A D O S"
 
 
-    Private Sub CalculaUsados()
+    Private Sub CalculaUsados(Optional DtUsadosDevolucion As DataTable = Nothing)
-        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Cot") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Cot", "Dev") Then
             Dim DTTamanios As DataTable = GlobalDTAcumTamaños()
 
             Dim DTCvePSCostos As DataTable
@@ -23820,16 +23881,23 @@ Partial Class Ventas
                 End If
             Next
 
-
             For Each drowPsTamaños As DataRow In DTPSTemp.Rows
                 Modalidad = "A"
                 If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
+
+                    Dim CveVentaDetalleDevolucion As Integer = -1
+
+                    If DtUsadosDevolucion IsNot Nothing AndAlso DtUsadosDevolucion.Rows.Count > 0 Then
+                        CveVentaDetalleDevolucion = DtUsadosDevolucion.FiltroPrimeroValor("CveVentaDetalle", $"CvePS = {drowPsTamaños("CvePS").ToString.ToEntero}").ToEntero()
+                    End If
+
                     AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
                                             drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
                                             drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
-                                            drowPsTamaños("SubProyecto").ToString)
+                                            drowPsTamaños("SubProyecto").ToString, CveVentaDetalle:=CveVentaDetalleDevolucion)
                 End If
             Next
+
         End If
     End Sub
 

vwd.webinfo

@@ -7,6 +7,12 @@
   <StartupServices>
     
   
+    
+  
+    
+  
+    
+  
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
   </StartupServices>
 </VisualWebDeveloper>