From 934d00e2352b9181b832a51d2e5bf24b4f46243d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Aug 2024 15:50:25 -0700 Subject: [PATCH] -- cambios GlobalDTSubPr --- App_Code/ClsOC.vb | 5 +++-- App_Code/ClsPaginas.vb | 16 +++++----------- Bancos/RepProgramarRecursos.aspx.vb | 2 +- Compras/Compras.aspx.vb | 19 ++++++++++++------- Contratos/Contrato.vb | 2 +- Contratos/ContratoObra.aspx.vb | 10 +--------- OC/OC.aspx.vb | 4 ++-- OC/OC2.aspx.vb | 2 +- OC/PopUpBuscarReq.aspx.vb | 2 +- OC/RepRequisiciones.aspx.vb | 2 +- OS/OrdenesServicios.aspx.vb | 9 --------- RH/AsistenciaDetalle.aspx.vb | 2 +- RH/CatPersonalRequerido.aspx.vb | 2 +- Transportes/RepContratos.aspx.vb | 27 ++++++++++++++------------- 14 files changed, 44 insertions(+), 60 deletions(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index aca7aa3b2..3fb0c1389 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -1143,13 +1143,14 @@ Public Class ClsOC Return Retorno End Function - Public Function GetOrdenesDetalle(pCveOrdenCompra As Integer) As Boolean + Public Function GetOrdenesDetalle(CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraDetalleGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveOrdenCompra", SqlDbType.Int).Value = pCveOrdenCompra + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4691356e8..3f05b8931 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1331,7 +1331,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTUnidadesMedida(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedida-{CveEmpresa}" 'sino existe, recarga los datos @@ -1347,7 +1347,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTUnidadesMedidaAlias(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTUnidadesMedidaAlias-{CveEmpresa}" 'sino existe, recarga los datos @@ -2411,7 +2411,7 @@ Public Class ClsPaginas End Set End Property - Property GlobalDTTipoVenta(Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTTipoVenta(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTTipoVenta-{CveEmpresa}" 'sino existe, recarga los datos @@ -4426,7 +4426,7 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTVtaCondicionesEntrega(Optional CveEmpresa As Integer = -1) As DataTable + Public Shared Property GlobalDTVtaCondicionesEntrega(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTVtaCondicionesEntrega-{CveEmpresa}" 'sino existe, recarga los datos @@ -7725,7 +7725,7 @@ Public Class ClsPaginas End If ObjEmpresa.Dispose() Dim dtOC As DataTable = ObjOC.DtResultados - If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra) Then 'Obtenemos el Detalle de la Oorden de Compra + If ObjOC.GetOrdenesDetalle(ObjOC.CveOrdenCompra, ObjOC.CveEmpresa) Then 'Obtenemos el Detalle de la Oorden de Compra DtDetalle = ObjOC.DtResultados End If @@ -7795,15 +7795,9 @@ Public Class ClsPaginas params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir)) End If - End If - - End If - - - Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC) diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb index 9d85caa3c..dfdd7142d 100644 --- a/Bancos/RepProgramarRecursos.aspx.vb +++ b/Bancos/RepProgramarRecursos.aspx.vb @@ -191,7 +191,7 @@ Partial Class Bancos_RepProgramarRecursos Dim CveProy As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto).FiltroPrimeroValor("CveProyecto").ToEntero DdlSubProyecto.SelectedValue = CveSubProyecto.ToString - DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProy, UsuarioActual.CveEmpresa, -1, 1) + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProy) DdlSubProyecto.DataBind() End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index e178be666..837b97bbf 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10669,7 +10669,7 @@ Partial Class Compras_Compras 'RegistraScript(String.Format("$get('TxtOC').value = '{0}';tb_remove;", OC.Folio)) RegistraScript("tb_remove();") - If OC.GetOrdenesDetalle(CveOC) Then + If OC.GetOrdenesDetalle(CveOC, UsuarioActual.CveEmpresa) Then dt = OC.DtResultados End If End If @@ -11087,7 +11087,7 @@ Partial Class Compras_Compras Dim CveProyecto As Integer = If(gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero > 0, gvRow.FCDropDownList("DdlProyectoPersonal").SelectedValue.ToEntero, -1) gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Clear() If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then - gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + gvRow.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) End If gvRow.FCDropDownList("DdlSubProyectoPersonal").DataBind() gvRow.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -11143,7 +11143,7 @@ Partial Class Compras_Compras e.Row.FCDropDownList("DdlSubProyectoPersonal").DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, e.Row.DBCampo("CveProyecto").ToEntero, UsuarioActual.CveEmpresa, -1, 1), - GlobalDTSubProyectos(e.Row.DBCampo("CveProyecto").ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=e.Row.DBCampo("CveProyecto").ToEntero)) End If e.Row.FCDropDownList("DdlSubProyectoPersonal").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("DdlSubProyectoPersonal").DataBind() @@ -14341,7 +14341,7 @@ Partial Class Compras_Compras Dim StrPromos As New StringBuilder For Each CveOCItem As String In ArrayCveOC.Distinct - If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then + If ObjOC.GetOrdenesDetalle(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then If IsNothing(DTOCTemp) Then DTOCTemp = ObjOC.DtResultados.Copy Else @@ -14583,9 +14583,14 @@ Partial Class Compras_Compras TmpDT = TmpDT.FiltraParametros("", "PU") - GvOC2.DataSource = TmpDT GvOC2.DataBind() + 'condicion temporal rmf + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + GvOC1.Columns(6).Visible = False + GvOC2.Columns(4).Visible = False + End If + UpGvOC2.Update() End Sub Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound @@ -17195,7 +17200,7 @@ Partial Class Compras_Compras CveProyecto = -1 End If - DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -17924,7 +17929,7 @@ Partial Class Compras_Compras Private Sub CargaSubProyectoAsignado() DdlAsignaSubProyecto.Items.Clear() If DdlAsignarProyecto.SelectedValue.ToEntero > 0 Then - DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlAsignarProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlAsignarProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=DdlAsignarProyecto.SelectedValue.ToEntero)) End If DdlAsignaSubProyecto.DataBind() DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/Contratos/Contrato.vb b/Contratos/Contrato.vb index 9e0faaffb..382d550c6 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -835,7 +835,7 @@ Partial Class Contratos_Default End Sub Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) DdlSubProyectoContrato.Items.Clear() - DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) + DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"}) DdlSubProyectoContrato.DataBind() DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) End Sub diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index d0deb8ccf..ac3ae3950 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1263,15 +1263,7 @@ Partial Class Contratos_ContratoObra ' DdlProyecto.DataBind() 'End If End Sub - 'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged - ' CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero) - 'End Sub - 'Protected Sub CargaSubProyectoContrato(CveProyecto As Integer) - ' DdlSubProyectoContrato.Items.Clear() - ' DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"}) - ' DdlSubProyectoContrato.DataBind() - ' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) - 'End Sub + Private Sub CargaContratista() DdlContratista.setEsWebService(True) DdlContratista.Attributes.Add("data-metodo", "getproveedores") diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fe1dae599..269cc9922 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1686,7 +1686,7 @@ Partial Class OC_OC CboE.DataBind() End If - If objOC.GetOrdenesDetalle(pCveOrdenCompra) Then + If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then DtDetalle = objOC.DtResultados End If @@ -2043,7 +2043,7 @@ Partial Class OC_OC End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) DdlSP.Items.Clear() - DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit) + DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) DdlSP.DataBind() DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/OC/OC2.aspx.vb b/OC/OC2.aspx.vb index e680ffd60..c6224001d 100644 --- a/OC/OC2.aspx.vb +++ b/OC/OC2.aspx.vb @@ -795,7 +795,7 @@ Partial Class OC End Sub Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer) DdlSP.Items.Clear() - DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit) + DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) DdlSP.DataBind() DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb index 2fbbf1989..23ef40fde 100644 --- a/OC/PopUpBuscarReq.aspx.vb +++ b/OC/PopUpBuscarReq.aspx.vb @@ -129,7 +129,7 @@ Partial Class OC_PopUpBuscarReq Private Sub CargaSubProyectos(CveProyecto As Integer) DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), - GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1)) + GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)) DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) End Sub diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb index cfbbd1ffd..e980329db 100644 --- a/OC/RepRequisiciones.aspx.vb +++ b/OC/RepRequisiciones.aspx.vb @@ -80,7 +80,7 @@ Partial Class OC_RepRequisiciones DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) Else - DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1) + DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) DdlSubProyecto.DataBind() End If diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 2454d6adb..34a55b6bd 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -500,16 +500,7 @@ Partial Class OS_OrdenesServicios End If UpDetalleOS.Update() End Sub - 'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs) - ' Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) - ' Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue - ' gvr.FCDropDownList("DDlSubProyecto").Items.Clear() - ' gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero) - ' gvr.FCDropDownList("DDlSubProyecto").DataBind() - ' gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) - - 'End Sub Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs) Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList) Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero diff --git a/RH/AsistenciaDetalle.aspx.vb b/RH/AsistenciaDetalle.aspx.vb index 465da36b1..605a96f0a 100644 --- a/RH/AsistenciaDetalle.aspx.vb +++ b/RH/AsistenciaDetalle.aspx.vb @@ -200,7 +200,7 @@ Partial Class RH_AsistenciaDetalle Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").Items.Clear() - GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"}) + GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"}) GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataBind() End Sub diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index b60a418ae..883413cdf 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -87,7 +87,7 @@ Partial Class RH_CatPersonalRequerido SubProyectoDdl.Items.Clear() SubProyectoDdl.SelectedValue = Nothing If CveProyecto > 0 Then - SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto) + SubProyectoDdl.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto) End If SubProyectoDdl.DataBind() SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1")) diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index aac3a871c..7c80c0c08 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -166,22 +166,23 @@ Partial Class ListadoContratos End If Anexo.Text = "" - If ErrorProceso = False Then + 'If ErrorProceso = False Then - Dim Respuesta As New RespuestaFacturacion() - Dim CvePS As Integer = 907783 - Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL) + ' Dim Respuesta As New RespuestaFacturacion() + ' Dim CvePS As Integer = 907783 + ' Respuesta = GeneraRemision(CveContrato, LbFolio.Text, TxtImporte.Text.ToDecimal, CvePS, ObjContratos.IniciaTransacSQL) - If Respuesta.CveVenta > 0 Then - CveVentaRemision = Respuesta.CveVenta - SerieFolioRemision = Respuesta.SerieFolio - ErrorProceso = False - Else - ErrorProceso = True - Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) - End If + ' If Respuesta.CveVenta > 0 Then + ' CveVentaRemision = Respuesta.CveVenta + ' SerieFolioRemision = Respuesta.SerieFolio + ' ErrorProceso = False + ' Else + ' ErrorProceso = True + ' Alert("se presento un error al generar la remisión", TipoMensaje.MsgAdvertencia) + ' End If + + 'End If - End If Else ErrorProceso = True