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

Validaciones de folio fijo

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-07-18 20:25:49 -07:00
parent 2bfbe31128
commit 2a88db784e
1 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/Ventas.aspx.vb
View File

@@ -17939,6 +17939,7 @@ Partial Class Ventas
TabAlmacen.Enabled = DdlTipoComprobante.SelectedValue <> "Ant" TabAlmacen.Enabled = DdlTipoComprobante.SelectedValue <> "Ant"
'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO 'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO
If EsCreaApartirDe OrElse ModalidadEdicion OrElse CveVenta <= 0 Then
If DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") Or TipoContrato >= 0 Then 'SI VIENE DE PEDIDO DE AF DESDE CONTRATO NO BLOQUEA CUANDO EL CLIENTE ESTA INACTIVO If DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") Or TipoContrato >= 0 Then 'SI VIENE DE PEDIDO DE AF DESDE CONTRATO NO BLOQUEA CUANDO EL CLIENTE ESTA INACTIVO
BtnEmitirImprimir.Visible = True BtnEmitirImprimir.Visible = True
TrVistaPrevia.Visible = True TrVistaPrevia.Visible = True
@@ -17955,6 +17956,7 @@ Partial Class Ventas
End If End If
End If End If
End If
If DdlTipoComprobante.SelectedValue = "Ing" Then If DdlTipoComprobante.SelectedValue = "Ing" Then
ImgAntiPend.Visible = True ImgAntiPend.Visible = True
@@ -20406,8 +20408,10 @@ Partial Class Ventas
End If End If
End Sub End Sub
Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged
If EsCreaApartirDe OrElse ModalidadEdicion OrElse CveVenta <= 0 Then
ViewState("EstablecioFolio") = True ViewState("EstablecioFolio") = True
Alert("Se estableció el Folio Fijo para el nuevo documento.") Alert("Se estableció el Folio Fijo para el nuevo documento.")
End If
End Sub End Sub
Private Sub HabilitarFacturacionSucursal() Private Sub HabilitarFacturacionSucursal()
trsucursalciente.Visible = True trsucursalciente.Visible = True