GeoRutas en rastreo,correciones en al facturar remisiones

App_Code/Modelos.vb

@@ -4105,6 +4105,11 @@ Namespace Modelos
                     CvePrePoliza = ObjConta.AddPrePolizas("Modelos/CancelarDocumento", CvePlantillaPoliza, ObjFactura.Total, ObjFactura.Total, ObjFactura.CveMoneda, Now, ObjFactura.Cliente.Nombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
                     ObjFactura.CvePrePoliza = CvePrePoliza
 
+                    If ObjFactura.CvePrePoliza <= 0 Then
+                        ErrorCancelar = True
+                        MensajeError = "Ocurrió un error al generar la prepoliza de cancelación."
+                    End If
+
                     'CANCELAR PAGOS
                     If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                         If Not ErrorCancelar Then
@@ -4315,6 +4320,7 @@ Namespace Modelos
                                 If Not ErrorCancelar AndAlso RealizarDevolucionAlmacen AndAlso CveMovimiento > 0 Then
                                     Dim MensajeBitacora = "Devuelta"
                                     If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then
+                                        MensajeError = "Ocurrió un error al agregar la bitacora."
                                         ErrorCancelar = True
                                     End If
                                 End If
@@ -4327,14 +4333,18 @@ Namespace Modelos
                     If Not ErrorCancelar Then
                         If ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
                             ObjFactura.GuardarContratoAvanceEstimaciones(ObjContrato, ErrorList, -1, True)
-                            ErrorCancelar = ErrorList.Count > 0
+                            If ErrorList.Count > 0 Then
+                                ErrorCancelar = True
                                 MensajeError = "Ocurrió un error al cancelar las estimaciones del contrato."
+                            End If
                         ElseIf ObjFactura.CveContrato > 0 AndAlso ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                             ObjFactura.GuardarContratoAvanceEstimaciones(ObjContrato, ErrorList, 1, True)
-                            ErrorCancelar = ErrorList.Count > 0
+                            If ErrorList.Count > 0 Then
+                                ErrorCancelar = True
                                 MensajeError = "Ocurrió un error al cancelar los avances del contrato."
                             End If
                         End If
+                    End If
 
                     'DESVINCULA COTIZACIONES FACTURADAS
                     If Not ErrorCancelar Then

GPS/Rastreo.aspx

@@ -376,6 +376,7 @@
                         </asp:UpdatePanel>
                     </div>--%>
                     </div>
+               
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>
@@ -398,6 +399,7 @@
                                         <div runat="server" id="dvFechas">
                                             <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px; margin-bottom: 20px;">
                                                 <li>Fecha Inicio:
+                                               
                                                     <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm">
                                                         <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                         <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
@@ -405,6 +407,7 @@
                                                     </div>
                                                 </li>
                                                 <li>Fecha Fin:
+                                           
                                                     <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy">
                                                         <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
                                                         <asp:RequiredFieldValidator ID="RequiredFieldValidator5" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpFechas"></asp:RequiredFieldValidator>
@@ -464,6 +467,13 @@
                                                     <asp:CheckBox ID="ChkTrazarGeocercas" Text=" " runat="server" CssClass="chksino" Width="250px"></asp:CheckBox>
                                                 </div>
                                             </div>
+                                            <div class="col-md-3" runat="server" visible="False" id="dvTrazoRutas">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <label>Trazar Georutas: </label>
+                                                    <br />
+                                                    <asp:CheckBox ID="ChkTrazarGeorutas" AutoPostBack="true" Text=" " runat="server" CssClass="chksino" Width="250px" OnCheckedChanged="ChkTrazarGeorutas_CheckedChanged"></asp:CheckBox>
+                                                </div>
+                                            </div>
                                             <div class="col-md-6">
                                             </div>
                                         </div>
@@ -553,11 +563,13 @@
                                     <div class="col-md-4">
                                         <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px;">
                                             <li>Fecha I.:
+                                               
                                                 <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
                                                     <asp:TextBox ID="TxtFechaGVI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="110px "></asp:TextBox>
                                                 </div>
                                             </li>
                                             <li>Fecha F.:
+                                               
                                                 <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
                                                     <asp:TextBox ID="TxtFechaGVF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="110px "></asp:TextBox>
                                                 </div>
@@ -579,12 +591,12 @@
                             </div>
                             <div id="DvPaginacion" runat="server" class="row" visible="false">
                                 <div class="col-md-11">
-                                    <asp:Label ID="LblRegistros" runat="server" style="display:inline-block;"></asp:Label>
+                                    <asp:Label ID="LblRegistros" runat="server" Style="display: inline-block;"></asp:Label>
                                 </div>
-                                <div class="col-md-1" style="display:inline-block;position:relative">
+                                <div class="col-md-1" style="display: inline-block; position: relative">
                                     <asp:HiddenField ID="HdnIndexPage" runat="server" ClientIDMode="Static" Value="0" />
-                                    <asp:LinkButton ID="btnPagePrev" runat="server" style="vertical-align:top;" Text="<i class='fa fa-angle-left' style='font-size:24px' aria-hidden='true'></i> Anterior" OnClick="btnPagePrev_Click" Enabled="false"/>
+                                    <asp:LinkButton ID="btnPagePrev" runat="server" Style="vertical-align: top;" Text="<i class='fa fa-angle-left' style='font-size:24px' aria-hidden='true'></i> Anterior" OnClick="btnPagePrev_Click" Enabled="false" />
-                                    <asp:LinkButton ID="btnPageNext" runat="server" style="vertical-align:top;" Text="Siguiente <i class='fa fa-angle-right' aria-hidden='true' style='font-size:24px'></i>" OnClick="btnPageNext_Click" />                            
+                                    <asp:LinkButton ID="btnPageNext" runat="server" Style="vertical-align: top;" Text="Siguiente <i class='fa fa-angle-right' aria-hidden='true' style='font-size:24px'></i>" OnClick="btnPageNext_Click" />
                                 </div>
                             </div>
                             <asp:GridView ID="GvBarra" runat="server" GridLines="None" PageSize="1000" AllowPaging="true" AllowCustomPaging="true" DataKeyNames="Vehiculo, Posicion,Fecha,Velocidad, CveDispositivo" CssClass="table table-striped table-advance table-hover Widthall ADScrollPaginator2" data-sort="true" data-height="150px;" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
@@ -680,6 +692,7 @@
                                 </div>
                                 <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px;">
                                     <li>Fecha I.:
+                               
                                         <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy">
                                             <asp:TextBox ID="TxtFechaIG" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
                                         </div>
@@ -688,6 +701,7 @@
                                         <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                         --%></li>
                                     <li>Fecha F.:
+                               
                                         <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy">
                                             <asp:TextBox ID="TxtFechaFG" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
                                         </div>
@@ -815,11 +829,13 @@
                                         </div>
                                         <ul class="list-inline" style="font-size: 12px; margin-top: 15px; margin-left: 0px;">
                                             <li>Fecha I.:
+                                           
                                                 <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
                                                     <asp:TextBox ID="TxtFechaIHis" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
                                                 </div>
                                             </li>
                                             <li>Fecha F.:
+                                           
                                                 <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
                                                     <asp:TextBox ID="TxtFechaFHis" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
                                                 </div>
@@ -863,6 +879,47 @@
             </asp:UpdatePanel>
         </div>
     </div>
+    <div id="DivGeoRutas" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpGeorutas" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H1" runat="server">Trazar GeoRutas</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right" align="left">
+                            <div style="margin-right: 15px">
+                                <input type="text" id="TxtBusquedaRutas" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaRutas','{0}')", GvGeorutas.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvGeorutas.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            </div>
+                        </div>
+                        <asp:GridView ID="GvGeorutas" runat="server" GridLines="None" data-height="200" DataKeyNames="Coordenadas,CveGeoReferencia,GeoReferencia, CveDispositivo,Tipo,Color,Estatus,FechaInicio,FechaFin,AplicaLunes,AplicaMartes,AplicaMiercoles,AplicaJueves,AplicaViernes,AplicaSabado,AplicaDomingo, HoraInicio, HoraFin, Tolerancia" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
+                            <Columns>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="10%">
+                                    <ItemTemplate>
+                                        <asp:CheckBox runat="server" ID="ChkRutas" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:BoundField DataField="Tipo" ItemStyle-Width="20%" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" />
+                                <asp:BoundField DataField="GeoReferencia" ItemStyle-Width="20%" HeaderText="GeoReferencia" ItemStyle-HorizontalAlign="Left" />
+                                <asp:TemplateField HeaderText="Color" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="imgColor" HeaderText="Color" runat="server" Style="height: 20px;" Enabled="false" CausesValidation="False" CssClass="btn btn-circle btn-sm green" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+                    <div class="modal-footer">
+                        <button data-dismiss="modal" class="btn btn-default">Cerrar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
     <div runat="server" class="row" style="margin: 0px 0px 10px 0px; display: none">
         <asp:Button runat="server" OnClick="btnImprimir_Click" ID="btnImprimir" CommandArgument="PDF" ToolTip="Imprimir en PDF" CssClass="btn btn-circle mysmallbtn grey" Text="<i class='fa fa-print' aria-hidden='true'></i>"></asp:Button>
         <asp:Button runat="server" OnClick="btnImprimir_Click" ID="BtnImprimirEX" CommandArgument="EXCEL" ToolTip="Imprimir en EXCEL" CssClass="btn btn-circle btn-xs mysmallbtn green" Text="<i class='fa fa-file-excel-o' aria-hidden='true'></i>"></asp:Button>
@@ -2718,6 +2775,8 @@
             });
 
         }
