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
2025-01-21 05:37:07 -07:00
parent a29568a06c ba67ae62e2
commit 4a3cd1b787
4 changed files with 56 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -8452,7 +8452,7 @@ Public Class ClsPaginas
RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
RptParametro.Add(New ReportParameter("DiasPagados", ObjNomina.DiasPagados.ToString))
RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"
RptParametro.Add(New ReportParameter("MetodoPago", ObjNomina.MetodoPago)) '"""PUE"" (Pago en una sola exhibición)"-
RptParametro.Add(New ReportParameter("FormaPago", """99"" (Por definir)"))
RptParametro.Add(New ReportParameter("Cantidad", "1"))
RptParametro.Add(New ReportParameter("Unidad", "ACT"))

15
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -863,8 +863,19 @@ Partial Class Bancos_ProveedoresAbonar
Pago.TCPago = TxtTC.Text.ToDecimal
Pago.ImportePago = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTC.Text.ToDecimal)
End If
If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal
If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = TxtTC.Text.ToDecimal
If ChkPagarPesos.Checked Then
If CompraActual.CveMoneda = 1 Then
Pago.TCCambioMoneda = 1
Else
Pago.TCCambioMoneda = 1 / TxtTC.Text.ToDecimal
End If
End If
If ChkPagarDolares.Checked Then
Pago.TCCambioMoneda = TxtTC.Text.ToDecimal
End If
If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal

4
Nomina/CalculoISRAnual.aspx.cs
View File

@@ -310,6 +310,10 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
Choja.Cell(224, 15).Value = droi["IngresosTotales"];
Choja.Cell(233, 15).Value = droi["ISRRetenido"];
Choja.Cell(248, 9).Value = string.Format("'{0}",UsuarioActual.Empresa.RFC);
Choja.Cell(250, 9).Value = string.Format("'{0}", UsuarioActual.Empresa.Empresa);
Choja.Cell(37, 15).Value = droi["IngresosTotales"];
Choja.Cell(48, 15).Value = droi["BaseExcenta"];

51
Ventas/Ventas.aspx.vb
View File

@@ -3641,7 +3641,7 @@ Partial Class Ventas
End If
If UsuarioActual.Empresa.CveEmpresa = 189 Then
ImgAntiPend.Visible = False
ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If
InicializaDevolucionAlmacen()
@@ -5489,7 +5489,7 @@ Partial Class Ventas
End If
If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False
ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
Else
ImgAntiPend.Visible = True
End If
@@ -5602,7 +5602,7 @@ Partial Class Ventas
If DbRowVenta("Saldo").ToString().ToDouble < 0.01 Then
If ViewState("CveCotizacion") IsNot Nothing AndAlso ViewState("CveCotizacion").ToString().ToEntero() > 0 AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then
If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False
ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
Else
ImgAntiPend.Visible = True
End If
@@ -9020,6 +9020,14 @@ Partial Class Ventas
If e.Row.DBCampo("TipoDocto").Contiene("Cot", "Rem") AndAlso (CveVenta > 0 AndAlso Not EsCreaApartirDe) Then
e.Row.FCLinkButton("imgClone").Visible = False
End If
If e.Row.DBCampo("CvePromocionDetalle").ToEntero() > 0 Then
If DtPromociones IsNot Nothing Then
Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={e.Row.DBCampo("CvePromocionDetalle")}")
e.Row.FCHtmlGenericControl("TagPromocion").Attributes.Add("title", NombrePromo)
End If
End If
End If
If CveVenta <= 0 Then
@@ -17219,7 +17227,7 @@ Partial Class Ventas
Private Sub CargaAnticipos(CveCliente As Integer)
Dim CargaAnticipos As Boolean = True
If UsuarioActual.CveEmpresa = 189 Then
CargaAnticipos = False
CargaAnticipos = UsuarioActual.TienePermisoProceso(406)
End If
HdnTieneAnticipos.Value = "0"
If CveCliente > 0 AndAlso CargaAnticipos Then
@@ -17287,7 +17295,7 @@ Partial Class Ventas
End If
If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False
ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If
Else
GVAnticipos.DataSource = Nothing
@@ -17463,11 +17471,11 @@ Partial Class Ventas
End If
If UsuarioActual.Empresa.Funcionalidad(185) = "1" Then
If e.Row.DBCampo("Tipo").ToString().Contiene("Ant", "IxC") AndAlso Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Enabled = False
e.Row.FCCheckBox("Chk" & e.Row.RowIndex).ToolTip = "Anticipo Bloqueado"
e.Row.FCLinkButton("LnkSolicitarActivarAnticipo").Visible = True
End If
'If e.Row.DBCampo("Tipo").ToString().Contiene("Ant", "IxC") AndAlso Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
' e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Enabled = False
' e.Row.FCCheckBox("Chk" & e.Row.RowIndex).ToolTip = "Anticipo Bloqueado"
' e.Row.FCLinkButton("LnkSolicitarActivarAnticipo").Visible = True
'End If
End If
If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = DdlMoneda.SelectedValue.ToEntero() Then
@@ -18570,6 +18578,12 @@ Partial Class Ventas
If ObjDescuentoGral.CvePromocionDetalle > 0 Then
TagPromocion.Visible = True
If UsuarioActual.CveEmpresa = 189 Then
If DtPromociones IsNot Nothing Then
Dim NombrePromo As String = DtPromociones.FiltroPrimeroValor("NombrePromocion", $"CvePromocionDetalle={ObjDescuentoGral.CvePromocionDetalle}")
TagPromocion.Attributes.Add("title", NombrePromo)
End If
End If
End If
If Me.ObjDescuentoGral.EsPUModificado Then
@@ -19037,7 +19051,7 @@ Partial Class Ventas
End If
If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False
ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If
If ImgAntiPend.Visible Then
@@ -19085,7 +19099,7 @@ Partial Class Ventas
End If
If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False
ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If
If ImgAntiPend.Visible Then
@@ -33098,7 +33112,7 @@ Partial Class Ventas
If DtMovtos.Rows.Count > 0 Then ImgAntiPend.Visible = True
If UsuarioActual.CveEmpresa = 189 Then
ImgAntiPend.Visible = False
ImgAntiPend.Visible = UsuarioActual.TienePermisoProceso(406)
End If
Else
Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
@@ -40467,6 +40481,17 @@ Partial Class Ventas
Next
End If
Dim CveVenta As Integer = gvr.DataKey("CveVenta").ToEntero()
Dim CveIE As Integer = gvr.DataKey("CveIE").ToEntero()
Dim Saldo As Decimal = gvr.DataKey("Saldo").ToDecimal()
Dim ObjVta As New ClsVentas
If ObjVta.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), Saldo, 0, UsuarioActual.CveUsuario, 1, TipoDocumento:="Ant", DiasVencidos:=1, CveVenta:=CveVenta, CveIE:=CveIE) Then
Dim msgAlert = "La autorización se agregó correctamente."
Alert(msgAlert, TipoMensaje.ToastInformacionB)
End If
ObjVta.Dispose()
End Sub
#End Region