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
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/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
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 @@
-
+ <%----%>
+ Solicitar Devolución
@@ -4966,6 +4967,44 @@
+
+
+
+
+
+
+ Productos a devolver
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
<%-- MODAL FLETES E IMPORTACIONES --%>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index df20c90aa..3c40bd9b8 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7580,7 +7580,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
@@ -10513,7 +10513,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
@@ -16961,6 +16961,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()
@@ -18464,30 +18466,69 @@ Partial Class Compras_Compras
End If
If EstatusAlmacen = 1 Then
- LBDevolucionAlmacen.Text = " Cancelar Devolución Almacén"
- LBDevolucionAlmacen.ToolTip = "¿Está seguro de Cancelar la Devolución de Almacén?"
+ HplDevv.Text = " Cancelar Devolución Almacén"
+ HplDevv.ToolTip = "¿Está seguro de Cancelar la Devolución de Almacén?"
Else
- LBDevolucionAlmacen.Text = " Solicitar Devolución Almacén"
- LBDevolucionAlmacen.ToolTip = "¿Está seguro de Solicitar la Devolución de Almacén?"
+ HplDevv.Text = " 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
@@ -19999,6 +20040,8 @@ Partial Class Compras_Compras
End If
End Sub
+
+
End Class
Public Class MMensajeDevolucion
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/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index f51a57272..120b5ff4b 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -222,7 +222,7 @@
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
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
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