From e0cbde999762553bce1c9387b7dde67f7981c809 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 27 Feb 2023 14:32:14 -0700 Subject: [PATCH 1/6] -- mejora filtrado de proveedores --- Compras/RepCxPDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index c7243644b..f0016d615 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -230,7 +230,7 @@ Partial Class RepCxPDetalle Me.CveProveedor = CveProveedor If DdlProveedores.SelectedValue.ToEntero > 0 Then - DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor).FiltroPrimeroValor("RazonSocial").ToString Else DdlProveedores.SelectedText = "-" End If From 8b2b41860616f0dc8e740f39d71d688f7749726b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 27 Feb 2023 14:33:02 -0700 Subject: [PATCH 2/6] - activar, que se pueda desconciliar, un registro cancelado --- Bancos/RepIE.aspx.vb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Bancos/RepIE.aspx.vb b/Bancos/RepIE.aspx.vb index add465901..91c02b7ff 100644 --- a/Bancos/RepIE.aspx.vb +++ b/Bancos/RepIE.aspx.vb @@ -6,7 +6,6 @@ Imports Microsoft.Reporting.WebForms Imports Extensiones Partial Class Bancos_RepIE Inherits ClsPaginas - Private Shared missing As Object = System.Reflection.Missing.Value #Region "PROPIEDADES" Private Property Conciliacion As Boolean @@ -76,7 +75,7 @@ Partial Class Bancos_RepIE TipoPagina = Request("Tipo") DdlEstatusIE.SelectedValueExist("1") - DdlEstatusIE.Enabled = False + ' DdlEstatusIE.Enabled = False 'habilita especificar otros ingresos en conciliaciones AceptaOtrosIngresos = If(UsuarioActual.Empresa.Funcionalidad(124) = "1", True, False) From 1aad1f8bc6bdf0e620b0efc3b4624e6440c759dc Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 27 Feb 2023 14:33:41 -0700 Subject: [PATCH 3/6] =?UTF-8?q?-=20limpieza=20de=20c=C3=B3digo=20comentado?= =?UTF-8?q?.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Global.asax | 138 ++++++++-------------------------------------------- 1 file changed, 20 insertions(+), 118 deletions(-) diff --git a/Global.asax b/Global.asax index d37060357..92c7c2a8c 100644 --- a/Global.asax +++ b/Global.asax @@ -99,54 +99,6 @@ End Using GuardaLogAsax(String.Format("Globalasax 9:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R O S P E C T O S - - 'GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now)) - 'Using ObjProspectos As New ClsProspectos - 'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing - 'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing - 'If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing - 'If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing - 'If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing - 'If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing - 'If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing - 'If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing - 'If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing - 'If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing - 'If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing - 'If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing - 'If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing - 'If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing - 'If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing - 'If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing - 'If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing - 'If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing - 'If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing - 'If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing - 'End Using - - 'GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now)) - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C L A S I F I C A C I O N E S - - 'Using ObjClasificaciones As New ClsClasificaciones() - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'F A M I L I A S - 'If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'P R E S U P U E S T O - 'If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing - - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C L A S I F I C A C I O N E S 2 - 'If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------S I S T E M A ---------------------------------------------------------------------------------- '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -158,14 +110,6 @@ GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now)) - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - 'C O M B U S T I B L E S - - 'Using ObjFlotillas As New ClsFlotillas - 'If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing - 'If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing - 'End Using - 'GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now)) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ @@ -194,26 +138,26 @@ - '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ - ' R A S T R E O - Using ObjGPS As New ClsGPS - If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then - If ObjGPS.DtResultados.Rows.Count > 0 Then - Application("GlobalDTDispositivos") = ObjGPS.DtResultados - Else - Application("GlobalDTDispositivos") = Nothing - End If - End If + ''------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ + '' R A S T R E O + 'Using ObjGPS As New ClsGPS + ' If ObjGPS.DispositivosGet(-1, -1, -1, -1) Then + ' If ObjGPS.DtResultados.Rows.Count > 0 Then + ' Application("GlobalDTDispositivos") = ObjGPS.DtResultados + ' Else + ' Application("GlobalDTDispositivos") = Nothing + ' End If + ' End If - If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then - If ObjGPS.DtResultados.Rows.Count > 0 Then - Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados - Else - Application("GlobalDTDispositivosUsuarios") = Nothing - End If - End If - End Using - GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) + ' If ObjGPS.DispositivosUsuariosGet(-1, -1, -1, -1, -1) Then + ' If ObjGPS.DtResultados.Rows.Count > 0 Then + ' Application("GlobalDTDispositivosUsuarios") = ObjGPS.DtResultados + ' Else + ' Application("GlobalDTDispositivosUsuarios") = Nothing + ' End If + ' End If + 'End Using + 'GuardaLogAsax(String.Format("Globalasax 42:{0}", DateTime.Now)) 'If EsProduccion = "1" Then @@ -277,48 +221,6 @@ 'sessionData.Remove(HttpContext.Current.Session.SessionID) 'Application("s") = sessionData End Sub - -#Region "S Q L D E P E N D E N C Y" - - 'Public Sub RegisterNotification() - ' Try - ' 'Get the connection string from the Web.Config file. Make sure that the key exists and it is the connection string for the Notification Database and the NotificationList Table that we created - ' Dim connectionString As String = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString - ' 'We have selected the entire table as the command, so SQL Server executes this script and sees if there is a change in the result, raise the event - ' Dim commandText As String = "SELECT [FechaNotificacion] FROM dbo.Sis_NotificacionesActualizaciones" - ' 'Start the SQL Dependency - ' SqlDependency.Start(connectionString) - ' Using connection As New SqlConnection(connectionString) - ' Using command As New SqlCommand(commandText, connection) - ' connection.Open() - ' Dim sqlDependency = New SqlDependency(command) - ' AddHandler sqlDependency.OnChange, AddressOf sqlDependency_OnChange - ' ' NOTE: You have to execute the command, or the notification will never fire. - ' Using reader As SqlDataReader = command.ExecuteReader() - ' End Using - ' End Using - ' End Using - ' Catch ex As Exception - - ' End Try - - 'End Sub - - 'Private Sub sqlDependency_OnChange(sender As Object, e As SqlNotificationEventArgs) - ' If e.Info = SqlNotificationInfo.Update Then - ' Try - ' Dim ObjNotificaciones As New ClsSisNotificaciones - ' ObjNotificaciones.ObtenerNotificaciones() - ' ObjNotificaciones.Dispose() - ' 'System.Threading.Thread.Sleep(5000) - ' RegisterNotification() - ' Catch ex As Exception - - ' End Try - ' End If - ' 'Call the RegisterNotification method again - 'End Sub - -#End Region + From 77a7e42ccd2c5beea333db7ef8d232436f7d3f94 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 28 Feb 2023 17:17:45 -0700 Subject: [PATCH 4/6] =?UTF-8?q?-=20cambios=20en=20funci=C3=B3n=20de=20camb?= =?UTF-8?q?ios=20estatus/comprobante?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsVentas.vb | 4 +++- Ventas/RepLineasAdicionales.aspx | 6 +++--- Ventas/RepLineasAdicionales.aspx.cs | 29 +++++++++++------------------ 3 files changed, 17 insertions(+), 22 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c64f9bbda..5065ed3e2 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5606,13 +5606,15 @@ Public Class ClsVentas End Function - Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean + Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, LineaAdicionalComprobante As String, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesVentaUpdate") With SqlAdapter.SelectCommand.Parameters .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@LineaAdicionalComprobante", SqlDbType.VarChar).Value = LineaAdicionalComprobante + .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/Ventas/RepLineasAdicionales.aspx b/Ventas/RepLineasAdicionales.aspx index d0682f9df..fe2b823be 100644 --- a/Ventas/RepLineasAdicionales.aspx +++ b/Ventas/RepLineasAdicionales.aspx @@ -128,14 +128,14 @@ OnRowCommand="GvLAPO_RowCommand" OnRowDataBound="GvLAPO_RowDataBound"> - - + + - + diff --git a/Ventas/RepLineasAdicionales.aspx.cs b/Ventas/RepLineasAdicionales.aspx.cs index e9ca28611..4e183d8c1 100644 --- a/Ventas/RepLineasAdicionales.aspx.cs +++ b/Ventas/RepLineasAdicionales.aspx.cs @@ -194,8 +194,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas string filemove = ""; FileInfo fiNuevo; - DirectoryInfo df = new DirectoryInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\"); - + DirectoryInfo df = new DirectoryInfo($@"{UsuarioActual.Empresa.Ruta}\LineasAdicionales\"); //Crea directorio si no existe if (!df.Exists) @@ -247,12 +246,10 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas { try { - if (File.Exists($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}")) { File.Delete($@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"); - } - + } File.Move(fiNuevo.FullName, $@"{df.FullName}\{CveVenta}{fiNuevo.Extension}"); errorCargaComprobante = false; } @@ -264,7 +261,7 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas if (!errorCargaComprobante) { ClsVentas objVentas = new ClsVentas(); - if (!objVentas.UpdateLineasAdicionales(CveLineaAdicional, "-1", -1, -1, -1, -1, -1, MinFecha, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, LineaAdicionalComprobante: $@"{CveVenta}{fiNuevo.Extension}",CveVenta:CveVenta)) + if (!objVentas.UpdateVentaLineaAdicional(CveLineaAdicional, CveVenta, $@"{CveVenta}{fiNuevo.Extension}", -1, UsuarioActual.CveEmpresa)) { errorCargaComprobante = true; } @@ -279,23 +276,22 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas CargaDatos(); Anexo.Text = "[]"; RegistraScript("$('#ModalComprobante').modal('hide');", ""); - Alert("Comprbante actualizado correctamente."); + Alert("Comprobante actualizado correctamente."); } - UpAddComprobancte.Update(); } protected void LnkCambiarEstatus_Click(object sender, EventArgs e) { GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToString().ToEntero(); - int CveVenta = GvRow.DataKey("CveVenta").ToString().ToEntero(); + int CveLineaAdicionalActualzarEstatus = GvRow.DataKey("CveLineaAdicional").ToEntero(); + int CveVenta = GvRow.DataKey("CveVenta").ToEntero(); bool errorCambioEstatus = false; ClsVentas objVentas = new ClsVentas(); - if (!objVentas.UpdateLineasAdicionales(CveLineaAdicionalActualzarEstatus, "-1", -1, -1, -1, -1, -1, MinFecha, UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa,CveVenta:CveVenta,CveLineaAdicionalEstatus:2)) + if (!objVentas.UpdateVentaLineaAdicional(CveLineaAdicional, CveVenta, "",2,UsuarioActual.CveEmpresa)) { errorCambioEstatus = true; } @@ -321,12 +317,9 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas GridView gvTemp = GvLAPO; gvTemp.Columns[8].Visible = false; gvTemp.ExportToExcelX("ReportePO" + DateTime.Now.ToShortDateString()); - } - + } } - - - + protected void GvLAPO_RowDataBound(object sender, GridViewRowEventArgs e) { if (e.Row.RowType == DataControlRowType.DataRow) @@ -336,7 +329,6 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas LinkButton LnkCargarComprobante = e.Row.FCLinkButton("LnkCargarComprobante"); LinkButton LnkDescargaComprobante = e.Row.FCLinkButton("LnkDescargaComprobante"); - if (e.Row.DataKey("CveLineaAdicional")=="") { if (e.Row.DataKey("CveLineaAdicional") == "" && e.Row.DataKey("CveCliente") == "") @@ -355,7 +347,8 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas { if (e.Row.DataKey("CveVenta").ToEntero() > 0 && e.Row.DataKey("CveLineaAdicionalEstatus").ToEntero() == 1) { - LnkCambiarEstatus.Visible = true; + + if (UsuarioActual.TienePermisoProceso(356)) LnkCambiarEstatus.Visible = true; LnkCargarComprobante.Visible = true; } From fb276599047fa616a0d6d5bdb37133066d2d5a9e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 28 Feb 2023 17:18:06 -0700 Subject: [PATCH 5/6] cambio a globaldtRHPersonal --- Sistemas/UsuarioDetalle.aspx.vb | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index f485c6faa..ae83edfa9 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -716,14 +716,17 @@ Partial Class Sistemas_UsuarioDetalle 'DdlSubProyectos.SelectedValueExist(CveSubProyecto) End Sub Private Sub CargaPersonal() - Dim dt As DataTable = Nothing - - Dim RH As New ClsRH - If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then - dt = RH.DtResultados - End If - RH.Dispose() - + Dim dt As DataTable = Nothing + + 'Dim RH As New ClsRH + 'If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then + ' dt = RH.DtResultados + 'End If + 'RH.Dispose() + If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then + dt = GlobalDTRHPersonal(DdlEmpresaAsignaciones.SelectedValue.ToEntero) + End If + DdlPersonal.Items.Clear() DdlPersonal.DataSource = dt DdlPersonal.DataBind() From dbfbf285a0abc536cc091da4de8dd04a8693c1b9 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 28 Feb 2023 17:18:20 -0700 Subject: [PATCH 6/6] =?UTF-8?q?--=20correcci=C3=B3n=20de=20llamado=20de=20?= =?UTF-8?q?clase?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ebe60dbda..38fb457dc 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1001,8 +1001,8 @@ Partial Class Ventas_ClientesAbonar Dim IdCtaContable As Integer = If(EsAnticipoEspecial, IdCtaAnticipo, IdCuentaCliente) If VentaActual.CveMoneda = 2 Then IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaExtranjeraAnticipo, IdCtaContMonedaExtranjera) - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 3, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, VentaActual.SerieFolio, 95, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then + If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then MsgError = "No se pudo insertar la póliza" End If Else