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:
Jonathan Alexis Perez Morales
2024-11-05 11:34:45 -07:00
parent c0c9b5006f c256596b38
commit 4f3647a128
33 changed files with 834 additions and 216 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Ventas.aspx
View File

@@ -862,7 +862,7 @@
<td>
<asp:UpdatePanel ID="UpRemEspecial" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:CheckBox ID="ChkRemEspecial" runat="server" />
<asp:CheckBox ID="ChkRemEspecial" runat="server" AutoPostBack="true" OnCheckedChanged="ChkRemEspecial_CheckedChanged" />
</ContentTemplate>
</asp:UpdatePanel>
</td>

35
Ventas/Ventas.aspx.vb
View File

@@ -5247,24 +5247,17 @@ Partial Class Ventas
EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
If DbRowVenta("Num2").ToString().ToEntero() = 2000 Then
If DbRowVenta("Num2").ToString = "2000" Then
ChkRemEspecial.Checked = True
ChkRemEspecial.Enabled = False
TxtFech2.Text = DbRowVenta("Fech2").ToString()
TrRemEspecial.Visible = UsuarioActual.TienePermisoProceso(390)
End If
If UsuarioActual.TienePermisoProceso(390) Then
TrRemEspecial.Visible = True
ChkRemEspecial.Enabled = True
End If
End If
'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
' Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
' If TienePermiso <> "" Then ' si tiene acceso en el subproyecto
' 'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
' If UsuarioActual.TienePermisoProceso(264) Then
' InicializaAplicaRNCDevolucion(TmpDT)
' End If
' End If
'End If
Case "RNC"
Trsaldo.Visible = True
HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -10760,13 +10753,17 @@ Partial Class Ventas
CveVentaRelacionada = CveAnticipoPadre
End If
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
If UsuarioActual.CveEmpresa = 119 Then AutoConta = False
If UsuarioActual.CveEmpresa = 140 Then AutoConta = True
If (TieneAnticipo AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2") OrElse (ListaNCDesc IsNot Nothing AndAlso ListaNCDesc.Count > 0) Then
CreaObjetosVentaAmortizacion(ObjVentas, FolioFiscalRelacionado, CveVentaRelacionada, NCDescuento:=NCDescuento)
If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjAcum, ObjContr, ObjFacturaDevolucion, ObjBancos, Nothing,
Nothing, NCDescuento:=NCDescuento, ListaNCDescuento:=ListaNCDesc, IndexNC:=(If(DtVentasNC IsNot Nothing, DtVentasNC.Rows.Count - 1, 0))) Then
ListaNotasCreditoGeneradas.Add(ObjFacturaDevolucion)
If ObjFacturaDevolucion.CvePrePoliza > 0 Then
If ObjConta.ValidacionesPrePoliza(ObjFacturaDevolucion.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=False) Then
If ObjConta.ValidacionesPrePoliza(ObjFacturaDevolucion.CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=ObjFacturaDevolucion.CveVenta, AutoConta:=AutoConta) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Ventas/Ventas-NCGeneradas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
End If
@@ -10786,9 +10783,9 @@ Partial Class Ventas
Nothing, NCDescuento:=NCDescuento, ListaNCDescuento:=ListaNCBonificacion, IndexNC:=(DtVentasNC.Rows.Count - 1)) Then
ListaNotasCreditoGeneradas.Add(ObjFacturaBonificacion)
If ObjFacturaBonificacion.CvePrePoliza > 0 Then
If ObjConta.ValidacionesPrePoliza(ObjFacturaBonificacion.CvePrePoliza, UsuarioActual, Opcion:=5, AutoConta:=False) Then
If ObjConta.ValidacionesPrePoliza(ObjFacturaBonificacion.CvePrePoliza, UsuarioActual, Opcion:=5, CveVenta:=ObjFacturaBonificacion.CveVenta, AutoConta:=AutoConta) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Ventas/Ventas-NCGeneradas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
GuardaLogAD($"Ventas/Ventas-NCGeneradas2 | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
End If
End If
End If
@@ -39793,5 +39790,13 @@ Partial Class Ventas
' End Sub
'End Class
Protected Sub ChkRemEspecial_CheckedChanged(sender As Object, e As EventArgs)
Dim objV As New ClsVentas
If objV.UpdateVentaRemisionEspecial(CveVenta, If(ChkRemEspecial.Checked, 2000, 0), Now.AddDays(7), UsuarioActual.CveEmpresa) Then
Alert("Se aplicó el cambio", TipoMensaje.ToastInformacion)
End If
objV.Dispose()
End Sub
End Class