Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContabilidad.vb

@@ -504,7 +504,7 @@ Public Class ClsContabilidad
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede eliminar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
-                OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                OnError("Ocurrió un error al Eliminar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If
         End Try
 
@@ -536,7 +536,11 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el detalle de la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede eliminar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al eliminar el detalle de la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno
@@ -790,9 +794,17 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex1 As SqlException
-            OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            If ex1.Message.Contains("50015;") Then
+                OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         Catch ex As Exception
-            OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno
@@ -949,7 +961,11 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al bloquear o desbloquear las prepolizas detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al bloquear o desbloquear las prepolizas detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         End Try
         Return Retorno
     End Function
@@ -1276,6 +1292,11 @@ Public Class ClsContabilidad
                             End If
                         End If
 
+                        If Not OcurrioError Then
+                            If Not UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then
+                                OcurrioError = True
+                            End If
+                        End If
 
                         If Not OcurrioError Then
                             If Not UpdatePrePoliza(Fecha, ObjConta.Folio, CveTipoPoliza, tIdPoliza, CvePrePoliza, Empresa.CveEmpresa) Then
@@ -1283,11 +1304,7 @@ Public Class ClsContabilidad
                             End If
                         End If
 
-                        If Not OcurrioError Then
+
-                            If Not UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then
-                                OcurrioError = True
-                            End If
-                        End If
 
                         'If Empresa.Funcionalidad(522).ToString = "1" And Empresa.UsaContabilidad Then
 
@@ -1741,7 +1758,12 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno

Bancos/IE.aspx

@@ -233,6 +233,9 @@
                                             <asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Visible="false" Width="100%" OnSelectedIndexChanged="DdlPersonal_SelectedIndexChanged" AutoPostBack="true">
                                             </asp:DropDownList>
                                             
+                                            <asp:Label runat="server"  ID="LblPagarA" Visible="false"></asp:Label>
+
+
                                         </div>
                                         <div class="col-md-2">
                                             <asp:CheckBox ID="ChkAbonoCuenta" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>

Bancos/IE.aspx.vb

@@ -646,7 +646,8 @@ Partial Class Bancos_IE
                 Anexo.Visible = False
                 DdlCliente.Enabled = False
                 DdlProveedores.Enabled = False
-                DdlPersonal.Enabled = False
+                DdlPersonal.Visible = False
+
 
                 CargaDatos()
 
@@ -847,14 +848,24 @@ Partial Class Bancos_IE
                 If CveCliente > 0 Then
                     DdlCliente.SelectedText = ObjIE.PagueseA
                     DdlCliente.SelectedValue = CveCliente.ToString
-                    DdlCliente.Visible = True
+
+                    DdlCliente.Visible = False
                     DdlCliente.Enabled = False
+
+                    LblPagarA.Visible = True
+                    LblPagarA.Text = ObjIE.PagueseA
+
                     ' LnkEmitirComplemento.Visible = True
                 ElseIf CveProveedor > 0 Then
                     DdlProveedores.SelectedText = ObjIE.PagueseA
                     DdlProveedores.SelectedValue = CveProveedor.ToString
-                    DdlProveedores.Visible = True
+                    DdlProveedores.Visible = False
                     DdlProveedores.Enabled = False
+
+                    LblPagarA.Visible = True
+                    LblPagarA.Text = ObjIE.PagueseA
+
+
                     'Se prepara para la generacion del envio de correo con notificacion de pago
                     LnkEnviarMailPago.Attributes.Add("onclick", "$('#ModalDivMail').modal();")
                     LnkEnviarMailPago.Visible = True

Compras/Compras.aspx.vb

@@ -11220,10 +11220,10 @@ Partial Class Compras_Compras
         Dim dr1 As DataRow = TmpDT.Rows(Index)
         Dim dr As DataRow = TmpDT.NewRow
         dr.ItemArray = dr1.ItemArray
-        Dim IVA = dr1("IVA").ToString.ToDouble / (dr1("Cantidad").ToString.ToDouble * dr1("PU").ToString.ToDouble)
         dr1("Cantidad") = (dr1("Cantidad").ToString.ToDouble - Cantidad.ToDouble)
-        dr1("IVA") = IVA * dr1("Cantidad").ToString.ToDouble * dr1("PU").ToString.ToDouble
         dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDouble
+        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDouble * dr1("Total").ToString.ToDouble, 6)
+
         TmpDT.AcceptChanges()
 
         dr("CvePersonal") = 0
