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

Compras/Compras.aspx.vb

@@ -10,6 +10,8 @@ Imports System
 Imports System.IO
 Imports ADServerControl
 Imports System.Threading.Tasks
+Imports System.Diagnostics
+
 Partial Class Compras_Compras
     Inherits ClsPaginas
 
@@ -1647,8 +1649,26 @@ Partial Class Compras_Compras
                 Dim Validada As Boolean = True
                 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
                     'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui  
+
+
+
+
+                    Dim SWatch As New Stopwatch
+                    SWatch.Start()
+                    Dim ts As New TimeSpan
+
+
                     Dim Valida As New ClsValidaCFDi(dr("UUID").ToString(), dr("RFCDe").ToString, dr("RFCPara").ToString(), dr("Total").ToString.ToDecimal)
 
+                    SWatch.Stop()
+
+                    Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
+                    SegundosRespuesta = SegundosRespuesta.ToEntero
+
+                    If SWatch.ElapsedMilliseconds >= 5000 Then
+                        Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastError, "", 0)
+                    End If
+
                     If UsuarioActual.CveEmpresa < 2 Then
                         Valida.EsValida = 1
                     End If

Compras/ReembolsosComprobaciones.aspx.vb

@@ -656,7 +656,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                 End If
                             End If
 
-                            If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL(6) Else PorcentajePago = 1
+                            If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL Else PorcentajePago = 1
 
                             If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119)) Then
                                 'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
@@ -703,7 +703,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     'Agrego el IVA
                                     If gvr.DataKey("IVADeducible").ToDecimal > 0 Then
                                         Dim ImporteIVA As Decimal = gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago
-                                        If ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
@@ -984,7 +984,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                 End If
                             End If
 
-                            If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL(6) Else PorcentajePago = 1
+                            If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL Else PorcentajePago = 1
 
                             If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, Referencia, 17, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=(ImporteMovto * tipoCambio), CveCuenta:=CveCuentaProveedor) Then
                                 MsgError = "Detalle"

Empresas/Grales/Formatos/Ajuste.rdlc

@@ -82,7 +82,7 @@
                 <Style />
               </TextRun>
               <TextRun>
-                <Value>=Parameters!NombreCliente.Value</Value>
+                <Value>=Parameters!NombreDistribuidor.Value</Value>
                 <Style />
               </TextRun>
             </TextRuns>
@@ -1933,6 +1933,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreDistribuidor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>Es-MX</Language>
   <rd:ReportUnitType>Inch</rd:ReportUnitType>

Ventas/PV.aspx

@@ -2805,8 +2805,8 @@
                                                     <div class="row">
                                                         <div class="col-md-5">
                                                             <div  >
-                                                                <label for="<%= DdlClientes.ClientID.ToString()%>">Distribuidor:</label><br />
+                                                                <label for="<%= DdlDistribuidor.ClientID.ToString()%>">Distribuidor:</label><br />
-                                                                <ADS:Dropdownlost ID="DdlClientes" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
+                                                                <ADS:Dropdownlost ID="DdlDistribuidor" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
                                                             </div>
                                                         </div>
                                                     </div>

Ventas/PV.aspx.vb

@@ -5018,7 +5018,7 @@ Partial Class PV
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
         CargaBCIAjuste()
-        DdlClientes.setEsWebService(True)
+        DdlDistribuidor.setEsWebService(True)
         DivChkAjuste.Visible = True
     End Sub
 
@@ -5749,22 +5749,18 @@ Partial Class PV
 
         Dim params As New List(Of ReportParameter)
 
-        If DdlClientes.SelectedValue.ToEntero = -1 Then
-            params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
-            params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
-            params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
-        Else
-            If (DdlClientes.SelectedValue.ToEntero > 0) Then
-                Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-                Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
-                Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-                params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
-                params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-                params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
-            End If
-        End If
 
         'Informacion Distribuidor
+        If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
+
+            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
+            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
+            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+            params.Add(New ReportParameter("NombreDistribuidor", DdlDistribuidor.SelectedText))
+            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+            params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
+
+        End If
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
         params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
@@ -5788,6 +5784,7 @@ Partial Class PV
         params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
 
         'Informacion Consumidor
+        params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
         params.Add(New ReportParameter("Direccion", LblDireccion.Text))
 
         If Imagen.Exists Then