+
+
         var visible = false
         function EscondeLabels() {
 
@@ -2986,18 +3045,20 @@
                     var tkeys = new $.fn.dataTable.KeyTable(table, {
                         // options
                     });
-                    var parent = Tthis.parent().parent().parent()
+                    var parent = Tthis.parent().parent().parent();
                     $('.dataTables_scrollHeadInner > .table.ADScrollPaginator2').find('th').addClass('importantth');
-                    parent.find(".dataTables_paginate").css("display", "none")
+                    parent.find(".dataTables_paginate").css("display", "none");
-                    parent.find(".dataTables_length").css("display", "none")
+                    parent.find(".dataTables_length").css("display", "none");
                 }
             });
         }
+
     </script>
     <script
         src="https://maps.googleapis.com/maps/api/js?key=AIzaSyAF7s8wwhzCVXDUYopc9mXxqaWB33cDro4&libraries=places">
     </script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/jquery.minicolors.min.js"></script>
     <script src="../Metronic/assets/global/plugins/jquery-minicolors/components-color-pickers.min.js"></script>
+    <script src="Rastreo/JS/GeoRutas.js"></script>
 </asp:Content>
 

GPS/Rastreo.aspx.vb

@@ -617,10 +617,16 @@ Partial Class GPS_Rastreo
 
                             AddRowPosiciones(Vehiculo, Coord, row("SPD").ToString.ToDouble, Fecha, row("CveDispositivo").ToString.ToEntero, row("TiempoDetenido").ToString.ToDouble)
                         Next
