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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2024-04-18 19:45:01 -07:00
parent 6758310277 0b7b21c1f4
commit 0f13301c16
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Ventas/Ventas.aspx.vb
View File

@@ -7214,10 +7214,14 @@ Partial Class Ventas
If Opcion = "Cot" Then If Opcion = "Cot" Then
DdlTipoComprobante.SelectedValueExist("Cot") DdlTipoComprobante.SelectedValueExist("Cot")
Else Else
If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then 'SI ES REFACTURACION NO DEBE CAMBIAR EL TIPÖ DOCTO
DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento) If Not (Request("NuevaFactura") IsNot Nothing AndAlso Request("NuevaFactura").ToString() = "1") Then
DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing) If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
End If
End If End If
End If End If
End If End If
End If End If
@@ -32174,8 +32178,12 @@ Partial Class Ventas
HdnIVAOriginal.Value = TxtIVA.Text HdnIVAOriginal.Value = TxtIVA.Text
End If End If
RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
RBLPago.SelectedValue = "1" RBLPago.SelectedValuesIfExist(dtSeleccionadas.FiltroPrimeroValor("CondicionesPago"))
Else
RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito
RBLPago.SelectedValue = "1"
End If
RemisionesLista.Clear() RemisionesLista.Clear()