From aa0699dbbaf16a021c848baee5c1ae8de7152454 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 21 Sep 2020 11:44:04 -0700
Subject: [PATCH 01/10] subriendo cambios en traspasos

---
 Compras/PopUpVerFactura.aspx.vb          | 248 +++++++++++------------
 Empresas/Grales/Formatos/CartaPorte.rdlc |   5 +-
 2 files changed, 127 insertions(+), 126 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 68b8ca7c6..409b4be64 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -199,10 +199,10 @@ Partial Class PopUpVerFactura
 
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "U S U A R I O - T O K E N"
-
+
     Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
 
         Dim UsuarioToken As Usuario = Nothing
@@ -236,9 +236,9 @@ Partial Class PopUpVerFactura
             UsuarioToken.Empresa = ObjEmpresa.Empresa
         End If
         ObjEmpresa.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
     Private Sub SeleccionaReporte(UrlParametros As Hashtable)
 
         'DESCARGA COMPROBANTE
@@ -493,10 +493,10 @@ Partial Class PopUpVerFactura
             URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
         Next
         Return URLParametros
-    End Function
-
+    End Function
+
 #Region "OP = CORT - IMPRIMIR CORTE"
-
+
     Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
         Dim ObjVenta As New ClsVentas
         Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -541,10 +541,10 @@ Partial Class PopUpVerFactura
             ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
         End If
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "   OP = FACTURA - IMPRIME COMPRA"
     Private Sub DescargaComprobante(Parametros As Hashtable)
         If Parametros("COMPROBANTE") IsNot Nothing Then
@@ -583,9 +583,9 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
     Private Sub DescargaXMLViaticos(Parametros As Hashtable)
         If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -605,10 +605,10 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
     Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
         If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -628,9 +628,9 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
     Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -672,10 +672,10 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("LogoPath", ""))
         End If
         ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
     Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
         If CveVenta > 0 Then
@@ -712,10 +712,10 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
     Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
         If CveMovimiento > 0 Then
@@ -826,7 +826,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Chofer", Chofer))
                 params.Add(New ReportParameter("Placa", Placa))
                 params.Add(New ReportParameter("Recibio", Recibio))
-                params.Add(New ReportParameter("FechaEntrega", FechaEntrega))
+                params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToString()))
                 params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad))
                 params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
                 params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
@@ -840,12 +840,12 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
-
+
     Private Sub DescargaXMLTraslado(Parametros As Hashtable)
         If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
             Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -864,12 +864,12 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO"
-
+
     Private Sub DescargaPDFTraslado(Parametros As Hashtable)
         If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
             Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -888,10 +888,10 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "   OP = 'Vta,Fact' - IMPRIME PDF VENTAS"
     Private Sub DescargaFacturaVenta(Parametros As Hashtable)
         If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then
@@ -1198,11 +1198,11 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
-
+
     Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
         Dim ObjInventarios As New ClsInventarios
 
@@ -2465,19 +2465,19 @@ Partial Class PopUpVerFactura
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
-                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
-                    'Else
-                    '    params.Add(New ReportParameter("Folio", Folio))
-                    '    params.Add(New ReportParameter("Fecha", Fecha))
-                    '    params.Add(New ReportParameter("Almacen", Almacen))
-                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
-                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
-                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
-                    'End If
-
-
+                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
+                    'Else
+                    '    params.Add(New ReportParameter("Folio", Folio))
+                    '    params.Add(New ReportParameter("Fecha", Fecha))
+                    '    params.Add(New ReportParameter("Almacen", Almacen))
+                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
+                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
+                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+                    'End If
+
+
             Case 18 'D E V O L U C I O N    D E L   C L I E N T E
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -2654,36 +2654,36 @@ Partial Class PopUpVerFactura
                     ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
                 ElseIf CveConcepto = 22 Then
                     ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-                End If
