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

Procesos 324,325,326

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-06-30 10:17:57 -07:00
parent 69680bd57c
commit c0814fb6de
1 changed files with 28 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Ventas/Ventas.aspx.vb
View File

@@ -4911,11 +4911,11 @@ Partial Class Ventas
'ACTIVA CONVERSION DE MONEDA 'ACTIVA CONVERSION DE MONEDA
If DdlMoneda.SelectedValue.ToEntero() = 1 Then If DdlMoneda.SelectedValue.ToEntero() = 1 Then
TrConversionDolares.Visible = True TrConversionDolares.Visible = True
ChkConvertirDolares.Enabled = True ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
TxtTipoCambioDlls.Enabled = True TxtTipoCambioDlls.Enabled = True
Else Else
TrConversionTipoCambio.Visible = True TrConversionTipoCambio.Visible = True
ChkConvertirDoctoPesos.Enabled = True ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
TxtTipoCambio.Enabled = True TxtTipoCambio.Enabled = True
End If End If
End If End If
@@ -5308,9 +5308,15 @@ Partial Class Ventas
'FACTURACION 3.3 'FACTURACION 3.3
DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago 'No puede asignar PUE como método de pago
If UsuarioActual.TienePermisoProceso(326) Then
DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago.FiltraParametros("CveMetodoPago <> 1")
Else
DdlMetodoPago33.DataSource = GlobalDTVtaMetodoPago
End If
DdlMetodoPago33.DataBind() DdlMetodoPago33.DataBind()
DdlMetodoPago33.SelectedValue = "3" DdlMetodoPago33.SelectedValueExist("3")
CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero()) CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero())
@@ -6163,7 +6169,9 @@ Partial Class Ventas
'si llegó por la opción de cotización no debe de restringuir 'si llegó por la opción de cotización no debe de restringuir
If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) If Not UsuarioActual.TienePermisoProceso(325) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
End If
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
LnkPedido2SinFacturar.Visible = False LnkPedido2SinFacturar.Visible = False
LnkCotizaciones.Visible = False LnkCotizaciones.Visible = False
@@ -6202,7 +6210,9 @@ Partial Class Ventas
If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
'quito remisión y factura 'quito remisión y factura
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) If Not UsuarioActual.TienePermisoProceso(325) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
End If
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
If Opcion = 1 Then If Opcion = 1 Then
BtnEmitirImprimir.Visible = False BtnEmitirImprimir.Visible = False
@@ -6261,7 +6271,9 @@ Partial Class Ventas
'si llegó por la opción de cotización no debe de restringuir 'si llegó por la opción de cotización no debe de restringuir
If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot" If IfNull(Request("Op"), "").ToString() = "Cot" Then DdlTipoComprobante.SelectedValue = "Cot"
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) If Not UsuarioActual.TienePermisoProceso(325) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
End If
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
BtnsFacturar.Visible = False BtnsFacturar.Visible = False
LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274) LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
@@ -6298,7 +6310,9 @@ Partial Class Ventas
Exit Sub Exit Sub
ElseIf DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso EsCreaApartirDe Then ElseIf DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso EsCreaApartirDe Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) If Not UsuarioActual.TienePermisoProceso(325) Then
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
End If
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs")) DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
@@ -20442,10 +20456,12 @@ Partial Class Ventas
TxtTipoCambio.Text = "1" TxtTipoCambio.Text = "1"
TxtTipoCambioDlls.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TxtTipoCambioDlls.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
TrConversionDolares.Visible = True TrConversionDolares.Visible = True
ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
Case "2" Case "2"
TxtTipoCambioDlls.Text = "1" TxtTipoCambioDlls.Text = "1"
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
TrConversionTipoCambio.Visible = True TrConversionTipoCambio.Visible = True
ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
Case Else Case Else
TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString()
TrConversionTipoCambio.Visible = True TrConversionTipoCambio.Visible = True
@@ -27588,7 +27604,7 @@ Partial Class Ventas
If DdlMoneda.SelectedValue = "2" Then If DdlMoneda.SelectedValue = "2" Then
TrConversionTipoCambio.Visible = True TrConversionTipoCambio.Visible = True
End If End If
ChkConvertirDoctoPesos.Enabled = True ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
TxtTipoCambio.Enabled = True TxtTipoCambio.Enabled = True
TxtTotal.ReadOnly = False TxtTotal.ReadOnly = False
TxtTotal.Attributes("readonly") = "readonly" TxtTotal.Attributes("readonly") = "readonly"
@@ -28778,11 +28794,11 @@ Partial Class Ventas
If DdlMoneda.SelectedValue.ToEntero() = 1 Then If DdlMoneda.SelectedValue.ToEntero() = 1 Then
TrConversionDolares.Visible = True TrConversionDolares.Visible = True
ChkConvertirDolares.Enabled = True ChkConvertirDolares.Enabled = Not UsuarioActual.TienePermisoProceso(324)
TxtTipoCambioDlls.Enabled = True TxtTipoCambioDlls.Enabled = True
Else Else
TrConversionTipoCambio.Visible = True TrConversionTipoCambio.Visible = True
ChkConvertirDoctoPesos.Enabled = True ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
TxtTipoCambio.Enabled = True TxtTipoCambio.Enabled = True
End If End If
@@ -29287,7 +29303,7 @@ Partial Class Ventas
'Sección Detalle 'Sección Detalle
DdlMoneda.Enabled = True DdlMoneda.Enabled = True
ChkConvertirDoctoPesos.Enabled = True ChkConvertirDoctoPesos.Enabled = Not UsuarioActual.TienePermisoProceso(324)
TxtTipoCambio.Enabled = True TxtTipoCambio.Enabled = True
TxtFechaEjecucion.ReadOnly = False TxtFechaEjecucion.ReadOnly = False
TxtFechaEjecucion.Text = Now.ToShortDateString TxtFechaEjecucion.Text = Now.ToShortDateString