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

limpia de renglones vacíos

Browse Source
This commit is contained in:
rrene
2023-05-26 12:53:03 -07:00
parent 0f918f5995
commit 389d81290a
1 changed files with 0 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Compras/Compras.aspx.vb
View File

@@ -5235,7 +5235,6 @@ Partial Class Compras_Compras
If Not ErrorAC AndAlso Not TieneError Then If Not ErrorAC AndAlso Not TieneError Then
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
@@ -5253,7 +5252,6 @@ Partial Class Compras_Compras
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
Dim TipoRecepcion As Integer = -1 Dim TipoRecepcion As Integer = -1
''INVENTARIOS ''INVENTARIOS
If GvInv.Rows.Count > indiceTR Then If GvInv.Rows.Count > indiceTR Then
If GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then If GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
@@ -13547,14 +13545,10 @@ Partial Class Compras_Compras
Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs) Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivCancelarCompra').modal('hide');") RegistraScript("$('#DivCancelarCompra').modal('hide');")
Dim ObjComprasComprobacion As New ClsCompras Dim ObjComprasComprobacion As New ClsCompras
If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
Dim TienePagosConciliados As Boolean = False Dim TienePagosConciliados As Boolean = False
If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
TienePagosConciliados = True TienePagosConciliados = True
Dim PagosConciliados As New StringBuilder Dim PagosConciliados As New StringBuilder
@@ -13562,8 +13556,6 @@ Partial Class Compras_Compras
For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a> <br>") PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a> <br>")
Next Next
Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br> {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia) Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br> {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
End If End If
@@ -13571,8 +13563,6 @@ Partial Class Compras_Compras
ObjComprasComprobacion.Dispose() ObjComprasComprobacion.Dispose()
Exit Sub Exit Sub
End If End If
End If End If
ObjComprasComprobacion.Dispose() ObjComprasComprobacion.Dispose()
Dim cvemovimientoentrada As Integer = -1 Dim cvemovimientoentrada As Integer = -1
@@ -13791,7 +13781,6 @@ Partial Class Compras_Compras
End If End If
End If End If
'CANCELA COMPRA 'CANCELA COMPRA
If Not ErrorCancelar Then If Not ErrorCancelar Then
If Not ObjCompras.UpdateEstatusCompra(CveCompra, -2) Then If Not ObjCompras.UpdateEstatusCompra(CveCompra, -2) Then
@@ -13799,7 +13788,6 @@ Partial Class Compras_Compras
End If End If
End If End If
If Not ErrorCancelar Then If Not ErrorCancelar Then
If ObjAC IsNot Nothing Then If ObjAC IsNot Nothing Then
ObjAC.Commit() ObjAC.Commit()
@@ -13823,8 +13811,6 @@ Partial Class Compras_Compras
ObjAC.Dispose() ObjAC.Dispose()
End If End If
End Sub End Sub
Private Sub btnProrateo_Click(sender As Object, e As EventArgs) Handles btnProrateo.Click, btnProrateo2.Click Private Sub btnProrateo_Click(sender As Object, e As EventArgs) Handles btnProrateo.Click, btnProrateo2.Click