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

importedevolución,. proveedoresabonar

Browse Source
This commit is contained in:
Rene Molina
2019-09-17 17:29:28 -07:00
parent b6b094ff18
commit b27636f205
2 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsContabilidad.vb
View File

@@ -1044,9 +1044,9 @@ Public Class ClsContabilidad
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
'No modificar esta seccion bajo ninguna circunstancia 'No modificar esta seccion bajo ninguna circunstancia -- Empresa.CvePlataforma = 3 Or
'***************************************************** '*****************************************************
If Empresa.CvePlataforma = 3 Or (CveUsuario.Contiene(100, 1425) And Empresa.CveEmpresa = 1) Then If (CveUsuario.Contiene(100, 1425) And Empresa.CveEmpresa = 1) Then
Retorno = ContabilizarPrePolizaSIG(CvePrePoliza, CveUsuario, Empresa, Fecha, Concepto) Retorno = ContabilizarPrePolizaSIG(CvePrePoliza, CveUsuario, Empresa, Fecha, Concepto)
Return Retorno Return Retorno
End If End If

16
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -565,7 +565,7 @@ Partial Class Bancos_ProveedoresAbonar
Dim FiltroInv As String = "" Dim FiltroInv As String = ""
If UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then If UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
Dim PorcentajeSaldo = e.Row.DBCampo("ImporteAlmacenPorcentaje").ToString.ToDouble + e.Row.DBCampo("ImporteServiciosPorcentaje").ToString.ToDouble Dim PorcentajeSaldo = e.Row.DBCampo("ImporteAlmacenPorcentaje").ToString.ToDouble + e.Row.DBCampo("ImporteServiciosPorcentaje").ToString.ToDouble + e.Row.DBCampo("ImporteDevolucionPorcentaje").ToString.ToDouble
Dim SaldoInv = (e.Row.DBCampo("Saldo").ToString.ToDouble * (PorcentajeSaldo / 100)) Dim SaldoInv = (e.Row.DBCampo("Saldo").ToString.ToDouble * (PorcentajeSaldo / 100))
If UsuarioActual.Empresa.Funcionalidad(134) = "1" Then 'cuando es proporcional If UsuarioActual.Empresa.Funcionalidad(134) = "1" Then 'cuando es proporcional
FiltroInv = $"FnCambia({e.Row.FCCheckBox("Chk").ClientID},this,{SaldoInv},1,'{"El importe no debe exceder lo recibido en almacén"}',1);" FiltroInv = $"FnCambia({e.Row.FCCheckBox("Chk").ClientID},this,{SaldoInv},1,'{"El importe no debe exceder lo recibido en almacén"}',1);"
@@ -605,11 +605,17 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", String.Format("Importe Almacen: ${0} ({1}%) <br/> {2} <i>Importes <b>SIN</b> IVA</i>", e.Row.DBCampo("ImporteAlmacen"), e.Row.DBCampo("ImporteAlmacenPorcentaje"), If(e.Row.DBCampo("ImporteServicios").ToDouble > 0, String.Format("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios"), e.Row.DBCampo("ImporteServiciosPorcentaje")), ""))) Dim Str As New StringBuilder
Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
Select Case e.Row.DBCampo("EstatusInventario").ToEntero Select Case e.Row.DBCampo("EstatusInventario").ToEntero
Case 1 Case 1
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>" e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
If UsuarioActual.Empresa.Funcionalidad(134).ToEntero.Contiene(1, 2) Then ' si se recibió mercancía se paga lo proporcional If UsuarioActual.Empresa.Funcionalidad(134).ToEntero.Contiene(1, 2) Then ' si se recibió mercancía se paga lo proporcional
If UsuarioActual.CveEmpresa = 72 Then If UsuarioActual.CveEmpresa = 72 Then
If e.Row.DBCampo("Fecha").ToDate > "12/02/2017".ToDate Then If e.Row.DBCampo("Fecha").ToDate > "12/02/2017".ToDate Then
@@ -637,7 +643,7 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
End If End If
Case 3 Case 3
e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>" e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
Case Else Case Else
@@ -649,7 +655,7 @@ Partial Class Bancos_ProveedoresAbonar
End If End If
End If End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(306) = "1" And e.Row.DBCampo("AplicaNotaCredito").ToString = "True" Then If UsuarioActual.Empresa.Funcionalidad(306) = "1" And e.Row.DBCampo("AplicaNotaCredito").ToString = "True" Then
e.Row.FCCheckBox("Chk").Enabled = False e.Row.FCCheckBox("Chk").Enabled = False
End If End If