+
                         If ChkTrazarGeocercas.Checked Then
                             Dim Dispositivos As String = Equipos.Replace(";", ",").Remove(Equipos.Length - 1, 1)
                             CargaGeocercas(Dispositivos)
                         End If
+
+                        If ChkTrazarGeorutas.Checked Then
+                            MostarGeoRutas()
+                        End If
+
                         RegistraScript("setTimeout(function(){  $('#LnkMostarGeocercas').css('display', 'block'); },1000);")
                     Else
                         Alert($"No se encontraron resultados", TipoMensaje.MsgAdvertencia)
@@ -716,6 +722,21 @@ Partial Class GPS_Rastreo
             RegistraScript(SbJS.ToString)
         End If
     End Sub
+    Private Sub MostarGeoRutas()
+        Dim count = 0
+        RegistraScript($"initGeoRutas();", count.ToString())
+
+        For Each GvRow As GridViewRow In GvGeorutas.Rows
+            If GvRow.RowType = DataControlRowType.DataRow Then
+                If GvRow.FCCheckBox("ChkRutas").Checked Then
+                    count += 1
+                    Dim Coord As String = SQLToGmaps(GvRow.DataKey("Coordenadas").ToString, "LINESTRING")
+                    RegistraScript($"creaPolylineRuta({Coord}, '{GvRow.DataKey("Color").ToString}', '{GvRow.DataKey("GeoReferencia")}')", count.ToString())
+                End If
+            End If
+        Next
+
+    End Sub
     Protected Sub TimmerRefresh_Tick(sender As Object, e As EventArgs)
 
         DtPosiciones.Rows.Clear()
@@ -1136,6 +1157,7 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = True
+            dvTrazoRutas.Visible = True
             ChkTrazarGeocercas.Visible = True
             dvMinutos.Visible = False
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1149,6 +1171,7 @@ Partial Class GPS_Rastreo
             txtFechaF.Text = ""
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = False
             BtnRastrear.ValidationGroup = "GrpFechas"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1160,6 +1183,7 @@ Partial Class GPS_Rastreo
             txtFechaF.Text = ""
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvDispositivos.Visible = True
             dvMinutos.Visible = False
             GvDispositivos.DataSource = GlobalDTDispositivosUsuarios(UsuarioActual.CveCliente, UsuarioActual.CveUsuario).FiltraParametros("Estatus = 1 AND LimiteVelocidad = 1")