-
-            'Case 22 'ENTRADA POR PRESTAMO
-            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            '    Dim params As New List(Of ReportParameter)
-
-            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-            '    If Imagen.Exists Then
-            '        params.Add(New ReportParameter("LogoPath", logouri))
-            '    Else
-            '        params.Add(New ReportParameter("LogoPath", ""))
-            '    End If
-
-            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
-            '    params.Add(New ReportParameter("Almacen", Almacen))
-            '    params.Add(New ReportParameter("Fecha", Fecha))
-            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
-            '    params.Add(New ReportParameter("Folio", Folio))
-            '    params.Add(New ReportParameter("Descuentos", ""))
-            '    params.Add(New ReportParameter("IVA", ""))
-            '    params.Add(New ReportParameter("Total", ""))
-            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
-            '    If (UsuarioActual.CveEmpresa = 72) Then
-            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
-            '    End If
-            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-
+                End If
+
+            'Case 22 'ENTRADA POR PRESTAMO
+            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            '    Dim params As New List(Of ReportParameter)
+
+            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            '    If Imagen.Exists Then
+            '        params.Add(New ReportParameter("LogoPath", logouri))
+            '    Else
+            '        params.Add(New ReportParameter("LogoPath", ""))
+            '    End If
+
+            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
+            '    params.Add(New ReportParameter("Almacen", Almacen))
+            '    params.Add(New ReportParameter("Fecha", Fecha))
+            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            '    params.Add(New ReportParameter("Folio", Folio))
+            '    params.Add(New ReportParameter("Descuentos", ""))
+            '    params.Add(New ReportParameter("IVA", ""))
+            '    params.Add(New ReportParameter("Total", ""))
+            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
+            '    If (UsuarioActual.CveEmpresa = 72) Then
+            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+            '    End If
+            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+
             Case 24 'SALIDA POR RESGUARDO
                 If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -3158,11 +3158,11 @@ Partial Class PopUpVerFactura
         If CveConcepto = 2 Then
         ElseIf CveConcepto = 3 Then
         End If
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "OP = 'OC' - IMPRIME PDF OC"
     Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
         Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
@@ -3198,10 +3198,10 @@ Partial Class PopUpVerFactura
                 ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'VAL' - IMPRIME PDF VAL"
     Private Sub GenerarPDFVale(CveVale As Integer)
 
@@ -3231,9 +3231,9 @@ Partial Class PopUpVerFactura
             'End If
         End If
         ObjAF.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'OS' - IMPRIMIR PDF OS"
     Private Sub GenerarPDFOS(CveOS As Integer)
         Dim ObjOS As New ClsOS()
@@ -3352,9 +3352,9 @@ Partial Class PopUpVerFactura
         TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
         TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
         TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'OI' - Crear Archivo "
     Private Sub CrearArchivo(Archivo As String)
         Dim ObjEventos As New ClsOIEventos
@@ -3363,11 +3363,11 @@ Partial Class PopUpVerFactura
         Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
 
         DescargarArchivo(file)
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "OP = 'Contratos' - Crear Archivo "
     Private Sub CrearArchivoContratos(Archivo As String)
 
@@ -3375,11 +3375,11 @@ Partial Class PopUpVerFactura
         Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
 
         DescargarArchivo(file)
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "OP = 'OI' - Descargar Archivo "
     Private Sub DescargarArchivo(File As System.IO.FileInfo)
         If File.Exists Then 'set appropriate headers
@@ -3409,11 +3409,11 @@ Partial Class PopUpVerFactura
             Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
 
         End If 'nothing in the URL as HTTP GET
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'AFR' - AF"
-
+
     Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
         Dim ObjAF As New ClsAF
         'Dim ObjSubProyecto As New ClsSubProyectos
@@ -3600,9 +3600,9 @@ Partial Class PopUpVerFactura
 
         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'POL' "
     Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
         'Dim ObjConta As New ClsContabilidad
@@ -3641,9 +3641,9 @@ Partial Class PopUpVerFactura
 
         ObjPoliza.Dispose()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'CAN' - CANCELACION"
     Public Sub ImprimeCancelacion(CveVenta As Integer)
         Dim ObjVentas As New ClsVentas
@@ -3668,9 +3668,9 @@ Partial Class PopUpVerFactura
 
         End If
         ObjVentas.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'DC' - DEPOSITOS CAJA"
     Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3697,11 +3697,11 @@ Partial Class PopUpVerFactura
 
         ObjIE.Dispose()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "I E   C H E Q U E S"
-
+
     Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
         Dim CveTipoTransaccion = -1
         Dim ObjIE As New ClsBancos()
@@ -4108,21 +4108,21 @@ Partial Class PopUpVerFactura
         ParamComprobacion.Dispose()
 
         ObjIE.Dispose()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = RECIBO DE PAGOS"
     Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)
 
         PDFReciboDePagos(CveVenta, CveIE, -1)
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = VTA - PyME"
-
-    ' 04/05/2018 - Pruebas de impresion de factura PyME
+
+    ' 04/05/2018 - Pruebas de impresion de factura PyME
     Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
         Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
         Dim File As FileInfo = New FileInfo(Directorio1)
