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

--Correción de tipo de relacion manual

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-02-07 15:43:54 -07:00
parent 1c7834a491
commit eaf6f2b872
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Ventas/Ventas.aspx.vb
View File

@@ -12075,6 +12075,12 @@ Partial Class Ventas
'Amortizacion 'Amortizacion
ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero() ObjFactura.CveTipoRelacion = DdlTipoRelacionAnticipo.SelectedValue.ToEntero()
If Me.AplicaRelacionManual Then
If DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 AndAlso Me.TmpDTFacturasRelacionadas IsNot Nothing AndAlso Me.TmpDTFacturasRelacionadas.Rows.Count > 0 Then
ObjFactura.CveTipoRelacion = DdlTipoRelacionARelacionar.SelectedValue.ToEntero()
End If
End If
'If ObjFactura.CveTipoRelacion > 0 Then 'If ObjFactura.CveTipoRelacion > 0 Then
' Select Case ObjFactura.CveTipoRelacion ' Select Case ObjFactura.CveTipoRelacion
' Case 7 ' Case 7
@@ -12625,7 +12631,7 @@ Partial Class Ventas
End If End If
'SI LAS FACTURAS SE RELACIONARAN MANUALMENTE SE AGREGAN 'SI LAS FACTURAS SE RELACIONARAN MANUALMENTE SE AGREGAN
If UsuarioActual.TienePermisoProceso(321) AndAlso Me.AplicaRelacionManual AndAlso DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 Then If Me.AplicaRelacionManual AndAlso DdlTipoRelacionARelacionar.SelectedValue.ToEntero() > 0 Then
Dim CveTipoRelacion As Integer = DdlTipoRelacionARelacionar.SelectedValue.ToEntero() Dim CveTipoRelacion As Integer = DdlTipoRelacionARelacionar.SelectedValue.ToEntero()
@@ -13402,7 +13408,7 @@ Partial Class Ventas
End If End If
End If End If
If UsuarioActual.TienePermisoProceso(321) AndAlso Me.AplicaRelacionManual Then If Me.AplicaRelacionManual Then
For Each GvRow As GridViewRow In GvFacturasRelacionadas.Rows For Each GvRow As GridViewRow In GvFacturasRelacionadas.Rows
If GvRow.RowType = DataControlRowType.DataRow Then If GvRow.RowType = DataControlRowType.DataRow Then
If GvRow.DataKey("CveVenta").ToEntero() > 0 Then If GvRow.DataKey("CveVenta").ToEntero() > 0 Then