@@ -1176,6 +1200,7 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = True
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "GrpFechas"
@@ -1188,6 +1213,7 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = False
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "GrpFechas"
@@ -1198,6 +1224,7 @@ Partial Class GPS_Rastreo
             dvDispositivos.Visible = True
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvMinutos.Visible = False
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
@@ -1208,6 +1235,7 @@ Partial Class GPS_Rastreo
             dvMinutos.Visible = False
             dvTrazo.Visible = True
             dvTrazoGeo.Visible = True
+            dvTrazoRutas.Visible = True
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1220,6 +1248,7 @@ Partial Class GPS_Rastreo
             dvMinutos.Visible = False
             dvTrazo.Visible = True
             dvTrazoGeo.Visible = True
+            dvTrazoRutas.Visible = True
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1230,6 +1259,7 @@ Partial Class GPS_Rastreo
             dvMinutos.Visible = False
             dvTrazo.Visible = False
             dvTrazoGeo.Visible = False
+            dvTrazoRutas.Visible = False
             dvEventos.Visible = False
             BtnRastrear.ValidationGroup = "xx"
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
@@ -1246,6 +1276,11 @@ Partial Class GPS_Rastreo
             RegistraScript("$('#dvConsulta').modal();TerminaDibujado();")
             myModalLabel2.InnerHtml = "Contador de pasajeros"
         End If
+        If dvTrazoRutas.Visible Then
+            CargaGeoRutas()
+        Else
+            RegistraScript("$('#LnkMostarGeoRutas').css('display', 'none');")
+        End If
         If opcion <> "Speed" AndAlso opcion <> "TPS" AndAlso Filtrado Then
             CargaDispositivos()
             Filtrado = False
@@ -2123,4 +2158,23 @@ Partial Class GPS_Rastreo
         End Using
         Return retorno
     End Function
+#Region "G E O R U T A S"
+    Protected Sub ChkTrazarGeorutas_CheckedChanged(sender As Object, e As EventArgs)
+        If ChkTrazarGeorutas.Checked Then
+            RegistraScript("$('#DivGeoRutas').modal('show');")
+        End If
+    End Sub
+
+    Private Sub CargaGeoRutas()
+        Dim ObjGPS As New ClsGPS
+        If ObjGPS.GeoReferenciaGet(-1, 1, "Ruta", UsuarioActual.CveCliente) Then
+            GvGeorutas.DataSource = ObjGPS.DtResultados
+        End If
+        ObjGPS.Dispose()
+        GvGeorutas.DataBind()
+
+        UpGeorutas.Update()
+    End Sub
+#End Region
+
 End Class

GPS/Rastreo/JS/GeoRutas.js