@@ -4177,9 +4177,9 @@ Partial Class PopUpVerFactura
         Else
             RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = ENTREGAS - Entregas por realizar"
     Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
         Dim Correcto As Boolean = False
@@ -4199,7 +4199,7 @@ Partial Class PopUpVerFactura
             ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 End Class
diff --git a/Empresas/Grales/Formatos/CartaPorte.rdlc b/Empresas/Grales/Formatos/CartaPorte.rdlc
index f85630ac3..3b21e332c 100644
--- a/Empresas/Grales/Formatos/CartaPorte.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorte.rdlc
@@ -769,10 +769,11 @@
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
+                  <Format>dd/MM/yyyy</Format>
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>=Parameters!FechaEntrega.Value</Value>
+                <Value>=Left(Parameters!FechaEntrega.Value,10)</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -1869,7 +1870,7 @@
     <Height>8.91698in</Height>
     <Style />
   </Body>
-  <Width>7.657in</Width>
+  <Width>7.66009in</Width>
   <Page>
     <PageHeader>
       <Height>3.39287cm</Height>

From c539292e197f0d2e8bab53062458c2ddf7ab5730 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 21 Sep 2020 16:38:01 -0700
Subject: [PATCH 02/10] =?UTF-8?q?nuevo=20filtro=20de=20aplica=20nc=20y=20e?=
 =?UTF-8?q?sete=20mismo=20cambia=20al=20solicitar=20una=20devoluci=C3=B3n?=
 =?UTF-8?q?=20en=20una=20compra?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsMovimientos.vb          | 14 +++++++-------
 Compras/RepCxPDetalle.aspx          | 10 +++++++++-
 Compras/RepCxPDetalle.aspx.vb       |  2 +-
 Inventarios/TraspasoAlmacen.aspx    |  8 ++++----
 Inventarios/TraspasoAlmacen.aspx.vb |  7 +++++++
 5 files changed, 28 insertions(+), 13 deletions(-)

diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index fac07ad08..845ac3d6b 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -1188,13 +1188,12 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
-    Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer,
-                                  CveProveedorSucursal As Integer, CveUsuario As Integer,
-                                  CveUsuarioResponsable As Integer,
-                                  Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEstatusFactura As Integer,
-                                  Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer, TipoCambio As Integer, Optional TCEspecifico As Double = -1,
-                                  Optional FechaVI As String = "-1", Optional FechaVF As String = "1", Optional FechaCorte As Date = Nothing,
-                                  Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1, Optional Comprobaciones As Integer = -1) As Boolean
+    Public Function GetCxPDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveProveedorClasificacion As Integer, CveProveedorSucursal As Integer, CveUsuario As Integer,
+                                  CveUsuarioResponsable As Integer, Anio As Integer, Mes As Integer, AnioMes As String, CveMoneda As Integer, CveSubProyecto As Integer,
+                                  CveEstatusFactura As Integer, Fecha As String, Agrupador As Integer, Opcion As String, CveEmpresa As Integer, CveSucursal As Integer,
+                                  TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional FechaVI As String = "-1", Optional FechaVF As String = "1",
+                                  Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveTipoProveedor As Integer = -1,
+                                  Optional Comprobaciones As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         If FechaCorte = Nothing Then FechaCorte = Now
@@ -1227,6 +1226,7 @@ Public Class ClsMovimientos
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
             .Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
             .Add("@Comprobaciones", SqlDbType.Int).Value = Comprobaciones
+            .Add("@AplicaNC", SqlDbType.Int).Value = AplicaNC
         End With
 
         Try
diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index f51a57272..120b5ff4b 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -222,7 +222,7 @@
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="col-md-1"><span>Comprobación:</span></div>
+                        <div class="col-md-1" style="margin-left:20px"><span>Comprobación:</span></div>
                         <div class="col-md-1">
                             <asp:DropDownList ID="DdlComprobacion" runat="server" CssClass="select2me" AppendDataBoundItems="true" Width="100%">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -230,6 +230,14 @@
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1" style="margin-left:20px"><span>Aplica NC:</span></div>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlAplicaNC" runat="server" CssClass="select2me" AppendDataBoundItems="true" Width="100%">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index d35433c2c..842000f1e 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -379,7 +379,7 @@ Partial Class RepCxPDetalle
                                        DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, CveMoneda, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero,
                                        Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero,
                                        TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3,