@@ -11231,8 +11231,8 @@ Partial Class Compras_Compras
         dr("CveActivoFijo") = 0
         dr("CodAF") = 0
         dr("Cantidad") = Cantidad.ToDouble
-        dr("IVA") = IVA * dr("Cantidad").ToString.ToDouble * dr("PU").ToString.ToDouble
         dr("Total") = dr("PU").ToString.ToDouble * Cantidad.ToDouble
+        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * dr("Total").ToString.ToDouble, 6)
         TmpDT.Rows.InsertAt(dr, Index)
         TmpDT.AcceptChanges()
 
@@ -11432,6 +11432,7 @@ Partial Class Compras_Compras
 
         dr1("Cantidad") = (dr1("Cantidad").ToString.ToDouble - Cantidad.ToDouble)
         dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDouble
+        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDouble * dr1("Total").ToString.ToDouble, 6)
         TmpDT.AcceptChanges()
 
 
@@ -11439,6 +11440,7 @@ Partial Class Compras_Compras
         dr("CodAF") = ""
         dr("Cantidad") = Cantidad.ToDouble
         dr("Total") = dr("PU").ToString.ToDouble * Cantidad.ToDouble
+        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * dr("Total").ToString.ToDouble, 6)
 
         TmpDT.Rows.InsertAt(dr, Index + 1)
 

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -161,7 +161,7 @@ Partial Class Compras_RepRembolsoComprobaciones
         Dim ObjComp As New ClsCompras()
         Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
         Dim ObjAC As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.UsaContabilidad Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
             ObjAC.IniciaTransacSQL()
         End If
@@ -198,7 +198,7 @@ Partial Class Compras_RepRembolsoComprobaciones
             Msg.AppendFormat("Se unificaron todas las compras con éxito")
         End If
 
-        If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
+        If UsuarioActual.Empresa.UsaContabilidad AndAlso Not TieneError Then
             If ObjAC Is Nothing Then
                 TieneError = True
             End If

Empresas/144/Formatos/Cotizacion.rdlc

@@ -617,7 +617,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>=Parameters!Folio.Value</Value>
+                <Value>=IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value &amp; "-" &amp;Parameters!Folio.Value)</Value>
                 <Style>
                   <FontFamily>Bahnschrift</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -1739,7 +1739,7 @@ Celular: </Value>
                   </Style>
                 </TextRun>
                 <TextRun>
-                  <Value>=Parameters!VendedorMail.Value</Value>
+                  <Value>SERVICIOSESPECIALIZADOSENTI@GMAIL.COM</Value>
                   <Style>
                     <FontFamily>bahnschrift</FontFamily>
                     <FontSize>8pt</FontSize>
@@ -1755,7 +1755,7 @@ Celular: </Value>
           <Top>0.86675cm</Top>
           <Left>0.31387cm</Left>
           <Height>1.8206cm</Height>
-          <Width>6.29968cm</Width>
+          <Width>7.42333cm</Width>
           <ZIndex>8</ZIndex>
           <Style>
             <Border>

Empresas/2/Formatos/Factura.rdlc

@@ -198,7 +198,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>|www.adsistemas.mx | julian@adsistemas.mx|</Value>
+                <Value>|www.adssistemas.mx | julian@adssistemas.mx|</Value>
                 <Style>
                   <FontFamily>Calibri</FontFamily>
                   <FontSize>8pt</FontSize>

Empresas/70/Formatos/Factura.rdlc

@@ -203,7 +203,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>www.adsistemas.mx|facturacion@adssistemas.mx</Value>
+                <Value>www.adssistemas.mx|facturacion@adssistemas.mx</Value>
                 <Style>
                   <FontStyle>Normal</FontStyle>
                   <FontFamily>Calibri</FontFamily>

GPS/Shipments.aspx

@@ -8,14 +8,6 @@
             display: flex;
             align-items: center;
         }
-
-        #DivShipment {
-            z-index: 1999;
-        }
-
-        #DivStop {
-            z-index: 2000;
-        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -257,11 +249,13 @@
                                             <asp:RequiredFieldValidator ID="RFVName" runat="server" ControlToValidate="TxtLocName" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Name''</b> es necesario, por favor ingréselo." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
                                             <label for="<%= TxtLocName.ClientID.ToString()%>">Name:</label>
                                         </div>
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <form method="post">
-                                            <asp:TextBox ID="TxtLocID" CssClass="form-control " runat="server"></asp:TextBox>
+                                            <div class="form-group form-md-line-input input-iconright">
-                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtLocID" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Location''</b> es necesario, por favor ingréselo." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
+                                                <asp:TextBox ID="TxtLocID" CssClass="form-control " runat="server"></asp:TextBox>
-                                            <label for="<%= TxtLocID.ClientID.ToString()%>">Location ID:</label>
+                                                <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtLocID" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Location''</b> es necesario, por favor ingréselo." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
-                                        </div>
+                                                <label for="<%= TxtLocID.ClientID.ToString()%>">Location ID:</label>
+                                            </div>
+                                        </form>
                                         <div class="portlet light smmallpadding traspasorow bordered">
                                             <div class="portlet-title">
                                                 <div class="caption font-green">
