AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correcion descarga xml Clientes

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-10-29 17:52:10 -07:00
parent 576144d365
commit 3714c80a0b
3 changed files with 29 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsProductosServicios.vb
View File

@@ -1770,6 +1770,11 @@ Public Class ClsProductosServicios
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException Catch Ex1 As SqlException
If Ex1.Message.Contains("Producto princial no encontrado:") Or Ex1.Message.Contains("Producto unificado no encontrado:") Then
Alert(Ex1.Message, TipoMensaje.MsgAdvertencia)
End If
OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al intentar Unificar los Productos o Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)

4
Ventas/Clientes.aspx.vb
View File

@@ -2203,8 +2203,8 @@ Partial Class Clientes
e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE") e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE")
If e.Row.DBCampo("CveComplementoPago") <> "" Then If e.Row.DBCampo("CveComplementoPago") <> "" Then
e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString()))) e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioCP").ToString(), e.Row.DBCampo("CveIE").ToString())))
e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString()))) e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolioCP").ToString(), e.Row.DBCampo("CveIE").ToString())))
e.Row.FCLinkButton("LnkSendMail").Visible = True e.Row.FCLinkButton("LnkSendMail").Visible = True
End If End If

25
Ventas/ProductosServicios.aspx.vb
View File

@@ -2005,16 +2005,35 @@ Partial Class ProductosyServicios
If DdlPsUnificar.SelectedValue.ToEntero() = CvePS Then If DdlPsUnificar.SelectedValue.ToEntero() = CvePS Then
Alert("No se puede seleccionar el mismo producto y/o servicio", TipoMensaje.MsgAdvertencia) Alert("No se puede seleccionar el mismo producto y/o servicio", TipoMensaje.MsgAdvertencia)
Else Else
Dim ErrorUnificacion As Boolean = False
Dim ObjPS As New ClsProductosServicios Dim ObjPS As New ClsProductosServicios
'ObjPS.IniciaTransacSQL()
If ObjPS.UnificarPS(CvePS, DdlPsUnificar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjPS.UnificarPS(CvePS, DdlPsUnificar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
Alert("Los productos y/o servicios han sido unificados", TipoMensaje.MsgInformacion) Alert("Los productos y/o servicios han sido unificados", TipoMensaje.MsgInformacion)
Else Else
Alert("Los productos y/o servicios no han podido ser unificados", TipoMensaje.MsgError) Alert("Los productos y/o servicios no han podido ser unificados", TipoMensaje.MsgError)
ErrorUnificacion = True
End If End If
'If ErrorUnificacion Then
' ObjPS.RollBack()
'Else
' ObjPS.Commit()
'End If
ObjPS.Dispose() ObjPS.Dispose()
RecargaGlobal()
RegistraScript("$('#DivUnificar').modal('hide');") If Not ErrorUnificacion Then
UpDatos.Update() RecargaGlobal()
RegistraScript("$('#DivUnificar').modal('hide');")
UpDatos.Update()
End If
End If End If
Else Else
Alert("Es necesario seleccionar un producto y/o servicio", TipoMensaje.MsgAdvertencia) Alert("Es necesario seleccionar un producto y/o servicio", TipoMensaje.MsgAdvertencia)