-                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero) Then
+                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero()) Then
 
 
                 Dim TMP_DTDatos As New DataTable
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index 74a50ea34..392b44f2c 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -174,7 +174,7 @@
                                                 <label class="col-md-2">Chofer:</label>
                                                 <div class="col-md-2">
                                                     <asp:DropDownList ID="DdlChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" OnSelectedIndexChanged="DldChofer_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me" Width="100%"></asp:DropDownList>
-                                                    <asp:RequiredFieldValidator ID="RfvDdlChofer" runat="server" ControlToValidate="DdlChofer" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ID="RfvDdlChofer" runat="server" Enabled="false" ControlToValidate="DdlChofer" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VceDdlChofer" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlChofer" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                                 <label class="col-md-2">F. Entrega:</label>
@@ -198,20 +198,20 @@
                                                 </div>
                                                 <div class="col-md-2">
                                                     <asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa"></asp:DropDownList>
-                                                    <asp:RequiredFieldValidator ID="RfvDdlUnidadCamion" runat="server" ControlToValidate="DdlUnidadCamion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <asp:RequiredFieldValidator ID="RfvDdlUnidadCamion" runat="server" Enabled="false" ControlToValidate="DdlUnidadCamion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VceDdlUnidadCamion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlUnidadCamion" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                                 <div id="divPlacaEspecificacion" runat="server">
                                                     <label class="col-md-2">Placa:</label>
                                                     <div class="col-md-2">
                                                         <asp:TextBox runat="server" Text="" ID="TxtPlaca" CssClass="form-control" />
-                                                        <asp:RequiredFieldValidator ID="RfvTxtPlaca" runat="server" ControlToValidate="TxtPlaca" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <asp:RequiredFieldValidator ID="RfvTxtPlaca" runat="server" Enabled="false" ControlToValidate="TxtPlaca" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VceTxtPlaca" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtPlaca" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     </div>
                                                     <label class="col-md-2">Especificación de la Unidad:</label>
                                                     <div class="col-md-2">
                                                         <asp:TextBox runat="server" Text="" ID="TxtEspecifUnidad" CssClass="form-control" />
-                                                        <asp:RequiredFieldValidator ID="RfvTxtEspecifUnidad" runat="server" ControlToValidate="TxtEspecifUnidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especificación Unidad''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <asp:RequiredFieldValidator ID="RfvTxtEspecifUnidad" runat="server" Enabled="false" ControlToValidate="TxtEspecifUnidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especificación Unidad''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VceTxtEspecifUnidad" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtEspecifUnidad" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     </div>
                                                 </div>
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 49dc29ef3..1d6b6c93f 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -210,6 +210,13 @@ Partial Class Inventarios_TraspasoAlmacen
                 DivEmitirTimbrado.Visible = True
                 LblEmitirTimbrado.Visible = True
                 ChkEmitirTimbrado.Checked = True
+
+                Dim HabilitarValidators As Boolean = UsuarioActual.CveEmpresa.Contiene(119)
+                RfvDdlChofer.Enabled = HabilitarValidators
+                RfvDdlUnidadCamion.Enabled = HabilitarValidators
+                RfvTxtPlaca.Enabled = HabilitarValidators
+                RfvTxtEspecifUnidad.Enabled = HabilitarValidators
+
             End If
 
             CantidadTotal = 0

From fe17bbe4e33c6691ff3b2a55df917117514e9443 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 22 Sep 2020 10:52:44 -0700
Subject: [PATCH 03/10] =?UTF-8?q?error=20con=20las=20secciones=20de=20alma?=
 =?UTF-8?q?c=C3=A9n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntradasSalidas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 55bb728e8..5d912970f 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4204,7 +4204,7 @@ Partial Class Inventarios_EntradasSalidas
                         TxtnSerie.Text = ""
                         TxtnLote.Text = ""
                         TxtnFechaCaducidad.Text = ""
-                        DdlSeccionAlmacen.SelectedValue = "-1"
+                        'DdlSeccionAlmacen.SelectedValue = "-1"
                         NumAgregados = NumAgregados + 1
 
                     End If

From b772b55de4549d65b41a74809aa564ff738b5c1c Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:08:33 -0700
Subject: [PATCH 04/10] - que se envie la cvecompra, al movimiento de almacen,
 cuando es flete -- devolucion en la emp72