@@ -306,19 +300,27 @@
                                         <div class="row v-center">
                                             <label class="col-md-12" style="color: gray">Early Arrival Time:</label>
                                         </div>
-                                        <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                        <div class="row">
-                                            <asp:TextBox ID="TxtFechaStopI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
+                                            <div class="col-md-12">
-                                            <asp:RequiredFieldValidator ID="RFVFechaIStop" runat="server" ControlToValidate="TxtFechaStopI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Early Arrival Time''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
+                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm">
-                                            <ajax:ValidatorCalloutExtender ID="VCEI" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaIStop" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:TextBox ID="TxtFechaStopI" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
+                                                    <asp:RequiredFieldValidator ID="RFVFechaIStop" runat="server" ControlToValidate="TxtFechaStopI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Early Arrival Time''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCEI" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaIStop" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </div>
                                         </div>
                                         <br />
                                         <div class="row v-center">
                                             <label class="col-md-12" style="color: gray">Late Arrival Time:</label>
                                         </div>
-                                        <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                        <div class="row">
-                                            <asp:TextBox ID="TxtFechaStopF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
+                                            <div class="col-md-12">
-                                            <asp:RequiredFieldValidator ID="RFVFechaFStop" runat="server" ControlToValidate="TxtFechaStopF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Late Arrival Time''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
+                                                <div class="input-group input-sm  date date-picker " data-date-format="dd/mm/yyyy hh:mm">
-                                            <ajax:ValidatorCalloutExtender ID="VCEF" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFStop" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:TextBox ID="TxtFechaStopF" runat="server" CssClass="form-control input-sm ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
+                                                    <asp:RequiredFieldValidator ID="RFVFechaFStop" runat="server" ControlToValidate="TxtFechaStopF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Late Arrival Time''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCEF" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFStop" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </div>
                                         </div>
                                     </div>
                                     <div class="col-md-6">
@@ -346,9 +348,16 @@
                                             <asp:RequiredFieldValidator ID="RFVStopRole" runat="server" ControlToValidate="DdlStopRole" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Stop Role''</b> es necesario, por favor ingréselo." ValidationGroup="GrpStop"></asp:RequiredFieldValidator>
                                             <label for="<%= DdlStopRole.ClientID.ToString()%>">Stop Role:</label>
                                         </div>
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="row v-center">
-                                            <asp:TextBox ID="TxtLoc" CssClass="form-control " runat="server"></asp:TextBox>
+                                            <div class="col-md-9">
-                                            <label for="<%= TxtLoc.ClientID.ToString()%>">Search Location:</label>
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:TextBox ID="TxtLoc" CssClass="form-control" runat="server"></asp:TextBox>
+                                                    <label for="<%= TxtLoc.ClientID.ToString()%>">Search Location:</label>
+                                                </div>
+                                            </div>
+                                            <div class="col-md-3 v-center">
+                                                <button type="button" class="btn btn-primary" onclick="BtnBuscar();">Buscar</button>
+                                            </div>
                                         </div>
                                         <div class="portlet light smmallpadding traspasorow bordered">
                                             <div class="portlet-title">
@@ -510,6 +519,9 @@
         var markersEvent = [];
         var markerEvent;
 
+        var searchBox;
+        var searchBoxEvent;
+
         $(document).ready(function () {
             initMap();
             Sys.Application.add_load(function (s, e) {
@@ -517,9 +529,10 @@
             });
         });
 