@@ -0,0 +1,145 @@
+//REGION GEORUTAS
+var markersRutas = [];
+var polylinesGeoRutas = [];
+var polybounds = [];
+
+function initGeoRutas() {
+    NuevaConsultaGeoRutas();
+    var upRutasDiv = document.createElement('div');
+    var upRutas = new ControlGeoRutas(upRutasDiv, map);
+
+    map.controls[google.maps.ControlPosition.TOP_LEFT].push(upRutasDiv);
+}
+
+function creaPolylineRuta(coords, color, GeoCerca) {
+    var polyline = new google.maps.Polyline({
+        path: coords,
+        strokeColor: color,
+        strokeOpacity: 0.8,
+        strokeWeight: 2,
+        fillOpacity: 0.35
+    });
+
+    polyline.setMap(map);
+    polylinesGeoRutas.push(polyline);
+    polybounds.push(coords[0]);
+    polybounds.push(coords[coords.length - 1]);
+    CreaMarcadorPoligonoRuta(coords, GeoCerca);
+}
+
+function CreaMarcadorPoligonoRuta(coords, GeoCerca) {
+    var bounds = new google.maps.LatLngBounds();
+    for (i = 0; i < coords.length; i++) {
+        bounds.extend(coords[i]);
+    }
+
+    var marker = new google.maps.Marker({
+        position: bounds.getCenter(),
+        title: GeoCerca,
+        map: map
+    });
+
+    var infowindow = new google.maps.InfoWindow({
+        content: '<h4><b>' + GeoCerca + '</b></h4>'
+    });
+
+    marker.addListener('click', function () {
+        closeLastOpenedInfoWindow();
+        infowindow.open(map, marker);
+        lastOpenedInfoWindow = infowindow;
+    });
+
+    markersRutas.push(marker);
+}
+
+function NuevaConsultaGeoRutas() {
+
+    for (var i = 0; i < polylinesGeoRutas.length; i++) {
+        polylinesGeoRutas[i].setMap(null);
+    }
+
+    for (var i = 0; i < markersRutas.length; i++) {
+        markersRutas[i].setMap(null);
+    }
+
+    polylinesGeoRutas = [];
+    polybounds = [];
+    markersRutas = [];
+}
+
+function ControlGeoRutas(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 = "LnkMostarGeoRutas"
+    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 = 'block'
+    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 GeoRutas'
+    ControlSub1.appendChild(ControlSub2)
+
+    ControlSub1.addEventListener('click', function () {
+        VerGeoRutas();
+    });
+
+}
+
+var IsRutasVisibles = false;
+
+function VerGeoRutas() {
+    if (IsRutasVisibles) {
+        HideGeoRutas();
+        IsRutasVisibles = false;
+    } else {
+        CargaGeoRutas();
+        IsRutasVisibles = true;
+    }
+}
+
+function HideGeoRutas() {
+    for (var i = 0; i < polylinesGeoRutas.length; i++) {
+        polylinesGeoRutas[i].setMap(null);
+    }
+    for (var j = 0; j < markersRutas.length; j++) {
+        markersRutas[j].setMap(null);
+    }
+}
+
+function CargaGeoRutas() {
+    for (var i = 0; i < polylinesGeoRutas.length; i++) {
+        polylinesGeoRutas[i].setMap(map);
+    }
+    for (var j = 0; j < markersRutas.length; j++) {
+        markersRutas[j].setMap(map);
+    }
+}

Ventas/Ventas.aspx

@@ -4362,7 +4362,7 @@
                                     <div style="max-height: 300px; overflow-y: auto;">
                                         <asp:GridView ID="GvRem" runat="server" AutoGenerateColumns="false" GridLines="None"
                                             CssClass="table table-grid table-striped table-advance table-hover Widthall"
-                                            DataKeyNames="CveVenta, SubTotal, IVA,Total, CveContrato" AllowPaging="False">
+                                            DataKeyNames="CveVenta, SubTotal, IVA,Total, CveContrato,Surtido" AllowPaging="False">
                                             <Columns>
                                                 <asp:TemplateField>
                                                     <ItemTemplate>
@@ -4377,11 +4377,12 @@
                                                 <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                                 <asp:BoundField HeaderText="IVA" DataField="Iva" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                                 <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                                <asp:BoundField DataField="Surtido" HeaderText="Surtido" ItemStyle-HorizontalAlign="Center" />
                                             </Columns>
                                         </asp:GridView>
 
                                         <asp:GridView ID="GvRemPS" runat="server" AutoGenerateColumns="false" GridLines="None" Visible="false" CssClass="table table-grid table-striped table-advance table-hover Widthall"
-                                            DataKeyNames="CveVentaDetalle, PU, Total, Cantidad, CveContrato" AllowPaging="False">
+                                            DataKeyNames="CveVentaDetalle, PU, Total, Cantidad, CveContrato,Surtido" AllowPaging="False">
                                             <Columns>
                                                 <asp:TemplateField>
                                                     <ItemTemplate>
@@ -4406,6 +4407,7 @@
                                                 <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
                                                 <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                                 <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                                <asp:BoundField DataField="Surtido" HeaderText="Surtido" ItemStyle-HorizontalAlign="Center" />
                                             </Columns>
                                         </asp:GridView>
                                     </div>

Ventas/Ventas.aspx.vb

@@ -22485,6 +22485,25 @@ Partial Class Ventas
                 Exit Sub
             End If
 
+            'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS')
+            If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then
+                Dim SbRem As New StringBuilder
+                SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.</br>")
+
+                SbRem.Append("<b>Remisiones Surtidas:</b></br>")
+                For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows
+                    SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
+                Next
+
+                SbRem.Append("<b>Remisiones No Surtidas:</b></br>")
+                For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows
+                    SbRem.AppendFormat("{0}</br>", RowSurtida("Folio"))
+                Next
+
+                Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
             DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'")
             DdlMoneda.Enabled = False
             CambiaMoneda()