---
 Inventarios/RecepcionAlmacen.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 1b9bdaaad..130c26ca2 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -725,7 +725,7 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim DtPendientes As New DataTable
 
         If ObjInventarios.ComprasPendientesAlmacenGet(-1, TxtFechaPendientes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            Dim FiltroTemporal = If(UsuarioActual.CveEmpresa.Contiene(119, 140), "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')")
+            Dim FiltroTemporal = If(UsuarioActual.CveEmpresa.Contiene(119, 140, 1, 72, 80), "AND TipoDocto IN ('Fac','NC','DEV')", "AND TipoDocto IN ('Fac')")
             DtPendientes = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}")
         Else
             DtPendientes = Nothing
@@ -1115,6 +1115,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveFleteSurtir = pCveImportacion
                 CveFleteOrdenCompra = ObjInventario.DtResultados.Rows(0)("CveOC").ToString.ToEntero
                 CveFleteCompra = ObjInventario.DtResultados.Rows(0)("CveCompra").ToString.ToEntero
+                CveImportacionCompra = CveFleteCompra ' se iguala para que al guardar el movimiento, se toma esta variable
                 LbProveedor.Text = ObjInventario.DtResultados.Rows(0)("RazonSocial").ToString
                 HLFolio.Text = ObjInventario.DtResultados.Rows(0)("Folio").ToString
                 If UsuarioActual.TienePermisoProceso(201) Then

From 721e07a0b21a3aa603e613576703d9cc72afdb8c Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:12:28 -0700
Subject: [PATCH 05/10] - si ya esta autorizdo, no se puede eliminar. y se
 corrige error al eliminar ya registrado

---
 Inventarios/TrasladoSolicitud.aspx    |  2 +-
 Inventarios/TrasladoSolicitud.aspx.vb | 23 ++++++++++++-----------
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx
index a0bb909a6..a210fbb38 100644
--- a/Inventarios/TrasladoSolicitud.aspx
+++ b/Inventarios/TrasladoSolicitud.aspx
@@ -308,7 +308,7 @@
                                 <%--<asp:BoundField HeaderText="Direccion Envio" HeaderStyle-HorizontalAlign="Left" DataField="DireccionEnvio" ItemStyle-Width="20%" />--%>
                                 <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="20%" />
                                 <asp:BoundField HeaderText="Precio" HeaderStyle-HorizontalAlign="Right" DataFormatString="{0:c}" ItemStyle-HorizontalAlign="Right" DataField="Precio" Visible="false" ItemStyle-Width="5%" />
-                                <asp:BoundField HeaderText="Serie" HeaderStyle-HorizontalAlign="Right" ItemStyle-HorizontalAlign="Right" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
+                                <asp:BoundField HeaderText="Serie" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="imgD" runat="server" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="Si" />
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 51ae79244..85eec4810 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -4,10 +4,10 @@ Option Explicit On
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-
+
 Partial Class Inventarios_TrasladoSolicitud
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "Propiedades"
     Private Property TempDT As DataTable
         Get
@@ -64,10 +64,10 @@ Partial Class Inventarios_TrasladoSolicitud
             End If
 
         End If
-    End Sub
-
-
-
+    End Sub
+
+
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
         CveTraspasoSolicitud = -1
@@ -140,10 +140,10 @@ Partial Class Inventarios_TrasladoSolicitud
         'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
         'DdlProductoServicio.DataBind()
         'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "  CARGA DATOS  "
     Private Sub CargaDatos()
         Dim ObjInventarios As New ClsInventarios
@@ -158,7 +158,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
                 TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
 
-
+                TempDT = ObjInventarios.DtResultados
                 GvDatos.DataSource = ObjInventarios.DtResultados
                 GvDatos.DataBind()
 
@@ -269,6 +269,7 @@ Partial Class Inventarios_TrasladoSolicitud
                         LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
                         LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
                         LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+                        GvDatos.Columns(6).Visible = False ' se oculta la columna de eliminar
 
                     End If
 

From 93211c376266e7c2787d2a3a0ca6b7864f7dee1a Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:12:58 -0700
Subject: [PATCH 06/10] --parametro de cuenta no se enviaba

---
 Ventas/RepRecuperacion.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb
index 8f9eebe74..0e4839d3c 100644
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -119,7 +119,7 @@ Partial Class Ventas_RepRecuperacion
         End If
 
         If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
-                                        "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero,
+                                        "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero,
                                         EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados

From 46bb6ae7d2712d226e83105d5bdf361982c4680d Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:13:29 -0700
Subject: [PATCH 07/10] en GetExistenciasProducto, no se enviaba el
 cvesubproyecto al PA

