--nuevo parametro bloqueada
This commit is contained in:
@@ -2192,6 +2192,16 @@ Partial Class Ventas
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property Bloqueada As Boolean
|
||||
Get
|
||||
Return CBool(IfNull(ViewState("Bloqueada"), False, ViewState("Bloqueada")))
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("Bloqueada") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property TipoCambioOriginal As Decimal
|
||||
Get
|
||||
Return (IfNull(ViewState("TipoCambioOriginal"), 0, ViewState("TipoCambioOriginal"))).ToString().ToDecimal()
|
||||
@@ -6882,7 +6892,7 @@ Partial Class Ventas
|
||||
LnkAgregarCliente.Visible = False
|
||||
|
||||
'SI EL CLIENTE ES DIFERENTE DEL PREDETERMINADO Y PERMITE CREDITO, REGRESAR EL METODO DE PAGO A CREDITO
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 AndAlso CveCliente <> UsuarioActual.Empresa.Funcionalidad(714).ToEntero() AndAlso RBLPago.SelectedValue = "2" AndAlso Me.PermiteCredito Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(714).ToEntero() > 0 AndAlso CveCliente <> UsuarioActual.Empresa.Funcionalidad(714).ToEntero() AndAlso RBLPago.SelectedValue = "2" AndAlso Me.PermiteCredito AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
|
||||
RBLPago.SelectedValue = "1"
|
||||
End If
|
||||
|
||||
@@ -7823,6 +7833,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
Dim Bloqueo As Boolean = False
|
||||
Bloqueada = Bloqueo
|
||||
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("PA") AndAlso UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
|
||||
Bloqueo = True
|
||||
@@ -7867,6 +7878,7 @@ Partial Class Ventas
|
||||
LnkSolicitarCredito.Visible = True
|
||||
divModalidad2.Visible = False
|
||||
divModalidad3.Visible = True
|
||||
Me.Bloqueada = True
|
||||
End If
|
||||
|
||||
'SI ES AUTORIZACION DEBE PERMITIR GENERARLA
|
||||
@@ -11672,9 +11684,9 @@ Partial Class Ventas
|
||||
|
||||
ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
ObjFacturaDevolucion.Num2 = TxtNum2.Text.Trim.ToDouble
|
||||
ObjFacturaDevolucion.Num3 = If(ObjFacturaDevolucion.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDouble, TxtNum3.Text.Trim.ToDouble)
|
||||
ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.Num2 = TxtNum2.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.Num3 = If(ObjFacturaDevolucion.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDecimal, TxtNum3.Text.Trim.ToDecimal)
|
||||
ObjFacturaDevolucion.FechaPago = TxtFechaPago.Text.ToDate
|
||||
|
||||
ObjFacturaDevolucion.CveCorte = CveCorte
|
||||
@@ -11954,9 +11966,9 @@ Partial Class Ventas
|
||||
|
||||
ObjFacturaBonificacion.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFacturaBonificacion.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFacturaBonificacion.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
ObjFacturaBonificacion.Num2 = TxtNum2.Text.Trim.ToDouble
|
||||
ObjFacturaBonificacion.Num3 = If(ObjFacturaBonificacion.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDouble, TxtNum3.Text.Trim.ToDouble)
|
||||
ObjFacturaBonificacion.Num1 = TxtNum1.Text.Trim.ToDecimal
|
||||
ObjFacturaBonificacion.Num2 = TxtNum2.Text.Trim.ToDecimal
|
||||
ObjFacturaBonificacion.Num3 = If(ObjFacturaBonificacion.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDecimal, TxtNum3.Text.Trim.ToDecimal)
|
||||
ObjFacturaBonificacion.FechaPago = TxtFechaPago.Text.ToDate
|
||||
|
||||
ObjFacturaBonificacion.CveCorte = CveCorte
|
||||
@@ -12443,9 +12455,9 @@ Partial Class Ventas
|
||||
ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFactura.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
ObjFactura.Num2 = TxtNum2.Text.Trim.ToDouble
|
||||
ObjFactura.Num3 = If(ObjFactura.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDouble, TxtNum3.Text.Trim.ToDouble)
|
||||
ObjFactura.Num1 = TxtNum1.Text.Trim.ToDecimal
|
||||
ObjFactura.Num2 = TxtNum2.Text.Trim.ToDecimal
|
||||
ObjFactura.Num3 = If(ObjFactura.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDecimal, TxtNum3.Text.Trim.ToDecimal)
|
||||
'VALOR DE MARCA PARA IMPRESION DE TICKES EN FACTURAS PAGADAS
|
||||
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
||||
If DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
|
||||
@@ -12904,23 +12916,6 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
'If ObjFactura.CveTipoRelacion > 0 Then
|
||||
' Select Case ObjFactura.CveTipoRelacion
|
||||
' Case 7
|
||||
' ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07"
|
||||
' ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
|
||||
|
||||
' If ListaAnticiposAplicados IsNot Nothing Then
|
||||
' For Each Ant As Modelos.MAnticipoRelacionado In ListaAnticiposAplicados
|
||||
' ObjFactura.Timbre.CFDIRelacionados.UUID.Add(Ant.FolioFiscal)
|
||||
' Next
|
||||
' End If
|
||||
|
||||
' 'ObjFactura.Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
|
||||
' End Select
|
||||
|
||||
'End If
|
||||
|
||||
ObjFactura.AplicaDevolucion = Me.AplicaDevolucion
|
||||
ObjFactura.CveTipoAmortizacionAnticipo = DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero()
|
||||
|
||||
@@ -12997,10 +12992,9 @@ Partial Class Ventas
|
||||
|
||||
ObjFactura.CveTipoRetencion = DdlTipoRetencion.SelectedValue.ToEntero()
|
||||
ObjFactura.DescuentoProntoPago = HdnProntoPago.Value.ToDecimal()
|
||||
|
||||
ObjFactura.NuevaFactura = Me.NuevaFactura
|
||||
|
||||
ObjFactura.EsGarantia = Me.EsGarantia
|
||||
ObjFactura.Bloqueada = Me.Bloqueada
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 AndAlso TrKilometraje.Visible Then
|
||||
ObjFactura.Kilometraje = TxtKilometraje.Text.Trim.ToDecimal()
|
||||
@@ -13198,15 +13192,11 @@ Partial Class Ventas
|
||||
ObjFacturaDevolucion.Fech1 = TxtFech1.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate
|
||||
ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
|
||||
|
||||
|
||||
|
||||
ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
ObjFacturaDevolucion.Num2 = TxtNum2.Text.Trim.ToDouble
|
||||
ObjFacturaDevolucion.Num3 = If(ObjFacturaDevolucion.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDouble, TxtNum3.Text.Trim.ToDouble)
|
||||
ObjFacturaDevolucion.Num1 = TxtNum1.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.Num2 = TxtNum2.Text.Trim.ToDecimal
|
||||
ObjFacturaDevolucion.Num3 = If(ObjFacturaDevolucion.TipoDocto = "OP", DdlOrdenPago.SelectedValue.ToDecimal, TxtNum3.Text.Trim.ToDecimal)
|
||||
|
||||
ObjFacturaDevolucion.FechaPago = TxtFechaPago.Text.ToDate
|
||||
|
||||
@@ -14387,11 +14377,11 @@ Partial Class Ventas
|
||||
CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
|
||||
CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
|
||||
DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
|
||||
Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
|
||||
Kilometraje:=TxtKilometraje.Text.ToDecimal, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
|
||||
FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
|
||||
CveLineaAdicional:=CveLAdicional, DescripcionVenta:=DescripcionVenta,
|
||||
CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir,
|
||||
Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion, CveCobranzaEstatusTurno:=DdlGestionCobranza.SelectedValue.ToEntero, Addenda:=factura.Addenda) Then
|
||||
Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion, CveCobranzaEstatusTurno:=DdlGestionCobranza.SelectedValue.ToEntero, Addenda:=factura.Addenda, Bloqueada:=factura.Bloqueada) Then
|
||||
ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
|
||||
Else
|
||||
If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
|
||||
@@ -32917,6 +32907,7 @@ Partial Class Ventas
|
||||
TxtTotal.Text = (TxtSubTotal.Text.ToDecimal - LblDescuentos.Text.ToDecimal - LblAmortizacion.Text.ToDecimal + TxtIVA.Text.ToDecimal + TxtIEPS.Text.ToDecimal - TxtRetIVA.Text.ToDecimal - TxtRetISR.Text.ToDecimal - ImpuestosLocales).ToDecimal.FormatoNumero
|
||||
|
||||
|
||||
|
||||
TipoCambio = 1
|
||||
Moneda = 1
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user