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

-- parametro de moneda en acreedoressaldos

Browse Source
This commit is contained in:
rrene
2023-07-26 16:27:45 -07:00
parent 1600cb86f3
commit 56f65a816e
4 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsMovimientos.vb
View File

@@ -1258,7 +1258,7 @@ Public Class ClsMovimientos
Return Retorno Return Retorno
End Function End Function
Public Function GetAcreedoresSaldos(CveProveedor As Integer, CveEmpresa As Integer) As Boolean Public Function GetAcreedoresSaldos(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -1267,6 +1267,7 @@ Public Class ClsMovimientos
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
End With End With
Try Try

2
Bancos/PopIECompras.aspx.vb
View File

@@ -798,7 +798,7 @@ Partial Class Bancos_PopIECompras
Protected Sub CargaAcreedores(Optional CveMoneda As Integer = 1) Protected Sub CargaAcreedores(Optional CveMoneda As Integer = 1)
Dim ObjMov As New ClsMovimientos Dim ObjMov As New ClsMovimientos
If ObjMov.GetAcreedoresSaldos(-1, UsuarioActual.CveEmpresa) Then If ObjMov.GetAcreedoresSaldos(-1, CveMoneda, UsuarioActual.CveEmpresa) Then
DtAcreedores = ObjMov.DtResultados.FiltraParametros($"CveProveedor > 0 AND CveMoneda = {CveMoneda}") DtAcreedores = ObjMov.DtResultados.FiltraParametros($"CveProveedor > 0 AND CveMoneda = {CveMoneda}")
DdlAcreedor.DataSource = DtAcreedores DdlAcreedor.DataSource = DtAcreedores
DdlAcreedor.DataBind() DdlAcreedor.DataBind()

3
Compras/Compras.aspx.vb
View File

@@ -2557,6 +2557,7 @@ Partial Class Compras_Compras
TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0 ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
LblMetodoPago.Text = dr("MetodoPagoSAT").ToString LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
@@ -3279,7 +3280,7 @@ Partial Class Compras_Compras
Protected Sub CargaAcreedores() Protected Sub CargaAcreedores()
Dim ObjMov As New ClsMovimientos Dim ObjMov As New ClsMovimientos
If ObjMov.GetAcreedoresSaldos(-1, UsuarioActual.CveEmpresa) Then If ObjMov.GetAcreedoresSaldos(-1, -1, UsuarioActual.CveEmpresa) Then
DtAcreedores = ObjMov.DtResultados.FiltraParametros("CveProveedor > 0") DtAcreedores = ObjMov.DtResultados.FiltraParametros("CveProveedor > 0")
DdlAcreedor.DataSource = DtAcreedores DdlAcreedor.DataSource = DtAcreedores
DdlAcreedor.DataBind() DdlAcreedor.DataBind()

2
Compras/eFacturas.aspx
View File

@@ -81,7 +81,7 @@
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkRegistarFactura" runat="server" OnClick="LnkRegistarFactura_Click" ><i class="fa fa-plus-square-o"></i> Registar Compras</asp:LinkButton> <asp:LinkButton ID="LnkRegistarFactura" runat="server" OnClick="LnkRegistarFactura_Click" Visible="false" ><i class="fa fa-plus-square-o"></i> Registar Compras</asp:LinkButton>
</li> </li>