---
 App_Code/ClsInventarios.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index da45dd81c..95962b005 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1863,6 +1863,7 @@ Public Class ClsInventarios
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@FechaMovto", SqlDbType.DateTime).Value = DateTime.ParseExact(FechaMovto, "yyyy/MM/dd HH:mm", Nothing)
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente

From e2aedeed0d37b917119c4e9975c9ddb01bfac741 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:14:11 -0700
Subject: [PATCH 08/10] - cuando se hacia un movimietno de acreedores, no se
 calculaba cuando eran dolares

---
 Bancos/IE.aspx.vb | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 83ede0055..6f116c7a2 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2696,6 +2696,8 @@ Partial Class Bancos_IE
                     MsgError = "No se pudo insertar la póliza de saldo inicial."
                 End If
             End If
+            Dim UsaComplementariaBancos As Boolean = False
+            If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaBancos = True
 
             If MsgError = "" Then
 
@@ -2887,14 +2889,18 @@ Partial Class Bancos_IE
                                                 importeMovimiento = TxtImporte.Text.ToDecimal
                                                 importeMX = importeMovimiento
 
-                                                If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
+                                                If tCveMoneda > 1 AndAlso UsaComplementariaBancos Then
                                                     'Agregamos complementaria
                                                     Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
 
                                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento del ingreso."
+                                                    End If
+                                                Else
+                                                    If tCveMoneda > 1 Then
+                                                        Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
+                                                        importeMX = (importeMovimiento * TC).RoundSQL
                                                     End If
-
                                                 End If
 
                                         End Select

From 92f8ba4aab1ab48f065b050327a3278f1f0a1679 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:15:40 -0700
Subject: [PATCH 09/10] -- al aplicar NC sobre un ingreso, recalcula el ajuste,
 si hay diferencia, considerando que no tenga impuestos, tenga iva o ieps

---
 Ventas/Ventas.aspx.vb | 53 +++++++++++++++++++++++++++++++++++++++----
 1 file changed, 48 insertions(+), 5 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b633d917d..40314494c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21048,7 +21048,7 @@ Partial Class Ventas
         If CveMovimientoEntradaGeneral > 0 Then
             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaConsignacion, UsuarioActual.CveEmpresa) Then
                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString().ToEntero(), Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaGeneral, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=-3, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
                         Return False
                     End If
                 Next
@@ -22843,12 +22843,55 @@ Partial Class Ventas
 
         'codigo para ajuste de centavo, si el importe total no cuadra con los totales
         Dim difTmp As Decimal = Importe - importeNC
+        'el ajuste procede si no tiene iva,ni ieps, con iva sin ieps, 
 
         If Math.Abs(difTmp) > 0.00D Then
