diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 81d5750b4..31a25e690 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -933,6 +933,22 @@ Public Class ClsContabilidad Return Retorno End Function + Public Function UpdatePrePolizasDetalleBloquear(CvePrePoliza As Integer, Bloquear As Boolean) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Conta_PrePolizasDetalleBloquearUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@Bloquear", SqlDbType.Bit).Value = Bloquear + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al bloquear o desbloquear las prepolizas detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "", @@ -981,6 +997,8 @@ Public Class ClsContabilidad End If + + Dim tIdPoliza As Integer Dim CveTipoPoliza, FolioFijo As Integer Dim Cargos As Decimal @@ -1260,6 +1278,12 @@ Public Class ClsContabilidad End If End If + If Not OcurrioError Then + If Not UpdatePrePolizasDetalleBloquear(CvePrePoliza, True) Then + OcurrioError = True + End If + End If + 'If Empresa.Funcionalidad(522).ToString = "1" And Empresa.UsaContabilidad Then ' Dim CodigoPersona As String = "" @@ -5638,12 +5662,13 @@ Public Class ClsContabilidad #End Region #Region "VALIDACION POLIZA DESCUADRADA" - Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer) As Boolean + Public Function ValidacionPrePolizaCuadre(CvePrePoliza As Integer, Opcion As Integer, Optional CveVenta As Integer = -1) As Boolean Dim Retorno = False DataAdapter("PA_Conta_PrePoliza_Validacion") With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 86c684edd..85648f022 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2,7 +2,7 @@ - + @@ -88,14 +88,14 @@
  • Fletes
    • -
  • - - - Complementos Pago - - +
  • + + + Complementos Pago + + + -
  • Actualizar Tipo Cambio @@ -292,7 +292,7 @@
    ¿Es No Deducible?
    - +
    @@ -611,7 +611,8 @@ % IVA  Total 
    - ¿No Deducible? 
    + ¿No Deducible?  + Comandos @@ -704,11 +705,11 @@ <%-- 9 --%> - + <%-- 10 --%> - + - + @@ -1436,11 +1437,11 @@
    + @@ -1792,18 +1794,21 @@ - -
    -
    - -
    -
    -
    -
    -
    - -
    -
    + + +
    +
    + +
    +
    +
    +
    +
    + +
    +
    +     +     @@ -3211,10 +3216,11 @@ - + ScrollAD " + data-height="320" Style="text-align: left;" GridLines="None" DataKeyNames="CvePS"> @@ -4330,7 +4336,7 @@ - +
    @@ -4340,7 +4346,7 @@ -
    +
    @@ -4541,10 +4547,10 @@ - - - + + + @@ -4773,9 +4779,9 @@
    -
    +

    Los cambios se realizaran al dar click en vincular

    -
    +
    @@ -5368,7 +5374,7 @@ if (Sumatoria > saldoAmortizacion) { Sumatoria -= ToDouble(txt.value) * ToDouble(jQuery($(txt[0]).parent().parent().children()[7]).text()); txt.value = ''; - alert("El Importe no debe de exceder a el saldo.[" + Sumatoria + " " + saldoAmortizacion+"]" ); + alert("El Importe no debe de exceder a el saldo.[" + Sumatoria + " " + saldoAmortizacion + "]"); } $('#C_LbNCInvImporte').text(FormatoNumero(Sumatoria, 2)); } @@ -5623,6 +5629,9 @@ if ($get("C_Tab_TabOC_LbIEPSOC1")) { $get("C_Tab_TabOC_LbIEPSOC1").innerText = FormatoNumero(SumaIEPS, 2); } + + $get("HdnIEPSModificadoOC").value = FormatoNumero(SumaIEPS, 2); + if ($get("C_Tab_TabOC_LbIEPSIVAOC1")) { $get("C_Tab_TabOC_LbIEPSIVAOC1").innerText = FormatoNumero(SumaIEPSIVA, 2); } diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 89c01b93c..24c4faab8 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14242,8 +14242,10 @@ Partial Class Compras_Compras GvOC1.Columns(0).Visible = False End If + Dim Cont As Integer = 0 For Each gvr As GridViewRow In GvOC1.Rows - RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", "Gv") + RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}") + Cont += 1 Next UpGvOC1.Update() @@ -14469,8 +14471,8 @@ Partial Class Compras_Compras End If End If - If (LbIEPSOC1.Text.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then - Alert("Hay una diferencia de IEPS entre la factura y la OC.", TipoMensaje.MsgAdvertencia) + If (HdnIEPSModificadoOC.Value.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then + Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia) Exit Sub End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 4626b4598..2aea5300e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1632,72 +1632,175 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios") Case 6, 23 ' ENTRADA RESGUARDO - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("SerieLote") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("SerieLote") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + 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("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + End If Case 7 ' SALIDA RESGUARDO - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("SerieLote") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("SerieLote") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + End If + + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + 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("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Case 8, 26 ' T R A S L A D O - S A L I D A Dim params As New List(Of ReportParameter) @@ -2275,93 +2378,95 @@ Partial Class PopUpVerFactura 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)) + Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc" - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc" + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" + End If - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" - End If + 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 - 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)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Salida por resguardo")) + 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", Recibio)) + params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) + params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) + + + params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") Else - params.Add(New ReportParameter("LogoPath", "")) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) + Dim TipoResponsable As String = "" + Dim Responsable As String = "" + + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" + + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" + End If + + 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("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") End If - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Salida por resguardo")) - 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", Recibio)) - params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) - params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) - - - params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") - - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - 'Dim params As New List(Of ReportParameter) - 'Dim TipoResponsable As String = "" - 'Dim Responsable As String = "" - - 'Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - 'If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - ' Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - 'End If - - '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("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - 'params.Add(New ReportParameter("Folio", Folio)) - 'params.Add(New ReportParameter("Fecha", Fecha)) - ''params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - 'params.Add(New ReportParameter("Observaciones", Observaciones)) - 'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - 'params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - 'params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - 'params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - - 'Dim Mov As New ClsInventarios - 'If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then - ' If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then - ' TipoResponsable = "Personal" - ' Responsable = Recibio - ' 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ' ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then - ' TipoResponsable = "Cliente" - ' Responsable = Mov.DtResultados(0)("Nombre").ToString - ' ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then - ' TipoResponsable = "Proveedor" - ' Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ' End If - 'End If - 'Mov.Dispose() - - 'params.Add(New ReportParameter("Responsable", Responsable)) - 'params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) - - 'ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 3c602a3b3..565044422 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1712,6 +1712,13 @@ Partial Class RegPoliza ErrorTrans = True End If + If Not ErrorTrans Then + If Not ObjMov.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + ErrorTrans = True + End If + End If + + If Not ErrorTrans Then ObjConta.Commit() ObjMov.Commit() diff --git a/Empresas/119/Formatos/Factura.rdlc b/Empresas/119/Formatos/Factura.rdlc index cdcbffadc..3867b6594 100644 --- a/Empresas/119/Formatos/Factura.rdlc +++ b/Empresas/119/Formatos/Factura.rdlc @@ -2252,7 +2252,7 @@ - =iif(cdbl(Fields!PorcentajeIEPS.Value) > 0, Fields!ImporteIEPS.Value & "(" & cdbl(Fields!PorcentajeIEPS.Value) * 100 & "%)","") + =iif(cdbl(Fields!PorcentajeIEPS.Value) > 0, Fields!ImporteIEPS.Value & "(" & Round(cdbl(Fields!PorcentajeIEPS.Value) * 100,0) & "%)","")