-        $('#DivShipment').on('hidden.bs.modal', function () {
+
-            return false;
+        //$("form").submit(function (event) {
-        });
+        //    event.preventDefault();
+        //});
 
         function initMap() {
 
@@ -544,65 +557,23 @@
             directionsDisplayEvent.setOptions({ suppressMarkers: true });
             directionsDisplayEvent.setMap(mapEvent);
 
-            var searchBox = new google.maps.places.SearchBox(document.getElementById("<%= TxtLoc.ClientID%>"));
+            searchBox = new google.maps.places.SearchBox(document.getElementById("<%= TxtLoc.ClientID%>"));
-            var searchBoxEvent = new google.maps.places.SearchBox(document.getElementById("<%= TxtLoc2.ClientID%>"));
+            searchBoxEvent = new google.maps.places.SearchBox(document.getElementById("<%= TxtLoc2.ClientID%>"));
 
+            $("#<%= TxtLoc.ClientID%>").bind('keypress', function (e) {
+                if (e.keyCode == 13) {
+                    return false;
+                }
+            });
+            $("#<%= TxtLoc2.ClientID%>").bind('keypress', function (e) {
+                if (e.keyCode == 13) {
+                    return false;
+                }
+            });
 
             searchBox.addListener('places_changed', function () {
                 var places = searchBox.getPlaces();
-                if (places.length == 0) {
+                BuscarDireccion(places);
-                    return;
-                }
-                var bounds = new google.maps.LatLngBounds();
-                places.forEach(function (place) {
-                    if (!place.geometry) {
-                        console.log("Returned place contains no geometry");
-                        return;
-                    }
-                    var lat = place.geometry.location.lat();
-                    var lng = place.geometry.location.lng();
-
-                    $("#<%= TxtLatLong.ClientID%>").val(lat + ',' + lng);
-
-                    getDirecciones(lat, lng);
-
-                    var icon = {
-                        url: 'http://maps.google.com/mapfiles/ms/micons/truck.png',
-                        size: new google.maps.Size(71, 71),
-                        origin: new google.maps.Point(0, 0),
-                        anchor: new google.maps.Point(17, 34),
-                        scaledSize: new google.maps.Size(25, 25)
-                    };
-
-                    marker = new google.maps.Marker({
-                        map: map,
-                        icon: icon,
-                        title: place.name,
-                        position: place.geometry.location,
-                        draggable: true,
-                        animation: google.maps.Animation.DROP
-                    });
-
-                    google.maps.event.addListener(marker, 'dragend', function () {
-                        var pos = marker.getPosition();
-                        getDirecciones(pos.lat(), pos.lng());
-                    });
-                    // Create a marker for each place.
-                    deleteMarkers(markers);
-                    markers.push(marker);
-
-                    if (place.geometry.viewport) {
-                        // Only geocodes have viewport.
-                        bounds.union(place.geometry.viewport);
-                    } else {
-                        bounds.extend(place.geometry.location);
-                    }
-
-                    map.fitBounds(bounds);
-                    map.setCenter(bounds.getCenter());
-
-                });
-
             });
 
             searchBoxEvent.addListener('places_changed', function () {
@@ -632,6 +603,67 @@
             });
 
         }
+        function BtnBuscar() {
+            var input = document.getElementById("<%= TxtLoc.ClientID%>");
+
+            google.maps.event.trigger(input, 'focus', {});
+            google.maps.event.trigger(input, 'keydown', { keyCode: 13 });
+            google.maps.event.trigger(this, 'focus', {});
+        }
+        function BuscarDireccion(places) {
+            if (places.length == 0) {
+                return;
+            }
+            var bounds = new google.maps.LatLngBounds();
+            places.forEach(function (place) {
+                if (!place.geometry) {
+                    console.log("Returned place contains no geometry");
+                    return;
+                }
+                var lat = place.geometry.location.lat();
+                var lng = place.geometry.location.lng();
+
+                $("#<%= TxtLatLong.ClientID%>").val(lat + ',' + lng);
+
+                getDirecciones(lat, lng);
+
+                var icon = {
+                    url: 'http://maps.google.com/mapfiles/ms/micons/truck.png',
+                    size: new google.maps.Size(71, 71),
+                    origin: new google.maps.Point(0, 0),
+                    anchor: new google.maps.Point(17, 34),
+                    scaledSize: new google.maps.Size(25, 25)
+                };
+
+                marker = new google.maps.Marker({
+                    map: map,
+                    icon: icon,
+                    title: place.name,
+                    position: place.geometry.location,
+                    draggable: true,
+                    animation: google.maps.Animation.DROP
+                });
+
+                google.maps.event.addListener(marker, 'dragend', function () {
+                    var pos = marker.getPosition();
+                    getDirecciones(pos.lat(), pos.lng());
+                });
+                // Create a marker for each place.
+                deleteMarkers(markers);
+                markers.push(marker);
+
+                if (place.geometry.viewport) {
+                    // Only geocodes have viewport.
+                    bounds.union(place.geometry.viewport);
+                } else {
+                    bounds.extend(place.geometry.location);
+                }
+
+                map.fitBounds(bounds);
+                map.setCenter(bounds.getCenter());
+
+            });
+        }
         function cargapin(lat, lng) {
             setTimeout(function () { SetMapPinEvent(lat, lng) }, 1000);
         }
