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

-- option explicit

Browse Source
This commit is contained in:
rrene
2023-09-18 09:04:21 -07:00
parent a66043a7ba
commit 98017286c9
3 changed files with 98 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Compras/Proveedores.aspx.vb
View File

@@ -1338,7 +1338,7 @@ Partial Class Compras_Proveedores
If UsuarioActual.TienePermisoProceso(273) Then
If CType(sender, GridView).ID = "GvA" And e.Row.DBCampo("CveCompra").ToEntero > 0 And e.Row.DBCampo("TipoDocto") = "NC" Then
Dim Parametros = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
Dim Parametros As String = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
e.Row.FCHyperLink("HLDevolverDinero").Visible = True
e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}"
End If
@@ -1452,8 +1452,8 @@ Partial Class Compras_Proveedores
Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
'CARGA LO YA SELECCIONADO
Dim CveSeleccionado = -1
Dim Seleccionado = ""
Dim CveSeleccionado As Integer = -1
Dim Seleccionado As String = ""
Seleccionado = Ddl.SelectedItem.Text
CveSeleccionado = Ddl.SelectedValue.ToEntero
@@ -1544,7 +1544,7 @@ Partial Class Compras_Proveedores
Dim tIdContaProveedor As Integer
Dim CuentaAbono As Integer
Dim ErrorBancos = False
Dim ErrorBancos As Boolean = False
Dim ErrorConta As Boolean = False
Dim ErrorContactos As Boolean = False
Dim ErrorSucursales As Boolean = False
@@ -1645,7 +1645,7 @@ Partial Class Compras_Proveedores
If IdCuentaContable > 0 Then
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
Dim dt = ObjContaAC.DtResultados
Dim dt As DataTable = ObjContaAC.DtResultados
Dim CtaCodigo As String
If dt.Rows.Count = 1 Then
@@ -1836,7 +1836,7 @@ Partial Class Compras_Proveedores
Dim CreoCuenta As Boolean = False
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
If drCuenta IsNot Nothing Then
CuentaAbono = drCuenta("Id").ToString.ToEntero
@@ -2962,8 +2962,8 @@ Partial Class Compras_Proveedores
If Adjunto.Trim.Length > 0 Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
If File.Exists(linkDescargaArchivo) Then
ImgDownLoad.Visible = True
@@ -3378,7 +3378,7 @@ Partial Class Compras_Proveedores
If e.Row.RowType = DataControlRowType.DataRow Then
If CveProveedor < 0 Then
For Index = 1 To TempDTCuentasBancos.Rows.Count
For Index As Integer = 1 To TempDTCuentasBancos.Rows.Count
TempDTCuentasBancos.Rows(Index - 1)("CveCuentaDeposito") = Index
Next
TempDTCuentasBancos.AcceptChanges()
@@ -3455,7 +3455,7 @@ Partial Class Compras_Proveedores
Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
End If
Else
Dim index = GvRow.RowIndex
Dim index As Integer = GvRow.RowIndex
TempDTCuentasBancos.Rows.RemoveAt(index)
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
End If
@@ -3626,7 +3626,7 @@ Partial Class Compras_Proveedores
'Dim DtMonedas As New DataTable
'DtMonedas.Columns.Add("CveMoneda", GetType(Integer))
'DtMonedas.Columns.Add("Abreviatura", GetType(String))
Dim OcupaFiltro = False
Dim OcupaFiltro As Boolean = False
If CType(GVHistorial.DataSource, DataTable) IsNot Nothing AndAlso CType(GVHistorial.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
OcupaFiltro = True
@@ -3717,10 +3717,10 @@ Partial Class Compras_Proveedores
Dim DTCxPTempral As DataTable = Nothing
'OBTENEMOS LOS DATOS
Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetCxPProveedor(CveProveedor, FI, FF, -1, -1, -1, -1, CveMonedaFiltro, -1, RBSucursal.SelectedValue.ToEntero, -1, FVI, FVF) Then
@@ -3729,7 +3729,7 @@ Partial Class Compras_Proveedores
If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then
Dim dr As DataRow = DTCxPTempral.Rows(0)
Dim lista = New List(Of CrystalParametro)
Dim lista As New List(Of CrystalParametro)
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
@@ -4052,10 +4052,10 @@ Partial Class Compras_Proveedores
If rblreporte.SelectedValue = "cxp" Then
'OBTENEMOS LOS DATOS
Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaInicioCXP.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaFinCXP.Text}"
@@ -4105,8 +4105,8 @@ Partial Class Compras_Proveedores
'OBTENEMOS LOS DATOS
Dim DtANC As DataTable
Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
Dim CveProveedorSucursal As Integer = RBSucursal.SelectedValue.ToEntero()
If ObjMovtos.GetAnticiposProveedor(CveProveedor, If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), CveMoneda, -1, FI, FF) Then
DtANC = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, FechaVencimiento"))