-            'asusto la diferencia en el último concepto
-            Dim ImporteAjustado As Decimal = DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal").ToString().ToDecimal + difTmp
-            DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImporteTotal") = ImporteAjustado
-            DtImpuestosLocal.Rows(DtImpuestosLocal.Rows.Count - 1)("ImportePU") = ImporteAjustado
+            'filtro si hay renglon sin impuestos.
+            Dim drDIF As DataRow() = DtImpuestosLocal.Select("ImporteIVA = 0 AND ImporteIEPS = 0")
+
+            If drDIF IsNot Nothing AndAlso drDIF.Length > 0 Then
+                Dim ImporteAjustado0 As Decimal = drDIF(0)("ImporteTotal").ToString().ToDecimal + difTmp
+                drDIF(0)("ImporteTotal") = ImporteAjustado0
+                drDIF(0)("ImportePU") = ImporteAjustado0
+            Else
+                'filtro si hay renglon sin impuestos.
+                Dim drDIF2 As DataRow() = DtImpuestosLocal.Select("ImporteIVA > 0 AND ImporteIEPS = 0")
+
+                If drDIF2 IsNot Nothing AndAlso drDIF2.Length > 0 Then
+                    Dim PorIVA As Decimal = drDIF2(0)("PorcentajeIVA").ToString().ToDecimal
+                    Dim ImporteAjustado1 As Decimal = drDIF2(0)("ImporteTotal").ToString().ToDecimal + (difTmp / (1 + PorIVA)) 'saco el PU sin iva
+                    drDIF2(0)("ImportePU") = ImporteAjustado1
+                    drDIF2(0)("ImporteTotal") = ImporteAjustado1
+                    drDIF2(0)("ImporteIVA") = (ImporteAjustado1) * drDIF2(0)("PorcentajeIVA").ToString().ToDecimal
+                Else
+                    ' ajustar cuando tiene ieps y no iva
+                    Dim drDIF3 As DataRow() = DtImpuestosLocal.Select("ImporteIVA = 0 AND ImporteIEPS > 0")
+
+                    If drDIF3 IsNot Nothing AndAlso drDIF3.Length > 0 Then
+                        Dim PorIEPS As Decimal = drDIF3(0)("PorcentajeIEPS").ToString().ToDecimal
+                        Dim ImporteAjustado1 As Decimal = drDIF3(0)("ImporteTotal").ToString().ToDecimal + (difTmp / (1 + PorIEPS)) 'saco el PU sin iva
+                        drDIF3(0)("ImportePU") = ImporteAjustado1
+                        drDIF3(0)("ImporteTotal") = ImporteAjustado1
+                        drDIF3(0)("ImporteIEPS") = (ImporteAjustado1) * drDIF3(0)("PorcentajeIEPS").ToString().ToDecimal
+                    Else
+                        ' ajustar cuando tiene ieps e iva
+                        Dim drDIF4 As DataRow() = DtImpuestosLocal.Select("ImporteIVA > 0 AND ImporteIEPS > 0")
+
+                        If drDIF4 IsNot Nothing AndAlso drDIF4.Length > 0 Then
+                            Dim PorIEPS As Decimal = drDIF4(0)("PorcentajeIEPS").ToString().ToDecimal
+                            Dim PorIVA As Decimal = drDIF4(0)("PorcentajeIVA").ToString().ToDecimal
+                            Dim ImporteAntesIVA As Decimal = (difTmp / (1 + PorIVA))
+                            Dim ImporteAjustado1 As Decimal = drDIF4(0)("ImporteTotal").ToString().ToDecimal + +(ImporteAntesIVA / (1 + PorIEPS)) 'saco el PU sin iva
+                            drDIF4(0)("ImportePU") = ImporteAjustado1
+                            drDIF4(0)("ImporteTotal") = ImporteAjustado1
+                            drDIF4(0)("ImporteIEPS") = (ImporteAjustado1) * drDIF4(0)("PorcentajeIEPS").ToString().ToDecimal
+                            drDIF4(0)("ImporteIVA") = (ImporteAjustado1 + drDIF4(0)("ImporteIEPS").ToString.ToDecimal) * drDIF4(0)("PorcentajeIVA").ToString().ToDecimal
+                        End If
+                    End If
+                End If
+
+            End If
+
         End If
 
         If Not NCDescuento Then

From 7c0606128644fda8ca2026cdaaab67916f1c43ad Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:16:07 -0700
Subject: [PATCH 10/10] -- para solicitar devoluciones, muestra un modal
 previo, para especificar los productos

---
 Compras/Compras.aspx    | 41 +++++++++++++++++++++++++++++-
 Compras/Compras.aspx.vb | 55 ++++++++++++++++++++++++++++++++++++-----
 2 files changed, 89 insertions(+), 7 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index be8eb8dba..4afd58c6e 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -77,7 +77,8 @@
             <asp:UpdatePanel ID="UpDevolucionAlmacen" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
                     <li id="LiDevolucionAlmacen" runat="server" visible="false">
-                        <asp:LinkButton Text="Solicitar Devolución" OnClick="LBDevolucionAlmacen_Click" ID="LBDevolucionAlmacen" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de solicitar la Devolución de Almacén?" data-btn-ok-label="si" />
+                        <%--<asp:LinkButton Text="Solicitar Devolución" OnClick="LBDevolucionAlmacen_Click" ID="LBDevolucionAlmacen" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de solicitar la Devolución de Almacén?" data-btn-ok-label="si" />--%>
+                        <asp:LinkButton ID="HplDevv" OnClick="LBDevolucionAlmacen_Click"   runat="server"><i class='fa fa-plus'></i> Solicitar Devolución</asp:LinkButton>
                     </li>
                 </ContentTemplate>
             </asp:UpdatePanel>
@@ -4966,6 +4967,44 @@
         </div>
     </div>
 