@@ -682,22 +714,21 @@
             }
             markers = [];
         }
+
         function getDirecciones(lat, lng) {
             var url = '<%= ClsPaginas.UrlDirecciones%>' + 'nominatim/reverse.php?format=jsonv2&zoom=18&addressdetails=1&lat=' + lat + '&lon=' + lng;
             $.getJSON(url, function (data) {
                 if (typeof (data.error) === 'undefined') {
 
                     $("#<%= TxtLatLong.ClientID%>").val(lat + ',' + lng);
-                    $("#<%= TxtAddress.ClientID%>").val(data.display_name);
+                        $("#<%= TxtAddress.ClientID%>").val(data.display_name);
-                    $("#<%= TxtCity.ClientID%>").val(data.address.city);
+                        $("#<%= TxtCity.ClientID%>").val(data.address.city);
-                    $("#<%= TxtState.ClientID%>").val(data.address.state);
+                        $("#<%= TxtState.ClientID%>").val(data.address.state);
-                    $("#<%= TxtContry.ClientID%>").val(data.address.country);
+                        $("#<%= TxtContry.ClientID%>").val(data.address.country);
-                    $("#<%= TxtPostalCode.ClientID%>").val(data.address.postcode);
+                        $("#<%= TxtPostalCode.ClientID%>").val(data.address.postcode);
-
+                    }
-                    $('#DivShipment').modal({ backdrop: 'static', keyboard: false });
+                });
-                }
+            }
-            });
-        }
 
     </script>
     <script

Inventarios/RecepcionEntrega.aspx.vb

@@ -1311,31 +1311,32 @@ Partial Class Inventarios_RecepcionEntrega
                 Dim TxtCantidad = GvDatos.Rows(Gvr.RowIndex).FCTextBox("TbCantidadF")
                 If Gvr.DataKey("CantidadF").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
 
-
-
                     ''VALIDA EXISTENCIA
-                    If TipoMovimiento = 1 Then
+                    If Not TipoDocto.Contiene("Dev") Then
-                        Dim ObjInventario As New ClsInventarios
+                        If TipoMovimiento = 1 Then
-                        Dim Existencia = ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
+                            Dim ObjInventario As New ClsInventarios
-                        ObjInventario.Dispose()
+                            Dim Existencia = ObjInventario.GetExistenciasPS(Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
-                        If Not Existencia >= TxtCantidad.Text.ToDecimal + 1 Then
+                            ObjInventario.Dispose()
-                            TxtCodigoPS.Text = ""
-                            Alert($"No hay existencias suficientes del producto: <br/><b>""{Gvr.DataKey("Codigo")}-{Gvr.DataKey("PS")}""</b>. <br/>Solo hay disponibles <b>{Existencia.FormatoNumero}</b> en Almacen. Por favor Verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
-                            RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
-                            Exit Sub
-                        End If
-                    Else
-                        If DtExistencias IsNot Nothing Then
-                            Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {Gvr.DataKey("CvePS")} AND CveUM = {Gvr.DataKey("CveUM").ToString.ToEntero}")
                             If Not Existencia >= TxtCantidad.Text.ToDecimal + 1 Then
                                 TxtCodigoPS.Text = ""
                                 Alert($"No hay existencias suficientes del producto: <br/><b>""{Gvr.DataKey("Codigo")}-{Gvr.DataKey("PS")}""</b>. <br/>Solo hay disponibles <b>{Existencia.FormatoNumero}</b> en Almacen. Por favor Verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
                                 RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
                                 Exit Sub
                             End If
+                        Else
+                            If DtExistencias IsNot Nothing Then
+                                Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {Gvr.DataKey("CvePS")} AND CveUM = {Gvr.DataKey("CveUM").ToString.ToEntero}")
+                                If Not Existencia >= TxtCantidad.Text.ToDecimal + 1 Then
+                                    TxtCodigoPS.Text = ""
+                                    Alert($"No hay existencias suficientes del producto: <br/><b>""{Gvr.DataKey("Codigo")}-{Gvr.DataKey("PS")}""</b>. <br/>Solo hay disponibles <b>{Existencia.FormatoNumero}</b> en Almacen. Por favor Verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
+                                    RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
+                                    Exit Sub
+                                End If
+                            End If
                         End If
                     End If
 
+
                     If Gvr.DataKey("AplicaSerieLote") = "True" Then
                         TdSeriePS.Visible = True
                         TxtSeriePS.Focus()