+    <div id="DivDevolucion" class="modal fade">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UPPSolDev" runat="server" class="modal-content rowpadding" tabindex="-1" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <h4>
+                           Productos a devolver
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                             
+                        </div>
+                      
+                        <div class="form-group form-md-line-input input-iconright">
+                               <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
+                                   <Columns>
+                                        <asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant">
+                                                <ItemTemplate>
+                                                    <asp:TextBox ID="TxtCant" runat="server" Text='<%#Eval("Cantidad") %>' Width="50px" ></asp:TextBox>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                       <asp:BoundField DataField="UM" headertext="UM" />
+                                       <asp:BoundField DataField="CodigoPS" headertext="Producto" />
+                                   </Columns>
+                               </asp:GridView>
+                        </div>
+                         
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnDevolucion" runat="server" Text="Solicitar Devolución" OnClick="BtnDevolucion_Click"   ClientIDMode="Static" CssClass="btn btn-success"   />
+                        <button type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
     <%--  MODAL FLETES E IMPORTACIONES  --%>
     <div id="ModalFletesImportaciones" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalFletesImportaciones" UpdateMode="Conditional">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6c267c75d..bf24dd7e3 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7552,7 +7552,7 @@ Partial Class Compras_Compras
                                                     End If
                                                 End If
 
-                                                If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
+                                                If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) AndAlso UsuarioActual.CveEmpresa <> 72 Then
                                                     If ObjConta.ValorPolizaDescuadre > 0 Then
                                                         GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                                         ErrorPrepolizaDescuadre = True
@@ -10485,7 +10485,7 @@ Partial Class Compras_Compras
         If UsuarioActual.CveEmpresa.Contiene(119, 7) Then
             node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
             If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
-                If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then
+                If ValorXML(node, "TipoRelacion").ToString.Contiene("07") Then
                     Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces)
                     For Each documento As XmlNode In nodeDocumentosRelacionados
                         If documento.Attributes("UUID").Value <> "" Then
@@ -16933,6 +16933,8 @@ Partial Class Compras_Compras
         CargaRetIVAConcepto()
         CargaRetISRConcepto()
 
+        Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
+        If NumNoDed > 0 Then GvPS.Columns(10).Visible = True 'visualiza columnas de nodeducibles
 
         If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
             InicializaAplicaNCFact()
@@ -18436,30 +18438,69 @@ Partial Class Compras_Compras
             End If
 
             If EstatusAlmacen = 1 Then
-                LBDevolucionAlmacen.Text = "<i class='fa fa-pencil'></i> Cancelar Devolución Almacén"
-                LBDevolucionAlmacen.ToolTip = "¿Está seguro de Cancelar la Devolución de Almacén?"
+                HplDevv.Text = "<i class='fa fa-pencil'></i> Cancelar Devolución Almacén"
+                HplDevv.ToolTip = "¿Está seguro de Cancelar la Devolución de Almacén?"
             Else
-                LBDevolucionAlmacen.Text = "<i class='fa fa-pencil'></i> Solicitar Devolución Almacén"
-                LBDevolucionAlmacen.ToolTip = "¿Está seguro de Solicitar la Devolución de Almacén?"
+                HplDevv.Text = "<i class='fa fa-pencil'></i> Solicitar Devolución Almacén"
+                HplDevv.ToolTip = "¿Está seguro de Solicitar la Devolución de Almacén?"
             End If
 
         End If
 
         'UpInvDev.Update()
     End Sub
+
     Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs)
+        GvSolDev.DataSource = TmpDT
+        GvSolDev.DataBind()
+        RegistraScript("$('#DivDevolucion').modal('show');", "DivDevolucion")
+        UPPSolDev.Update()
+
+    End Sub
+    Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
         Dim ObjCompras As New ClsCompras
+        Dim TieneError As Boolean = False
+        ObjCompras.IniciaTransacSQL()
+
+        If EstatusAlmacen = 0 Then
+            For Each gvr As GridViewRow In GvSolDev.Rows
+                If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
+                    'actualiza el estatus del detalle
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0)
+                Else
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1)
+                End If
+            Next
+        End If
 
         If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) Then
             EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
             Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
         End If
+        If Not TieneError Then
+            ObjCompras.Commit()
+        Else
+            ObjCompras.RollBack()
+        End If
 
         ObjCompras.Dispose()
 
         InicializaDevolucionAlmacen()
     End Sub
 
+    'Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs)
+    '    Dim ObjCompras As New ClsCompras
+
+    '    If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) Then
+    '        EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
+    '        Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
+    '    End If
+
+    '    ObjCompras.Dispose()
+
+    '    InicializaDevolucionAlmacen()
+    'End Sub
+
     Private Sub HabilitaNCInv()
 
         If Not UsuarioActual.CveUsuario = 100 Then
@@ -19960,6 +20001,8 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+
+
 End Class
 
 Public Class MMensajeDevolucion