6285 lines
313 KiB
VB.net
6285 lines
313 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports System.Xml
|
|
'Imports msExcel = Microsoft.Office.Interop.Excel
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports System.IO
|
|
Imports System.Globalization
|
|
'Imports VBIDE
|
|
|
|
Partial Class Compras_Proveedores
|
|
Inherits ClsPaginas
|
|
|
|
|
|
'Configuración
|
|
#Region "P R O P I E D A D E S"
|
|
Private ReadOnly Property CveProveedor As Integer
|
|
Get
|
|
Return ViewState("CveProveedor").ToString.ToEntero
|
|
End Get
|
|
End Property
|
|
Private Property CveProveedorSucursal As Integer
|
|
Get
|
|
Return ViewState("CveProveedorSucursal").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveProveedorSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveCuentaBancaria As Integer
|
|
Get
|
|
Return ViewState("CveCuentaBancaria").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveCuentaBancaria") = value
|
|
End Set
|
|
End Property
|
|
Private Property Serie As String
|
|
Get
|
|
Return ViewState("Serie").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Serie") = value
|
|
End Set
|
|
End Property
|
|
Private Property Modalidad As String
|
|
Get
|
|
Return ViewState("Modalidad").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Modalidad") = value
|
|
End Set
|
|
End Property
|
|
Private Property SerieSucursal As String
|
|
Get
|
|
Return ViewState("SerieSucursal").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("SerieSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveMoneda As Integer
|
|
Get
|
|
Return ViewState("CveMoneda").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveMoneda") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtCuentasContables As Data.DataTable
|
|
Get
|
|
Return CType(ViewState("DtCuentasContables"), DataTable)
|
|
End Get
|
|
Set(value As Data.DataTable)
|
|
ViewState("DtCuentasContables") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTCuentasBancos As DataTable
|
|
Get
|
|
Return CType(ViewState("DTCuentasBancos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTCuentasBancos") = value
|
|
End Set
|
|
End Property
|
|
Private Property TempDTCuentasBancos As DataTable
|
|
Get
|
|
Return CType(ViewState("TempDTCuentasBancos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TempDTCuentasBancos") = value
|
|
End Set
|
|
End Property
|
|
Private Property DTCxP As DataTable
|
|
Get
|
|
Return CType(ViewState("DTCxP"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTCxP") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CountCuentasxPagar As Integer
|
|
Get
|
|
Return ViewState("CountCuentasxPagar").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CountCuentasxPagar") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property CountAnticipos As Integer
|
|
Get
|
|
Return ViewState("CountAnticipos").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CountAnticipos") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveMonedaFiltro As Integer
|
|
Get
|
|
Return ViewState("CveMonedaFiltro").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveMonedaFiltro") = value
|
|
End Set
|
|
End Property
|
|
Private Property TempDTProveedoresContactos As DataTable
|
|
Get
|
|
Return CType(ViewState("TempDTProveedoresContactos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TempDTProveedoresContactos") = value
|
|
End Set
|
|
End Property
|
|
Private Property TempDTProveedoresContactosOrigin As DataTable
|
|
Get
|
|
Return CType(ViewState("TempDTProveedoresContactosOrigin"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TempDTProveedoresContactosOrigin") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveProveedorContacto As Integer
|
|
Get
|
|
Return ViewState("CveProveedorContacto").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveProveedorContacto") = value
|
|
End Set
|
|
End Property
|
|
Private Property IndexDTContacto As Integer
|
|
Get
|
|
Return ViewState("IndexDTContacto").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("IndexDTContacto") = value
|
|
End Set
|
|
End Property
|
|
Private Property TempDTProveedoresContactosSucursal As DataTable
|
|
Get
|
|
Return CType(ViewState("TempDTProveedoresContactosSucursal"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TempDTProveedoresContactosSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property TempDTProveedoresContactosSucursalOrigin As DataTable
|
|
Get
|
|
Return CType(ViewState("TempDTProveedoresContactosSucursalOrigin"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TempDTProveedoresContactosSucursalOrigin") = value
|
|
End Set
|
|
End Property
|
|
Private Property EsContactoSucursal As Integer
|
|
Get
|
|
Return ViewState("EsContactoSucursal").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("EsContactoSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property TempDTSucursales As DataTable
|
|
Get
|
|
Return CType(ViewState("TempDTSucursales"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TempDTSucursales") = value
|
|
End Set
|
|
End Property
|
|
Private Property TempDTSucursalesOrigin As DataTable
|
|
Get
|
|
Return CType(ViewState("TempDTSucursalesOrigin"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TempDTSucursalesOrigin") = value
|
|
End Set
|
|
End Property
|
|
Private Property IndexDTSucursal As Integer
|
|
Get
|
|
Return ViewState("IndexDTSucursal").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("IndexDTSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property CveTempSucursal As Integer
|
|
Get
|
|
Return ViewState("CveTempSucursal").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveTempSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property EsEditar As Integer
|
|
Get
|
|
Return ViewState("EsEditar").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("EsEditar") = value
|
|
End Set
|
|
End Property
|
|
Private Property EsEditarSucursal As Integer
|
|
Get
|
|
Return ViewState("EsEditarSucursal").ToString.ToEntero
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("EsEditarSucursal") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtVencido As DataTable
|
|
Get
|
|
DtVencido = CType(ViewState("DtVencido"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtVencido") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtRotacion As DataTable
|
|
Get
|
|
DtRotacion = CType(ViewState("DtRotacion"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtRotacion") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtSaldoMensual As DataTable
|
|
Get
|
|
DtSaldoMensual = CType(ViewState("DtSaldoMensual"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtSaldoMensual") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtComportamientoCompras As DataTable
|
|
Get
|
|
DtComportamientoCompras = CType(ViewState("DtComportamientoCompras"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtComportamientoCompras") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DtPreguntasEvaluacion() As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("DtPreguntasEvaluacion")), New DataTable(), DirectCast(ViewState("DtPreguntasEvaluacion"), DataTable))
|
|
End Get
|
|
Set
|
|
ViewState("DtPreguntasEvaluacion") = Value
|
|
End Set
|
|
End Property
|
|
Private Property DtRespuestasEvaluacion() As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("DtRespuestasEvaluacion")), New DataTable(), DirectCast(ViewState("DtRespuestasEvaluacion"), DataTable))
|
|
End Get
|
|
Set
|
|
ViewState("DtRespuestasEvaluacion") = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DTCobrosRealizados As DataTable
|
|
Get
|
|
DTCobrosRealizados = CType(ViewState("DTCobrosRealizados"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DTCobrosRealizados") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtProveedoresHistorial As DataTable
|
|
Get
|
|
DtProveedoresHistorial = CType(ViewState("DtProveedoresHistorial"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtProveedoresHistorial") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtCxPHistorial As DataTable
|
|
Get
|
|
DtCxPHistorial = CType(ViewState("DtCxPHistorial"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtCxPHistorial") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtAntNC As DataTable
|
|
Get
|
|
DtAntNC = CType(ViewState("DtAntNC"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtAntNC") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtAntNCH As DataTable
|
|
Get
|
|
DtAntNCH = CType(ViewState("DtAntNCH"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtAntNCH") = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
|
|
#Region " D O C U M E N T A C I O N"
|
|
|
|
|
|
|
|
Property CveDocumentacionElectronica As Integer
|
|
Get
|
|
If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CvePersonalClienteDocumentacion") = value
|
|
End Set
|
|
End Property
|
|
|
|
Property CveDocumentacion As Integer
|
|
Get
|
|
If ViewState("CveDocumentacion") Is Nothing Then
|
|
Return -1
|
|
Else
|
|
Return DirectCast(ViewState("CveDocumentacion"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveDocumentacion") = value
|
|
End Set
|
|
End Property
|
|
|
|
Property Documentacion As String
|
|
Get
|
|
If ViewState("Documentacion") Is Nothing Then
|
|
Return "-1"
|
|
Else
|
|
Return ViewState("Documentacion").ToString
|
|
End If
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Documentacion") = value
|
|
End Set
|
|
End Property
|
|
|
|
Property AdjuntoDocumentacion As String
|
|
Get
|
|
If ViewState("AdjuntoDocumentacion") Is Nothing Then
|
|
Return ""
|
|
Else
|
|
Return ViewState("AdjuntoDocumentacion").ToString
|
|
End If
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("AdjuntoDocumentacion") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
|
|
Property DiasVigencia As Integer
|
|
Get
|
|
If ViewState("DiasVigencia") Is Nothing Then
|
|
Return 0
|
|
Else
|
|
Return DirectCast(ViewState("DiasVigencia"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("DiasVigencia") = value
|
|
End Set
|
|
End Property
|
|
|
|
Property AplicaFechaVencimiento As Boolean
|
|
Get
|
|
If ViewState("AplicaFechaVencimiento") Is Nothing Then
|
|
Return True
|
|
Else
|
|
Return DirectCast(ViewState("AplicaFechaVencimiento"), Boolean)
|
|
End If
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("AplicaFechaVencimiento") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property FechaVigencia As Date
|
|
Get
|
|
If ViewState("FechaVigencia") Is Nothing Then
|
|
Return Nothing
|
|
Else
|
|
Return ViewState("FechaVigencia").ToString.ToDate
|
|
End If
|
|
End Get
|
|
Set(value As Date)
|
|
ViewState("FechaVigencia") = value
|
|
End Set
|
|
End Property
|
|
|
|
Property Estatus As Integer
|
|
Get
|
|
If ViewState("Estatus") Is Nothing Then
|
|
Return 0
|
|
Else
|
|
Return DirectCast(ViewState("Estatus"), Integer)
|
|
End If
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("Estatus") = value
|
|
End Set
|
|
End Property
|
|
|
|
Property ObservacionDocumentacion As String
|
|
Get
|
|
If ViewState("ObservacionDocumentacion") Is Nothing Then
|
|
Return ""
|
|
Else
|
|
Return ViewState("ObservacionDocumentacion").ToString
|
|
End If
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("ObservacionDocumentacion") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property FechaLimite As Date
|
|
Get
|
|
If ViewState("FechaLimite") Is Nothing Then
|
|
Return Date.Now.AddDays(15)
|
|
Else
|
|
Return ViewState("FechaLimite").ToString.ToDate
|
|
End If
|
|
End Get
|
|
Set(value As Date)
|
|
ViewState("FechaLimite") = value
|
|
End Set
|
|
End Property
|
|
|
|
Property DTDocumentacion As DataTable
|
|
Get
|
|
If ViewState("DTDocumentacion") Is Nothing Then
|
|
Return New DataTable
|
|
Else
|
|
Return DirectCast(ViewState("DTDocumentacion"), DataTable)
|
|
End If
|
|
End Get
|
|
Set(value As DataTable)
|
|
|
|
End Set
|
|
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CountCuentasxPagar = 0
|
|
CountAnticipos = 0
|
|
DtCuentasContables = Nothing
|
|
ViewState("Orden") = ""
|
|
SerieSucursal = ""
|
|
TrFolioDuplicado.Visible = False
|
|
CargaMonedas()
|
|
'HlAgregarExcel.Visible = UsuarioActual.CveRol = 1
|
|
|
|
If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
|
|
|
|
ViewState("CveProveedor") = Request("CveProveedor")
|
|
Serie = IfNull(Request("Serie"), "").ToString
|
|
CveProveedorSucursal = IfNull(Request("CveProveedorSucursal"), "-1").ToString.ToEntero
|
|
CveMoneda = IfNull(Request("CveMoneda"), "-1").ToString.ToEntero
|
|
|
|
|
|
If CveMoneda > 0 Then RBMoneda.SelectedValue = CveMoneda.ToString
|
|
|
|
If CargaDatos() Then
|
|
CveMonedaFiltro = -1
|
|
|
|
CargaHistorial(CveProveedorSucursal)
|
|
CargaCxP(CveProveedorSucursal)
|
|
CargaAnticipos(CveProveedorSucursal)
|
|
CargaBancos(CveProveedorSucursal)
|
|
CargaProveedorSucursales()
|
|
|
|
CargaOC()
|
|
CargaDocs()
|
|
'CargaColectivas()
|
|
'CargaSaldosBeneficiarios()
|
|
CargaUsuariosPortal()
|
|
CargarPagosNoBancarios()
|
|
CargaFiltroMonedas()
|
|
MostrarFiltro()
|
|
|
|
|
|
'Configuración de Modalidad Update
|
|
ActivarRegistroAutomatico()
|
|
BtnGuardar.Text = "Guardar Cambios"
|
|
LtlTitulo.Text = "Proveedor:"
|
|
'ImgAddVenta
|
|
HlAddCompra.NavigateUrl = $"/Compras/Compras.aspx?CveProveedor={CveProveedor}"
|
|
|
|
'ImgAddCompra.Attributes.Add("OnClick", "window.location = '/Compras/Compras.aspx?CveProveedor=" & CveProveedor & "'")
|
|
'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250, -250); $('#DivEventoBitacora').show(1000); ")
|
|
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
|
|
|
|
'CARGA LOS FILTROS DEL TAB COMPORTAMIENTO VENTA
|
|
TabComportamientoCompras.Visible = True
|
|
CargaFiltros()
|
|
End If
|
|
HlEvento.Visible = True
|
|
HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveProveedor=" & CveProveedor & "&TB_iframe=true&height=370&width=600;"
|
|
|
|
CargaRepresentantes()
|
|
|
|
Else
|
|
'Configuración de Modalidad Insert
|
|
|
|
ImgAddObs.Visible = False
|
|
ChkEstado.Checked = True : ChkEstado.Enabled = False
|
|
LblFechaCaptura.Text = Now.ToShortDateString()
|
|
LblUsuarioCapturo.Text = UsuarioActual.Usuario
|
|
ViewState("CveProveedor") = -1
|
|
DivSucursales.Visible = False
|
|
CargaCombos()
|
|
CargaDIOTPais()
|
|
|
|
'DDlDIOTTipoTercero.SelectedValueExist(1)
|
|
'DdlDIOTTipoOperacion.SelectedValueExist(3)
|
|
|
|
CreaTempDTProveedoresContactos()
|
|
CreaTempDTProveedoresContactosSucursales()
|
|
CreaTempDTSucursales()
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(544).ToString = "1" Then
|
|
Dim ObjSub As New ClsSubProyectos
|
|
Dim CveSubProyectoMatriz As Integer
|
|
|
|
If ObjSub.GetSubProyectos() Then
|
|
CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero
|
|
End If
|
|
|
|
Dim ObjFolios As New ClsGralFolios()
|
|
If ObjFolios.GetFolios("Pro", UsuarioActual.CveEmpresa) Then
|
|
|
|
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {CveSubProyectoMatriz} And Estado = 'Activo'")
|
|
If DT.Rows.Count > 0 Then
|
|
TxtCodigo.Text = DT.Rows(0)("FActual").ToString
|
|
TxtCodigo.Enabled = False
|
|
Else
|
|
Alert("No tiene registrados Folios Automáticos.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
|
|
If Request("CveFactura") IsNot Nothing Then
|
|
CargadeFactura(Request("CveFactura").ToString.ToEntero)
|
|
|
|
End If
|
|
|
|
If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito
|
|
|
|
ActivarRegistroAutomatico()
|
|
End If
|
|
|
|
'Crea y carga CuentasBancarias - tab:Bancos
|
|
CargaCuentasBancarias()
|
|
|
|
|
|
If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago
|
|
HplAbonarMasivo.Visible = True
|
|
GvCxP.Columns(11).Visible = True
|
|
End If
|
|
|
|
If UsuarioActual.TienePermisoProceso(88) Then BtnGuardar.Visible = True 'agregar/Nuevo proveedor
|
|
|
|
ScriptManager.RegisterStartupScript(Me, Me.GetType, "Ll", "pageLoad();", True)
|
|
|
|
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
|
DivFiscal.Visible = False
|
|
TrFondoGarantia.Visible = False
|
|
divportalusuarios.Visible = False
|
|
End If
|
|
|
|
CveProveedorContacto = -1
|
|
' CargaDdlProveedorSucursalesContactos()
|
|
|
|
'USUARIOS
|
|
'02/07/2018 - PRUEBAS USUARIOS PLATAFORMA PROVEEDOR
|
|
If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso CveProveedor > 0 Then 'SI ES USUARIO SIG
|
|
TabUsuarios.Visible = True
|
|
CargaUsuariosPortalProveedor()
|
|
|
|
LnkAddUsuario.Visible = True
|
|
LnkAddUsuario.Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveProveedor={CveProveedor}', 801, 700);")
|
|
|
|
End If
|
|
|
|
TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString
|
|
TxtFechaFCredito.Text = Now.ToShortDateString
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
|
|
TabEvaluacion.Visible = True
|
|
CargaEvaluacionProveedor()
|
|
UpEvaluaciones.Update()
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
|
|
TrConfianzaProveedor.Visible = True
|
|
End If
|
|
|
|
If UsuarioActual.TienePermisoProceso(273) Then
|
|
GvA.Columns(5).Visible = True
|
|
End If
|
|
|
|
End If
|
|
|
|
Dim script As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#CXPContador""", """badge-success""", """badge-danger""", If(CountCuentasxPagar > 0, """badge-danger""", """badge-success"""), CountCuentasxPagar.ToString)
|
|
RegistraScript(script, "contadorcuentaspopagar")
|
|
|
|
Dim script2 As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#AnticiposContador""", """badge-success""", """badge-danger""", If(CountAnticipos > 0, """badge-danger""", """badge-success"""), CountAnticipos.ToString)
|
|
RegistraScript(script2, "contadoranticipos")
|
|
|
|
RegisterPostBackControl()
|
|
End Sub
|
|
|
|
Private Sub SetValues()
|
|
ViewState("Orden") = ""
|
|
ViewState("OrdenUsuarios") = ""
|
|
'ViewState("OEstado") = "Estado DESC"
|
|
'ViewState("OFecha") = "Fecha DESC"
|
|
'ViewState("OUsuario") = "Usuario DESC"
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaRepresentantes()
|
|
|
|
If CveProveedor > 0 Then
|
|
|
|
Dim ObjProveedores As New ClsCompProveedores
|
|
|
|
If ObjProveedores.GetRePresentanteLegal(-1, UsuarioActual.CveEmpresa, CveProveedor) Then
|
|
|
|
GvRepresentante.DataSource = ObjProveedores.DtResultados
|
|
Else
|
|
GvRepresentante.DataSource = Nothing
|
|
End If
|
|
|
|
ObjProveedores.Dispose()
|
|
|
|
GvRepresentante.DataBind()
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
|
|
If UsuarioActual.Empresa.UsaContabilidad Then
|
|
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
|
If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
|
|
DtCuentasContables = ObjContabilidad.DtResultados
|
|
Else
|
|
DtCuentasContables = Nothing
|
|
End If
|
|
ObjContabilidad.Dispose()
|
|
ElseIf UsuarioActual.Empresa.UsaContabilidadSIG Then
|
|
Dim ObjContabilidad As New ClsContabilidad
|
|
If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
|
|
DtCuentasContables = ObjContabilidad.DtResultados
|
|
Else
|
|
DtCuentasContables = Nothing
|
|
End If
|
|
ObjContabilidad.Dispose()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Function CargadeFactura(CveFactura As Integer) As Integer
|
|
|
|
Dim ObjeFacturas As New ClsCompras
|
|
If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-2), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
|
|
Dim XMLDoc As New XmlDocument
|
|
|
|
Try
|
|
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0)
|
|
XMLDoc.Load(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & dr("CveEmpresa").ToString & "\Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString)
|
|
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
|
|
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
|
|
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
|
|
Dim nodo As XmlNode = XMLDoc.DocumentElement
|
|
|
|
If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
|
|
namespaces.AddNamespace(Prefijo, cfdVer)
|
|
Dim Version As String = ValorXml(nodo, "Version")
|
|
|
|
Dim node As XmlNode
|
|
node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces)
|
|
If node IsNot Nothing Then
|
|
TxtRFC.Text = ValorXml(node, "rfc")
|
|
|
|
If Version = "3.3" Then
|
|
TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
|
|
TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
|
|
ChkEstado.Checked = True
|
|
Else
|
|
TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
|
|
TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
|
|
Dim nodeDomicilio As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:DomicilioFiscal", Prefijo), namespaces)
|
|
TxtDireccion.Text = ValorXml(nodeDomicilio, "calle") & " " & ValorXml(nodeDomicilio, "noExterior")
|
|
ChkEstado.Checked = True
|
|
|
|
node = XMLDoc.SelectSingleNode(String.Format("//{0}:Impuestos", Prefijo), namespaces)
|
|
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
|
|
'Dim nodeRetenciones As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Retencion", Prefijo), namespaces)
|
|
'Dim nodeRet As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Retenciones", Prefijo), namespaces)
|
|
|
|
Dim nodeTraslados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Traslado", Prefijo), namespaces)
|
|
For Each traslado As XmlNode In nodeTraslados
|
|
If traslado.Attributes("impuesto").Value = "IVA" Then
|
|
TxtIVA.Text = traslado.Attributes("tasa").Value.ToDouble.ToString("N2")
|
|
'Retenciones
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
|
|
|
|
Catch ex As Exception
|
|
Alert(String.Format("No se pudo cargar la información ({0})", ex.Message), TipoMensaje.MsgAdvertencia)
|
|
Return 0
|
|
End Try
|
|
|
|
End If
|
|
Return 1
|
|
End Function
|
|
|
|
Private Function ValorXml(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
|
If n Is Nothing Then Return Retorno
|
|
|
|
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
|
If o Is Nothing Then
|
|
Return Retorno
|
|
Else
|
|
Return o.Value
|
|
End If
|
|
|
|
End Function
|
|
|
|
Private Sub CargaCombos()
|
|
|
|
CargaResponsable()
|
|
CargaClasificacionProveedor()
|
|
CargaUsuarioEvaluacionProveedor()
|
|
CargaBancosSAT()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaBancosSAT()
|
|
|
|
Dim ObjBancos As New ClsBancos
|
|
|
|
If ObjBancos.GetBancosSAT Then
|
|
DdlSatBanco.DataSource = ObjBancos.DtResultados
|
|
End If
|
|
|
|
ObjBancos.Dispose()
|
|
|
|
DdlSatBanco.DataBind()
|
|
DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Function CargaDatos() As Boolean
|
|
Dim Retorno As Boolean = False
|
|
Dim ObjProveedor As New ClsCompProveedores()
|
|
|
|
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
|
If ObjProveedor.DtResultados.Rows.Count > 0 Then
|
|
'Campos para Modificación
|
|
|
|
'Generales
|
|
TxtCodigo.Text = ObjProveedor.Codigo
|
|
TxtRazonSocial.Text = ObjProveedor.RazonSocial
|
|
LtlProveedor.Text = ObjProveedor.RazonSocial
|
|
TxtNombreComercial.Text = ObjProveedor.NombreComercial
|
|
TxtNombreCorto.Text = ObjProveedor.NombreCorto
|
|
TxtDireccion.Text = ObjProveedor.Direccion
|
|
TxtRFC.Text = ObjProveedor.RFC
|
|
TxtTelefono.Text = ObjProveedor.Telefono
|
|
TxtContactoNombre.Text = ObjProveedor.ContactoNombre
|
|
TxtContactoEmail.Text = ObjProveedor.ContactoMail
|
|
TxtContactoTelefono.Text = ObjProveedor.ContactoCelular
|
|
TxtNotificarA.Text = ObjProveedor.NotificarA
|
|
TxtCP.Text = ObjProveedor.CP.ToString
|
|
LblSituacionSAT.Text = ObjProveedor.Situacion
|
|
|
|
HplAbonarMasivo.NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&Serie={1}&CveMoneda={2}", CveProveedor, Serie, CveMoneda)
|
|
|
|
HplAbonarMasivoNotas.NavigateUrl = String.Format("/Bancos/IE.aspx?OPCION=DevDinC&CveProveedor={0}&Masivo={1}", CveProveedor, 1)
|
|
|
|
TxtCorreoCobranza.Text = ObjProveedor.CorreoCobranza
|
|
LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza
|
|
LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;"
|
|
|
|
ChkFolioDuplicado.Checked = ObjProveedor.EditarFolioDuplicado
|
|
DdlMonedaPrefente.SelectedValueExist(ObjProveedor.CveMonedaPreferente.ToString)
|
|
|
|
ChkUsaLimiteCredito.Checked = ObjProveedor.UsaLimiteCredito
|
|
|
|
'Fiscal
|
|
TxtIVA.Text = (ObjProveedor.IVA * 100).FormatoNumero
|
|
TxtRetIVA.Text = ObjProveedor.RetIVA.ToString
|
|
TxtRetISR.Text = ObjProveedor.RetISR.ToString
|
|
|
|
'DIOT
|
|
CargaDIOTPais()
|
|
DDlDIOTTipoTercero.SelectedValueExist(ObjProveedor.DIOTCveTipoTercero)
|
|
DdlDIOTTipoOperacion.SelectedValueExist(ObjProveedor.DIOTCveTipoOperacion)
|
|
TxtDIOTNumIDFiscal.Text = ObjProveedor.DIOTNumeroIDFiscal
|
|
DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
|
|
TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
|
|
CargaCuentasConceptos()
|
|
divCuentas.Visible = True
|
|
divCuentasContp.Visible = False
|
|
Else
|
|
divCuentas.Visible = False
|
|
divCuentasContp.Visible = True
|
|
End If
|
|
|
|
'Contable
|
|
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
|
|
DdlCtaContAcreedores.AutoPostBack = True
|
|
DdlCtaContProveedores.AutoPostBack = True
|
|
DdlCtaContAnticipos.AutoPostBack = True
|
|
DdlCtaContFondoGarantia.AutoPostBack = True
|
|
DdlCtaContRetIVA.AutoPostBack = True
|
|
DdlCtaContRetIVAAcreditable.AutoPostBack = True
|
|
DdlCtaContRetISR.AutoPostBack = True
|
|
DdlCtaContComplementaria.AutoPostBack = True
|
|
DdlCtaContExtranjera.AutoPostBack = True
|
|
DdlCtaContDeudor.AutoPostBack = True
|
|
DdlCtaContDeudorExtranjera.AutoPostBack = True
|
|
DdlCtaContDeudorComplementaria.AutoPostBack = True
|
|
DdlCtaContDocsXPagar.AutoPostBack = True
|
|
DdlCtaContDocsXPagarExtranjera.AutoPostBack = True
|
|
DdlCtaContDocsXPagarComplementaria.AutoPostBack = True
|
|
DdlCtaContRetISRAcreditable.AutoPostBack = True
|
|
|
|
DdlCtaContProveedores.Attributes.Add("onclick", "CargaCuentas(1);")
|
|
DdlCtaContAcreedores.Attributes.Add("onclick", "CargaCuentas(6);")
|
|
DdlCtaContAnticipos.Attributes.Add("onclick", "CargaCuentas(2);")
|
|
DdlCtaContFondoGarantia.Attributes.Add("onclick", "CargaCuentas(3);")
|
|
DdlCtaContRetIVA.Attributes.Add("onclick", "CargaCuentas(4);")
|
|
DdlCtaContRetISR.Attributes.Add("onclick", "CargaCuentas(5);")
|
|
DdlCtaContComplementaria.Attributes.Add("onclick", "CargaCuentas(7);")
|
|
DdlCtaContExtranjera.Attributes.Add("onclick", "CargaCuentas(8);")
|
|
DdlCtaContAcreedoresExtranjera.Attributes.Add("onclick", "CargaCuentas(9);")
|
|
DdlCtaContAcreedoresComplementaria.Attributes.Add("onclick", "CargaCuentas(10);")
|
|
DdlCtaContAnticiposExtranjera.Attributes.Add("onclick", "CargaCuentas(11);")
|
|
DdlCtaContAnticiposComplementaria.Attributes.Add("onclick", "CargaCuentas(12);")
|
|
DdlCtaContDeudor.Attributes.Add("onclick", "CargaCuentas(13);")
|
|
DdlCtaContDeudorExtranjera.Attributes.Add("onclick", "CargaCuentas(14);")
|
|
DdlCtaContDeudorComplementaria.Attributes.Add("onclick", "CargaCuentas(15);")
|
|
DdlCtaContDocsXPagar.Attributes.Add("onclick", "CargaCuentas(16);")
|
|
DdlCtaContDocsXPagarExtranjera.Attributes.Add("onclick", "CargaCuentas(17);")
|
|
DdlCtaContDocsXPagarComplementaria.Attributes.Add("onclick", "CargaCuentas(18);")
|
|
DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);")
|
|
DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")
|
|
|
|
If UsuarioActual.Empresa.UsaContabilidadSIG = True And UsuarioActual.Empresa.UsaContabilidad = False Then
|
|
DdlCtaContAcreedores.DataTextField = "Cuenta" : DdlCtaContAcreedores.DataValueField = "CveCuenta"
|
|
DdlCtaContProveedores.DataTextField = "Cuenta" : DdlCtaContProveedores.DataValueField = "CveCuenta"
|
|
DdlCtaContAnticipos.DataTextField = "Cuenta" : DdlCtaContAnticipos.DataValueField = "CveCuenta"
|
|
DdlCtaContFondoGarantia.DataTextField = "Cuenta" : DdlCtaContFondoGarantia.DataValueField = "CveCuenta"
|
|
DdlCtaContRetIVA.DataTextField = "Cuenta" : DdlCtaContRetIVA.DataValueField = "CveCuenta"
|
|
DdlCtaContRetIVAAcreditable.DataTextField = "Cuenta" : DdlCtaContRetIVAAcreditable.DataValueField = "CveCuenta"
|
|
DdlCtaContRetISR.DataTextField = "Cuenta" : DdlCtaContRetISR.DataValueField = "CveCuenta"
|
|
DdlCtaContComplementaria.DataTextField = "Cuenta" : DdlCtaContComplementaria.DataValueField = "CveCuenta"
|
|
DdlCtaContExtranjera.DataTextField = "Cuenta" : DdlCtaContExtranjera.DataValueField = "CveCuenta"
|
|
DdlCtaContDeudor.DataTextField = "Cuenta" : DdlCtaContDeudor.DataValueField = "CveCuenta"
|
|
DdlCtaContDeudorExtranjera.DataTextField = "Cuenta" : DdlCtaContDeudorExtranjera.DataValueField = "CveCuenta"
|
|
DdlCtaContDocsXPagar.DataTextField = "Cuenta" : DdlCtaContDocsXPagar.DataValueField = "CveCuenta"
|
|
DdlCtaContDeudorComplementaria.DataTextField = "Cuenta" : DdlCtaContDeudorComplementaria.DataValueField = "CveCuenta"
|
|
DdlCtaContDocsXPagarComplementaria.DataTextField = "Cuenta" : DdlCtaContDocsXPagarComplementaria.DataValueField = "CveCuenta"
|
|
DdlCtaContRetISRAcreditable.DataTextField = "Cuenta" : DdlCtaContRetISRAcreditable.DataValueField = "CveCuenta"
|
|
DdlCtaContAcreedoresExtranjera.DataTextField = "Cuenta" : DdlCtaContAcreedoresExtranjera.DataValueField = "CveCuenta"
|
|
DdlCtaContAcreedoresComplementaria.DataTextField = "Cuenta" : DdlCtaContAcreedoresComplementaria.DataValueField = "CveCuenta"
|
|
DdlCtaContAnticiposExtranjera.DataTextField = "Cuenta" : DdlCtaContAnticiposExtranjera.DataValueField = "CveCuenta"
|
|
DdlCtaContAnticiposComplementaria.DataTextField = "Cuenta" : DdlCtaContAnticiposComplementaria.DataValueField = "CveCuenta"
|
|
DdlCtaContDocsXPagarExtranjera.DataTextField = "Cuenta" : DdlCtaContDocsXPagarExtranjera.DataValueField = "CveCuenta"
|
|
End If
|
|
|
|
'Proveedores
|
|
If ObjProveedor.IdCtaContProveedores > 0 Then DdlCtaContProveedores.Items.Add(New ListItem(ObjProveedor.CtaContProveedores, ObjProveedor.IdCtaContProveedores.ToString)) : DdlCtaContProveedores.SelectedValueExist(ObjProveedor.IdCtaContProveedores.ToString)
|
|
If ObjProveedor.IdCtaContProveedoresExtranjera > 0 Then DdlCtaContExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresExtranjera, ObjProveedor.IdCtaContProveedoresExtranjera.ToString)) : DdlCtaContExtranjera.SelectedValue = ObjProveedor.IdCtaContProveedoresExtranjera.ToString
|
|
If ObjProveedor.IdCtaContProveedoresComplementaria > 0 Then DdlCtaContComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresComplementaria, ObjProveedor.IdCtaContProveedoresComplementaria.ToString)) : DdlCtaContComplementaria.SelectedValue = ObjProveedor.IdCtaContProveedoresComplementaria.ToString
|
|
'Acreedores
|
|
If ObjProveedor.IdCtaContAcreedor > 0 Then DdlCtaContAcreedores.Items.Add(New ListItem(ObjProveedor.CtaContAcreedor, ObjProveedor.IdCtaContAcreedor.ToString)) : DdlCtaContAcreedores.SelectedValue = ObjProveedor.IdCtaContAcreedor.ToString
|
|
If ObjProveedor.IdCtaContAcreedorExtranjera > 0 Then DdlCtaContAcreedoresExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContAcreedorExtranjera, ObjProveedor.IdCtaContAcreedorExtranjera.ToString)) : DdlCtaContAcreedoresExtranjera.SelectedValue = ObjProveedor.IdCtaContAcreedorExtranjera.ToString
|
|
If ObjProveedor.IdCtaContAcreedorComplementaria > 0 Then DdlCtaContAcreedoresComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContAcreedorComplementaria, ObjProveedor.IdCtaContAcreedorComplementaria.ToString)) : DdlCtaContAcreedoresComplementaria.SelectedValue = ObjProveedor.IdCtaContAcreedorComplementaria.ToString
|
|
'Anticipos
|
|
If ObjProveedor.IdCtaContAnticipos > 0 Then DdlCtaContAnticipos.Items.Add(New ListItem(ObjProveedor.CtaContAnticipos, ObjProveedor.IdCtaContAnticipos.ToString)) : DdlCtaContAnticipos.SelectedValue = ObjProveedor.IdCtaContAnticipos.ToString
|
|
If ObjProveedor.IdCtaContAnticiposExtranjera > 0 Then DdlCtaContAnticiposExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContAnticiposExtranjera, ObjProveedor.IdCtaContAnticiposExtranjera.ToString)) : DdlCtaContAnticiposExtranjera.SelectedValue = ObjProveedor.IdCtaContAnticiposExtranjera.ToString
|
|
If ObjProveedor.IdCtaContAnticiposComplementaria > 0 Then DdlCtaContAnticiposComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContAnticiposComplementaria, ObjProveedor.IdCtaContAnticiposComplementaria.ToString)) : DdlCtaContAnticiposComplementaria.SelectedValue = ObjProveedor.IdCtaContAnticiposComplementaria.ToString
|
|
'Deudores
|
|
If ObjProveedor.IdCtaContDeudor > 0 Then DdlCtaContDeudor.Items.Add(New ListItem(ObjProveedor.CtaContDeudor, ObjProveedor.IdCtaContDeudor.ToString)) : DdlCtaContDeudor.SelectedValue = ObjProveedor.IdCtaContDeudor.ToString
|
|
If ObjProveedor.IdCtaContDeudorExtranjera > 0 Then DdlCtaContDeudorExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContDeudorExtranjera, ObjProveedor.IdCtaContDeudorExtranjera.ToString)) : DdlCtaContDeudorExtranjera.SelectedValue = ObjProveedor.IdCtaContDeudorExtranjera.ToString
|
|
If ObjProveedor.IdCtaContDeudorComplementaria > 0 Then DdlCtaContDeudorComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContDeudorComplementaria, ObjProveedor.IdCtaContDeudorComplementaria.ToString)) : DdlCtaContDeudorComplementaria.SelectedValue = ObjProveedor.IdCtaContDeudorComplementaria.ToString
|
|
'DocsXPagar
|
|
If ObjProveedor.IdCtaContDocsXPagar > 0 Then DdlCtaContDocsXPagar.Items.Add(New ListItem(ObjProveedor.CtaContDocsXPagar, ObjProveedor.IdCtaContDocsXPagar.ToString)) : DdlCtaContDocsXPagar.SelectedValue = ObjProveedor.IdCtaContDocsXPagar.ToString
|
|
If ObjProveedor.IdCtaContDocsXPagarExtranjera > 0 Then DdlCtaContDocsXPagarExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContDocsXPagarExtranjera, ObjProveedor.IdCtaContDocsXPagarExtranjera.ToString)) : DdlCtaContDocsXPagarExtranjera.SelectedValue = ObjProveedor.IdCtaContDocsXPagarExtranjera.ToString
|
|
If ObjProveedor.IdCtaContDocsXPagarComplementaria > 0 Then DdlCtaContDocsXPagarComplementaria.Items.Add(New ListItem(ObjProveedor.CtaContDocsXPagarComplementaria, ObjProveedor.IdCtaContDocsXPagarComplementaria.ToString)) : DdlCtaContDocsXPagarComplementaria.SelectedValue = ObjProveedor.IdCtaContDocsXPagarComplementaria.ToString
|
|
'Otros
|
|
If ObjProveedor.IdCtaContFondoGarantia > 0 Then DdlCtaContFondoGarantia.Items.Add(New ListItem(ObjProveedor.CtaContFondoGarantia, ObjProveedor.IdCtaContFondoGarantia.ToString)) : DdlCtaContFondoGarantia.SelectedValue = ObjProveedor.IdCtaContFondoGarantia.ToString
|
|
If ObjProveedor.IdCtaContRetIVA > 0 Then DdlCtaContRetIVA.Items.Add(New ListItem(ObjProveedor.CtaContRetIVA, ObjProveedor.IdCtaContRetIVA.ToString)) : DdlCtaContRetIVA.SelectedValue = ObjProveedor.IdCtaContRetIVA.ToString
|
|
If ObjProveedor.IdCtaContRetISR > 0 Then DdlCtaContRetISR.Items.Add(New ListItem(ObjProveedor.CtaContRetISR, ObjProveedor.IdCtaContRetISR.ToString)) : DdlCtaContRetISR.SelectedValue = ObjProveedor.IdCtaContRetISR.ToString
|
|
If ObjProveedor.IdCtaContRetISRAcreditable > 0 Then DdlCtaContRetISRAcreditable.Items.Add(New ListItem(ObjProveedor.CtaContRetISRAcreditable, ObjProveedor.IdCtaContRetISRAcreditable.ToString)) : DdlCtaContRetISRAcreditable.SelectedValue = ObjProveedor.IdCtaContRetISRAcreditable.ToString
|
|
If ObjProveedor.IdCtaContRetIVAAcreditable > 0 Then DdlCtaContRetIVAAcreditable.Items.Add(New ListItem(ObjProveedor.CtaContRetIVAAcreditable, ObjProveedor.IdCtaContRetIVAAcreditable.ToString)) : DdlCtaContRetIVAAcreditable.SelectedValue = ObjProveedor.IdCtaContRetIVAAcreditable.ToString
|
|
|
|
|
|
End If
|
|
|
|
'CxP
|
|
TxtLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
|
|
TxtPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
|
|
LblLimiteCredito.Text = ObjProveedor.LimiteCredito.ToString.FormatoNumero
|
|
LblPlazoCobranza.Text = ObjProveedor.PlazoPago.ToString
|
|
|
|
'Sistema
|
|
ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
|
|
LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString
|
|
LblUsuarioCapturo.Text = ObjProveedor.Usuario
|
|
TxtObservaciones.Text = ObjProveedor.Observaciones
|
|
|
|
CargaCombos()
|
|
|
|
ChkAplicarEvaluacion.Checked = If(ObjProveedor.DtResultados.Rows(0)("AplicarEvaluacion").ToString = "True", True, False)
|
|
TxtFechaEva.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
|
|
LblFechaUltimaEvaluacion.Text = If(IsDate(ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString()), ObjProveedor.DtResultados.Rows(0)("FechaUltimaEvaluacion").ToString().ToDate().ToString("dd/MM/yyyy"), "")
|
|
DdlCicloEvaluacion.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CicloEvaluacion").ToString())
|
|
DdlUsuarioEvaluador.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveUsuarioEvaluador").ToString())
|
|
|
|
DdlConfianzaProveedor.SelectedValueExist(ObjProveedor.DtResultados.Rows(0)("CveConfianzaProveedor"))
|
|
|
|
DdlCveClasificacionProveedor.SelectedValue = ObjProveedor.CveProveedorClasificacion.ToString()
|
|
DdlCveUsuarioResponsable.SelectedValue = ObjProveedor.CveUsuarioResponsable.ToString
|
|
DdlCveTipoProveedor.SelectedValue = ObjProveedor.CveTipoProveedor.ToString
|
|
|
|
'EMD: Si no es prisila desablita este campo
|
|
If UsuarioActual.CveEmpresa = 13 AndAlso Not UsuarioActual.CveUsuario.Contiene(58, 100) Then
|
|
DdlCveTipoProveedor.Enabled = False
|
|
DdlCveTipoProveedor.Attributes.Add("disabled", "disabled")
|
|
End If
|
|
|
|
If TxtRazonSocial.Text.Trim = TxtNombreComercial.Text.Trim Then TxtRazonSocial.Attributes.Add("onKeyUp", "SetText(" & TxtRazonSocial.ClientID & ", " & TxtNombreComercial.ClientID & ")")
|
|
|
|
If UsuarioActual.TienePermisoProceso(87) Then BtnGuardar.Visible = True 'Actualizar Proveedor
|
|
If UsuarioActual.TienePermisoProceso(86) Then BtnEliminar.Visible = True ' Eliminar Proveedor
|
|
If UsuarioActual.TienePermisoProceso(256) Then LnkParametros.Visible = True 'Actualizar Límite de Crédito
|
|
|
|
Retorno = True
|
|
|
|
enviaractivacion()
|
|
|
|
|
|
CargaEventoBitacora()
|
|
|
|
Else
|
|
Alert("El Proveedor Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
|
BtnGuardar.Enabled = False
|
|
' LbAgregarSucursal.Enabled = False
|
|
|
|
End If
|
|
End If
|
|
|
|
CargaProveedorSucursales()
|
|
|
|
CargaContactos(ObjProveedor)
|
|
|
|
ObjProveedor.Dispose()
|
|
Return Retorno
|
|
End Function
|
|
Private Sub CargaUsuarioEvaluacionProveedor()
|
|
DdlUsuarioEvaluador.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
|
|
DdlUsuarioEvaluador.DataBind()
|
|
End Sub
|
|
|
|
Private Sub CargaCuentasConceptos()
|
|
Dim ObjConta As New ClsContabilidad
|
|
If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
|
|
GvCta.DataSource = ObjConta.DtResultados
|
|
End If
|
|
ObjConta.Dispose()
|
|
GvCta.DataBind()
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaContactos(ByRef ObjProveedor As ClsCompProveedores)
|
|
'TRAE CONTACTOS GENERALES Y POR SUCURSAL
|
|
If ObjProveedor.GetProveedoresContactos(-1, CveProveedor, -1) Then
|
|
TempDTProveedoresContactos = ObjProveedor.DtResultados
|
|
TempDTProveedoresContactosOrigin = TempDTProveedoresContactos.Copy()
|
|
GvContactoProveedor.DataSource = TempDTProveedoresContactos
|
|
GvContactoProveedor.DataBind()
|
|
UpContactosProveedor.Update()
|
|
End If
|
|
'TRAE CONTACTOS CON SUCURSAL
|
|
If ObjProveedor.GetProveedoresContactos(-1, CveProveedor, -1) Then
|
|
TempDTProveedoresContactosSucursal = ObjProveedor.DtResultados.FiltraParametros("CveProveedorSucursal > 0")
|
|
'If CveProveedor = -1 Then
|
|
TempDTProveedoresContactosSucursal.Columns.Add("CveSucursalTemp", GetType(String)) 'Para controlar las sucursales no insertadas en BD
|
|
'End If
|
|
TempDTProveedoresContactosSucursalOrigin = TempDTProveedoresContactosSucursal.Copy()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OrdenaDatos()
|
|
If (GVSucursales.Rows.Count > 0) Then
|
|
GVSucursales.UseAccessibleHeader = True
|
|
GVSucursales.HeaderRow.TableSection = TableRowSection.TableHeader
|
|
RegistraScript("OrdenarGV();")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaHistorial(CveProveedorSucursal As Integer, Optional SelectTop As Integer = 51)
|
|
Dim ObjProveedores As New ClsCompProveedores()
|
|
If ObjProveedores.GetHistorialCompras(CveProveedor, If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), SelectTop, CveMonedaFiltro) Then
|
|
If ObjProveedores.DtResultados.Rows.Count > 0 Then
|
|
'Carga Generales
|
|
LtlCantidad.Text = ObjProveedores.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0)
|
|
LtlTotalVendido.Text = ObjProveedores.DtResultados.Rows(0)("Total").ToString.FormatoNumero(2)
|
|
LtlMinima.Text = ObjProveedores.DtResultados.Rows(0)("MIN_Total").ToString.FormatoNumero(2)
|
|
LtlPromedio.Text = ObjProveedores.DtResultados.Rows(0)("AVG_Total").ToString.FormatoNumero(2)
|
|
LtlMaxima.Text = ObjProveedores.DtResultados.Rows(0)("MAX_Total").ToString.FormatoNumero(2)
|
|
'Carga Grid
|
|
|
|
DtProveedoresHistorial = ObjProveedores.DtResultados
|
|
GVHistorial.DataSource = DtProveedoresHistorial
|
|
Else
|
|
LtlCantidad.Text = "0.00"
|
|
LtlTotalVendido.Text = "0.00"
|
|
LtlMinima.Text = "0.00"
|
|
LtlPromedio.Text = "0.00"
|
|
LtlMaxima.Text = "0.00"
|
|
DtProveedoresHistorial = Nothing
|
|
GVHistorial.DataSource = Nothing
|
|
End If
|
|
Else
|
|
DtProveedoresHistorial = Nothing
|
|
GVHistorial.DataSource = Nothing
|
|
End If
|
|
ObjProveedores.Dispose()
|
|
GVHistorial.DataBind()
|
|
UpnHistorial.Update()
|
|
|
|
If IsPostBack AndAlso Not DivFiltraMoneda.Visible Then
|
|
CargaFiltroMonedas()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaAnticipos(CveProveedorSucursal As Integer, Optional SelectTop As Integer = -1)
|
|
Dim ObjMovtos As New ClsMovimientos()
|
|
If ObjMovtos.GetAnticiposProveedor(CveProveedor, If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), CveMonedaFiltro, -1) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
|
|
CountAnticipos = ObjMovtos.DtResultados.FiltraParametros(" Tipo = 'Act' AND TipoDocto <> '' AND (CveCompra > 0 OR CveIE > 0) ").Rows.Count
|
|
|
|
|
|
LblVencidoPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 And DiasVencidos > 0")).FormatoNumero
|
|
LblTotalPesosAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero
|
|
LblPorVencerPesosAnt.Text = CType(LblTotalPesosAnt.Text.ToDouble - LblVencidoPesosAnt.Text.ToDouble, String).FormatoNumero
|
|
|
|
LblVencidoDolaresAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 2 And DiasVencidos > 0")).FormatoNumero
|
|
LblTotalDolaresAnt.Text = String.Format("{0}", ObjMovtos.DtResultados.SUM("Saldo", "CveMoneda = 2 ")).FormatoNumero
|
|
LblPorVencerDolaresAnt.Text = CType(LblTotalDolaresAnt.Text.ToDouble - LblVencidoDolaresAnt.Text.ToDouble, String).FormatoNumero
|
|
|
|
LblTipoCambioAnt.Text = GlobalTipoCambio.ToString.FormatoNumero
|
|
LblTotalAnt.Text = (LblTotalPesosAnt.Text.ToDouble + (LblTotalDolaresAnt.Text.ToDouble * LblTipoCambioAnt.Text.ToDouble)).ToString.FormatoNumero
|
|
|
|
|
|
If SelectTop > 0 Then
|
|
If ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'").Rows.Count > 0 Then
|
|
DtAntNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
|
|
GvA.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'").AsEnumerable.Take(SelectTop).CopyToDataTable
|
|
Else
|
|
DtAntNC = Nothing
|
|
GvA.DataSource = Nothing
|
|
End If
|
|
|
|
If ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'").Rows.Count > 0 Then
|
|
DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
|
GvAH.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'").AsEnumerable.Take(SelectTop).CopyToDataTable
|
|
Else
|
|
DtAntNCH = Nothing
|
|
GvAH.DataSource = Nothing
|
|
End If
|
|
Else
|
|
DtAntNC = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'")
|
|
GvA.DataSource = DtAntNC
|
|
DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
|
GvAH.DataSource = DtAntNCH
|
|
End If
|
|
|
|
|
|
' e.Row.DBCampo("TipoDocto") = "NC"
|
|
If ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC'").Rows.Count > 0 And UsuarioActual.TienePermisoProceso(273) Then
|
|
HplAbonarMasivoNotas.Visible = True
|
|
UpAnticipos.Update()
|
|
End If
|
|
|
|
Else
|
|
GvA.DataSource = Nothing
|
|
GvAH.DataSource = Nothing
|
|
DtAntNC = Nothing
|
|
DtAntNCH = Nothing
|
|
End If
|
|
ObjMovtos.Dispose()
|
|
GvA.DataBind()
|
|
GvAH.DataBind()
|
|
UpAnticipos.Update()
|
|
|
|
If IsPostBack AndAlso Not DivFiltraMoneda.Visible Then
|
|
CargaFiltroMonedas()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaBancos(CveProveedorSucursal As Integer, Optional SelectTop As Integer = 21)
|
|
Dim ObjMovtos As New ClsMovimientos()
|
|
'CxC Activas
|
|
If ObjMovtos.GetProveedorBancos(CveProveedor, CveMoneda:=CveMonedaFiltro, CveProveedorSucursal:=If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), SelectTop:=SelectTop) Then
|
|
DTCobrosRealizados = ObjMovtos.DtResultados
|
|
GvBancos.DataSource = DTCobrosRealizados
|
|
End If
|
|
|
|
ObjMovtos.Dispose()
|
|
GvBancos.DataBind()
|
|
UpBancos.Update()
|
|
|
|
If IsPostBack AndAlso Not DivFiltraMoneda.Visible Then
|
|
CargaFiltroMonedas()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#Region "V E R M Á S"
|
|
Protected Sub BtnVerMasCompras_Click(sender As Object, e As EventArgs)
|
|
If BtnVerMasCompras.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>" Then
|
|
CargaHistorial(RBSucursal.SelectedValue.ToString.ToEntero, -1)
|
|
BtnVerMasCompras.Text = "Ver Menos"
|
|
Else
|
|
CargaHistorial(RBSucursal.SelectedValue.ToString.ToEntero, 21)
|
|
BtnVerMasCompras.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub BtnVerMasBancos_Click(sender As Object, e As EventArgs)
|
|
If BtnVerMasBancos.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>" Then
|
|
CargaBancos(RBSucursal.SelectedValue.ToString.ToEntero, -1)
|
|
BtnVerMasBancos.Text = "Ver Menos"
|
|
Else
|
|
CargaBancos(RBSucursal.SelectedValue.ToString.ToEntero, 11)
|
|
BtnVerMasBancos.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub BtnVerMasAnticipos_Click(sender As Object, e As EventArgs)
|
|
If BtnVerMasAnticipos.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>" Then
|
|
CargaAnticipos(RBSucursal.SelectedValue.ToString.ToEntero, -1)
|
|
BtnVerMasAnticipos.Text = "Ver Menos"
|
|
Else
|
|
CargaAnticipos(RBSucursal.SelectedValue.ToString.ToEntero, 21)
|
|
BtnVerMasAnticipos.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
End If
|
|
End Sub
|
|
Protected Sub BtnVerMasComprasPagadas_Click(sender As Object, e As EventArgs)
|
|
If BtnVerMasComprasPagadas.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>" Then
|
|
CargaCxP(RBSucursal.SelectedValue.ToString.ToEntero, 1)
|
|
BtnVerMasComprasPagadas.Text = "Ver Menos"
|
|
Else
|
|
CargaCxP(RBSucursal.SelectedValue.ToString.ToEntero, -1)
|
|
BtnVerMasComprasPagadas.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub CargaUsuariosPortal()
|
|
Dim ObjUsrs As New ClsSisUsuarios()
|
|
GvUsuariosPortalSis.Visible = False
|
|
|
|
If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
|
Dim dtUsr As DataTable = ObjUsrs.DtResultados
|
|
'GvUsuariosPortalSis.DataSource = dtUsr.FiltraParametros("Estatus = 1")
|
|
|
|
'busco la clave del admin, si es que existe
|
|
Dim dr As DataRow = dtUsr.FiltroPrimero("Nombre = 'Admin'")
|
|
|
|
If dr IsNot Nothing Then
|
|
HdnCveUsuarioPortalAdmin.Value = dr("CveUsuario").ToString
|
|
If Convert.ToBoolean(dr("Estatus")) Then
|
|
LblUsuarioActivo.Text = "Si"
|
|
'divUsuariosPortal.Visible = True
|
|
HdnCveUsuarioPortalActivado.Value = "1"
|
|
trDesactivarUsuario.Visible = True
|
|
End If
|
|
End If
|
|
|
|
If HdnCveUsuarioPortalActivado.Value.ToEntero > 0 Then
|
|
trEnviarActivacion.Visible = False
|
|
End If
|
|
Else
|
|
' GvUsuariosPortalSis.DataSource = Nothing
|
|
End If
|
|
ObjUsrs.Dispose()
|
|
'GvUsuariosPortalSis.DataBind()
|
|
UPUsuarios.Update()
|
|
|
|
End Sub
|
|
|
|
Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.BackColor = Drawing.Color.LightGray
|
|
End If
|
|
|
|
'Dim Liga As String = String.Format("<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra={0}"">", e.Row.DBCampo("CveCompra"))
|
|
If e.Row.DBCampo("CveCompra").ToEntero > 0 Then e.Row.FCLabel("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra={0}"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio") & "</a>")
|
|
|
|
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
|
|
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
|
|
|
'e.Row.Cells(0).Width = 50
|
|
'e.Row.Cells(1).Width = 150
|
|
'e.Row.Cells(2).Width = 250
|
|
'e.Row.Cells(3).Width = 70
|
|
'e.Row.Cells(4).Width = 100
|
|
'e.Row.Cells(5).Width = 80
|
|
'e.Row.Cells(6).Width = 100
|
|
'e.Row.Cells(7).Width = 100
|
|
'e.Row.Cells(8).Width = 50
|
|
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub GvAH_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvA.RowDataBound, GvAH.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If e.Row.RowIndex = 0 Then
|
|
'e.Row.BackColor = Drawing.Color.LightGray
|
|
|
|
e.Row.Cells(0).Width = Unit.Pixel(120)
|
|
e.Row.Cells(1).Width = Unit.Pixel(100)
|
|
e.Row.Cells(2).Width = Unit.Pixel(100)
|
|
e.Row.Cells(3).Width = Unit.Pixel(100)
|
|
End If
|
|
|
|
If e.Row.DBCampo("TipoDocto") = "Egsc" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
|
|
e.Row.CssClass = "Totales TextCenter"
|
|
e.Row.Cells(0).Text = "Egreso Por Comprobar"
|
|
End If
|
|
|
|
If e.Row.DBCampo("TipoDocto") = "Ant" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
|
|
e.Row.CssClass = "Totales TextCenter"
|
|
e.Row.Cells(0).Text = "Anticipos"
|
|
End If
|
|
|
|
If e.Row.DBCampo("TipoDocto") = "NC" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
|
|
e.Row.CssClass = "Totales TextCenter"
|
|
e.Row.Cells(0).Text = "Notas de crédito"
|
|
End If
|
|
|
|
If e.Row.DBCampo("TipoDocto") = "DEV" AndAlso e.Row.DBCampo("SerieFolio") = "" Then
|
|
e.Row.CssClass = "Totales TextCenter"
|
|
e.Row.Cells(0).Text = "Devolución"
|
|
End If
|
|
|
|
If e.Row.DBCampo("CveProveedor") = "" Then
|
|
e.Row.BackColor = Drawing.Color.LightGray
|
|
End If
|
|
|
|
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")}")
|
|
e.Row.FCHyperLink("HLDevolverDinero").Visible = True
|
|
e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}"
|
|
End If
|
|
End If
|
|
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub GvBancos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim HLSendMail As HtmlAnchor = DirectCast(e.Row.FindControl("HLSendMail"), HtmlAnchor)
|
|
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(120)
|
|
e.Row.Cells(1).Width = Unit.Pixel(70)
|
|
e.Row.Cells(2).Width = Unit.Pixel(80)
|
|
e.Row.Cells(3).Width = Unit.Pixel(80)
|
|
e.Row.Cells(4).Width = Unit.Pixel(90)
|
|
e.Row.Cells(5).Width = Unit.Pixel(90)
|
|
e.Row.Cells(6).Width = Unit.Pixel(105)
|
|
e.Row.Cells(7).Width = Unit.Pixel(90)
|
|
|
|
End If
|
|
|
|
If e.Row.DBCampo("CveCompra") = "" Then
|
|
If e.Row.DBCampo("CveIE") <> "" Then
|
|
Dim ObjCompra As New ClsCompras
|
|
|
|
e.Row.Cells(0).Text = String.Format("{0} - {1} - {2}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"), e.Row.DBCampo("Moneda"))
|
|
e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString
|
|
e.Row.FCHyperLink("HplCheque").Visible = True
|
|
|
|
HLSendMail.Visible = True
|
|
HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioPago"), TxtCorreoCobranza.Text)
|
|
|
|
If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, e.Row.DBCampo("CveIE").ToString.ToEntero) Then
|
|
If ObjCompra.DtResultados.Rows.Count > 0 Then
|
|
e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}", ObjCompra.DtResultados(0)("RFCDe"), ObjCompra.DtResultados(0)("XML"))
|
|
e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}", ObjCompra.DtResultados(0)("RFCDe"), ObjCompra.DtResultados(0)("PDF"))
|
|
|
|
HLSendMail.Visible = False
|
|
End If
|
|
End If
|
|
|
|
ObjCompra.Dispose()
|
|
End If
|
|
e.Row.BackColor = Drawing.Color.LightGray
|
|
End If
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
|
|
If DtCuentasContables Is Nothing Then
|
|
|
|
End If
|
|
|
|
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
|
|
|
Select Case HdnCuenta.Value
|
|
Case "1"
|
|
CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
|
|
Case "2"
|
|
CargaCuentasDDL(DdlCtaContAnticipos, 204)
|
|
Case "3"
|
|
CargaCuentasDDL(DdlCtaContFondoGarantia, 231)
|
|
Case "4"
|
|
CargaCuentasDDL(DdlCtaContRetIVA, 206)
|
|
Case "5"
|
|
CargaCuentasDDL(DdlCtaContRetISR, 206)
|
|
Case "6"
|
|
CargaCuentasDDL(DdlCtaContAcreedores, 202)
|
|
Case "7"
|
|
CargaCuentasDDL(DdlCtaContComplementaria, 201)
|
|
Case "8"
|
|
CargaCuentasDDL(DdlCtaContExtranjera, 201)
|
|
Case "9"
|
|
CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202)
|
|
Case "10"
|
|
CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202)
|
|
Case "11"
|
|
CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204)
|
|
Case "12"
|
|
CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204)
|
|
Case "13"
|
|
CargaCuentasDDL(DdlCtaContDeudor, 205)
|
|
Case "14"
|
|
CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205)
|
|
Case "15"
|
|
CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205)
|
|
Case "16"
|
|
CargaCuentasDDL(DdlCtaContDocsXPagar, 203)
|
|
Case "17"
|
|
CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203)
|
|
Case "18"
|
|
CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203)
|
|
Case "19"
|
|
CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206)
|
|
Case "20"
|
|
CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
|
|
|
|
'CARGA LO YA SELECCIONADO
|
|
Dim CveSeleccionado = -1
|
|
Dim Seleccionado = ""
|
|
Seleccionado = Ddl.SelectedItem.Text
|
|
CveSeleccionado = Ddl.SelectedValue.ToEntero
|
|
|
|
'VA POR EL CATALOGO DE CUENTAS
|
|
If Ddl.Attributes("onclick") <> "" Then
|
|
CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero, 1))
|
|
End If
|
|
|
|
'RECARGA EL DDL
|
|
Ddl.Items.Clear()
|
|
Ddl.DataSource = DtCuentasContables
|
|
Ddl.Items.Insert(0, New ListItem("Seleccione", "0"))
|
|
Ddl.DataBind()
|
|
|
|
'SELECCIONA EL YA SELECCIONADO - SI NO EXISTE EN EL DATASOURCE LO INSERTA
|
|
If DtCuentasContables.FiltraParametros($"Id = {CveSeleccionado}").Rows.Count > 0 Then
|
|
Ddl.SelectedValue = CveSeleccionado.ToString
|
|
ElseIf CveSeleccionado > 0 Then
|
|
Ddl.Items.Insert(1, New ListItem(Seleccionado, CveSeleccionado.ToString))
|
|
Ddl.SelectedValue = CveSeleccionado.ToString
|
|
End If
|
|
|
|
'LIMPIA EVENTOS Y PONE CLASE
|
|
Ddl.AutoPostBack = False
|
|
Ddl.Attributes.Remove("onclick")
|
|
Ddl.CssClass &= " select2me"
|
|
|
|
End Sub
|
|
|
|
#Region "LL E N A R - C O M B O S"
|
|
Private Sub CargaResponsable()
|
|
DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
DdlCveUsuarioResponsable.DataBind()
|
|
End Sub
|
|
Private Sub CargaClasificacionProveedor()
|
|
DdlCveClasificacionProveedor.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
|
|
DdlCveClasificacionProveedor.DataBind()
|
|
DdlCveClasificacionProveedor.Items.Insert(0, New ListItem("Sin Clasificación", "0"))
|
|
End Sub
|
|
Private Sub CargaDIOTPais()
|
|
DdlDIOTPais.DataSource = GlobalDTPais()
|
|
DdlDIOTPais.DataBind()
|
|
DdlDIOTPais.Items.Insert(0, New ListItem("-", "0"))
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "P R O V E E D O R"
|
|
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
|
Dim ObjProveedores As New ClsCompProveedores()
|
|
If ObjProveedores.RemoveProveedor(CveProveedor) Then
|
|
Alert("El Proveedor se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Compras/CatProveedores.aspx"";")
|
|
End If
|
|
|
|
ObjProveedores.Dispose()
|
|
End Sub
|
|
Protected Sub enviaractivacion()
|
|
If TxtCorreoCobranza.Text <> "" Then
|
|
LbEnviarActivacionPortal.Enabled = True
|
|
Else
|
|
LbEnviarActivacionPortal.Enabled = False
|
|
LbEnviarActivacionPortal.ToolTip = "Debe de agregar una dirección de Email en la pestaña Información del Proveedor, campo 'Cobranza/Portal'."
|
|
End If
|
|
End Sub
|
|
|
|
Private Function AsignaCuentasAutomaticas(ObjProveedor As ClsCompProveedores, CveProveedor As Integer) As Boolean
|
|
Dim IdCtaContProveedores As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(321).ToEntero, UsuarioActual.Empresa.Funcionalidad(322).ToEntero)
|
|
Dim IdCtaContAcreedor As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(323).ToEntero, UsuarioActual.Empresa.Funcionalidad(324).ToEntero)
|
|
Dim IdCtaContComplementaria As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(325).ToEntero, UsuarioActual.Empresa.Funcionalidad(326).ToEntero)
|
|
Dim IdCtaContAnticipos As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(327).ToEntero, UsuarioActual.Empresa.Funcionalidad(328).ToEntero)
|
|
Dim IdCtaContExtranjera As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(329).ToEntero, UsuarioActual.Empresa.Funcionalidad(330).ToEntero)
|
|
|
|
If Not ObjProveedor.VincularCuentasContables(IdCtaContProveedores, IdCtaContAcreedor, IdCtaContComplementaria, IdCtaContAnticipos, IdCtaContExtranjera, CveProveedor) Then
|
|
Return False
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
|
enviaractivacion()
|
|
Dim tIdContaProveedor As Integer
|
|
Dim CuentaAbono As Integer
|
|
|
|
Dim ErrorBancos = False
|
|
Dim ErrorConta As Boolean = False
|
|
Dim ErrorContactos As Boolean = False
|
|
Dim ErrorSucursales As Boolean = False
|
|
Dim ErrorCuentasContables As Boolean = False
|
|
|
|
|
|
Dim codigo As String = "-1"
|
|
Dim MsgCuentaContable As String = ""
|
|
Dim IdCuentaContable As Integer = -1
|
|
|
|
Dim IdProveedor As Integer = -1
|
|
|
|
Dim errorContPaq As Boolean = False
|
|
|
|
Dim AplicarEvaluacion As Boolean = ChkAplicarEvaluacion.Checked
|
|
Dim FechaEvaluacion As String = If(IsDate(TxtFechaEva.Text.Trim()), TxtFechaEva.Text, "-1")
|
|
Dim CicloEvaluacion As Integer = If(AplicarEvaluacion, DdlCicloEvaluacion.SelectedValue.ToEntero(), -1)
|
|
|
|
'Dim IdContPaqi As Integer
|
|
'Dim CodigoPersona As Integer
|
|
|
|
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
|
|
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
|
|
|
|
' If UsuarioActual.Empresa.UsaContabilidad Then
|
|
|
|
' If ObjContPaqi.GetPersona(TxtRFC.Text) Then
|
|
|
|
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
|
|
|
|
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
|
|
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
|
|
|
|
' Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString), 1, 0)
|
|
' Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString
|
|
' Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString
|
|
|
|
' If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
|
|
' errorContPaq = False
|
|
' Else
|
|
' errorContPaq = True
|
|
' End If
|
|
|
|
' Else
|
|
' If ObjContPaqi.AddPersona(TxtNombreComercial.Text.Trim, TxtRFC.Text.Trim, 0, 1) Then
|
|
' IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString.ToEntero
|
|
' CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString.ToEntero
|
|
' errorContPaq = False
|
|
' Else
|
|
' errorContPaq = True
|
|
' End If
|
|
' End If
|
|
' End If
|
|
|
|
' End If
|
|
|
|
' If Not errorContPaq Then
|
|
' ObjContPaqi.Commit()
|
|
' ObjContPaqi.Dispose()
|
|
' Else
|
|
' ObjContPaqi.RollBack()
|
|
' ObjContPaqi.Dispose()
|
|
' Exit Sub
|
|
' End If
|
|
|
|
'End If
|
|
|
|
|
|
If CveProveedor = -1 Then
|
|
|
|
Dim ObjContaAC As ClsContPAQi = Nothing
|
|
|
|
If (UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR
|
|
|
|
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
|
|
ObjContaAC.IniciaTransacSQL()
|
|
|
|
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
|
|
If DdlCveTipoProveedor.SelectedValue = "2" Then 'cuando es acreedor
|
|
ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
|
End If
|
|
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero > 0 Then
|
|
IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero
|
|
Else
|
|
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2)
|
|
End If
|
|
|
|
|
|
|
|
If IdCuentaContable > 0 Then
|
|
|
|
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
|
Dim dt = ObjContaAC.DtResultados
|
|
Dim CtaCodigo As String
|
|
|
|
If dt.Rows.Count = 1 Then
|
|
Dim row As DataRow = dt.Rows(0)
|
|
CtaCodigo = CStr(row("CtaCodigo"))
|
|
DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
|
|
End If
|
|
|
|
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
|
|
' If UsuarioActual.Empresa.UsaContabilidad Then
|
|
|
|
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
|
|
' If Not errorContPaq Then
|
|
' If ObjContPaqi.GetProveedor(TxtRFC.Text.Trim) Then
|
|
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
|
|
' IdProveedor = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
|
|
' errorContPaq = False
|
|
' Else
|
|
' IdProveedor = ObjContPaqi.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtNombreComercial.Text.Trim, "", CodigoPersona)
|
|
' If IdProveedor > 0 Then
|
|
' errorContPaq = False
|
|
' Else
|
|
' errorContPaq = True
|
|
' End If
|
|
' End If
|
|
' Else
|
|
' errorContPaq = True
|
|
' End If
|
|
|
|
' End If
|
|
|
|
|
|
' If Not errorContPaq Then
|
|
' ObjContPaqi.Commit()
|
|
' ObjContPaqi.Dispose()
|
|
' Else
|
|
' ObjContPaqi.RollBack()
|
|
' ObjContPaqi.Dispose()
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
'Else
|
|
|
|
' IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "")
|
|
'End If
|
|
|
|
IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "")
|
|
|
|
If IdProveedor > 0 Then
|
|
|
|
Else
|
|
ObjContaAC.RollBack()
|
|
Alert("Ocurrio un error al guardar en el padron de proveedores")
|
|
ErrorConta = True
|
|
End If
|
|
Else
|
|
ObjContaAC.RollBack()
|
|
ErrorConta = True
|
|
Alert("Ocurrio un error al guardar la cuenta contable")
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
Dim ObjProveedores As New ClsCompProveedores()
|
|
Dim ObjCuentasDeposito As New ClsGenerales(ObjProveedores.IniciaTransacSQL())
|
|
|
|
If ErrorConta = False AndAlso ObjProveedores.AddProveedor(TxtCodigo.Text.Trim, TxtRazonSocial.Text.Trim, TxtNombreComercial.Text.Trim, TxtNombreCorto.Text.Trim, TxtRFC.Text.Trim, TxtDireccion.Text.Trim, TxtTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""),
|
|
TxtContactoNombre.Text.Trim, TxtContactoEmail.Text.Trim, TxtContactoTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""), TxtLimiteCredito.Text.Trim.ToDouble, TxtPlazoCobranza.Text.Trim.ToEntero,
|
|
TxtObservaciones.Text.Trim, TxtIVA.Text.Trim.ToDouble, TxtRetIVA.Text.Trim.ToDouble, TxtRetISR.Text.Trim.ToDouble,
|
|
DdlCtaContProveedores.SelectedValue.ToEntero, DdlCtaContProveedores.SelectedItem.Text, DdlCtaContExtranjera.SelectedValue.ToEntero, DdlCtaContExtranjera.SelectedItem.Text, DdlCtaContComplementaria.SelectedValue.ToEntero, DdlCtaContComplementaria.SelectedItem.Text,
|
|
DdlCtaContAcreedores.SelectedValue.ToEntero, DdlCtaContAcreedores.SelectedItem.Text, DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero, DdlCtaContAcreedoresExtranjera.SelectedItem.Text, DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero, DdlCtaContAcreedoresComplementaria.SelectedItem.Text,
|
|
DdlCtaContAnticipos.SelectedValue.ToEntero, DdlCtaContAnticipos.SelectedItem.Text, DdlCtaContAnticiposExtranjera.SelectedValue.ToEntero, DdlCtaContAnticiposExtranjera.SelectedItem.Text, DdlCtaContAnticiposComplementaria.SelectedValue.ToEntero, DdlCtaContAnticiposComplementaria.SelectedItem.Text,
|
|
DdlCtaContDeudor.SelectedValue.ToEntero, DdlCtaContDeudor.SelectedItem.Text, DdlCtaContDeudorExtranjera.SelectedValue.ToEntero, DdlCtaContDeudorExtranjera.SelectedItem.Text, DdlCtaContDeudorComplementaria.SelectedValue.ToEntero, DdlCtaContDeudorComplementaria.SelectedItem.Text,
|
|
DdlCtaContDocsXPagar.SelectedValue.ToEntero, DdlCtaContDocsXPagar.SelectedItem.Text, DdlCtaContDocsXPagarExtranjera.SelectedValue.ToEntero, DdlCtaContDocsXPagarExtranjera.SelectedItem.Text, DdlCtaContDocsXPagarComplementaria.SelectedValue.ToEntero, DdlCtaContDocsXPagarComplementaria.SelectedItem.Text,
|
|
DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
|
|
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
|
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
|
|
AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
|
|
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
|
|
|
|
Dim NuevoCveProveedor = ObjProveedores.CveProveedor
|
|
|
|
''Agregar Cuentas Bancarias
|
|
If TempDTCuentasBancos.Rows.Count > 0 Then
|
|
For Each row As DataRow In TempDTCuentasBancos.Rows
|
|
If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero,
|
|
CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString,
|
|
EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then
|
|
ErrorBancos = True
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
If Not AsignaCuentasAutomaticas(ObjProveedores, NuevoCveProveedor) Then
|
|
ErrorCuentasContables = True
|
|
End If
|
|
End If
|
|
|
|
|
|
''Agrega Sucursales
|
|
If TempDTSucursales.Rows.Count > 0 Then
|
|
For Each row As DataRow In TempDTSucursales.Rows
|
|
If Not ObjProveedores.AddSucursal(NuevoCveProveedor, row("ProveedorSucursal").ToString, row("Direccion").ToString, row("Telefono").ToString, row("Serie").ToString, row("Contacto").ToString, row("Correo").ToString, row("CveUsuario").ToString().ToEntero(), row("LimiteCredito").ToString.ToDouble, row("PlazoCobranza").ToString.ToEntero) Then
|
|
ErrorSucursales = True
|
|
Else
|
|
Dim CveTempSucursal As Integer = row("CveSucursalTemp").ToString().ToEntero()
|
|
|
|
''Obtengo Cve de la sucursal
|
|
Dim CveNuevaSucursal As Integer = ObjProveedores.CveProveedorSucursal
|
|
|
|
If TempDTProveedoresContactosSucursal.Rows.Count > 0 Then
|
|
|
|
''Agrego CONTACTOS por SUCURSAL
|
|
For Each rowContacto As DataRow In TempDTProveedoresContactosSucursal.Rows
|
|
|
|
''Si la CveTemp de la sucursal es igual a la CveTemp del contacto, lo agrega con CveNuevaSucursal
|
|
If CveTempSucursal = rowContacto("CveSucursalTemp").ToString().ToEntero() Then
|
|
If Not ObjProveedores.AddProveedorContacto(NuevoCveProveedor, CveNuevaSucursal, rowContacto("Nombre").ToString, rowContacto("Puesto").ToString, rowContacto("Telefono").ToString, rowContacto("Extension").ToString, rowContacto("Celular").ToString, rowContacto("Correo").ToString) Then
|
|
ErrorContactos = True
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
''Agregar Contactos Proveedor
|
|
If TempDTProveedoresContactos.Rows.Count > 0 Then
|
|
For Each row As DataRow In TempDTProveedoresContactos.Rows
|
|
If Not ObjProveedores.AddProveedorContacto(NuevoCveProveedor, row("CveProveedorSucursal").ToString.ToEntero, row("Nombre").ToString, row("Puesto").ToString, row("Telefono").ToString, row("Extension").ToString, row("Celular").ToString, row("Correo").ToString) Then
|
|
ErrorContactos = True
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If ErrorBancos Or ErrorContactos Or ErrorSucursales Or ErrorCuentasContables Then ''se deben validar las 3 juntas????????
|
|
ObjProveedores.RollBack()
|
|
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
|
|
If ErrorBancos Then
|
|
Alert("Ocurrió un error al registrar las Cuentas Bancarias", TipoMensaje.MsgError)
|
|
Else
|
|
If ErrorContactos Then
|
|
Alert("Ocurrió un error al registrar los Contactos", TipoMensaje.MsgError)
|
|
End If
|
|
If ErrorSucursales Then
|
|
Alert("Ocurrió un error al registrar las Sucursales", TipoMensaje.MsgError)
|
|
End If
|
|
If ErrorCuentasContables Then
|
|
Alert("Ocurrió un error al asignar las cuentas contables", TipoMensaje.MsgError)
|
|
End If
|
|
End If
|
|
Else
|
|
ObjProveedores.Commit()
|
|
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
|
|
|
|
'ACTUALIZAR GLOBAL
|
|
'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
|
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
|
'Else
|
|
' ErrorBancos = True
|
|
'End If
|
|
|
|
Alert("El Proveedor se guardó correctamente. " & "<br />" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();"))
|
|
RecargaGlobalCuentasBancarias()
|
|
End If
|
|
End If
|
|
|
|
ObjProveedores.Dispose()
|
|
ObjCuentasDeposito.Dispose()
|
|
If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
|
|
Else
|
|
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
|
|
|
|
' If UsuarioActual.Empresa.UsaContabilidad Then
|
|
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
|
|
' If Not errorContPaq Then
|
|
' If ObjContPaqi.GetProveedor(TxtRFC.Text.Trim) Then
|
|
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
|
|
' IdProveedor = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
|
|
' errorContPaq = False
|
|
' Else
|
|
' IdProveedor = ObjContPaqi.AddProveedor(DdlCtaContProveedores.SelectedValue.ToEntero, TxtRFC.Text.Trim, TxtNombreComercial.Text.Trim, "", CodigoPersona)
|
|
' If IdProveedor > 0 Then
|
|
' errorContPaq = False
|
|
' Else
|
|
' errorContPaq = True
|
|
' End If
|
|
' End If
|
|
' Else
|
|
' errorContPaq = True
|
|
' End If
|
|
' End If
|
|
|
|
|
|
' If Not errorContPaq Then
|
|
' ObjContPaqi.Commit()
|
|
' ObjContPaqi.Dispose()
|
|
' Else
|
|
' ObjContPaqi.RollBack()
|
|
' ObjContPaqi.Dispose()
|
|
' Alert("Se Presento un Error al Guardar el Proveedor en ContPAQi.", TipoMensaje.MsgError)
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
|
|
'End If
|
|
Dim CreoCuenta As Boolean = False
|
|
|
|
If (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
|
|
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
|
|
Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
|
|
If drCuenta IsNot Nothing Then
|
|
CuentaAbono = drCuenta("Id").ToString.ToEntero
|
|
tIdContaProveedor = ObjContaAC.AddCuenta(TxtCodigo.Text.Trim, TxtRazonSocial.Text.Trim, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
|
|
CreoCuenta = True
|
|
End If
|
|
ObjContaAC.Dispose()
|
|
End If
|
|
|
|
Dim ObjProveedores As New ClsCompProveedores()
|
|
|
|
ObjProveedores.IniciaTransacSQL()
|
|
|
|
If ObjProveedores.UpdateProveedor(TxtCodigo.Text.Trim, TxtRazonSocial.Text.Trim, TxtNombreComercial.Text.Trim, TxtNombreCorto.Text.Trim, TxtRFC.Text.Trim, TxtDireccion.Text.Trim, TxtTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""),
|
|
TxtContactoNombre.Text.Trim, TxtContactoEmail.Text.Trim, TxtContactoTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", ""), TxtLimiteCredito.Text.Trim.ToDouble, TxtPlazoCobranza.Text.Trim.ToEntero,
|
|
TxtObservaciones.Text.Trim, TxtIVA.Text.Trim.ToDouble, TxtRetIVA.Text.Trim.ToDouble, TxtRetISR.Text.Trim.ToDouble,
|
|
DdlCtaContProveedores.SelectedValue.ToEntero, DdlCtaContProveedores.SelectedItem.Text, DdlCtaContExtranjera.SelectedValue.ToEntero, DdlCtaContExtranjera.SelectedItem.Text, DdlCtaContComplementaria.SelectedValue.ToEntero, DdlCtaContComplementaria.SelectedItem.Text,
|
|
DdlCtaContAcreedores.SelectedValue.ToEntero, DdlCtaContAcreedores.SelectedItem.Text, DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero, DdlCtaContAcreedoresExtranjera.SelectedItem.Text, DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero, DdlCtaContAcreedoresComplementaria.SelectedItem.Text,
|
|
DdlCtaContAnticipos.SelectedValue.ToEntero, DdlCtaContAnticipos.SelectedItem.Text, DdlCtaContAnticiposExtranjera.SelectedValue.ToEntero, DdlCtaContAnticiposExtranjera.SelectedItem.Text, DdlCtaContAnticiposComplementaria.SelectedValue.ToEntero, DdlCtaContAnticiposComplementaria.SelectedItem.Text,
|
|
DdlCtaContDeudor.SelectedValue.ToEntero, DdlCtaContDeudor.SelectedItem.Text, DdlCtaContDeudorExtranjera.SelectedValue.ToEntero, DdlCtaContDeudorExtranjera.SelectedItem.Text, DdlCtaContDeudorComplementaria.SelectedValue.ToEntero, DdlCtaContDeudorComplementaria.SelectedItem.Text,
|
|
DdlCtaContDocsXPagar.SelectedValue.ToEntero, DdlCtaContDocsXPagar.SelectedItem.Text, DdlCtaContDocsXPagarExtranjera.SelectedValue.ToEntero, DdlCtaContDocsXPagarExtranjera.SelectedItem.Text, DdlCtaContDocsXPagarComplementaria.SelectedValue.ToEntero, DdlCtaContDocsXPagarComplementaria.SelectedItem.Text,
|
|
DdlCtaContFondoGarantia.SelectedValue.ToEntero, DdlCtaContFondoGarantia.SelectedItem.Text, DdlCtaContRetIVA.SelectedValue.ToEntero, DdlCtaContRetIVA.SelectedItem.Text, DdlCtaContRetISR.SelectedValue.ToEntero, DdlCtaContRetISR.SelectedItem.Text, DdlCtaContRetISRAcreditable.SelectedValue.ToEntero, DdlCtaContRetISRAcreditable.SelectedItem.Text,
|
|
DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
|
|
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
|
|
DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
|
|
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
|
|
'CargaDatos()
|
|
|
|
|
|
If tIdContaProveedor > 0 AndAlso CreoCuenta Then ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, tIdContaProveedor)
|
|
|
|
'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
|
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
|
|
'End If
|
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
|
|
'HABILITA ENVIAR ACTIVACION AL PORTAL PROVEEDOR SI SE AGREGO CORREO
|
|
If TxtCorreoCobranza.Text <> "" Then
|
|
LbEnviarActivacionPortal.Enabled = True
|
|
LbEnviarActivacionPortal.ToolTip = ""
|
|
End If
|
|
|
|
''''''
|
|
'ACTUALIZA SUCURSALES
|
|
''''''
|
|
'For Each row As DataRow In TempDTSucursales.Rows
|
|
' ' SUCURSAL NUEVA: Si tiene Cve = -1 es nuevo y agrega
|
|
' If row("CveProveedorSucursal").ToString = "-1" Then
|
|
' If Not ObjProveedores.AddSucursal(CveProveedor, row("ProveedorSucursal").ToString, row("Direccion").ToString, row("Telefono").ToString, row("Serie").ToString, row("Contacto").ToString, row("Correo").ToString, row("CveUsuario").ToString().ToEntero()) Then
|
|
' ErrorSucursales = True
|
|
' Else
|
|
' ''Obtengo Cve Generada y Temp de la sucursal NUEVA
|
|
' Dim CveTempSucursal As Integer = row("CveSucursalTemp").ToString().ToEntero()
|
|
' Dim CveNuevaSucursal As Integer = ObjProveedores.CveProveedorSucursal
|
|
|
|
' If TempDTProveedoresContactosSucursal.Rows.Count > 0 Then
|
|
' ''Agrego CONTACTOS por SUCURSAL NUEVA
|
|
' For Each rowContacto As DataRow In TempDTProveedoresContactosSucursal.Rows
|
|
' ''Si la CveTemp de la sucursal es igual a la CveTemp del contacto, lo agrega con CveNuevaSucursal
|
|
' If CveTempSucursal = rowContacto("CveSucursalTemp").ToString().ToEntero() Then
|
|
' If Not ObjProveedores.AddProveedorContacto(CveProveedor, CveNuevaSucursal, rowContacto("Nombre").ToString, rowContacto("Puesto").ToString, rowContacto("Telefono").ToString, rowContacto("Extension").ToString, rowContacto("Celular").ToString, rowContacto("Correo").ToString) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' End If
|
|
' Next
|
|
' End If
|
|
|
|
' If ObjProveedores.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados
|
|
' End If
|
|
' Else
|
|
' 'SUCURSAL ACTUALIZADA: Si tiene una Cve, ya existia y actualiza
|
|
' Dim Estatus As Boolean
|
|
|
|
' If row("Estatus").ToString() = "Activo" Then
|
|
' Estatus = True
|
|
' Else
|
|
' Estatus = False
|
|
' End If
|
|
|
|
' If Not ObjProveedores.UpdateSucursal(row("ProveedorSucursal").ToString, row("Direccion").ToString, row("Telefono").ToString, row("Serie").ToString, Estatus, row("Correo").ToString, row("Contacto").ToString, row("CveProveedorSucursal").ToString.ToEntero, CveProveedor) Then
|
|
' ErrorSucursales = True
|
|
' Else
|
|
' If ObjProveedores.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados
|
|
' End If
|
|
|
|
' End If
|
|
'Next
|
|
'ACTUALIZO EL RESTO DE LOS CONTACTOS QUE YA TIENE CVEPROVEEDORSUCURSAL ASIGNADA
|
|
'For Each rowCS As DataRow In TempDTProveedoresContactosSucursal.Rows
|
|
' ' Si tiene CveContacto = -1 y CveSucursal es nuevo en esa sucursal y agrega
|
|
' If rowCS("CveProveedorContacto").ToString() = "-1" And rowCS("CveProveedorSucursal").ToString().ToEntero() > 0 Then
|
|
' If Not ObjProveedores.AddProveedorContacto(CveProveedor, rowCS("CveProveedorSucursal").ToString.ToEntero, rowCS("Nombre").ToString, rowCS("Puesto").ToString, rowCS("Telefono").ToString, rowCS("Extension").ToString, rowCS("Celular").ToString, rowCS("Correo").ToString) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' Else
|
|
' If rowCS("CveProveedorContacto").ToString().ToEntero() > 0 Then
|
|
' '' CONTACTO ACTUALIZADO: Si tiene una CveContacto ya existia y actualiza ******
|
|
' If Not ObjProveedores.UpdateProveedorContacto(rowCS("CveProveedorContacto").ToString.ToEntero, CveProveedor, rowCS("CveProveedorSucursal").ToString.ToEntero, rowCS("Nombre").ToString, rowCS("Puesto").ToString, rowCS("Telefono").ToString, rowCS("Extension").ToString, rowCS("Celular").ToString, rowCS("Correo").ToString) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' End If
|
|
' End If
|
|
'Next
|
|
|
|
''SUCURSAL ELIMINADA: recorre el DT de la BD
|
|
'For Each row As DataRow In TempDTSucursalesOrigin.Rows
|
|
' Dim CveProveedorSucursal As Integer = row("CveProveedorSucursal").ToString.ToEntero()
|
|
' Dim filtroSucursales As String = String.Format("CveProveedorSucursal ={0}", CveProveedorSucursal)
|
|
' ' Busca si no existe la Cve Original, si no exite la elimina
|
|
' If (TempDTSucursales.FiltraParametros(filtroSucursales).Rows.Count = 0) Then
|
|
' ''Primero eliminamos Contactos de esta Sucursal
|
|
' ''Elimino contactos que ya no estan en DT
|
|
' For Each rowCS As DataRow In TempDTProveedoresContactosSucursalOrigin.Rows
|
|
' If CveProveedorSucursal = rowCS("CveProveedorSucursal").ToString.ToEntero() And rowCS("CveProveedorContacto").ToString.ToEntero() > 0 Then
|
|
' Dim CveContacto As Integer = rowCS("CveProveedorContacto").ToString.ToEntero()
|
|
|
|
' If Not ObjProveedores.RemoveProveedorContacto(CveContacto) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' End If
|
|
' Next
|
|
|
|
' If Not ObjProveedores.RemoveSucursal(CveProveedor, CveProveedorSucursal) Then
|
|
' ErrorSucursales = True
|
|
' Else
|
|
' If ObjProveedores.GetSucursales(-1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados
|
|
' End If
|
|
' End If
|
|
'Next
|
|
|
|
'''Elimino contactos que ya no estan en DT
|
|
'For Each row As DataRow In TempDTProveedoresContactosSucursalOrigin.Rows
|
|
' Dim CveContacto As Integer = row("CveProveedorContacto").ToString.ToEntero()
|
|
' Dim filtroContactos As String = String.Format("CveProveedorContacto ={0}", CveContacto)
|
|
' ' Busca si no existe la Cve Original, si no exite la elimina
|
|
' If (TempDTProveedoresContactosSucursal.FiltraParametros(filtroContactos).Rows.Count = 0) Then
|
|
' If Not ObjProveedores.RemoveProveedorContacto(CveContacto) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' End If
|
|
'Next
|
|
|
|
''''''''''''''''''''''''''''''''''''
|
|
'''ACTUALIZA CONTACTOS DEL PROVEEDOR
|
|
''''''''''''''''''''''''''''''''''''
|
|
'''CONTACTO NUEVO
|
|
''''''''''''''''''''''''''''''''''''
|
|
'' If TempDTProveedoresContactos.Rows.Count > 0 Then
|
|
'For Each row As DataRow In TempDTProveedoresContactos.Rows
|
|
' ' Si tiene Cve = -1 es nuevo y agrega
|
|
' If row("CveProveedorContacto").ToString = "-1" Then
|
|
' If Not ObjProveedores.AddProveedorContacto(CveProveedor, row("CveProveedorSucursal").ToString.ToEntero, row("Nombre").ToString, row("Puesto").ToString, row("Telefono").ToString, row("Extension").ToString, row("Celular").ToString, row("Correo").ToString) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' Else
|
|
' '' CONTACTO ACTUALIZADO: Si tiene una Cve ya existia y actualiza
|
|
' If Not ObjProveedores.UpdateProveedorContacto(row("CveProveedorContacto").ToString.ToEntero, CveProveedor, row("CveProveedorSucursal").ToString.ToEntero, row("Nombre").ToString, row("Puesto").ToString, row("Telefono").ToString, row("Extension").ToString, row("Celular").ToString, row("Correo").ToString) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' End If
|
|
'Next
|
|
|
|
|
|
''CONTACTO ELIMINADO: Recorre el DT de la BD
|
|
'For Each row As DataRow In TempDTProveedoresContactosOrigin.Rows
|
|
' Dim CveContato As Integer = row("CveProveedorContacto").ToString.ToEntero()
|
|
' Dim filtroContactos As String = String.Format("CveProveedorContacto ={0}", CveContato)
|
|
' ' Busca si no existe la Cve Original, si no exite la elimina
|
|
' If (TempDTProveedoresContactos.FiltraParametros(filtroContactos).Rows.Count = 0) Then
|
|
' If Not ObjProveedores.RemoveProveedorContacto(CveContato) Then
|
|
' ErrorContactos = True
|
|
' End If
|
|
' End If
|
|
'Next
|
|
' End If
|
|
|
|
If ErrorSucursales Or ErrorContactos Then ''
|
|
ObjProveedores.RollBack()
|
|
If ErrorContactos Then
|
|
Alert("Ocurrió un error al registrar los Contactos", TipoMensaje.MsgError)
|
|
End If
|
|
If ErrorSucursales Then
|
|
Alert("Ocurrió un error al registrar las Sucursales", TipoMensaje.MsgError)
|
|
End If
|
|
Else
|
|
'Recargamos los contactos
|
|
CargaContactos(ObjProveedores)
|
|
ObjProveedores.Commit()
|
|
CargaProveedorSucursales()
|
|
End If
|
|
|
|
UpDatos.Update()
|
|
|
|
End If
|
|
ObjProveedores.Dispose()
|
|
End If
|
|
CargaEventoBitacora()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "U S U A R I O S"
|
|
|
|
Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click
|
|
'guarda el nuevo usuario
|
|
Dim ObjUsuario As New ClsSisUsuarios
|
|
Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero
|
|
Dim CvePlataforma As Integer = 7
|
|
Dim ErrorUsuario As Boolean = False
|
|
|
|
'DECLARAMOS PERMISOS DEFAULT DE ADMIN
|
|
Dim Permisos() As Integer = {236, 237, 238, 239, 240}
|
|
|
|
If TxtCorreoCobranza.Text.Trim = "" Then
|
|
Alert("No se ha registrado ningún correo en la pestaña Información del Proveedor.", TipoMensaje.MsgAdvertencia)
|
|
Return
|
|
End If
|
|
|
|
ObjUsuario.IniciaTransacSQL()
|
|
'AGREGAMOS USUARIO ADMIN NUEVO
|
|
If CveUsr = 0 Then
|
|
'CREA USUARIO
|
|
CveUsr = ObjUsuario.AddUsuarioPortal(TxtCorreoCobranza.Text.Trim, ContraseñaPredeterminadaEncriptada, "Admin", TxtCorreoCobranza.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
|
|
|
If CveUsr > 0 Then
|
|
' AGREGA PERMISO A MODULO PORTALPROVEEDOR
|
|
If Not ObjUsuario.UpdateUsuariosModulos(CveUsr, 1201, True, UsuarioActual.CveUsuario) Then
|
|
ErrorUsuario = True
|
|
End If
|
|
Else
|
|
ErrorUsuario = True
|
|
End If
|
|
Else
|
|
'ACTUALIZAMOS ESTADO DE USARIO ADMIN INACTIVO
|
|
If Not ObjUsuario.UpdateUsuarioPortal(TxtCorreoCobranza.Text.Trim, "Admin", TxtCorreoCobranza.Text.Trim, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, CveUsr, UsuarioActual.CveUsuario) Then
|
|
ErrorUsuario = True
|
|
End If
|
|
End If
|
|
|
|
If Not ErrorUsuario Then
|
|
'AGREGAMOS PERMISOS A ADMIN
|
|
For Each permiso In Permisos
|
|
If Not ObjUsuario.UpdateUsuariosProcesos(CveUsr, permiso, True, UsuarioActual.CveUsuario) Then
|
|
ErrorUsuario = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
'VERIFICAMOS SI HUBO ERRORES
|
|
If ErrorUsuario Then
|
|
ObjUsuario.RollBack()
|
|
Else
|
|
'ACTUALIZAMOS SECCION USUARIO PORTAL
|
|
HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString
|
|
trDesactivarUsuario.Visible = True
|
|
trEnviarActivacion.Visible = False
|
|
LblUsuarioActivo.Text = "Si"
|
|
|
|
GvUsuariosPortalSis.Visible = False
|
|
ErrorUsuario = False
|
|
ObjUsuario.Commit()
|
|
End If
|
|
|
|
ObjUsuario.Dispose()
|
|
UPUsuarios.Update()
|
|
|
|
'ENVIA CORREO DE ACTIVACION y CARGA USUARIOS
|
|
If CveUsr > 0 And Not ErrorUsuario Then
|
|
CargaUsuariosPortalProveedor()
|
|
UpGvUsuarios.Update()
|
|
|
|
Dim MensajeCorreo As String = EnviaCorreoActivacionPortal(CveUsr)
|
|
Dim Mensaje As String = IIf(MensajeCorreo = "", $"No se pudo Notificar a : {TxtCorreoCobranza.Text.Trim}", MensajeCorreo).ToString()
|
|
Alert($"La Activación del Portal del Proveedor se ha realizado correctamente.<br><br> {Mensaje}", TipoMensaje.MsgInformacion)
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub LbDesactivaUsuario_Click(sender As Object, e As EventArgs) Handles LbDesactivaPortal.Click
|
|
Dim ObjUsuario As New ClsSisUsuarios
|
|
Dim ErrorDesactivando As Boolean = False
|
|
If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
|
ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados
|
|
Else
|
|
ErrorDesactivando = True
|
|
End If
|
|
|
|
If Not ErrorDesactivando Then
|
|
For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosProveedor"), DataTable).Rows
|
|
'se desactiva el usuario y se restablece la contraseña
|
|
If ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then
|
|
ErrorDesactivando = False
|
|
Else
|
|
ErrorDesactivando = True
|
|
Alert("Ocurrió un Error al desactivar a los Usuarios.", TipoMensaje.MsgError)
|
|
End If
|
|
Next
|
|
Else
|
|
Alert("No se Encontraron Usuarios.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
If Not ErrorDesactivando Then
|
|
LblUsuarioActivo.Text = "No"
|
|
'HdnCveUsuarioPortalAdmin.Value = ""
|
|
HdnCveUsuarioPortalActivado.Value = "0"
|
|
trEnviarActivacion.Visible = True
|
|
trDesactivarUsuario.Visible = False
|
|
ViewState("DTUsuariosProveedor") = ""
|
|
|
|
GvUsuariosPortalSis.Visible = False
|
|
Alert("Los Usuarios del Portal de Proveedores han sido Desactivados.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
ObjUsuario.Dispose()
|
|
'ACTUALIZA USUARIOS EN TABUSUARIOS
|
|
If Not ErrorDesactivando Then
|
|
CargaUsuariosPortalProveedor()
|
|
UpGvUsuarios.Update()
|
|
End If
|
|
End Sub
|
|
|
|
Protected Function EnviaCorreoActivacionPortal(CveUsuario As Integer) As String
|
|
Dim Mensaje As String = ""
|
|
Try
|
|
Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
|
|
|
|
Dim ErrorCorreo As Boolean = False
|
|
|
|
Dim Asunto As String = "ACTIVACIÓN DEL PORTAL DE PROVEEDOR"
|
|
Dim Para As String = TxtCorreoCobranza.Text.Trim
|
|
|
|
Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
|
|
Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
|
|
|
|
Dim ObjMail As New ClsSisMail()
|
|
|
|
Dim SBBody As New StringBuilder
|
|
'Linia de estilos
|
|
SBBody.Append("<style> .mailbody{ background-color:#EEF1F5; padding:15px; font-family :'Open Sans', sans-serif; } .mailcontent{ background-color:#fff; font-size: 14px; color: #333; padding:0px 15px ; } .mailtitle{padding:8px;color:#32C5D2; font-size: 18px;font-weight: 700!important;border-bottom:2px solid #EEF1F5;text-transform: uppercase;}.marco{border: 1px solid #869ab3;border-top: 0;background-color: #67809F; margin: 10px 15px 25px 15px;color: #fff;}.marco-title{padding: 10px 10px;text-transform: uppercase;font-weight: 700!important;}.marco-body{color:#333;background-color:#fff;}.nota{background: #E5E5E5;padding:15px;color:#333;} .logo { font-size:12px; font-style:italic; text-align:right; } .col1{width:180px;font-weight: 700!important;display:inline-block;} .col2{min-width:260px;display:inline-block;} </style>")
|
|
'incio Cuerpo del correo
|
|
SBBody.Append("<div Class='mailbody'>")
|
|
SBBody.Append("<div Class='mailcontent'>")
|
|
SBBody.Append("<div Class='mailtitle'>")
|
|
SBBody.Append("ALTA DE CUENTA")
|
|
SBBody.Append("</div>")
|
|
SBBody.Append("<br/>")
|
|
SBBody.AppendFormat("<b> Estimado {0}:</b><br/>", TxtRazonSocial.Text.ToUpper)
|
|
SBBody.AppendFormat("El presente correo es para informarle que se le han asignado los siguientes datos para el acceso a la Plataforma de: <b>{0}</b><br/><br/>", UsuarioActual.Empresa.Empresa)
|
|
SBBody.Append("<div Class='marco'>")
|
|
SBBody.Append("<div Class='marco-title'>Datos de usuario</div>")
|
|
SBBody.Append("<div Class='marco-body'>")
|
|
SBBody.Append("<div>")
|
|
SBBody.Append("<div>")
|
|
SBBody.Append("<div class='col1'> Usuario</div>")
|
|
SBBody.AppendFormat("<div class='col2'>{0}</div>", Para)
|
|
SBBody.Append("</div>")
|
|
SBBody.Append("<div>")
|
|
SBBody.Append("<div class='col1'> Accesé al sistema dando click a la liga y estableciendo su contraseña</div>")
|
|
SBBody.AppendFormat("<div class='col2'><a href='{0}'target='_blank'>Activar</a></div>", LigaActivar)
|
|
SBBody.Append("</div>")
|
|
SBBody.Append("</div>")
|
|
SBBody.Append("</div>")
|
|
SBBody.Append("<br/>")
|
|
SBBody.Append("Para Activar su cuenta debera cambiar su contraseña.<br/><br/>")
|
|
|
|
|
|
SBBody.Append("<div class='col1'> Dirección de Acceso</div>")
|
|
SBBody.AppendFormat("<div class='col2'><a href='{0}'target='_blank'>Portal del Cliente</a></div>", Liga)
|
|
SBBody.Append("</div>")
|
|
SBBody.Append("<br/>")
|
|
|
|
SBBody.Append("<div Class='nota'>")
|
|
SBBody.Append("Nota Favor de NO responder este correo. ")
|
|
SBBody.Append("</div><br/><br/>")
|
|
SBBody.AppendFormat("<div class='logo'><img src='{0}Imagenes/LogoSinFondo.png' style='width:30px;'/>ADSistemas </div>", UrlSitio)
|
|
SBBody.Append("</div>")
|
|
SBBody.Append("</div>")
|
|
'Termino Cuerpo del correo
|
|
'If TxtCorreoCobranza.Text.Trim <> "" Then
|
|
' Dim Correos As String() = TxtCorreoCobranza.Text.ToString.Split(New Char() {";"c})
|
|
|
|
' Dim Correo As String
|
|
|
|
'For Each Correo In Correos
|
|
' If Not ObjMail.SendMail(EmpresaNotificaciones, Correo, "Activación de Portal de Proveedor", TxtBody.Text.Trim) Then
|
|
' Mensaje.AppendFormat("- {0}<br/>", Correo)
|
|
' Else
|
|
' ErrorCorreo = True
|
|
' End If
|
|
'Next
|
|
|
|
Dim Hilo As New System.Threading.Thread(Sub() MandaCorreo(Asunto, TxtCorreoCobranza.Text.Trim, SBBody.ToString))
|
|
Hilo.Start()
|
|
'End If
|
|
Mensaje = $"Se notificó a: <b>{Para}</b>."
|
|
Catch ex As Exception
|
|
OnError("Ocurrió error al mandar MAIL", ex)
|
|
End Try
|
|
|
|
Return Mensaje
|
|
|
|
End Function
|
|
|
|
Private Sub MandaCorreo(Asunto As String, Para As String, Body As String)
|
|
Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
|
|
a.GuardaLog()
|
|
Dim Mail As New ClsSisMail()
|
|
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region " U S U A R I O S - P O R T A L "
|
|
|
|
'Private Sub CargaUsuariosPortalSis()
|
|
' Dim ObjUsuarios As New ClsSisUsuarios()
|
|
' If ObjUsuarios.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
|
' GvUsuariosPortalSis.DataSource = ObjUsuarios.DtResultados
|
|
' Else
|
|
' GvUsuariosPortalSis.DataSource = Nothing
|
|
' End If
|
|
' ObjUsuarios.Dispose()
|
|
|
|
' GvUsuariosPortalSis.DataBind()
|
|
' UPUsuarios.Update()
|
|
'End Sub
|
|
#End Region
|
|
|
|
#Region "S U C U R S A L E S"
|
|
Public Sub CargaProveedorSucursales()
|
|
CveTempSucursal = -1
|
|
|
|
TempDTSucursales = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
|
|
TempDTSucursales.Columns.Add("CveSucursalTemp", GetType(String))
|
|
TempDTSucursalesOrigin = TempDTSucursales.Copy()
|
|
GVSucursales.DataSource = TempDTSucursales
|
|
GVSucursales.DataBind()
|
|
UPPSucursales.Update()
|
|
'OrdenaDatos()
|
|
End Sub
|
|
Protected Sub BtnAgregarSucursal_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click
|
|
|
|
If CveProveedor = -1 Then
|
|
'SI EL PROVEEDOR NO ESTA EN BD AGREGA SUCURSAL A TABLA TEMPORAL
|
|
Dim SucursalRepetida As Boolean = False
|
|
For Each row As DataRow In TempDTSucursales.Rows
|
|
If row("ProveedorSucursal").ToString = TxtProveedorSucursal2.Text Then
|
|
SucursalRepetida = True
|
|
End If
|
|
Next
|
|
|
|
If SucursalRepetida And CveProveedorSucursal = -1 And CveTempSucursal = -1 Then
|
|
Dim Msg As New StringBuilder
|
|
Msg.AppendFormat("<br/>Ya existe una Sucursal con el nombre: <b>{0}</b> para este proveedor. Por favor ingrese otro nombre a la nueva Sucursal.", TxtProveedorSucursal2.Text)
|
|
Alert(Msg.ToString(), TipoMensaje.MsgAdvertencia)
|
|
Else
|
|
|
|
Dim dr As DataRow = TempDTSucursales.NewRow()
|
|
' CveProveedorSucursal, ProveedorSucursal, Serie, Correo, Contacto, Direccion, Telefono, FechaIng, Usuario
|
|
dr("CveProveedorSucursal") = CveProveedorSucursal
|
|
dr("ProveedorSucursal") = TxtProveedorSucursal2.Text
|
|
dr("Serie") = TxtSucursalSerie.Text
|
|
dr("Correo") = TxtCorreoSucursal.Text
|
|
dr("Contacto") = TxtContactoSucursal.Text
|
|
dr("Direccion") = TextSucursalDireccion.Text
|
|
dr("Telefono") = TextSucursalTelefono.Text
|
|
dr("LimiteCredito") = TxtLimiteCreditoSuc.Text.ToDouble
|
|
dr("PlazoCobranza") = TxtPlazoCobranzaSuc.Text.ToEntero
|
|
dr("FechaIng") = DateTime.Today.ToString()
|
|
dr("Usuario") = UsuarioActual.Usuario
|
|
dr("CveUsuario") = UsuarioActual.CveUsuario
|
|
|
|
If CveProveedorSucursal = -1 And CveTempSucursal = -1 Then
|
|
|
|
CveTempSucursal = TempDTSucursales.Compute("MAX(CveSucursalTemp)", "").ToString().ToEntero() + 1
|
|
|
|
End If
|
|
|
|
dr("CveSucursalTemp") = CveTempSucursal
|
|
|
|
If IndexDTSucursal <> -1 Then
|
|
TempDTSucursales.Rows.RemoveAt(IndexDTSucursal)
|
|
End If
|
|
|
|
TempDTSucursales.Rows.Add(dr)
|
|
|
|
GVSucursales.DataSource = TempDTSucursales
|
|
GVSucursales.DataBind()
|
|
|
|
End If
|
|
|
|
Else
|
|
' SI EL PROVEEDOR TIENE CVE AGREGA o ACTUALIZA SUCURSAL EN BD
|
|
Dim ObjProveedor As New ClsCompProveedores
|
|
If EsEditarSucursal = 0 Then
|
|
If ObjProveedor.AddSucursal(CveProveedor, TxtProveedorSucursal2.Text.Trim, TextSucursalDireccion.Text.Trim, TextSucursalTelefono.Text.Trim, TxtSucursalSerie.Text.Trim, TxtContactoSucursal.Text, TxtCorreoSucursal.Text, UsuarioActual.CveUsuario, TxtLimiteCreditoSuc.Text.ToDouble, TxtPlazoCobranzaSuc.Text.ToEntero) Then
|
|
'recargo el globaldt
|
|
GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
|
|
Alert("La nueva Sucursal del Proveedor se guardó correctamente.", TipoMensaje.MsgInformacion)
|
|
CargaProveedorSucursales()
|
|
End If
|
|
Else
|
|
|
|
If CveProveedorSucursal > 0 And ObjProveedor.UpdateSucursal(TxtProveedorSucursal2.Text, TextSucursalDireccion.Text.Trim, TextSucursalTelefono.Text.Trim, TxtSucursalSerie.Text, False, TxtCorreoSucursal.Text, TxtContactoSucursal.Text, CveProveedorSucursal, CveProveedor, TxtLimiteCreditoSuc.Text.ToDouble, TxtPlazoCobranzaSuc.Text.ToEntero) Then
|
|
'recargo el globaldt
|
|
GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
|
|
CargaProveedorSucursales()
|
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
End If
|
|
ObjProveedor.Dispose()
|
|
End If
|
|
|
|
UPPSucursales.Update()
|
|
Me.RegistraScript("$('#divAgregarSucursal').modal('hide');")
|
|
LimpiaModalAgregarSucursal()
|
|
End Sub
|
|
Private Sub OcultaDiv()
|
|
ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True)
|
|
End Sub
|
|
Protected Sub GVSucursales_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound
|
|
'If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
' If e.Row.RowIndex = 0 Then
|
|
' e.Row.Cells(0).Width = Unit.Pixel(80)
|
|
' e.Row.Cells(1).Width = Unit.Pixel(60)
|
|
' e.Row.Cells(2).Width = Unit.Pixel(70)
|
|
' 'e.Row.Cells(3).Width = Unit.Pixel(70)
|
|
' 'e.Row.Cells(4).Width = Unit.Pixel(50)
|
|
' End If
|
|
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
|
|
|
' Dim URL As String = String.Format("javascript:CleanObjects();SetValue('HdnModalidad', 'U');SetValue('HdnID', '{0}'); SetObjects('{1}', '{2}', '{3}','{4}','{5}','{6}','{7}','{8}');ShowDivRegistro();", e.Row.DBCampo("CveProveedorSucursal").ToEntero, e.Row.DBCampo("ProveedorSucursal"), e.Row.DBCampo("Serie"), e.Row.DBCampo("Correo"), e.Row.DBCampo("Contacto"), e.Row.DBCampo("Direccion"), e.Row.DBCampo("Telefono"), String.Format("Fecha de Registro: {0}", e.Row.DBCampo("FechaIng").ToDate.ToShortDateString), String.Format("Usuario Registró: {0}", e.Row.DBCampo("Usuario")))
|
|
|
|
' 'GeneroLigas
|
|
' Dim Liga As String = String.Format("<a class=""LinkBlanco"" href=""{0}"">", URL)
|
|
' e.Row.VerticalAlign = VerticalAlign.Middle
|
|
|
|
' 'e.Row.FCLiteral("LtlSucursal").Text = String.Format("{0}{1}</a>", Liga, e.Row.FCLiteral("LtlSucursal").Text)
|
|
' e.Row.FCLiteral("LtlSerie").Text = String.Format("{0}{1}</a>", Liga, e.Row.FCLiteral("LtlSerie").Text)
|
|
' e.Row.CssClass = "GVRowBorder"
|
|
' e.Row.Height = Unit.Pixel(33)
|
|
|
|
'End If
|
|
|
|
End Sub
|
|
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVSucursales.RowDeleting
|
|
|
|
Dim CveProveedorSucursal As Integer = GVSucursales.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
|
|
|
|
|
If CveProveedor = -1 Then
|
|
TempDTSucursales.Rows.RemoveAt(e.RowIndex)
|
|
GVSucursales.DataSource = TempDTSucursales
|
|
GVSucursales.DataBind()
|
|
|
|
UPPSucursales.Update()
|
|
Else
|
|
Dim ObjProveedor As New ClsCompProveedores
|
|
''Primero eliminamos Contactos de esta Sucursal
|
|
ObjProveedor.IniciaTransacSQL()
|
|
If ObjProveedor.RemoveProveedorContacto(-1, CveProveedorSucursal) Then
|
|
If ObjProveedor.RemoveSucursal(CveProveedor, CveProveedorSucursal) Then
|
|
'GVSucursales.EditIndex = -1
|
|
GlobalDTProveedorSucursales(-1, UsuarioActual.CveEmpresa) = Nothing
|
|
CargaProveedorSucursales()
|
|
CargaContactos(ObjProveedor)
|
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
ObjProveedor.Commit()
|
|
Else
|
|
ObjProveedor.RollBack()
|
|
End If
|
|
Else
|
|
ObjProveedor.RollBack()
|
|
End If
|
|
ObjProveedor.Dispose()
|
|
End If
|
|
End Sub
|
|
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GVSucursales.RowCancelingEdit
|
|
GVSucursales.EditIndex = -1
|
|
End Sub
|
|
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing
|
|
GVSucursales.EditIndex = e.NewEditIndex
|
|
End Sub
|
|
|
|
Protected Sub CreaTempDTSucursales()
|
|
|
|
TempDTSucursales = New DataTable()
|
|
'TempDTSucursales.Columns.Add("CveProveedor", GetType(String))
|
|
TempDTSucursales.Columns.Add("CveProveedorSucursal", GetType(String))
|
|
TempDTSucursales.Columns.Add("ProveedorSucursal", GetType(String))
|
|
TempDTSucursales.Columns.Add("Serie", GetType(String))
|
|
TempDTSucursales.Columns.Add("Correo", GetType(String))
|
|
TempDTSucursales.Columns.Add("Contacto", GetType(String))
|
|
TempDTSucursales.Columns.Add("Direccion", GetType(String))
|
|
TempDTSucursales.Columns.Add("Telefono", GetType(String))
|
|
TempDTSucursales.Columns.Add("LimiteCredito", GetType(Double))
|
|
TempDTSucursales.Columns.Add("PlazoCobranza", GetType(Integer))
|
|
TempDTSucursales.Columns.Add("FechaIng", GetType(String))
|
|
TempDTSucursales.Columns.Add("Usuario", GetType(String))
|
|
TempDTSucursales.Columns.Add("CveUsuario", GetType(String))
|
|
TempDTSucursales.Columns.Add("CveSucursalTemp", GetType(String))
|
|
|
|
GVSucursales.DataSource = TempDTSucursales
|
|
GVSucursales.DataBind()
|
|
|
|
DivSucursales.Visible = True
|
|
UPPSucursales.Update()
|
|
|
|
End Sub
|
|
|
|
Protected Sub LnkSucursal_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
|
|
|
IndexDTSucursal = GvRow.RowIndex
|
|
|
|
CveProveedorSucursal = GvRow.DataKey("CveProveedorSucursal").ToEntero()
|
|
CveTempSucursal = IIf(GvRow.DataKey("CveSucursalTemp") <> "" Or GvRow.DataKey("CveSucursalTemp") IsNot Nothing, GvRow.DataKey("CveSucursalTemp"), 0).ToString().ToEntero()
|
|
|
|
CveProveedorContacto = -1
|
|
|
|
TxtProveedorSucursal2.Text = GvRow.DataKey("ProveedorSucursal")
|
|
TextSucursalDireccion.Text = GvRow.DataKey("Direccion")
|
|
TextSucursalTelefono.Text = GvRow.DataKey("Telefono")
|
|
TxtSucursalSerie.Text = GvRow.DataKey("Serie")
|
|
TxtCorreoSucursal.Text = GvRow.DataKey("Correo")
|
|
TxtContactoSucursal.Text = GvRow.DataKey("Contacto")
|
|
TxtPlazoCobranzaSuc.Text = GvRow.DataKey("PlazoCobranza")
|
|
TxtLimiteCreditoSuc.Text = GvRow.DataKey("LimiteCredito")
|
|
|
|
LblUsuarioSucursal.Text = $"Usuario Registró:</br> {GvRow.DataKey("Usuario")}"
|
|
LblFechaSucursal.Text = $"Fecha de Registro:</br> {GvRow.DataKey("FechaIng")}"
|
|
|
|
If CveProveedor = -1 Then
|
|
'Si tiene CveProvedoorSucursal filtra por esta cve, SI NO Busca por la CveProvedorSucursal Temporal
|
|
If GvRow.DataKey("CveProveedorSucursal").ToEntero() > 0 Then
|
|
CargaGVContactosSucursal()
|
|
Else
|
|
CargaGVContactosSucursal()
|
|
End If
|
|
Else
|
|
EsEditarSucursal = 1
|
|
CargaGVContactosSucursal()
|
|
End If
|
|
|
|
DivPContactosSucursal.Visible = True
|
|
UpAgregarSucursal.Update()
|
|
|
|
Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
|
|
End Sub
|
|
|
|
Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs)
|
|
If CveProveedor = -1 Then
|
|
CveTempSucursal = -1
|
|
IndexDTSucursal = -1
|
|
Else
|
|
EsEditarSucursal = 0
|
|
End If
|
|
DivPContactosSucursal.Visible = False
|
|
LimpiaModalAgregarSucursal()
|
|
Me.RegistraScript("$('#divAgregarSucursal').modal('show');")
|
|
End Sub
|
|
|
|
Protected Sub LimpiaModalAgregarSucursal()
|
|
CveProveedorSucursal = -1
|
|
|
|
TxtProveedorSucursal2.Text = ""
|
|
TextSucursalDireccion.Text = ""
|
|
TextSucursalTelefono.Text = ""
|
|
TxtSucursalSerie.Text = ""
|
|
TxtCorreoSucursal.Text = ""
|
|
TxtContactoSucursal.Text = ""
|
|
|
|
LblUsuarioSucursal.Text = ""
|
|
LblFechaSucursal.Text = ""
|
|
|
|
GVContactosProveedorSucursal.DataSource = Nothing
|
|
GVContactosProveedorSucursal.DataBind()
|
|
|
|
UpAgregarSucursal.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "CxP"
|
|
Private Sub CargaCxP(CveProveedorSucursal As Integer, Optional Top As Integer = -1)
|
|
Dim ObjMovtos As New ClsMovimientos()
|
|
'CxC Activas
|
|
'If ObjMovtos.GetCxPProveedor(CveProveedor, SerieSucursal, CveMoneda:=CveMoneda) Then
|
|
If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, CveMonedaFiltro, -1, If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), -1, "-1", "-1") Then
|
|
Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda,OrdenVencimiento, FechaVencimiento")
|
|
GvCxP.DataSource = dtt
|
|
DTCxP = dtt
|
|
dtt = dtt.FiltraParametros("CveCompra > 0")
|
|
|
|
CountCuentasxPagar = dtt.Rows.Count
|
|
|
|
'RESUMEN CUENTAS POR PAGAR
|
|
LBRCPVencidoP.Text = String.Format("{0}", dtt.SUM("Saldo", "CveMoneda = 1 and DiasVencidos > 0")).FormatoNumero
|
|
LBRCPPorVencerP.Text = String.Format("{0}", dtt.SUM("Saldo", "CveMoneda = 1 and DiasVencidos <= 0")).FormatoNumero
|
|
LBRCPSumaP.Text = String.Format("{0}", dtt.SUM("Saldo", "CveMoneda = 1 ")).FormatoNumero
|
|
|
|
LBRCPVencidoD.Text = String.Format("{0}", dtt.SUM("Saldo", "CveMoneda = 2 and DiasVencidos > 0")).FormatoNumero
|
|
LBRCPPorVencerD.Text = String.Format("{0}", dtt.SUM("Saldo", "CveMoneda = 2 and DiasVencidos <= 0")).FormatoNumero
|
|
LBRCPSumaD.Text = String.Format("{0}", dtt.SUM("Saldo", "CveMoneda = 2 ")).FormatoNumero
|
|
|
|
LBRCPTipoCambio.Text = GlobalTipoCambio.ToString.FormatoNumero
|
|
LBRCPTotal.Text = (LBRCPSumaP.Text.ToDouble + (LBRCPSumaD.Text.ToDouble * LBRCPTipoCambio.Text.ToDouble)).ToString.FormatoNumero
|
|
If LblLimiteCredito.Text.ToDouble > 0 Then
|
|
TdSaldo.Visible = True
|
|
TdSaldo2.Visible = True
|
|
LblSaldo.Text = CType(LblLimiteCredito.Text.ToDouble - LBRCPTotal.Text.ToDouble, String).FormatoNumero
|
|
End If
|
|
'solo tomo los 10 ultimos mas el totalizador general
|
|
dtt = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
|
|
DtCxPHistorial = dtt
|
|
If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 And Top = -1 Then
|
|
GvCxPHistorial.DataSource = dtt.AsEnumerable().Take(10).CopyToDataTable()
|
|
|
|
ElseIf dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 And Top > -1 Then
|
|
GvCxPHistorial.DataSource = dtt.AsEnumerable().CopyToDataTable()
|
|
End If
|
|
|
|
Else
|
|
CountCuentasxPagar = 0
|
|
GvCxP.DataSource = Nothing
|
|
GvCxPHistorial.DataSource = Nothing
|
|
End If
|
|
|
|
ObjMovtos.Dispose()
|
|
GvCxP.DataBind()
|
|
GvCxPHistorial.DataBind()
|
|
UPPCxP.Update()
|
|
|
|
If IsPostBack AndAlso Not DivFiltraMoneda.Visible Then
|
|
CargaFiltroMonedas()
|
|
End If
|
|
|
|
End Sub
|
|
Protected Sub BtnRecargaCxP_Click(sender As Object, e As EventArgs) Handles BtnRecargaCxP.Click
|
|
CargaCxP(-1)
|
|
End Sub
|
|
Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound, GvCxPHistorial.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 AndAlso CType(sender, GridView).ID = "GvCxP" Then
|
|
''e.Row.Cells(0).ColumnSpan = 4
|
|
'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
|
'e.Row.FCLiteral("LtlFactura").Text = "Total" & " "
|
|
'e.Row.Cells(1).Visible = False
|
|
'e.Row.Cells(2).Visible = False
|
|
'e.Row.Cells(3).Visible = False
|
|
''e.Row.Cells(9).ColumnSpan = 2
|
|
'e.Row.Cells(10).Visible = False
|
|
|
|
End If
|
|
If e.Row.RowIndex = 1 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(2)
|
|
e.Row.Cells(1).Width = Unit.Pixel(100)
|
|
e.Row.Cells(2).Width = Unit.Pixel(70)
|
|
e.Row.Cells(3).Width = Unit.Pixel(80)
|
|
e.Row.Cells(4).Width = Unit.Pixel(80)
|
|
e.Row.Cells(5).Width = Unit.Pixel(90)
|
|
e.Row.Cells(6).Width = Unit.Pixel(90)
|
|
e.Row.Cells(7).Width = Unit.Pixel(105)
|
|
e.Row.Cells(8).Width = Unit.Pixel(90)
|
|
If CType(sender, GridView).ID <> "GvCxPHistorial" Then
|
|
e.Row.Cells(9).Width = Unit.Pixel(85)
|
|
e.Row.Cells(10).Width = Unit.Pixel(70)
|
|
e.Row.Cells(11).Width = Unit.Pixel(70)
|
|
End If
|
|
|
|
End If
|
|
|
|
If e.Row.DBCampo("CveCompra") = "" Then
|
|
e.Row.BackColor = Drawing.Color.LightGray
|
|
If e.Row.FCHyperLink("ImgAbonar") IsNot Nothing Then e.Row.FCHyperLink("ImgAbonar").Visible = False
|
|
Else
|
|
|
|
End If
|
|
|
|
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
|
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
|
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
|
e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
|
|
|
|
|
|
|
|
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(6).ForeColor = Drawing.Color.Red
|
|
If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxP" Then e.Row.Cells(4).ForeColor = Drawing.Color.Red
|
|
If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
|
|
If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
|
|
If e.Row.DBCampo("PorPagado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlPorRecuperado"), Literal).Text = ""
|
|
If CType(sender, GridView).ID = "GvCxP" AndAlso e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
|
|
If e.Row.DBCampo("PorXPagar").ToDouble = 0 AndAlso e.Row.FCLiteral("LtlPorXRecuperar") IsNot Nothing Then e.Row.FCLiteral("LtlPorXRecuperar").Text = ""
|
|
|
|
If e.Row.DBCampo("Folio") = "N/D" Then
|
|
e.Row.FCLabel("LtlFactura").Text = e.Row.DBCampo("SerieFolio")
|
|
Else
|
|
'Dim Liga As String = String.Format("<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra={0}"">", e.Row.DBCampo("CveCompra"))
|
|
If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
|
|
e.Row.FCLabel("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra={0}"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))
|
|
Else
|
|
e.Row.FCLabel("LtlFactura").Text = e.Row.DBCampo("SerieFolio")
|
|
End If
|
|
|
|
End If
|
|
If e.Row.RowIndex > 0 Then e.Row.FCLiteral("LtlAux").Text = String.Format("<a class=""Texto thickbox"" href=""/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=370&width=900"" />Ir</a>", CveProveedor, e.Row.DBCampo("CveCompra"))
|
|
'DirectCast(e.Row.FindControl("ImgAbonar"), Image).Attributes.Add("onclick", String.Format("$get('HdnCveVenta').value='{0}';$get('HdnCveVentaAbono').value='{0}';$('#DivAddPago').show(1000);PosicionaObjeto('{1}', 'DivAddPago');", e.Row.DBCampo("CveCompra"), DirectCast(e.Row.FindControl("ImgAbonar"), Image).ClientID))
|
|
If e.Row.FCHyperLink("ImgAbonar") IsNot Nothing Then e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/PopIECompras.aspx?CveCompra={0}&TB_iframe=true&height=450&width=790", e.Row.DBCampo("CveCompra"))
|
|
|
|
If CType(sender, GridView).ID = "GvCxPHistorial" Then
|
|
|
|
DirectCast(e.Row.FindControl("LtlDiasVencido"), Literal).Text = ""
|
|
|
|
If e.Row.DBCampo("CveCompra") = "" Then
|
|
e.Row.BackColor = Drawing.Color.LightGray
|
|
e.Row.FCLabel("LtlFactura").Text = e.Row.DBCampo("Descripcion")
|
|
End If
|
|
|
|
Else
|
|
e.Row.Cells(8).Font.Bold = True
|
|
e.Row.Cells(9).Font.Bold = True
|
|
If e.Row.DBCampo("CveUsuarioProgramo").ToEntero > 0 Then
|
|
e.Row.FCLinkButton("LblB").Text = "P"
|
|
'e.Row.FCLabel("LblB").CssClass = "GreenStripe"
|
|
e.Row.Cells(0).ToolTip = "La compra ha sido programada."
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "E V E N T O - B I T A C O R A"
|
|
Protected Sub GvEB_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(200)
|
|
e.Row.Cells(1).Width = Unit.Pixel(200)
|
|
e.Row.Cells(2).Width = Unit.Pixel(100)
|
|
e.Row.Cells(3).Width = Unit.Pixel(500)
|
|
End If
|
|
|
|
If e.Row.DBCampo("Archivo").ToString <> "" Then
|
|
e.Row.FCLinkButton("LinkArchivo").Visible = True
|
|
e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString)
|
|
ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione
|
|
End If
|
|
|
|
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
|
|
End If
|
|
End Sub
|
|
Protected Sub BtnGuardarEventoBitacora_Click(sender As Object, e As EventArgs) Handles BtnGuardarEventoBitacora.Click
|
|
Dim ObjEventoBitacora As New ClsOIEventos
|
|
|
|
Dim FileExtension As String = "-1"
|
|
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
|
Dim filemove As String = ""
|
|
|
|
For Each fileItem As Archivo In filesgral
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
filemove = fileItem.filename
|
|
Next
|
|
|
|
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
|
|
If filemove <> "" Then
|
|
filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
|
|
End If
|
|
|
|
GvEB.DataSource = ObjEventoBitacora.DtResultados
|
|
TxtEventoDescripcion.Text = ""
|
|
Anexo.Text = "[]"
|
|
Alert("La bitácora/observación se guardó correctamente", TipoMensaje.MsgInformacion)
|
|
RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal")
|
|
End If
|
|
ObjEventoBitacora.Dispose()
|
|
GvEB.DataBind()
|
|
|
|
UPEventoBitacora.Update()
|
|
CargaEventoBitacora()
|
|
UPAddEventoBitacora.Update()
|
|
End Sub
|
|
Private Sub CargaEventoBitacora()
|
|
|
|
Dim ObjEventoBitacora As New ClsOIEventos()
|
|
If ObjEventoBitacora.GetAgendaBitacora(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
|
|
GvEB.DataSource = ObjEventoBitacora.DtResultados.FiltraParametros("CveTipoEvento = 6 OR CveTipoEvento = 2")
|
|
Else
|
|
GvEB.DataSource = Nothing
|
|
End If
|
|
ObjEventoBitacora.Dispose()
|
|
GvEB.DataBind()
|
|
End Sub
|
|
|
|
Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
|
|
Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
|
|
Dim Archivo As New System.IO.FileInfo(filePath)
|
|
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/octet-stream"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + IO.Path.GetFileName(filePath))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(filePath)
|
|
HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
|
|
Archivo = Nothing
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OC"
|
|
Private Sub CargaOC()
|
|
Dim OC As New ClsOC
|
|
|
|
If OC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, CveProveedor, -1, -1, -1, UsuarioActual.CveEmpresa, -1) Then
|
|
GvOC.DataSource = OC.DtResultados
|
|
RegistraScript("if($('#DivOC').style){$get('DivOC').style.display='';PosicionaObjeto('ImgBtnBuscarOC','DivOC');}")
|
|
End If
|
|
OC.Dispose()
|
|
GvOC.DataBind()
|
|
If (GvOC.Rows.Count > 0) Then
|
|
GvOC.UseAccessibleHeader = True
|
|
GvOC.HeaderRow.TableSection = TableRowSection.TableHeader
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "D O C U M E N T A C I O N"
|
|
|
|
Private Sub CargaDocs()
|
|
Dim Edoc As New ClsEdocumentacion
|
|
If Edoc.DocumentacionElectronicaGet(-1, -1, CveProveedor, UsuarioActual.CveEmpresa, -1, -1, 4) Then
|
|
GvDocs.DataSource = Edoc.DtResultados
|
|
Edoc.DocumentacionGet(-1, -1, 1, UsuarioActual.CveEmpresa)
|
|
' GVEDoc.DataSource = Edoc.DtResultados
|
|
If Edoc.DtResultados.Rows.Count > 0 Then
|
|
TabDocs.Visible = True
|
|
End If
|
|
End If
|
|
Edoc.Dispose()
|
|
GvDocs.DataBind()
|
|
' GVEDoc.DataBind()
|
|
|
|
If (GvDocs.Rows.Count > 0) Then
|
|
|
|
GvDocs.UseAccessibleHeader = True
|
|
GvDocs.HeaderRow.TableSection = TableRowSection.TableHeader
|
|
'RegistraScript("OrdenarGV();")
|
|
End If
|
|
|
|
UpDocumentos.Update()
|
|
|
|
End Sub
|
|
|
|
Public Sub UploadModal_ClickDocumentacion(sender As Object, e As EventArgs)
|
|
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
|
|
' Dim chkEstatus As CheckBox
|
|
CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
|
|
CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
|
|
Documentacion = GvRow.DataKey("Documentacion")
|
|
AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
|
|
|
|
|
|
'DiasVigencia = GvRow.DataKey("DiasVigencia").ToString.ToEntero
|
|
Dim x As String = GvRow.DataKey("AplicaFechaVencimiento")
|
|
If GvRow.DataKey("AplicaFechaVencimiento") = "1" Then AplicaFechaVencimiento = True Else AplicaFechaVencimiento = False
|
|
|
|
If GvRow.DataKey("Adjunto").ToString.Length > 0 Then
|
|
FechaVigencia = GvRow.DataKey("Adjunto").ToString.ToDate
|
|
Else
|
|
FechaVigencia = Nothing
|
|
End If
|
|
|
|
|
|
Estatus = GvRow.DataKey("Estatus").ToEntero
|
|
|
|
'If chkEstatus.Checked Then
|
|
' Estatus = 1
|
|
'Else
|
|
' Estatus = 0
|
|
'End If
|
|
|
|
ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
|
|
FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
|
|
|
|
AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
|
|
|
|
LtlModalUploadTitulo.Text = "Subir " & Documentacion
|
|
|
|
UpModalTitleUploadDocumento.Update()
|
|
|
|
RegistraScript("$('#ModalUploadDoc').modal({ backdrop: 'static', keyboard: false});")
|
|
|
|
End Sub
|
|
|
|
Protected Sub GvDocs_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocs.RowDataBound
|
|
|
|
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
|
|
|
|
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
|
|
Dim ImgUpload As LinkButton = e.Row.FCLinkButton("ImgUpload")
|
|
Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
|
|
Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
|
|
Dim ChkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
|
|
' Dim txtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
|
|
Dim CveDocumentacionElectronica As String = e.Row.DataKey("CveDocumentacionElectronica")
|
|
|
|
Dim requerido As Boolean = Boolean.Parse(e.Row.DBCampo("Requerido"))
|
|
|
|
'Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
|
|
Dim separado As Char() = ".".ToCharArray
|
|
Dim array() As String = Adjunto.Split(separado)
|
|
Dim extencion As String = ""
|
|
|
|
Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString.ToEntero
|
|
Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString = "1", True, False)
|
|
Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)
|
|
|
|
txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
|
|
' txtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
|
|
|
|
If e.Row.DataKey("Estatus").ToEntero = 1 Then
|
|
ChkEstatus.Checked = True
|
|
Else
|
|
ChkEstatus.Checked = False
|
|
End If
|
|
|
|
'If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
|
|
' txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
|
|
' If DateTime.Today > e.Row.DBCampo("FechaVigencia").ToString.ToDateTime Then
|
|
' txtFechaVigencia.ForeColor = Drawing.Color.Red
|
|
' End If
|
|
'End If
|
|
|
|
|
|
If array.Length > 0 Then
|
|
extencion = array(array.Length - 1)
|
|
End If
|
|
|
|
If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(3) Then
|
|
' chkEstatus.Checked = True
|
|
ImgUpload.Visible = False
|
|
Else
|
|
'chkEstatus.Checked = False
|
|
End If
|
|
|
|
txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
|
|
|
|
'If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
|
|
' txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
|
|
'End If
|
|
|
|
'Dim scripMascara = "$('#" & txtFechaLimite.ClientID & "').mask('00/00/0000');$('#" & txtFechaVigencia.ClientID & "').mask('00/00/0000');"
|
|
'RegistraScript(scripMascara, "scriptMascara")
|
|
|
|
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
|
|
|
|
If File.Exists(linkDescargaArchivo) Then
|
|
ImgDownLoad.Visible = True
|
|
|
|
If extencion.Length > 0 Then
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica & "." & extencion)
|
|
Else
|
|
ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveDocumentacionElectronica)
|
|
End If
|
|
Else
|
|
ImgDownLoad.Visible = False
|
|
End If
|
|
|
|
Else
|
|
ImgDownLoad.Visible = False
|
|
End If
|
|
|
|
If requerido Then
|
|
ImgRequired.Text = " <a class='btn btn-circle btn-sm yelow' href='#' data-toggle='tooltip' title=' Requerido!' ><i class='fa fa-asterisk '></i></a>"
|
|
End If
|
|
|
|
'chkEstatus.Checked = ImgDownLoad.Visible
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub BtnUploadFileDoc_Click(sender As Object, e As EventArgs) Handles btnUploadFileDoc.Click
|
|
|
|
Dim FileExtension As String = "-1"
|
|
Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
|
|
Dim Filename As String = ""
|
|
Dim ErrorProceso As Boolean = False
|
|
|
|
If AplicaFechaVencimiento And DiasVigencia > 0 Then
|
|
FechaVigencia = DateTime.Today.AddDays(DiasVigencia)
|
|
End If
|
|
|
|
For Each fileItem As Archivo In Filesgral
|
|
|
|
Try
|
|
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
Dim tempArray() As String
|
|
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
|
|
|
|
|
|
|
|
|
|
Dim objEdoc As New ClsEdocumentacion
|
|
objEdoc.IniciaTransacSQL()
|
|
|
|
If CveDocumentacionElectronica = -1 Then
|
|
|
|
CveDocumentacionElectronica = objEdoc.DocumentacionElectronicaAdd(CveDocumentacion, -1, -1, CveProveedor, 1, ObservacionDocumentacion, "-1", UsuarioActual.CveUsuario, FechaLimite, FechaVigencia)
|
|
|
|
If CveDocumentacionElectronica > 0 Then
|
|
|
|
|
|
If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 1, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then
|
|
ErrorProceso = True
|
|
End If
|
|
End If
|
|
|
|
|
|
Else
|
|
If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 1, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then
|
|
ErrorProceso = True
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
If Not ErrorProceso = True Then
|
|
|
|
Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & CveDocumentacionElectronica & "." & FileExtension
|
|
Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & AdjuntoDocumentacion
|
|
|
|
|
|
|
|
Try
|
|
If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\") Then
|
|
System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\")
|
|
End If
|
|
|
|
If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then
|
|
File.Delete(rutaAdjuntoAnterior)
|
|
End If
|
|
|
|
If System.IO.File.Exists(rutaDestino) Then
|
|
System.IO.File.Delete(rutaDestino)
|
|
End If
|
|
|
|
System.IO.File.Move(fileItem.FileUrl, rutaDestino)
|
|
Catch ex As Exception
|
|
GuardaLog($"Error al gaurdar documento (moviendo archivo digital) --> Error{ ex.StackTrace}")
|
|
ErrorProceso = True
|
|
End Try
|
|
End If
|
|
|
|
|
|
If Not ErrorProceso Then
|
|
objEdoc.Commit()
|
|
Alert("Documento cargado correctamente")
|
|
Else
|
|
objEdoc.RollBack()
|
|
Alert("Error al cargar archivo", TipoMensaje.MsgError)
|
|
End If
|
|
objEdoc.Dispose()
|
|
|
|
CargaDocs()
|
|
|
|
|
|
TxtFileDocumentacion.Text = ""
|
|
UPModalUploadDoc.Update()
|
|
|
|
Catch ex As Exception
|
|
OnError("Error al cargar archivo", ex)
|
|
End Try
|
|
|
|
Next
|
|
|
|
RegistraScript("$('#ModalUploadDoc').modal('hide')", "hidemodal3")
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Protected Sub LnkGVEliminar_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Colectivas"
|
|
'Private Sub CargaColectivas()
|
|
' Dim ObjColectivas As New ClsGenerales
|
|
|
|
' If ObjColectivas.GetColectivas(CveProveedor, UsuarioActual.CveEmpresa) Then
|
|
' GVColectivas.DataSource = ObjColectivas.DtResultados
|
|
' End If
|
|
' ObjColectivas.Dispose()
|
|
' GVColectivas.DataBind()
|
|
'End Sub
|
|
|
|
'Protected Sub GVColectivas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVColectivas.RowDataBound
|
|
' If e.Row.RowType = DataControlRowType.DataRow Then
|
|
' If e.Row.RowIndex = 0 Then
|
|
' e.Row.Cells(0).Width = Unit.Pixel(100)
|
|
' e.Row.Cells(1).Width = Unit.Pixel(80)
|
|
' End If
|
|
' e.Row.FCLiteral("LtlColectiva").Text = "<a class=""Texto"" href=""/General/ColectivasDetalle.aspx?CveColectiva=" & e.Row.DBCampo("CveColectiva") & """>" & e.Row.FCLiteral("LtlColectiva").Text & "</a>"
|
|
' e.Row.FCLiteral("LtlSaldo").Text = "<a class=""Texto"" href=""/General/ColectivasDetalle.aspx?CveColectiva=" & e.Row.DBCampo("CveColectiva") & """>" & e.Row.FCLiteral("LtlSaldo").Text & "</a>"
|
|
' End If
|
|
'End Sub
|
|
#End Region
|
|
|
|
#Region "C U E N T A S - B A N C A R I A S"
|
|
'Private Sub CreaDTCuentasBancos()
|
|
' DTCuentasBancos = New DataTable
|
|
' DTCuentasBancos.Columns.Add("CveProveedorCuenta", GetType(Integer))
|
|
' DTCuentasBancos.Columns.Add("BancoNombre", GetType(String))
|
|
' DTCuentasBancos.Columns.Add("Sucursal", GetType(String))
|
|
' DTCuentasBancos.Columns.Add("CLABE", GetType(String))
|
|
' DTCuentasBancos.Columns.Add("SWIFT", GetType(String))
|
|
' DTCuentasBancos.Columns.Add("Plaza", GetType(String))
|
|
' DTCuentasBancos.Columns.Add("Cuenta", GetType(String))
|
|
' DTCuentasBancos.Columns.Add("CIE", GetType(String))
|
|
' DTCuentasBancos.Columns.Add("Referencia", GetType(String))
|
|
|
|
' CargaCuentasBancarias()
|
|
'End Sub
|
|
Private Sub CargaCuentasBancarias()
|
|
Dim ObjCuentasBancos As New ClsGenerales
|
|
ViewState("OrdenCuentasBancos") = ""
|
|
DTCuentasBancos = New DataTable
|
|
TempDTCuentasBancos = New DataTable
|
|
|
|
If ObjCuentasBancos.GetCuentasDepositos(CveProveedor) Then
|
|
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
|
|
Else
|
|
Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
If CveProveedor < 0 Then
|
|
'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
|
|
TempDTCuentasBancos = DTCuentasBancos.Clone
|
|
|
|
'Esconde columna estatus
|
|
'THEstatus.Visible = False
|
|
'THEstatusTexto.Visible = False
|
|
'GvBancosCuentas.Columns(11).Visible = False 'Es la columna estatus CheckBox
|
|
|
|
'Mexicanada para acomadar las columnas'
|
|
'TDEstatusLayout.Visible = False
|
|
'TDEstatusTexto.Visible = False
|
|
|
|
End If
|
|
|
|
ObjCuentasBancos.Dispose()
|
|
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
|
|
|
RecargaGlobalCuentasBancarias()
|
|
|
|
End Sub
|
|
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim EsBancomer = False
|
|
|
|
If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
|
|
EsBancomer = True
|
|
End If
|
|
|
|
'RESTRICCIONES GENERALES
|
|
|
|
'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
|
|
If TxtNumeroCuenta.Text.Trim.Length = 0 AndAlso TxtCLABE.Text.Trim.Length = 0 AndAlso TxtSWIFT.Text.Trim.Length = 0 AndAlso TxtConvenioCIE.Text.Trim.Length = 0 Then
|
|
Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
|
|
If TxtCLABE.Text.Trim.Length <> 0 AndAlso TxtCLABE.Text.Trim.Length <> 18 Then
|
|
Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
'RESTRICCIONES - GLUYAS
|
|
If UsuarioActual.CveEmpresa = 66 Then
|
|
|
|
'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
|
|
If TxtCLABE.Text.Trim.Length <> 18 And TxtCLABE.Text.Trim.Length = 0 And Not EsBancomer And TxtSWIFT.Text.Trim.Length = 0 Then
|
|
Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
|
|
If TxtNumeroCuenta.Text.Trim.Length <> 0 AndAlso TxtNumeroCuenta.Text.Trim.Length <> 10 AndAlso EsBancomer Then
|
|
Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
'SI CIE TIENE ALGO REFERENCIA OBLIGATORIA
|
|
If TxtConvenioCIE.Text.Trim.Length <> 0 And TxtReferencia.Text.Trim.Length < 3 Then
|
|
Alert("Cuando se ingresa Convenio CIE se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
|
|
If EsBancomer AndAlso Not (TxtNumeroCuenta.Text.Trim.Length = 10 Or TxtConvenioCIE.Text.Trim.Length <> 0) Then
|
|
Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
Else
|
|
'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD MINIMA DE 5
|
|
If TxtConvenioCIE.Text.Trim.Length <> 0 And TxtConvenioCIE.Text.Trim.Length < 5 Then
|
|
Alert("El Convenio CIE debe tener una longitud de al menos 5 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
If ChkPagoElectronicoGrupos.Checked Then
|
|
|
|
If TxtConvenioCIE.Text.Trim.Length > 0 Then
|
|
|
|
If TxtConvenioCIE.Text.Trim.Length < 5 Then
|
|
Alert("El campo CIE debe de tener una tamaño mininmo 5 caracteres.", TipoMensaje.MsgAdvertencia)
|
|
Exit Sub
|
|
End If
|
|
|
|
If Not DdlSatBanco.SelectedValue.ToEntero > 0 Then
|
|
Alert("Se debe de especificar el banco.")
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
Dim Estatus As Boolean
|
|
If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False
|
|
|
|
AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim,
|
|
DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero, TxtConceptoCIE.Text)
|
|
End Sub
|
|
|
|
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String,
|
|
CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer,
|
|
ConceptoCIE As String)
|
|
|
|
Dim ObjCuentasBancos As New ClsGenerales
|
|
If Modalidad = "A" Then
|
|
|
|
If CveProveedor > 0 Then
|
|
|
|
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor,
|
|
Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco, ConceptoCIE:=ConceptoCIE) Then
|
|
DTCuentasBancos.Clear()
|
|
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
|
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
|
Else
|
|
Alert("Error al registrar la cuenta bancaria. Por favor intente nuevamente", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
Else
|
|
Dim Row As DataRow
|
|
Row = TempDTCuentasBancos.NewRow
|
|
|
|
Row("BancoNombre") = NombreBanco
|
|
Row("Sucursal") = NumeroSucursal
|
|
Row("CLABE") = CLABE
|
|
Row("SWIFT") = SWIFT
|
|
Row("Plaza") = Plaza
|
|
Row("Cuenta") = NumeroCuenta
|
|
Row("CIE") = ConvenioCIE
|
|
Row("Referencia") = Referencia
|
|
Row("RefCrediProveedor") = RefCrediProveedor
|
|
Row("CveMoneda") = CveMoneda
|
|
Row("Moneda") = Moneda
|
|
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
|
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
|
Row("Estatus") = "True"
|
|
Row("Correo") = Correo
|
|
Row("CveSATBanco") = CveSATBanco
|
|
Row("ConceptoCIE") = ConceptoCIE
|
|
|
|
TempDTCuentasBancos.Rows.Add(Row)
|
|
|
|
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
|
|
|
End If
|
|
|
|
Else
|
|
|
|
|
|
If CveProveedor > 0 Then
|
|
|
|
If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor,
|
|
False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco,
|
|
ConceptoCIE:=ConceptoCIE) Then
|
|
DTCuentasBancos.Clear()
|
|
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
|
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
|
Else
|
|
Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
Else
|
|
|
|
Dim index = CveCuentaBancaria
|
|
Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
|
|
Row("BancoNombre") = NombreBanco
|
|
Row("Sucursal") = NumeroSucursal
|
|
Row("CLABE") = CLABE
|
|
Row("SWIFT") = SWIFT
|
|
Row("Plaza") = Plaza
|
|
Row("Cuenta") = NumeroCuenta
|
|
Row("CIE") = ConvenioCIE
|
|
Row("Referencia") = Referencia
|
|
Row("RefCrediProveedor") = RefCrediProveedor
|
|
Row("CveMoneda") = CveMoneda
|
|
Row("Moneda") = Moneda
|
|
Row("EstatusPagoElectronico") = EstatusPagoElectronico
|
|
Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
|
|
Row("Estatus") = Estatus
|
|
Row("Correo") = Correo
|
|
Row("CveSATBanco") = CveSATBanco
|
|
Row("ConceptoCIE") = ConceptoCIE
|
|
|
|
TempDTCuentasBancos.AcceptChanges()
|
|
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
|
|
End If
|
|
|
|
End If
|
|
ObjCuentasBancos.Dispose()
|
|
LimpiaCuentasBancarias()
|
|
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
|
RecargaGlobalCuentasBancarias()
|
|
End Sub
|
|
Private Sub LimpiaCuentasBancarias()
|
|
TxtNombreBanco.Text = ""
|
|
TxtNumeroSucursal.Text = ""
|
|
TxtCLABE.Text = ""
|
|
TxtSWIFT.Text = ""
|
|
TxtPlaza.Text = ""
|
|
TxtNumeroCuenta.Text = ""
|
|
TxtConvenioCIE.Text = ""
|
|
TxtReferencia.Text = ""
|
|
TxtConceptoCIE.Text = ""
|
|
TxtRefCrediProveedor.Text = ""
|
|
TxtCorreoCuenta.Text = ""
|
|
TxtBBVAAlias.Text = ""
|
|
End Sub
|
|
|
|
#Region "GRIDVIEW - CUENTAS BANCARIAS"
|
|
Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
|
|
If CveProveedor < 0 Then
|
|
For index = 1 To TempDTCuentasBancos.Rows.Count
|
|
TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
|
|
Next
|
|
TempDTCuentasBancos.AcceptChanges()
|
|
End If
|
|
|
|
|
|
If e.Row.DBCampo("Estatus") = "True" Then
|
|
e.Row.FCLabel("LlbEstatusTexto").Text = "Activo"
|
|
Else
|
|
e.Row.FCLabel("LlbEstatusTexto").Text = "Inactivo"
|
|
End If
|
|
|
|
|
|
'ESCONDE "ELIMINAR" Y "EDITAR" CUANDO LA CUENTA YA ESTA DADA DE ALTA EN LAYOUT-BBVA
|
|
|
|
'If CBool(e.Row.DBCampo("EstatusPagoElectronico")) Then
|
|
' e.Row.FCLinkButton("imgD").Visible = False
|
|
' If e.Row.DBCampo("CIE").ToString = "" Then
|
|
' e.Row.FCLinkButton("imgE").Visible = False
|
|
' End If
|
|
'End If
|
|
|
|
'si esta editando
|
|
'Dim EsSi = CBool(IIf(e.Row.FCLabel("LblEstatusPE").Text = "Sí", True, False))
|
|
|
|
'If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
|
|
|
' e.Row.FCDropDownList("DdlMoneda").DataSource = GlobalDTMonedas
|
|
' e.Row.FCDropDownList("DdlMoneda").DataBind()
|
|
' e.Row.FCDropDownList("DdlMoneda").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
' ' GvBancosCuentas.SelectedRow.Cells.
|
|
' If e.Row.DBCampo("CveMoneda").ToString.ToEntero > 0 Then
|
|
' e.Row.FCDropDownList("DdlMoneda").SelectedValue = e.Row.DBCampo("CveMoneda")
|
|
' End If
|
|
|
|
' 'If EsSi Then
|
|
' ' e.Row.FCCheckBox("ChkEstatus").Enabled = False
|
|
' 'End If
|
|
|
|
' 'SI TIENE PERMISO PUEDE EDITAR ESTATUS
|
|
' If UsuarioActual.TienePermisoProceso(155) Then
|
|
' 'Alert("usuario no tiene permiso", TipoMensaje.MsgInformacion)
|
|
' e.Row.FCCheckBox("ChkEstatus").Visible = True
|
|
' Else
|
|
' e.Row.FCCheckBox("ChkEstatus").Visible = False
|
|
' End If
|
|
|
|
' If CBool(e.Row.DBCampo("EstatusPagoElectronico")) Then
|
|
' e.Row.FCDropDownList("DdlMoneda").Enabled = False
|
|
' ' 'e.Row.FCTextBox("TxtReferencia").Enabled = False
|
|
' ' 'Else
|
|
' ' ' e.Row.FCLinkButton("imgD").Enabled = False
|
|
' ' ' e.Row.FCLinkButton("imgE").Enabled = False
|
|
' End If
|
|
|
|
|
|
'End If
|
|
End If
|
|
End Sub
|
|
|
|
''Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing
|
|
'' Dim id As Integer = e.NewEditIndex
|
|
'' GvBancosCuentas.EditIndex = id
|
|
'' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
|
|
|
'' 'Dim x As String = GvBancosCuentas.SelectedRowStyle("EstatusPagoElectronico")
|
|
|
|
'' 'If CBool(e.Row.DBCampo("EstatusPagoElectronico")) AndAlso e.Row.DBCampo("Referencia").ToString <> "" Then
|
|
|
|
'' 'End If
|
|
|
|
''End Sub
|
|
'Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit
|
|
' GvBancosCuentas.EditIndex = -1
|
|
' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
|
'End Sub
|
|
'Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating
|
|
|
|
' Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim
|
|
' Dim NumeroSucursal = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroSucursal").Text.Trim
|
|
' Dim CLABE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtCLABE").Text.Trim
|
|
' Dim SWIFT = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtSWIFT").Text.Trim
|
|
' Dim Plaza = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtPlaza").Text.Trim
|
|
' Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim
|
|
' Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim
|
|
' Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim
|
|
' Dim RefCrediProveedor = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtRefCrediProveedor").Text.Trim
|
|
' Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString.ToEntero
|
|
' Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text
|
|
' Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
|
|
|
' Dim EsBancomer = False
|
|
|
|
' If NombreBanco.ToUpper.Contains("BBVA") Or NombreBanco.ToUpper.Contains("BANCOMER") Or (CLABE.Length = 18 AndAlso CLABE.Substring(0, 3) = "012") Then
|
|
' EsBancomer = True
|
|
' End If
|
|
|
|
' ''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA
|
|
' 'If EsBancomer AndAlso (CLABE.Length <> 18 AndAlso Not CLABE.Substring(0, 3) = "012") Then
|
|
' ' Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
|
|
' ' Exit Sub
|
|
' 'End If
|
|
|
|
' ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
|
|
' 'If (CLABE.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And ConvenioCIE.Trim.Length <> 6 And CLABE.Trim.Length <> 18) Then
|
|
' ' Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
' ' Exit Sub
|
|
' 'End If
|
|
|
|
' 'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
|
|
' If NumeroCuenta.Length = 0 AndAlso CLABE.Length = 0 AndAlso SWIFT.Length = 0 AndAlso ConvenioCIE.Length = 0 Then
|
|
' Alert("Debe especificar al menos un numero de cuenta.", TipoMensaje.MsgAdvertencia)
|
|
' Exit Sub
|
|
' End If
|
|
|
|
' 'SI CLABE TIENE ALGO DEBE TENER UNA LOGITUD EXACTA DE 18
|
|
' If CLABE.Trim.Length <> 0 AndAlso CLABE.Trim.Length <> 18 Then
|
|
' Alert("La CLABE debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
' Exit Sub
|
|
' End If
|
|
|
|
' If UsuarioActual.CveEmpresa = 66 Then
|
|
' 'CLABE SIEMPRE OBLIGATORIA SI NO ES BANCOMER
|
|
' If CLABE.Trim.Length <> 18 And CLABE.Trim.Length = 0 And Not EsBancomer And SWIFT.Length = 0 Then
|
|
' Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
' Exit Sub
|
|
' End If
|
|
|
|
' 'SI CUENTA TIENE ALGO Y BANCO BANCOMER DEBE TENER UNA LOGITUD EXACTA DE 10
|
|
' If NumeroCuenta.Trim.Length <> 0 AndAlso NumeroCuenta.Trim.Length <> 10 AndAlso EsBancomer Then
|
|
' Alert("El número de cuenta debe tener una longitud de 10 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
' Exit Sub
|
|
' End If
|
|
|
|
' 'SI CIE TIENE ALGO REFERENCIA OBLIGATORIA
|
|
' If ConvenioCIE.Trim.Length <> 0 And Referencia.Trim.Length < 3 Then
|
|
' Alert("Cuando se ingresa Convenio CIE se debe especificar una referencia. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
' Exit Sub
|
|
' End If
|
|
|
|
' 'CUANDO SEA "BBVA" O "BANCOMER" DEBE TENER "CIE" O "CUENTA"
|
|
' If EsBancomer AndAlso Not (NumeroCuenta.Trim.Length = 10 Or ConvenioCIE.Trim.Length <> 0) Then
|
|
' Alert("Para cuentas BBVA BANCOMER es obligatorio el Número de Cuenta o CIE.", TipoMensaje.MsgAdvertencia)
|
|
' Exit Sub
|
|
' End If
|
|
' Else
|
|
' 'SI CIE TIENE ALGO DEBE TENER UNA LOGITUD MINIMA DE 5
|
|
' If ConvenioCIE.Trim.Length <> 0 And ConvenioCIE.Trim.Length < 5 Then
|
|
' Alert("El Convenio CIE debe tener una longitud de al menos 5 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
|
|
|
|
|
|
' Dim ObjCuentasBancos As New ClsGenerales
|
|
' If CveProveedor > 0 Then
|
|
' If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda) Then
|
|
' DTCuentasBancos.Clear()
|
|
' DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
|
' Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
|
|
' Else
|
|
' Alert("Error al actualizar la cuenta bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
|
' End If
|
|
' Else
|
|
' Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1
|
|
' Dim Row As DataRow = TempDTCuentasBancos.Rows(index)
|
|
' Row("BancoNombre") = NombreBanco
|
|
' Row("Sucursal") = NumeroSucursal
|
|
' Row("CLABE") = CLABE
|
|
' Row("SWIFT") = SWIFT
|
|
' Row("Plaza") = Plaza
|
|
' Row("Cuenta") = NumeroCuenta
|
|
' Row("CIE") = ConvenioCIE
|
|
' Row("Referencia") = Referencia
|
|
' Row("RefCrediProveedor") = RefCrediProveedor
|
|
' Row("CveMoneda") = CveMoneda
|
|
' Row("Moneda") = Moneda
|
|
' Row("Estatus") = Estatus
|
|
' TempDTCuentasBancos.AcceptChanges()
|
|
' End If
|
|
|
|
' ObjCuentasBancos.Dispose()
|
|
|
|
' GvBancosCuentas.EditIndex = -1
|
|
' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
|
' RecargaGlobalCuentasBancarias()
|
|
'End Sub
|
|
'Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting
|
|
' Dim ObjCuentasBancos As New ClsGenerales
|
|
|
|
' If CveProveedor > 0 Then
|
|
' If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero) Then
|
|
' DTCuentasBancos.Clear()
|
|
' DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
|
|
|
' Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
|
|
' Else
|
|
' Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
|
' End If
|
|
' Else
|
|
' Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1
|
|
' TempDTCuentasBancos.Rows.RemoveAt(index)
|
|
' End If
|
|
|
|
' If ObjCuentasBancos.GetCuentasDepositos Then
|
|
' GlobalDTProveedoresCuentas(CveProveedor, True) = ObjCuentasBancos.DtResultados
|
|
' End If
|
|
|
|
' CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
|
' ObjCuentasBancos.Dispose()
|
|
' RecargaGlobalCuentasBancarias()
|
|
'End Sub
|
|
|
|
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
Dim ObjCuentasBancos As New ClsGenerales
|
|
|
|
If CveProveedor > 0 Then
|
|
If ObjCuentasBancos.RemoveCuentasDepositos(GvRow.DataKey("CveCuentaDeposito").ToEntero) Then
|
|
DTCuentasBancos.Clear()
|
|
DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
|
|
|
|
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
|
End If
|
|
Else
|
|
Dim index = GvRow.RowIndex
|
|
TempDTCuentasBancos.Rows.RemoveAt(index)
|
|
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
If ObjCuentasBancos.GetCuentasDepositos Then
|
|
GlobalDTProveedoresCuentas(CveProveedor, True) = ObjCuentasBancos.DtResultados
|
|
End If
|
|
|
|
CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
|
|
ObjCuentasBancos.Dispose()
|
|
RecargaGlobalCuentasBancarias()
|
|
End Sub
|
|
Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1)
|
|
If CveProveedor > 0 Then
|
|
Dim ObjCuentasBancos As New ClsGenerales
|
|
|
|
If ObjCuentasBancos.GetCuentasDepositos() Then
|
|
GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados
|
|
End If
|
|
ObjCuentasBancos.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub CargaPSGridCuentasBancos(Orden As String)
|
|
If CveProveedor > 0 Then
|
|
If Orden <> String.Empty Then
|
|
Dim DV As New DataView(DTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
|
|
GvBancosCuentas.DataSource = DV.ToTable()
|
|
DV.Dispose()
|
|
Else
|
|
GvBancosCuentas.DataSource = DTCuentasBancos
|
|
End If
|
|
Else
|
|
If Orden <> String.Empty Then
|
|
Dim DV As New DataView(TempDTCuentasBancos, "", Orden, DataViewRowState.CurrentRows)
|
|
GvBancosCuentas.DataSource = DV.ToTable()
|
|
DV.Dispose()
|
|
Else
|
|
GvBancosCuentas.DataSource = TempDTCuentasBancos
|
|
End If
|
|
End If
|
|
|
|
GvBancosCuentas.DataBind()
|
|
UpCuentasBancos.Update()
|
|
End Sub
|
|
|
|
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
|
Dim Tipo As Integer = 1
|
|
Dim Orden As String = ""
|
|
Dim Campo As String = ""
|
|
Dim gvi As Integer = 0
|
|
Dim ImgButon As ImageButton = Nothing
|
|
Const OrdenInicial As String = ""
|
|
|
|
Select Case sender.GetType().Name
|
|
Case "LinkButton"
|
|
Tipo = 1
|
|
Campo = CType(sender, LinkButton).CommandArgument().ToString
|
|
ImgButon = CType(CType(sender, LinkButton).BindingContainer.FindControl("Img" & Campo.Replace(",", "_")), ImageButton)
|
|
Case "ImageButton"
|
|
Tipo = 2
|
|
ImgButon = CType(sender, ImageButton)
|
|
Campo = CType(sender, ImageButton).CommandArgument().ToString
|
|
End Select
|
|
|
|
If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
|
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
|
RegistraScript(String.Format("$get('{0}').src='{1}'", ImgButon.ClientID, "/Imagenes/FlechasArriba.gif"))
|
|
Else
|
|
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
|
RegistraScript(String.Format("$get({0}).src='{1}'", ImgButon.ClientID, "/Imagenes/FlechasAbajo.gif"))
|
|
End If
|
|
|
|
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
|
ViewState("OrdenCuentasBancos") = Orden
|
|
CargaPSGridCuentasBancos(Orden)
|
|
End Sub
|
|
|
|
Private Sub CargaMonedas()
|
|
DdlMoneda.DataSource = GlobalDTMonedas
|
|
DdlMoneda.DataBind()
|
|
DdlMoneda.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
|
|
DdlMonedaPrefente.DataSource = GlobalDTMonedas
|
|
DdlMonedaPrefente.DataBind()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "F I L T R O - S U C U R S A L"
|
|
Protected Sub CargaSerieSucursal()
|
|
CargaCxP(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
CargaHistorial(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
CargaAnticipos(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
CargaBancos(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
SerieSucursal = RBSucursal.SelectedValue.ToString
|
|
|
|
BtnVerMasCompras.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
BtnVerMasBancos.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
BtnVerMasAnticipos.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
BtnVerMasComprasPagadas.Text = "Ver Más <i class='m-icon-swapright m-icon-white'></i>"
|
|
|
|
UpnHistorial.Update()
|
|
UPPCxP.Update()
|
|
UpAnticipos.Update()
|
|
UpBancos.Update()
|
|
|
|
Dim script As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#CXPContador""", """badge-success""", """badge-danger""", If(CountCuentasxPagar > 0, """badge-danger""", """badge-success"""), CountCuentasxPagar.ToString)
|
|
RegistraScript(script, "contadorcuentaspopagar")
|
|
|
|
Dim script2 As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#AnticiposContador""", """badge-success""", """badge-danger""", If(CountAnticipos > 0, """badge-danger""", """badge-success"""), CountAnticipos.ToString)
|
|
RegistraScript(script2, "contadoranticipos")
|
|
|
|
End Sub
|
|
Protected Sub MostrarFiltro()
|
|
|
|
If GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).Rows.Count > 1 Then
|
|
'tHistorial.Visible = True
|
|
'tCxP.Visible = True
|
|
'tAnticipos.Visible = True
|
|
|
|
'CargaRB(RBHistorial)
|
|
'CargaRB(RBAnticipos)
|
|
|
|
'RBCxP.DataSource = CType(ViewState("DTProveedorSucursales"), DataTable)
|
|
'RBCxP.DataBind()
|
|
'RBCxP.Items.Insert(0, New ListItem("Todas", ""))
|
|
'RBCxP.SelectedValue = ""
|
|
|
|
DivFiltraSucursal.Visible = True
|
|
CargaRB(RBSucursal)
|
|
|
|
CargaSerieSucursal()
|
|
Else
|
|
'tHistorial.Visible = False
|
|
'tCxP.Visible = False
|
|
'tAnticipos.Visible = False
|
|
DivFiltraSucursal.Visible = False
|
|
End If
|
|
End Sub
|
|
Protected Sub CargaRB(R As DropDownList)
|
|
R.DataSource = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
|
|
R.DataBind()
|
|
R.Items.Insert(0, New ListItem("Todas", "-1"))
|
|
If CveProveedorSucursal > 0 Then R.SelectedValue = CveProveedorSucursal.ToString Else R.SelectedValue = "-1"
|
|
End Sub
|
|
'Protected Sub RBHistorial_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
' CargaHistorial(RBHistorial.SelectedValue.ToString)
|
|
'End Sub
|
|
'Protected Sub RBCxP_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
' CargaCxP(RBCxP.SelectedValue.ToString)
|
|
'End Sub
|
|
'Protected Sub RBAnticipos_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
' CargaAnticipos(RBAnticipos.SelectedValue.ToString)
|
|
'End Sub
|
|
Protected Sub RBSucursal_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
CargaSerieSucursal()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region " FILTRO MONEDA "
|
|
|
|
Private Sub CargaFiltroMonedas()
|
|
|
|
'SI YA ESTA VISIBLE NO SE PUEDE PONER INVISIBLE
|
|
If Not DivFiltraMoneda.Visible Then
|
|
If DetectaMonedas() Then
|
|
DivFiltraMoneda.Visible = True
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Function DetectaMonedas() As Boolean
|
|
'Dim DtMonedas As New DataTable
|
|
'DtMonedas.Columns.Add("CveMoneda", GetType(Integer))
|
|
'DtMonedas.Columns.Add("Abreviatura", GetType(String))
|
|
Dim OcupaFiltro = False
|
|
|
|
If CType(GVHistorial.DataSource, DataTable) IsNot Nothing AndAlso CType(GVHistorial.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
|
|
OcupaFiltro = True
|
|
Return OcupaFiltro
|
|
End If
|
|
|
|
If CType(GvCxP.DataSource, DataTable) IsNot Nothing AndAlso CType(GvCxP.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
|
|
OcupaFiltro = True
|
|
Return OcupaFiltro
|
|
End If
|
|
|
|
If CType(GvCxPHistorial.DataSource, DataTable) IsNot Nothing AndAlso CType(GvCxPHistorial.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
|
|
OcupaFiltro = True
|
|
Return OcupaFiltro
|
|
End If
|
|
|
|
If CType(GvA.DataSource, DataTable) IsNot Nothing AndAlso CType(GvA.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
|
|
OcupaFiltro = True
|
|
Return OcupaFiltro
|
|
End If
|
|
|
|
If CType(GvAH.DataSource, DataTable) IsNot Nothing AndAlso CType(GvAH.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
|
|
OcupaFiltro = True
|
|
Return OcupaFiltro
|
|
End If
|
|
|
|
If CType(GvBancos.DataSource, DataTable) IsNot Nothing AndAlso CType(GvBancos.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
|
|
OcupaFiltro = True
|
|
Return OcupaFiltro
|
|
End If
|
|
|
|
Return OcupaFiltro
|
|
|
|
End Function
|
|
|
|
Protected Sub RBMoneda_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
CveMonedaFiltro = RBMoneda.SelectedValue.ToEntero
|
|
|
|
CargaHistorial(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
CargaCxP(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
CargaAnticipos(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
CargaBancos(RBSucursal.SelectedValue.ToString.ToEntero)
|
|
SerieSucursal = RBSucursal.SelectedValue.ToString
|
|
|
|
CargaFiltroMonedas()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "SALDOS BENEFICIARIOS"
|
|
'Private Sub CargaSaldosBeneficiarios()
|
|
' Dim ObjCompras As New ClsCompras
|
|
|
|
' If ObjCompras.GetBeneficiarios2(CveProveedor, UsuarioActual.CveEmpresa) Then
|
|
' GvSaldosBeneficiarios.DataSource = ObjCompras.DtResultados.FiltraParametros("TipoLetra <> 'Proveedor'")
|
|
' Else
|
|
' Alert("Ocurrió un error al obtener los Saldos Beneficiarios.", TipoMensaje.MsgError)
|
|
' End If
|
|
|
|
' ObjCompras.Dispose()
|
|
|
|
' GvSaldosBeneficiarios.DataBind()
|
|
'End Sub
|
|
#End Region
|
|
|
|
#Region " R E P O R T E - C X P "
|
|
Protected Sub GenerarReporteCxP_Click(sender As Object, e As EventArgs)
|
|
'If UsuarioActual.CveUsuario = 100 Then
|
|
' ImprimirReporteCxP()
|
|
'Else
|
|
' GenerarPDFCxP()
|
|
'End If
|
|
Dim Formato As String = RBLGenerarReporteCxC.SelectedValue
|
|
|
|
If rblreporte.SelectedValue = "cxp" Then
|
|
ImprimirReporteCxPCrystal(Formato)
|
|
ElseIf rblreporte.SelectedValue = "anc" Then
|
|
ImprimirReporteCxP(Formato)
|
|
End If
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddReporte"))
|
|
End Sub
|
|
|
|
Private Sub ImprimirReporteCxPCrystal(Optional Formato As String = "PDF")
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.rpt", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
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 ObjMovtos As New ClsMovimientos()
|
|
If ObjMovtos.GetCxPProveedor(CveProveedor, FI, FF, -1, -1, -1, -1, CveMonedaFiltro, -1, RBSucursal.SelectedValue.ToEntero, -1, FVI, FVF) Then
|
|
DTCxPTempral = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento ,FechaVencimiento"))
|
|
End If
|
|
|
|
If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then
|
|
Dim dr As DataRow = DTCxPTempral.Rows(0)
|
|
Dim lista = New List(Of CrystalParametro)
|
|
|
|
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
|
|
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
|
|
lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
|
|
lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
|
|
lista.Add(New CrystalParametro("NombreProveedor", LtlProveedor.Text))
|
|
lista.Add(New CrystalParametro("DireccionProveedor", TxtDireccion.Text))
|
|
lista.Add(New CrystalParametro("ProveedorRFC", TxtRFC.Text))
|
|
lista.Add(New CrystalParametro("ProveedorTelefono", TxtTelefono.Text))
|
|
lista.Add(New CrystalParametro("DiasCredito", TxtPlazoCobranza.Text))
|
|
lista.Add(New CrystalParametro("LimiteCredito", TxtLimiteCredito.Text))
|
|
lista.Add(New CrystalParametro("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
|
|
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If Imagen.Exists Then
|
|
lista.Add(New CrystalParametro("LogoPath", logouri))
|
|
Else
|
|
lista.Add(New CrystalParametro("LogoPath", ""))
|
|
End If
|
|
|
|
Dim dtnc As New DataTable
|
|
Dim ObjCompra As New ClsCompras()
|
|
For Each dr2 As DataRow In DTCxPTempral.FiltraParametros("", DistinctColumns:={"CveIE"}).Rows
|
|
If ObjCompra.GetComprasNotasCredito(-1, -1, dr2("CveIE").ToString.ToEntero) Then
|
|
dtnc.Merge(ObjCompra.DtResultados)
|
|
End If
|
|
Next
|
|
ObjCompra.Dispose()
|
|
|
|
If dtnc IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then
|
|
If Archivo.Exists Then
|
|
ImprimirbytesPDF(ImprimirSubRepPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepProveedorCxP.rpt", DTCxPTempral, lista, DTCxPTempral, dtnc, "Ing", "Ant", "Estado de cuenta", Formato), "Estado de cuenta", Formato)
|
|
Else
|
|
ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepProveedorCxP.rpt"), DTCxPTempral, lista, DTCxPTempral, dtnc, "Ing", "Ant", "Estado de cuenta", Formato), "Estado de cuenta", Formato)
|
|
End If
|
|
End If
|
|
|
|
Else
|
|
Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
ObjMovtos.Dispose()
|
|
End Sub
|
|
|
|
'Private Sub GenerarPDFCxP()
|
|
' Dim missing As Object = System.Reflection.Missing.Value
|
|
|
|
|
|
' If rblreporte.SelectedValue = "cxp" Then
|
|
' 'OBTENEMOS LOS DATOS
|
|
' Dim ObjMovtos As New ClsMovimientos()
|
|
' Dim DtCxP As DataTable
|
|
' Dim FI = If(TxtFechaInicioCxP.Text = "" Or TxtFechaInicioCxP.Text = "__/__/____", "-1", TxtFechaInicioCxP.Text)
|
|
' Dim FF = If(TxtFechaFinCxP.Text = "" Or TxtFechaFinCxP.Text = "__/__/____", "-1", TxtFechaFinCxP.Text)
|
|
|
|
' If ObjMovtos.GetCxPProveedor(CveProveedor, FI, FF, -1, -1, -1, -1, CveMoneda, -1, SerieSucursal, -1) Then
|
|
' DtCxP = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento ,FechaVencimiento"))
|
|
' Else
|
|
' DtCxP = Nothing
|
|
' End If
|
|
' ObjMovtos.Dispose()
|
|
|
|
|
|
' 'GENERAMOS EXCEL
|
|
' 'Try
|
|
' ' Dim Formato = "Formatos\ReporteCxP.xlsm"
|
|
|
|
' ' Dim TC As Double = 1
|
|
' ' Dim Excel As msExcel.Application = New msExcel.Application()
|
|
' ' Dim VB_Module As VBComponent = Nothing
|
|
' ' Excel.Visible = True
|
|
' ' Excel.ScreenUpdating = True
|
|
' ' Excel.DisplayAlerts = True
|
|
|
|
' ' 'Valida y/o Crea Directorio Formatos
|
|
' ' If Not IO.Directory.Exists(String.Format("{0}Formatos\", UsuarioActual.Empresa.Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}Formatos\", UsuarioActual.Empresa.Ruta))
|
|
|
|
' ' 'Valida si existe el Formato Excel si no lo copea de "Grales"
|
|
' ' If Not IO.File.Exists(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato)) Then
|
|
' ' IO.File.Copy(String.Format("{0}Empresas\Grales\ReporteCxP.xlsm", ModExtensiones.DirectorioBaseEmpresas), String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato), False)
|
|
' ' End If
|
|
|
|
' ' Dim ArchivoBase As New System.IO.FileInfo(UsuarioActual.Empresa.Ruta & Formato)
|
|
' ' ArchivoBase.CopyTo(String.Format("{0}Formatos\ReporteCxP-{1}.xlsm", UsuarioActual.Empresa.Ruta, CveProveedor), True)
|
|
' ' Dim ArchivoTemp As New System.IO.FileInfo(String.Format("{0}Formatos\ReporteCxP-{1}.xlsm", UsuarioActual.Empresa.Ruta, CveProveedor))
|
|
' ' Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
|
|
' ' Libro.Activate()
|
|
' ' Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
|
|
' ' Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
|
|
' ' Hoja.Activate()
|
|
|
|
' ' Try
|
|
|
|
' ' 'GENERALES
|
|
' ' Hoja.Range("B6:B6").Value = LtlProveedor.Text
|
|
' ' Hoja.Range("G2:G2").Value = DdlTipoCuentasCxP.SelectedItem.Text
|
|
' ' Hoja.Range("G4:G4").Value = If(FI = "-1", "Sin Fecha", FI)
|
|
' ' Hoja.Range("G6:G6").Value = If(FF = "-1", "Sin Fecha", FF)
|
|
|
|
' ' If DtCxP.Rows.Count > 0 Then
|
|
' ' VB_Module = CType(Libro.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule), VBComponent)
|
|
' ' VB_Module.CodeModule.AddFromString(GetMacro)
|
|
|
|
' ' Dim CeldaI As Integer = 9
|
|
' ' Dim CeldaF As Integer = 9
|
|
|
|
' ' 'DETALLES
|
|
' ' For Each Row As DataRow In DtCxP.Rows
|
|
' ' Hoja.Range(String.Format("A{0}:A{0}", CeldaF)).Value = Row("SerieFolio").ToString
|
|
' ' Hoja.Range(String.Format("C{0}:C{0}", CeldaF)).Value = Row("Descripcion").ToString
|
|
' ' Hoja.Range(String.Format("D{0}:D{0}", CeldaF)).Value = Row("Abreviatura").ToString
|
|
' ' Hoja.Range(String.Format("E{0}:E{0}", CeldaF)).Value = Row("Original").ToString.FormatoNumero
|
|
' ' Hoja.Range(String.Format("F{0}:F{0}", CeldaF)).Value = Row("Abonado").ToString.FormatoNumero
|
|
' ' Hoja.Range(String.Format("G{0}:G{0}", CeldaF)).Value = Row("ImporteNC").ToString.FormatoNumero
|
|
' ' Hoja.Range(String.Format("H{0}:H{0}", CeldaF)).Value = Row("Saldo").ToString.FormatoNumero
|
|
|
|
' ' If Row("CveCompra").ToString = "" Then
|
|
' ' Hoja.Range(String.Format("B{0}:B{0}", CeldaF)).Value = ""
|
|
' ' Hoja.Range(String.Format("A{0}:H{0}", CeldaF)).Interior.ColorIndex = 15
|
|
' ' Else
|
|
' ' Hoja.Range(String.Format("B{0}:B{0}", CeldaF)).Value = Row("Fecha").ToString.ToDate.ToString("dd/MM/yyyy")
|
|
' ' Hoja.Range(String.Format("A{0}:H{0}", CeldaF)).Interior.ColorIndex = 0
|
|
' ' End If
|
|
|
|
' ' If DtCxP.Rows.Count > 1 AndAlso CeldaF - CeldaI < DtCxP.Rows.Count - 1 Then
|
|
' ' CeldaF = CeldaF + 1
|
|
' ' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
|
|
' ' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
|
|
' ' Libro.Save()
|
|
' ' Libro.Application.DisplayAlerts = False
|
|
' ' Libro.Application.ScreenUpdating = False
|
|
' ' End If
|
|
' ' Next
|
|
|
|
' ' End If
|
|
|
|
' ' If Not IO.Directory.Exists(String.Format("{0}PDF\", UsuarioActual.Empresa.Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}PDF\", UsuarioActual.Empresa.Ruta))
|
|
|
|
' ' 'Exportar PDF
|
|
' ' Dim pdfFileOut As String = String.Format("{0}PDF\CxP-{1}.pdf", UsuarioActual.Empresa.Ruta, CveProveedor)
|
|
' ' Dim outputFileName As Object = pdfFileOut
|
|
' ' Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF
|
|
' ' Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing)
|
|
' ' Catch ex As Exception
|
|
' ' Dim Msgerr As String = ""
|
|
' ' Msgerr.Alert(String.Format("Ocurrió un error {0}", ex.Message), TipoMensaje.MsgError)
|
|
' ' End Try
|
|
|
|
' ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja)
|
|
' ' Hoja = Nothing
|
|
' ' Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges
|
|
' ' CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing)
|
|
' ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro)
|
|
' ' Libro = Nothing
|
|
' ' Excel.Quit()
|
|
' ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel)
|
|
' ' Excel = Nothing
|
|
' ' GC.Collect()
|
|
' ' GC.WaitForPendingFinalizers()
|
|
|
|
' ' ArchivoTemp.Delete()
|
|
|
|
' ' Dim Descargas As New StringBuilder()
|
|
' ' Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/CxP-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, Now.Ticks)
|
|
' ' Dim Msg As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas.ToString) 'TipoMensaje.MsgInformacion
|
|
' ' Msg.Alert(Msg, TipoMensaje.MsgInformacion)
|
|
' 'Catch ex As Exception
|
|
|
|
' ' Dim Msg As String = "No se pudo generar el documento."
|
|
' ' Msg.OnError(Msg, ex, "CveProveedor=" & CveProveedor)
|
|
|
|
' 'End Try
|
|
|
|
' ElseIf rblreporte.SelectedValue = "anc" Then
|
|
' 'OBTENEMOS LOS DATOS
|
|
' Dim ObjMovtos As New ClsMovimientos()
|
|
' 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)
|
|
|
|
' If ObjMovtos.GetAnticiposProveedor(CveProveedor, SerieSucursal, CveMoneda, -1, FI, FF) Then
|
|
' DtANC = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, FechaVencimiento"))
|
|
' Else
|
|
' DtANC = Nothing
|
|
' End If
|
|
' ObjMovtos.Dispose()
|
|
|
|
|
|
' 'GENERAMOS EXCEL
|
|
' 'Try
|
|
' ' Dim Formato = "Formatos\ReporteANC.xlsm"
|
|
|
|
' ' Dim TC As Double = 1
|
|
' ' Dim Excel As msExcel.Application = New msExcel.Application()
|
|
' ' Dim VB_Module As VBComponent = Nothing
|
|
' ' Excel.Visible = True
|
|
' ' Excel.ScreenUpdating = True
|
|
' ' Excel.DisplayAlerts = True
|
|
|
|
' ' 'Valida y/o Crea Directorio Formatos
|
|
' ' If Not IO.Directory.Exists(String.Format("{0}Formatos\", UsuarioActual.Empresa.Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}Formatos\", UsuarioActual.Empresa.Ruta))
|
|
|
|
' ' 'Valida si existe el Formato Excel si no lo copea de "Grales"
|
|
' ' If Not IO.File.Exists(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato)) Then
|
|
' ' IO.File.Copy(String.Format("{0}Empresas\Grales\ReporteANC.xlsm", ModExtensiones.DirectorioBaseEmpresas), String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato), False)
|
|
' ' End If
|
|
|
|
' ' Dim ArchivoBase As New System.IO.FileInfo(UsuarioActual.Empresa.Ruta & Formato)
|
|
' ' ArchivoBase.CopyTo(String.Format("{0}Formatos\Anticipos-{1}.xlsm", UsuarioActual.Empresa.Ruta, CveProveedor), True)
|
|
' ' Dim ArchivoTemp As New System.IO.FileInfo(String.Format("{0}Formatos\Anticipos-{1}.xlsm", UsuarioActual.Empresa.Ruta, CveProveedor))
|
|
' ' Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
|
|
' ' Libro.Activate()
|
|
' ' Dim Hoja As msExcel.Worksheet = CType(Libro.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
|
|
' ' Hoja.Visible = Microsoft.Office.Interop.Excel.XlSheetVisibility.xlSheetVisible
|
|
' ' Hoja.Activate()
|
|
|
|
' ' Try
|
|
|
|
' ' 'GENERALES
|
|
' ' Hoja.Range("B6:B6").Value = LtlProveedor.Text
|
|
' ' Hoja.Range("G2:G2").Value = DdlTipoCuentasCxP.SelectedItem.Text
|
|
' ' Hoja.Range("G4:G4").Value = If(FI = "-1", "Sin Fecha", FI)
|
|
' ' Hoja.Range("G6:G6").Value = If(FF = "-1", "Sin Fecha", FF)
|
|
|
|
' ' If DtANC.Rows.Count > 0 Then
|
|
' ' VB_Module = CType(Libro.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdModule), VBComponent)
|
|
' ' VB_Module.CodeModule.AddFromString(GetMacro)
|
|
|
|
' ' Dim CeldaI As Integer = 9
|
|
' ' Dim CeldaF As Integer = 9
|
|
|
|
' ' 'DETALLES
|
|
' ' For Each Row As DataRow In DtANC.Rows
|
|
' ' Hoja.Range(String.Format("A{0}:A{0}", CeldaF)).Value = Row("SerieFolio").ToString
|
|
' ' Hoja.Range(String.Format("C{0}:C{0}", CeldaF)).Value = Row("Descripcion").ToString
|
|
' ' Hoja.Range(String.Format("D{0}:D{0}", CeldaF)).Value = Row("Abreviatura").ToString
|
|
' ' Hoja.Range(String.Format("E{0}:E{0}", CeldaF)).Value = Row("Original").ToString.FormatoNumero
|
|
' ' Hoja.Range(String.Format("F{0}:F{0}", CeldaF)).Value = Row("Abonado").ToString.FormatoNumero
|
|
' ' Hoja.Range(String.Format("G{0}:G{0}", CeldaF)).Value = Row("Saldo").ToString.FormatoNumero
|
|
|
|
|
|
' ' If Row("CveCompra").ToString = "" Then
|
|
' ' Hoja.Range(String.Format("B{0}:B{0}", CeldaF)).Value = ""
|
|
' ' Hoja.Range(String.Format("A{0}:H{0}", CeldaF)).Interior.ColorIndex = 15
|
|
' ' Else
|
|
' ' Hoja.Range(String.Format("B{0}:B{0}", CeldaF)).Value = Row("Fecha").ToString.ToDate.ToString("dd/MM/yyyy")
|
|
' ' Hoja.Range(String.Format("A{0}:H{0}", CeldaF)).Interior.ColorIndex = 0
|
|
' ' End If
|
|
|
|
' ' If DtANC.Rows.Count > 1 AndAlso CeldaF - CeldaI < DtANC.Rows.Count - 1 Then
|
|
' ' CeldaF = CeldaF + 1
|
|
' ' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing,
|
|
' ' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
|
|
' ' Libro.Save()
|
|
' ' Libro.Application.DisplayAlerts = False
|
|
' ' Libro.Application.ScreenUpdating = False
|
|
' ' End If
|
|
' ' Next
|
|
|
|
' ' End If
|
|
|
|
' ' If Not IO.Directory.Exists(String.Format("{0}PDF\", UsuarioActual.Empresa.Ruta)) Then IO.Directory.CreateDirectory(String.Format("{0}PDF\", UsuarioActual.Empresa.Ruta))
|
|
|
|
' ' 'Exportar PDF
|
|
' ' Dim pdfFileOut As String = String.Format("{0}PDF\Anticipos-{1}.pdf", UsuarioActual.Empresa.Ruta, CveProveedor)
|
|
' ' Dim outputFileName As Object = pdfFileOut
|
|
' ' Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF
|
|
' ' Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing)
|
|
' ' Catch ex As Exception
|
|
' ' Dim Msgerr As String = ""
|
|
' ' Msgerr.Alert(String.Format("Ocurrió un error {0}", ex.Message), TipoMensaje.MsgError)
|
|
' ' End Try
|
|
|
|
' ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Hoja)
|
|
' ' Hoja = Nothing
|
|
' ' Dim saveChanges As Object = msExcel.XlSaveAction.xlDoNotSaveChanges
|
|
' ' CType(Libro, msExcel._Workbook).Close(saveChanges, missing, missing)
|
|
' ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Libro)
|
|
' ' Libro = Nothing
|
|
' ' Excel.Quit()
|
|
' ' System.Runtime.InteropServices.Marshal.ReleaseComObject(Excel)
|
|
' ' Excel = Nothing
|
|
' ' GC.Collect()
|
|
' ' GC.WaitForPendingFinalizers()
|
|
|
|
' ' ArchivoTemp.Delete()
|
|
|
|
' ' Dim Descargas As New StringBuilder()
|
|
' ' Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/Anticipos-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, Now.Ticks)
|
|
' ' Dim Msg As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas.ToString) 'TipoMensaje.MsgInformacion
|
|
' ' Msg.Alert(Msg, TipoMensaje.MsgInformacion)
|
|
' 'Catch ex As Exception
|
|
|
|
' ' Dim Msg As String = "No se pudo generar el documento."
|
|
' ' Msg.OnError(Msg, ex, "CveProveedor=" & CveProveedor)
|
|
|
|
' 'End Try
|
|
' End If
|
|
|
|
'End Sub
|
|
|
|
Private Function GetMacro() As String
|
|
Dim SB As New StringBuilder
|
|
SB.Append(" Sub AddRow(Row As String) " & vbLf)
|
|
SB.Append(" Rows(Row & "":"" & Row).Select " & vbLf)
|
|
SB.Append(" Selection.Copy " & vbLf)
|
|
SB.Append(" Selection.Insert Shift:=xlDown " & vbLf)
|
|
SB.Append(" End Sub ")
|
|
Return SB.ToString
|
|
End Function
|
|
|
|
Private Sub GvOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
e.Row.Cells(3).Attributes.Add("data-order", e.Row.DBCampo("FechaIng").ToDate.Ticks.ToString)
|
|
e.Row.Cells(6).Attributes.Add("data-order", CType(e.Row.DBCampo("Total").ToDecimal, String))
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ImprimirReporteCxP(Optional Formato As String = "PDF")
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim ObjMovtos As New ClsMovimientos()
|
|
|
|
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 FechaIn As String = $" <b>Fecha Inicio:</b> {TxtFechaInicioCXP.Text}"
|
|
Dim FechaFn As String = $" <b>Fecha Fin:</b> {TxtFechaFinCXP.Text}"
|
|
If TxtFechaInicioCXP.Text = "" Then FechaIn = ""
|
|
If TxtFechaFinCXP.Text = "" Then FechaFn = ""
|
|
|
|
Dim FechVI As String = $" <b>Fecha Venc. Inic.:</b> {txtFechaVI.Text}"
|
|
Dim FechVF As String = $" <b>Fecha Venc. Final:</b> {txtFechaVF.Text}"
|
|
If txtFechaVI.Text = "" Then FechVI = ""
|
|
If txtFechaVF.Text = "" Then FechVF = ""
|
|
Dim Proveedor As String = $" <b>Proveedor:</b> {GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {CveProveedor}")}"
|
|
|
|
Dim DTCxPTempral As DataTable = Nothing
|
|
|
|
If ObjMovtos.GetCxPProveedor(CveProveedor, FI, FF, -1, -1, -1, -1, CveMonedaFiltro, -1, RBSucursal.SelectedValue.ToEntero, -1, FVI, FVF) Then
|
|
DTCxPTempral = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento ,FechaVencimiento"))
|
|
End If
|
|
|
|
If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then
|
|
Dim dr As DataRow = DTCxPTempral.Rows(0)
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
|
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
|
|
params.Add(New ReportParameter("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
|
|
params.Add(New ReportParameter("FechaInicio", FI))
|
|
params.Add(New ReportParameter("FechaFin", FF))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
|
params.Add(New ReportParameter("NombreProveedor", LtlProveedor.Text))
|
|
params.Add(New ReportParameter("DireccionProveedor", TxtDireccion.Text))
|
|
params.Add(New ReportParameter("ProveedorRFC", TxtRFC.Text))
|
|
params.Add(New ReportParameter("ProveedorTelefono", TxtTelefono.Text))
|
|
params.Add(New ReportParameter("DiasCredito", TxtPlazoCobranza.Text))
|
|
params.Add(New ReportParameter("LimiteCredito", TxtLimiteCredito.Text))
|
|
params.Add(New ReportParameter("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
|
|
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{FechaIn}{FechaFn}{FechVI}{FechVF}"))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepProveedorCxP.rdlc", DTCxPTempral, params, "RepCxP")
|
|
Else
|
|
Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
|
|
ElseIf rblreporte.SelectedValue = "anc" Then
|
|
|
|
'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 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"))
|
|
Else
|
|
DtANC = Nothing
|
|
End If
|
|
|
|
If DtANC.Rows.Count > 0 Then
|
|
Dim dr As DataRow = DtANC.Rows(0)
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
|
params.Add(New ReportParameter("DireccionEmpresa", UsuarioActual.Empresa.Direccion))
|
|
params.Add(New ReportParameter("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
|
|
params.Add(New ReportParameter("NombreProveedor", LtlProveedor.Text))
|
|
params.Add(New ReportParameter("FechaInicio", FI))
|
|
params.Add(New ReportParameter("FechaFin", FF))
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepAntNC.rdlc", DtANC, params, "RepAnticiposProveedor", Formato)
|
|
Else
|
|
Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
|
|
End If
|
|
ObjMovtos.Dispose()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "CUENTAS CONTABLES"
|
|
Private Sub ActivarRegistroAutomatico()
|
|
|
|
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
|
|
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
|
|
|
'' 17/03/2017 FUNCIONALIDADES 249,250,251
|
|
'' Proveedores
|
|
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
|
|
If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
|
If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
|
|
DdlCtaContProveedores.Width = 175
|
|
BtnActivaRegistroProveedores.Visible = True
|
|
|
|
'' Agrega Cuenta de la funcionalidad 249
|
|
If UsuarioActual.Empresa.Funcionalidad(249).ToEntero > 0 Then
|
|
|
|
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(249).ToEntero, "-1", 1) Then
|
|
DdlCtaContProveedores.DataSource = ObjContabilidad.DtResultados
|
|
DdlCtaContProveedores.DataBind()
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
If DdlCtaContExtranjera.SelectedValue.ToEntero <= 0 Then
|
|
|
|
'' Agrega Cuenta de la funcionalidad 250
|
|
If UsuarioActual.Empresa.Funcionalidad(250).ToEntero > 0 Then
|
|
|
|
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(250).ToEntero, "-1", 1) Then
|
|
DdlCtaContExtranjera.DataSource = ObjContabilidad.DtResultados
|
|
DdlCtaContExtranjera.DataBind()
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
If DdlCtaContComplementaria.SelectedValue.ToEntero <= 0 Then
|
|
|
|
'' Agrega Cuenta de la funcionalidad 251
|
|
If UsuarioActual.Empresa.Funcionalidad(251).ToEntero > 0 Then
|
|
|
|
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(251).ToEntero, "-1", 1) Then
|
|
DdlCtaContComplementaria.DataSource = ObjContabilidad.DtResultados
|
|
DdlCtaContComplementaria.DataBind()
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
'' 17/03/2017 FUNCIONALIDADES 252,253, 254
|
|
'Acreedores
|
|
If DdlCtaContAcreedores.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(202).ToEntero > 0 Then
|
|
DdlCtaContAcreedores.Width = 175
|
|
BtnActivaRegistroAcreedores.Visible = True
|
|
|
|
'' Agrega Cuenta de la funcionalidad 252
|
|
If UsuarioActual.Empresa.Funcionalidad(252).ToEntero > 0 Then
|
|
|
|
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(252).ToEntero, "-1", 1) Then
|
|
DdlCtaContAcreedores.DataSource = ObjContabilidad.DtResultados
|
|
DdlCtaContAcreedores.DataBind()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'' Agrega Cuenta de la funcionalidad 253
|
|
If DdlCtaContAcreedoresExtranjera.SelectedValue.ToEntero <= 0 Then
|
|
If UsuarioActual.Empresa.Funcionalidad(253).ToEntero > 0 Then
|
|
|
|
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(253).ToEntero, "-1", 1) Then
|
|
|
|
DdlCtaContAcreedoresExtranjera.DataSource = ObjContabilidad.DtResultados
|
|
DdlCtaContAcreedoresExtranjera.DataBind()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'' Agrega Cuenta de la funcionalidad 254
|
|
If DdlCtaContAcreedoresComplementaria.SelectedValue.ToEntero <= 0 Then
|
|
If UsuarioActual.Empresa.Funcionalidad(254).ToEntero > 0 Then
|
|
|
|
If ObjContabilidad.GetCuentas(UsuarioActual.Empresa.Funcionalidad(254).ToEntero, "-1", 1) Then
|
|
DdlCtaContAcreedoresComplementaria.DataSource = ObjContabilidad.DtResultados
|
|
DdlCtaContAcreedoresComplementaria.DataBind()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
'Documentos X Pagar
|
|
If DdlCtaContDocsXPagar.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(203).ToEntero > 0 Then
|
|
DdlCtaContDocsXPagar.Width = 175
|
|
BtnActivaRegistroDocsXPagar.Visible = True
|
|
End If
|
|
|
|
'Anticipos
|
|
If DdlCtaContAnticipos.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(204).ToEntero > 0 Then
|
|
DdlCtaContAnticipos.Width = 175
|
|
BtnActivaRegistroAnticipos.Visible = True
|
|
End If
|
|
|
|
'Deudores
|
|
If DdlCtaContDeudor.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(205).ToEntero > 0 Then
|
|
DdlCtaContDeudor.Width = 175
|
|
BtnActivaRegistroDeudores.Visible = True
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BtnActivaRegistroProveedores_Click(sender As Object, e As EventArgs) Handles BtnActivaRegistroProveedores.Click
|
|
'Dim IdCuentaContable As Integer = -1
|
|
'Dim CtaCodigo As String
|
|
'Dim TieneError = False
|
|
|
|
'Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
|
'Dim ObjProveedores As New ClsCompProveedores()
|
|
'ObjContaAC.IniciaTransacSQL()
|
|
'ObjProveedores.IniciaTransacSQL()
|
|
|
|
'IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(UsuarioActual.Empresa.Funcionalidad(109).ToEntero, TxtRazonSocial.Text.Trim)
|
|
'ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
|
|
|
'Dim dt = ObjContaAC.DtResultados
|
|
'Dim row As DataRow = dt.Rows(dt.Rows.Count - 1)
|
|
'CtaCodigo = CStr(row("CtaCodigo"))
|
|
|
|
'If IdCuentaContable > 0 Then
|
|
' If Not ObjProveedores.VincularCuentasContables(IdCuentaContable, CtaCodigo, -1, "-1", -1, "-1", -1, "-1", -1, "-1", CveProveedor) Then
|
|
' TieneError = True
|
|
' End If
|
|
'Else
|
|
' TieneError = True
|
|
'End If
|
|
|
|
|
|
'If Not TieneError Then
|
|
' Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
|
' DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
|
|
' BtnActivaRegistroProveedores.Visible = False
|
|
' DdlCtaContProveedores.Width = 206
|
|
' ObjProveedores.Commit()
|
|
' ObjContaAC.Commit()
|
|
'Else
|
|
' Alert("error", TipoMensaje.MsgError)
|
|
' ObjProveedores.RollBack()
|
|
' ObjContaAC.RollBack()
|
|
'End If
|
|
|
|
|
|
'ObjContaAC.Dispose()
|
|
'ObjProveedores.Dispose()
|
|
'UPPContable.Update()
|
|
|
|
End Sub
|
|
|
|
Protected Sub BtnAgregaCuentaContable(ByVal sender As Object, ByVal e As EventArgs)
|
|
Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString
|
|
Dim Button = DirectCast(sender, Button)
|
|
Select Case CuentaContable
|
|
Case "Proveedores"
|
|
AgregarCuentaContable(Button, DdlCtaContProveedores)
|
|
Case "Acreedores"
|
|
AgregarCuentaContable(Button, DdlCtaContAcreedores)
|
|
Case "DocsXPagar"
|
|
AgregarCuentaContable(Button, DdlCtaContDocsXPagar)
|
|
Case "Anticipos"
|
|
AgregarCuentaContable(Button, DdlCtaContAnticipos)
|
|
Case "Deudores"
|
|
AgregarCuentaContable(Button, DdlCtaContDeudor)
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
|
|
If UsuarioActual.Empresa.UsaContabilidad = True Then
|
|
Dim IdCuentaContable As Integer = -1
|
|
Dim CtaCodigo As String = ""
|
|
Dim TieneError = False
|
|
Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
|
|
Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
|
|
|
|
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
|
Dim ObjProveedores As New ClsCompProveedores()
|
|
ObjContaAC.IniciaTransacSQL()
|
|
ObjProveedores.IniciaTransacSQL()
|
|
|
|
Dim CuentaPadre = -1
|
|
|
|
Select Case btn.CommandArgument.ToString
|
|
Case "Proveedores"
|
|
CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
|
|
Case "Acreedores"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
|
|
Case "DocsXPagar"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
|
|
Case "Anticipos"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
|
|
Case "Deudores"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero
|
|
|
|
End Select
|
|
|
|
'SI EL NOMBRE DEL PROVEEDOR ES MAYOR DE 50 LO CORTAMOS
|
|
Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
|
|
|
|
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, "D", 2)
|
|
If IdCuentaContable > 0 Then
|
|
|
|
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
|
Dim dt = ObjContaAC.DtResultados
|
|
|
|
If dt.Rows.Count = 1 Then
|
|
|
|
Dim row As DataRow = dt.Rows(0)
|
|
CtaCodigo = CStr(row("CtaCodigo"))
|
|
|
|
Select Case btn.CommandArgument.ToString
|
|
Case "Proveedores"
|
|
IdCtaContableProveedores = IdCuentaContable
|
|
CtaCodigoProveedores = CtaCodigo
|
|
Case "Acreedores"
|
|
IdCtaContableAcreedores = IdCuentaContable
|
|
CtaCodigoAcreedores = CtaCodigo
|
|
Case "DocsXPagar"
|
|
IdCtaContableDocsXPagar = IdCuentaContable
|
|
CtaCodigoDocsXPagar = CtaCodigo
|
|
Case "Anticipos"
|
|
IdCtaContableAnticipos = IdCuentaContable
|
|
CtaCodigoAnticipos = CtaCodigo
|
|
Case "Deudores"
|
|
IdCtaContableDeudor = IdCuentaContable
|
|
CtaCodigoDeudor = CtaCodigo
|
|
End Select
|
|
|
|
|
|
If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
|
|
TieneError = True
|
|
End If
|
|
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
|
|
If Not TieneError Then
|
|
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
|
ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
|
btn.Visible = False
|
|
ddl.Width = 206
|
|
ObjProveedores.Commit()
|
|
ObjContaAC.Commit()
|
|
Else
|
|
Alert("error", TipoMensaje.MsgError)
|
|
ObjProveedores.RollBack()
|
|
ObjContaAC.RollBack()
|
|
End If
|
|
|
|
|
|
ObjContaAC.Dispose()
|
|
ObjProveedores.Dispose()
|
|
|
|
|
|
ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then
|
|
|
|
|
|
Dim ObjContabilidad As New ClsContabilidad
|
|
Dim ObjProveedores As New ClsCompProveedores()
|
|
ObjContabilidad.IniciaTransacSQL()
|
|
ObjProveedores.IniciaTransacSQL()
|
|
Dim CuentaPadre = -1
|
|
Dim IdCuentaContable = -1
|
|
Dim CtaCodigo As String = ""
|
|
Dim TieneError = False
|
|
Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
|
|
Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
|
|
|
|
|
|
Select Case btn.CommandArgument.ToString
|
|
Case "Proveedores"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero
|
|
Case "Acreedores"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero
|
|
Case "DocsXPagar"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero
|
|
Case "Anticipos"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero
|
|
Case "Deudores"
|
|
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero
|
|
|
|
End Select
|
|
|
|
Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
|
|
IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa)
|
|
If IdCuentaContable > 0 Then
|
|
|
|
ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa)
|
|
Dim dt = ObjContabilidad.DtResultados
|
|
|
|
If dt.Rows.Count = 1 Then
|
|
|
|
Dim row As DataRow = dt.Rows(0)
|
|
CtaCodigo = CStr(row("CtaCodigo"))
|
|
|
|
Select Case btn.CommandArgument.ToString
|
|
Case "Proveedores"
|
|
IdCtaContableProveedores = IdCuentaContable
|
|
CtaCodigoProveedores = CtaCodigo
|
|
Case "Acreedores"
|
|
IdCtaContableAcreedores = IdCuentaContable
|
|
CtaCodigoAcreedores = CtaCodigo
|
|
Case "DocsXPagar"
|
|
IdCtaContableDocsXPagar = IdCuentaContable
|
|
CtaCodigoDocsXPagar = CtaCodigo
|
|
Case "Anticipos"
|
|
IdCtaContableAnticipos = IdCuentaContable
|
|
CtaCodigoAnticipos = CtaCodigo
|
|
Case "Deudores"
|
|
IdCtaContableDeudor = IdCuentaContable
|
|
CtaCodigoDeudor = CtaCodigo
|
|
End Select
|
|
|
|
|
|
If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
|
|
TieneError = True
|
|
End If
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
Else
|
|
TieneError = True
|
|
End If
|
|
|
|
|
|
If Not TieneError Then
|
|
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
|
ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
|
|
btn.Visible = False
|
|
ddl.Width = 206
|
|
ObjProveedores.Commit()
|
|
ObjContabilidad.Commit()
|
|
Else
|
|
Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError)
|
|
ObjProveedores.RollBack()
|
|
ObjContabilidad.RollBack()
|
|
End If
|
|
|
|
ObjProveedores.Dispose()
|
|
ObjContabilidad.Dispose()
|
|
End If
|
|
|
|
UPPContable.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
|
|
If TxtExcel.getfiles().Archivos.Count > 0 Then
|
|
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
|
|
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
|
|
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
|
|
CargarArchivo(Directorio, file.filename, Tipo)
|
|
Else
|
|
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
|
|
Dim dt As New DataTable
|
|
Dim Conexion As Odbc.OdbcConnection = Nothing
|
|
Dim ErrorArchivo = False
|
|
Try
|
|
Select Case Tipo
|
|
Case "CSV"
|
|
Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;")
|
|
Conexion.Open()
|
|
Dim cmd = Conexion.CreateCommand()
|
|
cmd.CommandType = CommandType.Text
|
|
cmd.CommandText = $"SELECT * FROM [{FileName}]"
|
|
Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
|
|
DataAdapter.Fill(dt)
|
|
Case "EXCEL"
|
|
Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
|
|
Conexion.Open()
|
|
Dim cmd = Conexion.CreateCommand()
|
|
cmd.CommandType = CommandType.Text
|
|
cmd.CommandText = "SELECT * FROM [Hoja1$]"
|
|
Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
|
|
DataAdapter.Fill(dt)
|
|
Case Else
|
|
Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
|
|
Exit Sub
|
|
End Select
|
|
Catch ex As Exception
|
|
ErrorArchivo = True
|
|
OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
|
|
End Try
|
|
Conexion.Close()
|
|
If Not ErrorArchivo Then
|
|
If Not dt.Columns(0).ColumnName = "SerieFolio" Then
|
|
Alert("El nombre de la primera columna debe ser 'SerieFolio'.Favor de corregirlo", TipoMensaje.MsgError)
|
|
Exit Sub
|
|
End If
|
|
If Not dt.Columns(1).ColumnName = "Fecha" Then
|
|
Alert("El nombre de la segunda columna debe ser 'Fecha'.Favor de corregirlo", TipoMensaje.MsgError)
|
|
Exit Sub
|
|
End If
|
|
If Not dt.Columns(2).ColumnName = "Importe" Then
|
|
Alert("El nombre de la tercera columna debe ser 'Importe'.Favor de corregirlo", TipoMensaje.MsgError)
|
|
Exit Sub
|
|
End If
|
|
If Not dt.Columns(3).ColumnName = "Saldo" Then
|
|
Alert("El nombre de la cuarta columna debe ser 'Saldo'.Favor de corregirlo", TipoMensaje.MsgError)
|
|
Exit Sub
|
|
End If
|
|
Dim XmlStream As New System.IO.MemoryStream
|
|
dt.TableName = "Datos"
|
|
dt = dt.FiltraParametros("SerieFolio <> ''") 'excluyo lo que está vacío
|
|
Dim ObjProveedores As New ClsCompProveedores
|
|
Dim writer As New System.IO.StringWriter
|
|
dt.WriteXml(writer)
|
|
If ObjProveedores.GetProveedoresConciliacion(CveProveedor, DataTableToXml(writer)) Then
|
|
'ObjProveedores.DtResultados.ExportToExcel("Resultados")
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.Text))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", Now.ToDateTime.ToShortDateString))
|
|
|
|
End If
|
|
ObjProveedores.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
Private Function DataTableToXml(ByVal stream As System.IO.TextWriter) As String
|
|
Return stream.ToString()
|
|
End Function
|
|
|
|
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
|
|
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoProveedores.xlsx"
|
|
Dim Archivo As New IO.FileInfo(Directorio)
|
|
If Archivo.Exists Then
|
|
Response.Clear()
|
|
Response.ClearHeaders()
|
|
Response.ClearContent()
|
|
Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
|
|
Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
Response.ContentType = "text/plain"
|
|
Response.Flush()
|
|
Response.TransmitFile(Archivo.FullName)
|
|
Response.End()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LnkGenerarReporte_Click(sender As Object, e As EventArgs) Handles LnkGenerarReporte.Click
|
|
TxtFechaInicioCXP.Text = ""
|
|
TxtFechaFinCXP.Text = ""
|
|
txtFechaVI.Text = ""
|
|
txtFechaVF.Text = ""
|
|
rblreporte.SelectedValue = "cxp"
|
|
UpAddReporte.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddReporte"))
|
|
End Sub
|
|
|
|
Private Sub LnkParametros_Click(sender As Object, e As EventArgs) Handles LnkParametros.Click
|
|
TxtLimiteCredito.Text = LblLimiteCredito.Text
|
|
TxtPlazoCobranza.Text = LblPlazoCobranza.Text
|
|
UpParametros.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddParametros"))
|
|
End Sub
|
|
|
|
Private Sub BtnCancelarParametros_Click(sender As Object, e As EventArgs) Handles BtnCancelarParametros.Click
|
|
TxtLimiteCredito.Text = LblLimiteCredito.Text.FormatoNumero
|
|
TxtPlazoCobranza.Text = LblPlazoCobranza.Text
|
|
UpParametros.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
|
|
End Sub
|
|
|
|
Private Sub LnkAddParametros_Click(sender As Object, e As EventArgs) Handles LnkAddParametros.Click
|
|
LblLimiteCredito.Text = TxtLimiteCredito.Text.FormatoNumero
|
|
LblPlazoCobranza.Text = TxtPlazoCobranza.Text
|
|
If LblLimiteCredito.Text.ToDouble > 0 Then
|
|
TdSaldo.Visible = True
|
|
TdSaldo2.Visible = True
|
|
LblSaldo.Text = CType(LblLimiteCredito.Text.ToDouble - LBRCPTotal.Text.ToDouble, String).FormatoNumero
|
|
Else
|
|
TdSaldo.Visible = False
|
|
TdSaldo2.Visible = False
|
|
End If
|
|
UPPCxP.Update()
|
|
UpParametros.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddParametros"))
|
|
End Sub
|
|
|
|
Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click
|
|
Modalidad = "A"
|
|
TxtNombreBanco.Text = ""
|
|
LbAgregarCuentaBanco.Text = "Agregar"
|
|
TxtNumeroSucursal.Text = ""
|
|
TxtNumeroCuenta.Text = ""
|
|
TxtCLABE.Text = ""
|
|
TxtSWIFT.Text = ""
|
|
TxtPlaza.Text = ""
|
|
TxtConvenioCIE.Text = ""
|
|
TxtReferencia.Text = ""
|
|
TxtConceptoCIE.Text = ""
|
|
TxtRefCrediProveedor.Text = ""
|
|
DdlMoneda.SelectedIndex = 0
|
|
TxtCorreoCuenta.Text = ""
|
|
TxtBBVAAlias.Text = ""
|
|
ChkEstatus.Checked = True
|
|
divestatus.Visible = False
|
|
|
|
ChkPagoElectronico.Checked = False
|
|
ChkPagoElectronicoGrupos.Checked = False
|
|
DdlSatBanco.SelectedValueExist("-1")
|
|
|
|
DVDdlSatBanco.Visible = False
|
|
|
|
UpAddBancos.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
|
|
End Sub
|
|
|
|
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
TxtNombreBanco.Text = GvRow.DataKey("BancoNombre")
|
|
Modalidad = "U"
|
|
LbAgregarCuentaBanco.Text = "Actualizar"
|
|
CveCuentaBancaria = GvRow.RowIndex
|
|
TxtNumeroSucursal.Text = GvRow.DataKey("Sucursal")
|
|
TxtNumeroCuenta.Text = GvRow.DataKey("Cuenta")
|
|
TxtCLABE.Text = GvRow.DataKey("CLABE")
|
|
TxtSWIFT.Text = GvRow.DataKey("SWIFT")
|
|
TxtPlaza.Text = GvRow.DataKey("Plaza")
|
|
TxtConvenioCIE.Text = GvRow.DataKey("CIE")
|
|
TxtReferencia.Text = GvRow.DataKey("Referencia")
|
|
TxtConceptoCIE.Text = GvRow.DataKey("ConceptoCIE")
|
|
TxtRefCrediProveedor.Text = GvRow.DataKey("RefCrediProveedor")
|
|
TxtCorreoCuenta.Text = GvRow.DataKey("Correo")
|
|
TxtBBVAAlias.Text = GvRow.DataKey("BBVAAlias")
|
|
DdlMoneda.SelectedValueExist(GvRow.DataKey("CveMoneda"))
|
|
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
|
|
divestatus.Visible = True
|
|
UpAddBancos.Update()
|
|
|
|
ChkPagoElectronico.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronico").ToString)
|
|
ChkPagoElectronicoGrupos.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronicoGrupos").ToString)
|
|
DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco"))
|
|
|
|
If ChkPagoElectronicoGrupos.Checked Then
|
|
DVDdlSatBanco.Visible = True
|
|
End If
|
|
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
|
|
End Sub
|
|
|
|
#Region " C O N T A C T O S P R O V E E D O R "
|
|
|
|
Protected Sub CreaTempDTProveedoresContactos()
|
|
TempDTProveedoresContactos = New DataTable()
|
|
|
|
TempDTProveedoresContactos.Columns.Add("Nombre", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("Puesto", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("Telefono", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("Extension", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("Celular", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("Correo", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("Skype", GetType(String))
|
|
|
|
TempDTProveedoresContactos.Columns.Add("CveProveedorContacto", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("CveProveedor", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("CveProveedorSucursal", GetType(String))
|
|
TempDTProveedoresContactos.Columns.Add("ProveedorSucursal", GetType(String))
|
|
|
|
GvContactoProveedor.DataSource = TempDTProveedoresContactos
|
|
GvContactoProveedor.DataBind()
|
|
|
|
UpContactosProveedor.Update()
|
|
End Sub
|
|
|
|
|
|
Protected Sub CreaTempDTProveedoresContactosSucursales()
|
|
TempDTProveedoresContactosSucursal = New DataTable()
|
|
|
|
TempDTProveedoresContactosSucursal.Columns.Add("Nombre", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("Puesto", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("Telefono", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("Extension", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("Celular", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("Correo", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("Skype", GetType(String))
|
|
|
|
TempDTProveedoresContactosSucursal.Columns.Add("CveProveedorContacto", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("CveProveedor", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("CveProveedorSucursal", GetType(String))
|
|
TempDTProveedoresContactosSucursal.Columns.Add("ProveedorSucursal", GetType(String))
|
|
|
|
TempDTProveedoresContactosSucursal.Columns.Add("CveSucursalTemp", GetType(String)) 'Para controlar las sucursales no insertadas en BD
|
|
|
|
GVContactosProveedorSucursal.DataSource = TempDTProveedoresContactosSucursal
|
|
GVContactosProveedorSucursal.DataBind()
|
|
|
|
UpContactosProveedorSucursal.Update()
|
|
End Sub
|
|
|
|
Protected Sub limpiarCamposModalAgregarContacto()
|
|
TxtNombreContactoProveedor.Text = ""
|
|
TxtPuestoContactoProveedor.Text = ""
|
|
TxtTelefonoContactoProveedor.Text = ""
|
|
TxtExtContactoProveedor.Text = ""
|
|
TxtCelularContactoProveedor.Text = ""
|
|
TxtCorreoContactoProveedor.Text = ""
|
|
TxtSkypeContactoProveedor.Text = ""
|
|
UpAgregarContatoProveedor.Update()
|
|
End Sub
|
|
|
|
'CONTACTOS GENERALES DEL PROVEEDOR
|
|
Protected Sub BtnAgregarContactoProveedor_Click(sender As Object, e As EventArgs)
|
|
CveProveedorContacto = -1
|
|
CveProveedorSucursal = -1
|
|
|
|
EsContactoSucursal = 0
|
|
EsEditar = 0
|
|
|
|
limpiarCamposModalAgregarContacto()
|
|
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal();")
|
|
End Sub
|
|
|
|
Protected Sub imgEditarContactoProv_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
|
CveProveedorContacto = GvRow.DataKey("CveProveedorContacto").ToEntero()
|
|
CveProveedorSucursal = GvRow.DataKey("CveProveedorSucursal").ToEntero()
|
|
|
|
EsContactoSucursal = 0
|
|
EsEditar = 1
|
|
IndexDTContacto = GvRow.RowIndex
|
|
|
|
TxtNombreContactoProveedor.Text = GvRow.DataKey("Nombre").ToString
|
|
TxtPuestoContactoProveedor.Text = GvRow.DataKey("Puesto").ToString
|
|
TxtTelefonoContactoProveedor.Text = GvRow.DataKey("Telefono").ToString
|
|
TxtExtContactoProveedor.Text = GvRow.DataKey("Extension").ToString
|
|
TxtCelularContactoProveedor.Text = GvRow.DataKey("Celular").ToString
|
|
TxtCorreoContactoProveedor.Text = GvRow.DataKey("Correo").ToString
|
|
TxtSkypeContactoProveedor.Text = GvRow.DataKey("Skype").ToString
|
|
|
|
UpAgregarContatoProveedor.Update()
|
|
|
|
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
|
|
|
|
End Sub
|
|
|
|
Protected Sub GvContactoProveedor_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
|
|
If CveProveedor > 0 Then
|
|
|
|
CveProveedorContacto = GvContactoProveedor.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
|
|
|
Dim ObjProveedores As ClsCompProveedores = New ClsCompProveedores
|
|
|
|
If ObjProveedores.RemoveProveedorContacto(CveProveedorContacto) Then
|
|
Alert("El Contacto se Elimino correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
CargaContactos(ObjProveedores)
|
|
ObjProveedores.Dispose()
|
|
|
|
CargaGVContactosSucursal()
|
|
Else
|
|
|
|
TempDTProveedoresContactos.Rows.RemoveAt(e.RowIndex)
|
|
GvContactoProveedor.DataSource = TempDTProveedoresContactos
|
|
GvContactoProveedor.DataBind()
|
|
UpContactosProveedor.Update()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
'CONTACTOS DE LA SUCURSAL
|
|
Protected Sub CargaGVContactosSucursal()
|
|
If CveProveedor > 0 And CveProveedorSucursal > 0 Then
|
|
' TempDTProveedoresContactosSucursal.Columns.Add("CveSucursalTemp", GetType(String))
|
|
GVContactosProveedorSucursal.DataSource = TempDTProveedoresContactosSucursal.FiltraParametros("CveProveedorSucursal = " & CveProveedorSucursal)
|
|
Else
|
|
GVContactosProveedorSucursal.DataSource = TempDTProveedoresContactosSucursal
|
|
End If
|
|
|
|
GVContactosProveedorSucursal.DataBind()
|
|
UpContactosProveedorSucursal.Update()
|
|
End Sub
|
|
|
|
Protected Sub BtnAgregarContactoSucursal_Click(sender As Object, e As EventArgs)
|
|
EsContactoSucursal = 1
|
|
EsEditar = 0
|
|
limpiarCamposModalAgregarContacto()
|
|
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
|
|
End Sub
|
|
|
|
Protected Sub imgEditarContactoProvSuc_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
|
|
|
CveProveedorContacto = GvRow.DataKey("CveProveedorContacto").ToEntero()
|
|
CveProveedorSucursal = GvRow.DataKey("CveProveedorSucursal").ToEntero()
|
|
CveTempSucursal = GvRow.DataKey("CveSucursalTemp").ToEntero()
|
|
|
|
TxtNombreContactoProveedor.Text = GvRow.DataKey("Nombre").ToString
|
|
TxtPuestoContactoProveedor.Text = GvRow.DataKey("Puesto").ToString
|
|
TxtTelefonoContactoProveedor.Text = GvRow.DataKey("Telefono").ToString
|
|
TxtExtContactoProveedor.Text = GvRow.DataKey("Extension").ToString
|
|
TxtCelularContactoProveedor.Text = GvRow.DataKey("Celular").ToString
|
|
TxtCorreoContactoProveedor.Text = GvRow.DataKey("Correo").ToString
|
|
TxtSkypeContactoProveedor.Text = GvRow.DataKey("Skype").ToString
|
|
|
|
EsContactoSucursal = 1
|
|
EsEditar = 1
|
|
IndexDTContacto = GvRow.RowIndex
|
|
|
|
UpAgregarContatoProveedor.Update()
|
|
|
|
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('show');")
|
|
End Sub
|
|
|
|
Protected Sub GVContactosProveedorSucursal_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
|
|
|
|
If CveProveedor > 0 And CveProveedorSucursal > 0 Then
|
|
|
|
CveProveedorContacto = GVContactosProveedorSucursal.DataKeys(e.RowIndex).Value.ToString.ToEntero 'GvRow.DataKey("CveProveedorContacto").ToEntero()
|
|
|
|
Dim ObjProveedores As ClsCompProveedores = New ClsCompProveedores
|
|
|
|
If ObjProveedores.RemoveProveedorContacto(CveProveedorContacto) Then
|
|
Alert("El Contacto de la Sucursal se Elimino correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
CargaContactos(ObjProveedores)
|
|
ObjProveedores.Dispose()
|
|
|
|
CargaGVContactosSucursal()
|
|
Else
|
|
TempDTProveedoresContactosSucursal.Rows.RemoveAt(e.RowIndex)
|
|
CargaGVContactosSucursal()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub GVContactosProveedorSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
'Oculta las filas del grid que no perenecen a la sucursal seleccionada
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
' Si la sucursal ya esta en BD busca por su Cve, si no busca por cve temp
|
|
If CveProveedorSucursal > 0 Then
|
|
If e.Row.DBCampo("CveProveedorSucursal") = CveProveedorSucursal.ToString() Then
|
|
e.Row.Visible = True
|
|
Else
|
|
e.Row.Visible = False
|
|
End If
|
|
Else
|
|
If e.Row.DBCampo("CveSucursalTemp") = CveTempSucursal.ToString() Then
|
|
e.Row.Visible = True
|
|
Else
|
|
e.Row.Visible = False
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub BtnGuardarContactoProveedor_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim Nombre As String = TxtNombreContactoProveedor.Text
|
|
Dim Puesto As String = TxtPuestoContactoProveedor.Text
|
|
Dim Telefono As String = TxtTelefonoContactoProveedor.Text
|
|
Dim Extension As String = TxtExtContactoProveedor.Text
|
|
Dim Celular As String = TxtCelularContactoProveedor.Text
|
|
Dim Correo As String = TxtCorreoContactoProveedor.Text
|
|
Dim Skype As String = TxtSkypeContactoProveedor.Text
|
|
|
|
'SI EL PROVEEDOR NO TIENE CVEPROVEEDOR GUARDA EN TABLA TEMPORAL
|
|
If CveProveedor = -1 Then
|
|
Dim dr As DataRow
|
|
|
|
If EsContactoSucursal = 0 Then
|
|
dr = TempDTProveedoresContactos.NewRow()
|
|
Else
|
|
dr = TempDTProveedoresContactosSucursal.NewRow()
|
|
End If
|
|
|
|
dr("Nombre") = Nombre
|
|
dr("Puesto") = Puesto
|
|
dr("Telefono") = Telefono
|
|
dr("Extension") = Extension
|
|
dr("Celular") = Celular
|
|
dr("Correo") = Correo
|
|
dr("Skype") = Skype
|
|
|
|
dr("CveProveedorContacto") = CveProveedorContacto.ToString
|
|
'Si es contacto General del Proveedor solo agrega
|
|
If EsContactoSucursal = 0 Then
|
|
dr("CveProveedorSucursal") = "-1"
|
|
|
|
If EsEditar = 1 Then
|
|
TempDTProveedoresContactos.Rows.RemoveAt(IndexDTContacto)
|
|
End If
|
|
|
|
TempDTProveedoresContactos.Rows.Add(dr)
|
|
|
|
GvContactoProveedor.DataSource = TempDTProveedoresContactos
|
|
GvContactoProveedor.DataBind()
|
|
|
|
UpContactosProveedor.Update()
|
|
Else
|
|
'obtengo la cve Sucursal
|
|
dr("CveProveedorSucursal") = CveProveedorSucursal
|
|
'si no existe en BD asigna la Cve Temp
|
|
If CveProveedorSucursal = -1 Then
|
|
dr("CveSucursalTemp") = CveTempSucursal
|
|
End If
|
|
|
|
'If CveProveedorContacto.ToString <> "-1" Then
|
|
If EsEditar = 1 Then
|
|
TempDTProveedoresContactosSucursal.Rows.RemoveAt(IndexDTContacto)
|
|
End If
|
|
' End If
|
|
TempDTProveedoresContactosSucursal.Rows.Add(dr)
|
|
CargaGVContactosSucursal()
|
|
End If
|
|
|
|
Else
|
|
Dim ObjProveedores As ClsCompProveedores = New ClsCompProveedores
|
|
CveProveedorSucursal = IIf(CveProveedorSucursal = 0, -1, CveProveedorSucursal).ToString.ToEntero
|
|
|
|
If EsEditar = 1 Then
|
|
'ACTUALIZAMOS CONTACTO
|
|
If ObjProveedores.UpdateProveedorContacto(CveProveedorContacto, CveProveedor, CveProveedorSucursal, Nombre, Puesto, Telefono, Extension, Celular, Correo, Skype) Then
|
|
Alert("El Contacto se Actualizo correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
Else
|
|
'CREAMOS CONTACTO
|
|
If ObjProveedores.AddProveedorContacto(CveProveedor, CveProveedorSucursal, Nombre, Puesto, Telefono, Extension, Celular, Correo, Skype) Then
|
|
Alert("El Contacto se Guardo correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
End If
|
|
|
|
CargaContactos(ObjProveedores)
|
|
ObjProveedores.Dispose()
|
|
|
|
CargaGVContactosSucursal()
|
|
|
|
End If
|
|
|
|
Me.RegistraScript("$('#DivAgregarContactoProveedor').modal('hide');")
|
|
limpiarCamposModalAgregarContacto()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "USUARIOS PLATAFORMA PROVEEDOR - 7 "
|
|
Protected Sub CargaUsuariosPortalProveedor()
|
|
Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
|
|
If objUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
|
GvUsuarios.DataSource = objUsuario.DtResultados
|
|
GvUsuarios.DataBind()
|
|
End If
|
|
objUsuario.Dispose()
|
|
End Sub
|
|
Public Sub CargaGlobal()
|
|
Dim ObjUsuarios As New ClsSisUsuarios
|
|
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
|
|
Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
|
|
End If
|
|
ObjUsuarios.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveUsuario={e.Row.DBCampo("CveUsuario").ToString}&CveProveedor={CveProveedor}', 801, 701);")
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "MODAL GRAFICA/PEDIDOS"
|
|
|
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
|
|
If CargaDatatables() Then
|
|
CargaGrafica()
|
|
End If
|
|
End Sub
|
|
|
|
Private Function CargaDatatables() As Boolean
|
|
Dim ObjProveedores As New ClsCompProveedores
|
|
Dim ObjFinanzas As New ClsFinanzas
|
|
If ObjProveedores.GetProveedorVencido(CveProveedor, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate) Then
|
|
DtVencido = ObjProveedores.DtResultados
|
|
End If
|
|
|
|
If ObjFinanzas.GetRotacionCarteraProveedores(TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa, 1, "-1", " -1", CveProveedor, Now) Then
|
|
DtRotacion = ObjFinanzas.DtResultados
|
|
End If
|
|
|
|
If ObjProveedores.GetProveedorSaldoMensual(CveProveedor, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate) Then
|
|
DtSaldoMensual = ObjProveedores.DtResultados
|
|
End If
|
|
|
|
If ObjProveedores.GetClienteComportamientoCompraMensual(CveProveedor, UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate) Then
|
|
DtComportamientoCompras = ObjProveedores.DtResultados
|
|
End If
|
|
|
|
ObjProveedores.Dispose()
|
|
ObjFinanzas.Dispose()
|
|
|
|
If Not DtVencido.Rows.Count > 0 Then
|
|
Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub CargaGrafica()
|
|
Dim FactVencida As Boolean = False
|
|
Dim Saldo As Double = DtVencido.SUM("Saldo")
|
|
Dim LimiteCredito As Double = DtVencido.Rows(0)("LimiteCredito").ToString.ToDouble
|
|
|
|
Dim Dt As New DataTable()
|
|
Dt.Columns.Add("value")
|
|
For Each Dr As DataRow In DtVencido.Rows
|
|
Dim Row As DataRow = Nothing
|
|
Row = Dt.NewRow()
|
|
Row("value") = Dr("DiasVencidos").ToString
|
|
Dt.Rows.Add(Row)
|
|
If Dr("DiasVencidos").ToString.ToEntero > 0 And Dr("Saldo").ToString.ToDouble > 0 Then
|
|
FactVencida = True
|
|
End If
|
|
Next
|
|
|
|
LblVencido.Text = DtVencido.SUM("Total", "DiasVencidos > 0").FormatoNumero
|
|
LblPorVencer.Text = DtVencido.SUM("Total", "DiasVencidos <= 0").FormatoNumero
|
|
|
|
Dim query = From s In Dt.AsEnumerable() Select New With {.date = "", .value = s("value").ToString()}
|
|
Dim json = Newtonsoft.Json.JsonConvert.SerializeObject(query)
|
|
RegistraScript($"CargaGraficaVencido({json})", "22")
|
|
|
|
Dim Dt2 As New DataTable()
|
|
Dt2.Columns.Add("limite")
|
|
Dt2.Columns.Add("saldo")
|
|
Dim Row2 As DataRow = Nothing
|
|
Row2 = Dt2.NewRow()
|
|
Row2("limite") = LimiteCredito
|
|
Row2("saldo") = Saldo
|
|
Dt2.Rows.Add(Row2)
|
|
Dim query2 = From s In Dt2.AsEnumerable() Select New With {.year = "", .limite = s("limite").ToString(), .saldo = s("saldo").ToString()}
|
|
Dim json2 = Newtonsoft.Json.JsonConvert.SerializeObject(query2)
|
|
|
|
RegistraScript($"CargaGraficaLimiteCredito({json2})", "33")
|
|
|
|
If DtRotacion.Rows.Count > 0 Then
|
|
LblComprasModal.Text = DtRotacion.Rows(0)("Compras").ToString.FormatoNumero
|
|
LblPagadoModal.Text = DtRotacion.Rows(0)("Pagado").ToString.FormatoNumero
|
|
LblRotacionModal.Text = DtRotacion.Rows(0)("Rotacion").ToString.FormatoNumero
|
|
LblDiasModal.Text = DtRotacion.Rows(0)("Dias").ToString.FormatoNumero
|
|
End If
|
|
|
|
If FactVencida Or (Saldo > LimiteCredito) Then
|
|
LblEstatusModal.Text = "Vencido"
|
|
LblEstatusModal.ForeColor = Drawing.Color.Red
|
|
Else
|
|
LblEstatusModal.Text = "Al Corriente"
|
|
LblEstatusModal.ForeColor = Drawing.Color.Green
|
|
End If
|
|
|
|
Dim Dt3 As New DataTable()
|
|
Dt3.Columns.Add("mes")
|
|
|
|
Dim Dt4 As New DataTable()
|
|
Dt4.Columns.Add("balloonText")
|
|
Dt4.Columns.Add("bullet")
|
|
Dt4.Columns.Add("title")
|
|
Dt4.Columns.Add("valueField")
|
|
Dt4.Columns.Add("fillAlphas")
|
|
Dt4.Columns.Add("hidden")
|
|
|
|
|
|
Dim Cont As Integer = 1
|
|
|
|
For Each Dr As DataRow In DtComportamientoCompras.Rows
|
|
Dt3.Columns.Add(Dr("Ano").ToString)
|
|
Dim Row4 As DataRow = Nothing
|
|
Row4 = Dt4.NewRow()
|
|
Row4("balloonText") = "Compras [[category]]: [[value]]"
|
|
Row4("bullet") = "round"
|
|
Row4("title") = Dr("Ano").ToString
|
|
Row4("valueField") = Dr("Ano").ToString
|
|
Row4("fillAlphas") = 0
|
|
Row4("hidden") = If(Cont > DtComportamientoCompras.Rows.Count - 3, False, True)
|
|
Dt4.Rows.Add(Row4)
|
|
Cont += 1
|
|
Next
|
|
|
|
Dim RowEnero As DataRow = Nothing
|
|
RowEnero = Dt3.NewRow()
|
|
Dim RowFebrero As DataRow = Nothing
|
|
RowFebrero = Dt3.NewRow()
|
|
Dim RowMarzo As DataRow = Nothing
|
|
RowMarzo = Dt3.NewRow()
|
|
Dim RowAbril As DataRow = Nothing
|
|
RowAbril = Dt3.NewRow()
|
|
Dim RowMayo As DataRow = Nothing
|
|
RowMayo = Dt3.NewRow()
|
|
Dim RowJunio As DataRow = Nothing
|
|
RowJunio = Dt3.NewRow()
|
|
Dim RowJulio As DataRow = Nothing
|
|
RowJulio = Dt3.NewRow()
|
|
Dim RowAgosto As DataRow = Nothing
|
|
RowAgosto = Dt3.NewRow()
|
|
Dim RowSeptiembre As DataRow = Nothing
|
|
RowSeptiembre = Dt3.NewRow()
|
|
Dim RowOctubre As DataRow = Nothing
|
|
RowOctubre = Dt3.NewRow()
|
|
Dim RowNoviembre As DataRow = Nothing
|
|
RowNoviembre = Dt3.NewRow()
|
|
Dim RowDiciembre As DataRow = Nothing
|
|
RowDiciembre = Dt3.NewRow()
|
|
For Each Dr As DataRow In DtComportamientoCompras.Rows
|
|
RowEnero(Dr("Ano").ToString) = Dr("Enero").ToString
|
|
RowEnero("mes") = "Enero"
|
|
RowFebrero(Dr("Ano").ToString) = Dr("Febrero").ToString
|
|
RowFebrero("mes") = "Febrero"
|
|
RowMarzo(Dr("Ano").ToString) = Dr("Marzo").ToString
|
|
RowMarzo("mes") = "Marzo"
|
|
RowAbril(Dr("Ano").ToString) = Dr("Abril").ToString
|
|
RowAbril("mes") = "Abril"
|
|
RowMayo(Dr("Ano").ToString) = Dr("Mayo").ToString
|
|
RowMayo("mes") = "Mayo"
|
|
RowJunio(Dr("Ano").ToString) = Dr("Junio").ToString
|
|
RowJunio("mes") = "Junio"
|
|
RowJulio(Dr("Ano").ToString) = Dr("Julio").ToString
|
|
RowJulio("mes") = "Julio"
|
|
RowAgosto(Dr("Ano").ToString) = Dr("Agosto").ToString
|
|
RowAgosto("mes") = "Agosto"
|
|
RowSeptiembre(Dr("Ano").ToString) = Dr("Septiembre").ToString
|
|
RowSeptiembre("mes") = "Septiembre"
|
|
RowOctubre(Dr("Ano").ToString) = Dr("Octubre").ToString
|
|
RowOctubre("mes") = "Octubre"
|
|
RowNoviembre(Dr("Ano").ToString) = Dr("Noviembre").ToString
|
|
RowNoviembre("mes") = "Noviembre"
|
|
RowDiciembre(Dr("Ano").ToString) = Dr("Diciembre").ToString
|
|
RowDiciembre("mes") = "Diciembre"
|
|
Next
|
|
Dt3.Rows.Add(RowEnero)
|
|
Dt3.Rows.Add(RowFebrero)
|
|
Dt3.Rows.Add(RowMarzo)
|
|
Dt3.Rows.Add(RowAbril)
|
|
Dt3.Rows.Add(RowMayo)
|
|
Dt3.Rows.Add(RowJunio)
|
|
Dt3.Rows.Add(RowJulio)
|
|
Dt3.Rows.Add(RowAgosto)
|
|
Dt3.Rows.Add(RowSeptiembre)
|
|
Dt3.Rows.Add(RowOctubre)
|
|
Dt3.Rows.Add(RowNoviembre)
|
|
Dt3.Rows.Add(RowDiciembre)
|
|
|
|
RegistraScript($"CargaGraficaComportamientoCompras({Dt3.ToJson},{Dt4.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "44")
|
|
|
|
Dim Dt5 As New DataTable()
|
|
Dt5.Columns.Add("mes")
|
|
|
|
Dim Dt6 As New DataTable()
|
|
Dt6.Columns.Add("balloonText")
|
|
Dt6.Columns.Add("bullet")
|
|
Dt6.Columns.Add("title")
|
|
Dt6.Columns.Add("valueField")
|
|
Dt6.Columns.Add("fillAlphas")
|
|
Dt6.Columns.Add("hidden")
|
|
|
|
Cont = 1
|
|
For Each Dr As DataRow In DtSaldoMensual.Rows
|
|
Dt5.Columns.Add(Dr("Ano").ToString)
|
|
Dim Row6 As DataRow = Nothing
|
|
Row6 = Dt6.NewRow()
|
|
Row6("balloonText") = "Saldo [[category]]: [[value]]"
|
|
Row6("bullet") = "round"
|
|
Row6("title") = Dr("Ano").ToString
|
|
Row6("valueField") = Dr("Ano").ToString
|
|
Row6("fillAlphas") = 0
|
|
Row6("hidden") = If(Cont > DtSaldoMensual.Rows.Count - 3, False, True)
|
|
Dt6.Rows.Add(Row6)
|
|
Cont += 1
|
|
Next
|
|
RowEnero = Dt5.NewRow()
|
|
RowFebrero = Dt5.NewRow()
|
|
RowMarzo = Dt5.NewRow()
|
|
RowAbril = Dt5.NewRow()
|
|
RowMayo = Dt5.NewRow()
|
|
RowJunio = Dt5.NewRow()
|
|
RowJulio = Dt5.NewRow()
|
|
RowAgosto = Dt5.NewRow()
|
|
RowSeptiembre = Dt5.NewRow()
|
|
RowOctubre = Dt5.NewRow()
|
|
RowNoviembre = Dt5.NewRow()
|
|
RowDiciembre = Dt5.NewRow()
|
|
For Each Dr As DataRow In DtSaldoMensual.Rows
|
|
RowEnero(Dr("Ano").ToString) = Dr("Enero").ToString
|
|
RowEnero("mes") = "Enero"
|
|
RowFebrero(Dr("Ano").ToString) = Dr("Febrero").ToString
|
|
RowFebrero("mes") = "Febrero"
|
|
RowMarzo(Dr("Ano").ToString) = Dr("Marzo").ToString
|
|
RowMarzo("mes") = "Marzo"
|
|
RowAbril(Dr("Ano").ToString) = Dr("Abril").ToString
|
|
RowAbril("mes") = "Abril"
|
|
RowMayo(Dr("Ano").ToString) = Dr("Mayo").ToString
|
|
RowMayo("mes") = "Mayo"
|
|
RowJunio(Dr("Ano").ToString) = Dr("Junio").ToString
|
|
RowJunio("mes") = "Junio"
|
|
RowJulio(Dr("Ano").ToString) = Dr("Julio").ToString
|
|
RowJulio("mes") = "Julio"
|
|
RowAgosto(Dr("Ano").ToString) = Dr("Agosto").ToString
|
|
RowAgosto("mes") = "Agosto"
|
|
RowSeptiembre(Dr("Ano").ToString) = Dr("Septiembre").ToString
|
|
RowSeptiembre("mes") = "Septiembre"
|
|
RowOctubre(Dr("Ano").ToString) = Dr("Octubre").ToString
|
|
RowOctubre("mes") = "Octubre"
|
|
RowNoviembre(Dr("Ano").ToString) = Dr("Noviembre").ToString
|
|
RowNoviembre("mes") = "Noviembre"
|
|
RowDiciembre(Dr("Ano").ToString) = Dr("Diciembre").ToString
|
|
RowDiciembre("mes") = "Diciembre"
|
|
Next
|
|
Dt5.Rows.Add(RowEnero)
|
|
Dt5.Rows.Add(RowFebrero)
|
|
Dt5.Rows.Add(RowMarzo)
|
|
Dt5.Rows.Add(RowAbril)
|
|
Dt5.Rows.Add(RowMayo)
|
|
Dt5.Rows.Add(RowJunio)
|
|
Dt5.Rows.Add(RowJulio)
|
|
Dt5.Rows.Add(RowAgosto)
|
|
Dt5.Rows.Add(RowSeptiembre)
|
|
Dt5.Rows.Add(RowOctubre)
|
|
Dt5.Rows.Add(RowNoviembre)
|
|
Dt5.Rows.Add(RowDiciembre)
|
|
|
|
|
|
RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
|
|
|
|
UPModalProd.Update()
|
|
End Sub
|
|
|
|
Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
|
|
If CargaDatatables() Then
|
|
RegistraScript("$('#DivModalGrafica').modal('show')")
|
|
CargaGrafica()
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "TAB - COMPORTAMIENTO DE COMPRAS"
|
|
|
|
Private Sub CargaGrupo()
|
|
DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
|
|
DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
|
|
DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
|
|
DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
|
|
DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
|
|
DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8"))
|
|
DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9"))
|
|
DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
|
|
DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
|
|
DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
|
|
DdlGrupo.DataBind()
|
|
DdlGrupo.SelectedValueExist("8")
|
|
End Sub
|
|
Private Sub CargaTipoCentroCosto()
|
|
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
|
|
DdlSubProyectoFiltro.Items.Clear()
|
|
DivProyecto.Visible = False
|
|
LblProyecto.Visible = False
|
|
LblSubProyecto.InnerText = "Sucursal:"
|
|
|
|
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
|
DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlSubProyectoFiltro.DataBind()
|
|
|
|
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
|
|
DdlGrupo.DataBind()
|
|
|
|
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
|
|
DdlSubProyectoFiltro.Items.Clear()
|
|
DivProyecto.Visible = False
|
|
LblProyecto.Visible = False
|
|
LblSubProyecto.InnerText = "Proyecto:"
|
|
|
|
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
|
DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlSubProyectoFiltro.DataBind()
|
|
|
|
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
|
|
DdlGrupo.DataBind()
|
|
|
|
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
|
|
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
|
|
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
|
|
DdlGrupo.DataBind()
|
|
|
|
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
|
LblProyecto.InnerText = "Sucursal:"
|
|
LblSubProyecto.InnerText = "Proyecto:"
|
|
|
|
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
|
|
DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
|
|
DdlGrupo.DataBind()
|
|
|
|
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
|
LblProyecto.InnerText = "Proyecto:"
|
|
LblSubProyecto.InnerText = "Sucursal:"
|
|
|
|
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
|
|
DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
|
|
DdlGrupo.DataBind()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaFiltros()
|
|
'Cargo Proyectos
|
|
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
|
|
DdlProyecto.DataBind()
|
|
|
|
'Cargo Clasificaciones
|
|
DdlClasificacionFilto.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
|
|
DdlClasificacionFilto.DataBind()
|
|
|
|
'CargaSubProyectos
|
|
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
|
DdlSubProyectoFiltro.DataBind()
|
|
|
|
'CargaUsuarios
|
|
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
DdlUsuario.DataBind()
|
|
|
|
'Carga Productos
|
|
DdlPSFiltro.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
|
|
DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
|
|
DdlPSFiltro.SelectedText = ""
|
|
DdlPSFiltro.SelectedValue = "-1"
|
|
Else
|
|
DdlPSFiltro.ddl.Items.Clear()
|
|
DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero)
|
|
DdlPSFiltro.ddl.DataBind()
|
|
DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
|
|
End If
|
|
|
|
CargaGrupo()
|
|
CargaTipoCentroCosto()
|
|
|
|
End Sub
|
|
|
|
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
|
CargaSubProyecto()
|
|
End Sub
|
|
|
|
Private Sub CargaSubProyecto()
|
|
DdlSubProyectoFiltro.Items.Clear()
|
|
If DdlProyecto.SelectedValue <> "-1" Then
|
|
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
|
|
DdlSubProyectoFiltro.DataBind()
|
|
End If
|
|
DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End Sub
|
|
|
|
Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
|
|
DdlPSFiltro.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero)
|
|
DdlPSFiltro.DataBind()
|
|
DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
Else
|
|
DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue)
|
|
DdlPSFiltro.SelectedText = "Todos"
|
|
DdlPSFiltro.SelectedValue = "-1"
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub GvComportamientoCompra_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If Not e.Row.DBCampo("CveCompra").ToEntero > 0 Then
|
|
e.Row.CssClass = "Totales"
|
|
e.Row.Cells(2).Text = e.Row.DBCampo("GPO").ToString
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub BtnConsultarComportamiento_Click(sender As Object, e As EventArgs)
|
|
CargaGvComportamientoCompra()
|
|
End Sub
|
|
|
|
Private Sub CargaGvComportamientoCompra()
|
|
Dim ObjCompras As New ClsCompras()
|
|
Dim FechaI, FechaF As Date
|
|
FechaI = If(IsDate(TxtFechaIFiltro.Text.Trim()), TxtFechaIFiltro.Text.ToDate, MinFecha)
|
|
FechaF = If(IsDate(TxtFechaFFiltro.Text.Trim()), TxtFechaFFiltro.Text.ToDate, MaxFecha)
|
|
|
|
If ObjCompras.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, DdlSubProyectoFiltro.SelectedValue, "-1", DdlClasificacionFilto.SelectedValue.ToEntero,
|
|
DdlPSFiltro.SelectedValue.ToEntero, FechaI, FechaF, CveProveedor, DdlUsuario.SelectedValue.ToEntero, -1,
|
|
UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, -1, -1, "-1", "-1", -1, -1, 1, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
|
GvComportamientoCompra.DataSource = ObjCompras.DtResultados
|
|
Else
|
|
GvComportamientoCompra.DataSource = Nothing
|
|
End If
|
|
|
|
ObjCompras.Dispose()
|
|
GvComportamientoCompra.DataBind()
|
|
UpDatosComportamientoCompra.Update()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "E V A L U A C I O N "
|
|
Protected Sub LimpiarDatosEvaluacion()
|
|
DtRespuestasEvaluacion = Nothing
|
|
|
|
TxtRS.Text = ""
|
|
TxtSerieFolio.Text = ""
|
|
TxtPS.Text = ""
|
|
TxtCodigoE.Text = ""
|
|
TxtFechaE.Text = Now.ToString("dd/MM/yyyy")
|
|
TxtFirma.Text = ""
|
|
TxtCalificacion.Text = ""
|
|
|
|
UpEvaluacion.Update()
|
|
End Sub
|
|
Protected Sub CargaEvaluacionProveedor()
|
|
LimpiarDatosEvaluacion()
|
|
|
|
Dim ObjProve As New ClsCompProveedores
|
|
If ObjProve.GetEvaluacionesProveedores(-1, Me.CveProveedor, UsuarioActual.CveEmpresa) Then
|
|
GvEvaluaciones.DataSource = ObjProve.DtResultados.FiltraParametros($"Evaluado = 1")
|
|
End If
|
|
If ObjProve.GetProveedoresEvaluacionPreguntas(UsuarioActual.CveEmpresa) Then
|
|
DtPreguntasEvaluacion = ObjProve.DtResultados.Copy()
|
|
End If
|
|
ObjProve.Dispose()
|
|
GvEvaluaciones.DataBind()
|
|
UpEvaluacion.Update()
|
|
UpDatos.Update()
|
|
End Sub
|
|
Protected Sub CargaCompraEvaluacion(CveCompra As Integer)
|
|
If CveCompra > 0 Then
|
|
Dim ObjCompras As New ClsCompras()
|
|
If ObjCompras.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
|
If ObjCompras.DtResultados.Rows.Count > 0 Then
|
|
TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString()
|
|
End If
|
|
End If
|
|
If ObjCompras.GetCompraDetalle(CveCompra) Then
|
|
Dim StrPS As New StringBuilder()
|
|
For Each Row As DataRow In ObjCompras.DtResultados.Rows
|
|
If ObjCompras.DtResultados.Rows.Count > 1 Then
|
|
StrPS.AppendFormat("{0};", Row("PSCodigo"))
|
|
Else
|
|
StrPS.AppendFormat("{0}", Row("PSCodigo"))
|
|
End If
|
|
Next
|
|
TxtPS.Text = StrPS.ToString()
|
|
End If
|
|
ObjCompras.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub CargaPreguntasEvaluacion(CveEvaluacionProveedor As Integer)
|
|
Dim ObjPro As New ClsCompProveedores()
|
|
If ObjPro.GetEvaluacionesProveedoresDetalle(CveEvaluacionProveedor) Then
|
|
DtRespuestasEvaluacion = ObjPro.DtResultados.Copy()
|
|
End If
|
|
ObjPro.Dispose()
|
|
|
|
If DtRespuestasEvaluacion.Rows.Count > 0 AndAlso DtPreguntasEvaluacion.Rows.Count > 0 Then
|
|
GvPreguntas.DataSource = DtPreguntasEvaluacion
|
|
GvPreguntas.DataBind()
|
|
End If
|
|
|
|
End Sub
|
|
Protected Sub LnkVerEvaluacion_Click(sender As Object, e As EventArgs)
|
|
Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
|
CargaEvaluacion(Row)
|
|
RegistraScript("$('#DvEvaluacion').modal('show');")
|
|
End Sub
|
|
Protected Sub LnkDescargarCarta_Click(sender As Object, e As EventArgs)
|
|
Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
|
CargaEvaluacion(Row)
|
|
|
|
Dim Fecha = TxtFechaE.Text.ToDateTime()
|
|
Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX"))
|
|
Dim Obs = TxtObsE.Text.Trim()
|
|
Dim Calificacion = TxtCalificacion.Text.ToEntero()
|
|
Dim Firma = TxtFirma.Text
|
|
|
|
Dim Resultado As String = ""
|
|
|
|
If Calificacion.Contiene(0, 1, 2) Then
|
|
Resultado = "No Satisfactorio"
|
|
ElseIf Calificacion.Contiene(3, 4) Then
|
|
Resultado = "Mejoras"
|
|
ElseIf Calificacion.Contiene(5, 6) Then
|
|
Resultado = "Satisfactorio"
|
|
End If
|
|
|
|
DescargarFormatoCarta(TxtRS.Text, Fecha.Day.ToString(), Mes, Calificacion.ToString(), Resultado)
|
|
End Sub
|
|
Protected Sub LnkDescargarFormatoEvaluacion_Click(sender As Object, e As EventArgs)
|
|
Dim Row As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
|
CargaEvaluacion(Row)
|
|
|
|
Dim Fecha = TxtFechaE.Text.ToDateTime()
|
|
|
|
Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX"))
|
|
Dim Obs = TxtObsE.Text.Trim()
|
|
Dim Calificacion = TxtCalificacion.Text.ToEntero()
|
|
Dim Firma = TxtFirma.Text
|
|
|
|
Dim Resultado As String = ""
|
|
|
|
If Calificacion.Contiene(0, 1, 2) Then
|
|
Resultado = "No Satisfactorio"
|
|
ElseIf Calificacion.Contiene(3, 4) Then
|
|
Resultado = "Mejoras"
|
|
ElseIf Calificacion.Contiene(5, 6) Then
|
|
Resultado = "Satisfactorio"
|
|
End If
|
|
|
|
DescargarFormatoEvaluacion(TxtRS.Text, Fecha.Day.ToString(), Mes, Calificacion.ToString(), Resultado)
|
|
End Sub
|
|
Protected Sub GvPreguntas_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.DBCampo("TipoDato") = "1" Then
|
|
e.Row.CssClass = "Totales"
|
|
e.Row.FCRadioButtonList("RblRespuesta").Visible = False
|
|
End If
|
|
If e.Row.DBCampo("TipoDato") = "2" Then
|
|
Dim CvePregunta = e.Row.DBCampo("CvePreguntaEvaluacion").ToEntero()
|
|
If CvePregunta > 0 AndAlso DtRespuestasEvaluacion IsNot Nothing Then
|
|
Dim Respuesta = DtRespuestasEvaluacion.FiltroPrimeroValor("RespuestaBit", $"CvePreguntaEvaluacion={CvePregunta}")
|
|
e.Row.FCRadioButtonList("RblRespuesta").SelectedValue = Respuesta
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaEvaluacion(Row As GridViewRow)
|
|
LimpiarDatosEvaluacion()
|
|
|
|
Dim CveEvaluacionProveedor = Row.DataKey("CveEvaluacionProveedor").ToEntero()
|
|
Dim CveCompra = Row.DataKey("CveCompra").ToEntero()
|
|
|
|
TxtRS.Text = Row.DataKey("RazonSocial")
|
|
TxtCodigoE.Text = Row.DataKey("Codigo")
|
|
|
|
CargaCompraEvaluacion(CveCompra)
|
|
CargaPreguntasEvaluacion(CveEvaluacionProveedor)
|
|
|
|
TxtObsE.Text = Row.DataKey("Observaciones")
|
|
TxtFechaE.Text = Row.DataKey("FechaEvaluacion").ToDate().ToString("dd/MM/yyyy")
|
|
TxtFirma.Text = Row.DataKey("Firma")
|
|
TxtCalificacion.Text = Row.DataKey("CalificacionFinal")
|
|
|
|
UpEvaluacion.Update()
|
|
End Sub
|
|
Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
|
|
Try
|
|
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
|
|
Dim Documento As String = "CartaProveedor.docx"
|
|
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
|
|
Dim PathDestino As String = PathRoot & "Temp\" & Documento
|
|
|
|
If File.Exists(PathDestino) Then
|
|
File.Delete(PathDestino)
|
|
End If
|
|
|
|
File.Copy(PathSource, PathDestino)
|
|
|
|
Dim ObjCarta As New clsGemBoxDocument(PathDestino)
|
|
ObjCarta.SustituirTags(GetTagsCartaEvaluacion(Proveedor, Dia, Mes, Calificacion, Resultado))
|
|
ObjCarta.GuardarStreamPDF()
|
|
|
|
ImprimirbytesPDF(ObjCarta.GetBytesDocumento(), "Carta a Proveedor.pdf")
|
|
|
|
Catch ex As Exception
|
|
OnError("Ocurrió error al generar el formato", ex)
|
|
End Try
|
|
End Sub
|
|
Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
|
|
Try
|
|
Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
|
|
Dim Documento As String = "FormatoEvaluacionProveedor.docx"
|
|
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
|
|
Dim PathDestino As String = PathRoot & "Temp\" & Documento
|
|
|
|
If File.Exists(PathDestino) Then
|
|
File.Delete(PathDestino)
|
|
End If
|
|
|
|
File.Copy(PathSource, PathDestino)
|
|
|
|
Dim ObjCarta As New clsGemBoxDocument(PathDestino)
|
|
ObjCarta.SustituirTags(GetTagsFormatoEvaluacion())
|
|
ObjCarta.GuardarStreamPDF()
|
|
|
|
ImprimirbytesPDF(ObjCarta.GetBytesDocumento(), "Formato Evaluacion Proveedor.pdf")
|
|
|
|
Catch ex As Exception
|
|
OnError("Ocurrió error al generar el formato", ex)
|
|
End Try
|
|
End Sub
|
|
Private Sub RegisterPostBackControl()
|
|
For Each row As GridViewRow In GvEvaluaciones.Rows
|
|
ScriptManager.GetCurrent(Me).RegisterPostBackControl(row.FCLinkButton("LnkDescargaFormato"))
|
|
ScriptManager.GetCurrent(Me).RegisterPostBackControl(row.FCLinkButton("LnkDescargarCarta"))
|
|
Next
|
|
End Sub
|
|
|
|
Protected Function GetTagsCartaEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) As List(Of TagsDocumentos)
|
|
Dim ListaTagsDocumentost = New List(Of TagsDocumentos)
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Calificacion}}", Calificacion))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Resultado}}", Resultado))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Usuario}}", TxtFirma.Text))
|
|
|
|
Dim MensajeInvitacion As String = "Le invitamos a participar en la implementación de acciones para la mejora de sus procesos."
|
|
|
|
Dim MensajeSatisfactorio As String = ", debido al cumplimiento de los criterios establecidos por Exploraciones Mineras del Desierto, S.A. de C.V"
|
|
Dim MensajeMejoras As String = ", debido a la falta de cumplimiento de los criterios establecidos por Exploraciones Mineras del Desierto, S.A. de C.V. Se realizaron diferentes observaciones de la percepción del servicio, los cuales son:"
|
|
Dim MensajeNoSatisfactorio As String = ", debido a la falta de cumplimiento de los criterios establecidos por Exploraciones Mineras del Desierto, S.A. de C.V"
|
|
|
|
If Resultado = "No Satisfactorio" Then
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{ResultadoTexto}}", MensajeNoSatisfactorio))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Observaciones}}", TxtObsE.Text))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{ResultadoInvitacion}}", MensajeInvitacion))
|
|
ElseIf Resultado = "Mejoras" Then
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{ResultadoTexto}}", MensajeMejoras))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Observaciones}}", TxtObsE.Text))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{ResultadoInvitacion}}", MensajeInvitacion))
|
|
ElseIf Resultado = "Satisfactorio" Then
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{ResultadoTexto}}", MensajeSatisfactorio))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{Observaciones}}", ""))
|
|
ListaTagsDocumentost.Add(New TagsDocumentos("{{ResultadoInvitacion}}", ""))
|
|
End If
|
|
|
|
Return ListaTagsDocumentost
|
|
End Function
|
|
Protected Function GetTagsFormatoEvaluacion() As List(Of TagsDocumentos)
|
|
Dim ListaTagsDocumentos = New List(Of TagsDocumentos)
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{Proveedor}}", TxtRS.Text.Trim()))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{Codigo}}", TxtCodigoE.Text.Trim()))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{Fecha}}", TxtFechaE.Text))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{PS}}", TxtPS.Text.Trim()))
|
|
|
|
Dim IndexP As Integer = 1
|
|
Dim IndexG As Integer = 1
|
|
|
|
For Each Row As GridViewRow In GvPreguntas.Rows
|
|
If Row.RowType = DataControlRowType.DataRow Then
|
|
If Row.DataKey("TipoDato") = "1" Then
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{G" & IndexG & "}}", Row.DataKey("Preguntas")))
|
|
IndexG += 1
|
|
End If
|
|
If Row.DataKey("TipoDato") = "2" Then
|
|
Dim Respuesta As Integer = Row.FCRadioButtonList("RblRespuesta").SelectedValue.ToEntero()
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{P" & IndexP & "}}", Row.DataKey("Preguntas")))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{R1" & IndexP & "}}", If(Respuesta = 1, "X", "")))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{R0" & IndexP & "}}", If(Respuesta = 0, "X", "")))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{RN" & IndexP & "}}", If(Respuesta = -1, "X", "")))
|
|
IndexP += 1
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{Observaciones}}", TxtObsE.Text.Trim()))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{Firma}}", TxtFirma.Text.Trim()))
|
|
ListaTagsDocumentos.Add(New TagsDocumentos("{{Calificacion}}", TxtCalificacion.Text.Trim()))
|
|
|
|
Return ListaTagsDocumentos
|
|
End Function
|
|
#End Region
|
|
|
|
#Region " NOTIFICACION PAGO "
|
|
Private Sub NotificacionPago(CveIE As Integer, CorreoNotificarA As String)
|
|
Dim Param As New List(Of String)
|
|
|
|
Param.Add(CorreoNotificarA) 'Para
|
|
Param.Add("Notificaciones de pago") 'Asunto
|
|
Param.Add(GeneraCorreo(CveIE)) 'Body
|
|
Param.Add(CveIE.ToString) 'CveIE
|
|
'Param.Add(If(ComprobanteIE <> "", String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ComprobanteIE), "")) 'Archivo Adjunto
|
|
|
|
Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
|
|
Hilo.Start(Param)
|
|
End Sub
|
|
|
|
Private Sub MandaCorreo(data As Object)
|
|
Dim Parametros As List(Of String) = DirectCast(data, List(Of String))
|
|
|
|
Dim Mail As New ClsSisMail()
|
|
Dim Para As String = If(Parametros(0) IsNot Nothing, Parametros(0), "")
|
|
Dim Asunto As String = If(Parametros(1) IsNot Nothing, Parametros(1), "")
|
|
Dim Body As String = If(Parametros(2) IsNot Nothing, Parametros(2), "")
|
|
Dim CveIE As Integer = If(Parametros(3) IsNot Nothing, Parametros(3).ToEntero, 0)
|
|
|
|
Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
|
|
If Parametros(4) IsNot Nothing AndAlso Parametros(4) <> "" Then
|
|
ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = Parametros(4).ToString})
|
|
End If
|
|
|
|
If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
|
|
Dim objIE As New ClsBancos
|
|
objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
|
|
objIE.Dispose()
|
|
|
|
TxtCC.Text = ""
|
|
TxtBody.Text = ""
|
|
RegistraScript("$('#ModalDivMail').modal('hide');")
|
|
|
|
|
|
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
|
End If
|
|
End Sub
|
|
|
|
Private Function GeneraCorreo(CveIE As Integer) As String
|
|
Dim strBody As New StringBuilder
|
|
Dim objIE As New ClsBancos
|
|
|
|
If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
|
strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
|
strBody.Append("<head> ")
|
|
strBody.Append(" <style type=""text/css""> ")
|
|
strBody.Append(" body ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" margin:0px; ")
|
|
strBody.Append(" padding:0px 0px 0px 0px; ")
|
|
strBody.Append(" font-family: Verdana, Arial, Helvetica, sans-serif; ")
|
|
strBody.Append(" font-size: 10px; ")
|
|
strBody.Append(" background-color:#F0F0F0; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" a.Texto ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" font-size:11px; ")
|
|
strBody.Append(" background-color:#F7F6F3; ")
|
|
strBody.Append(" text-decoration:none; ")
|
|
strBody.Append(" font-weight:bold; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Texto ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .TextoAlterno ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center; ")
|
|
strBody.Append(" vertical-align:middle; height:20px;")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .BarraIdentidad ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" color:#FFFFFF; ")
|
|
strBody.Append(" background:#F0F0F0; ")
|
|
strBody.Append(" font-weight:bold; ")
|
|
strBody.Append(" font-size:19px; ")
|
|
strBody.Append(" font-style:oblique; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Titulos ")
|
|
strBody.Append(" { ")
|
|
strBody.Append(" background-color: Gray;")
|
|
strBody.Append(" color:White; ")
|
|
strBody.Append(" font-family:Verdana; font-size:12px; text-align:center; ")
|
|
strBody.Append(" vertical-align:middle; font-weight:bold; height:30px; ")
|
|
strBody.Append(" text-decoration:none; ")
|
|
strBody.Append(" } ")
|
|
strBody.Append(" .Verde {color: #00CC00;} ")
|
|
strBody.Append(" .Negro {color: #000000;} ")
|
|
strBody.Append(" .Rojo {color: #FF0000;} ")
|
|
strBody.Append(" </style> ")
|
|
strBody.Append("</head> ")
|
|
strBody.Append("<body> ")
|
|
strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
|
|
strBody.AppendFormat(" <fieldset>")
|
|
strBody.AppendFormat(" <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
|
|
strBody.AppendFormat(" <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
|
|
strBody.AppendFormat(" <tr>")
|
|
strBody.AppendFormat(" <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr>")
|
|
strBody.AppendFormat(" <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr>")
|
|
strBody.AppendFormat(" <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr>")
|
|
strBody.AppendFormat(" <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" </table>")
|
|
strBody.AppendFormat(" </fieldset>")
|
|
strBody.AppendFormat("</div><br/><br/>")
|
|
|
|
strBody.AppendFormat("<div style='width: 600px'>")
|
|
strBody.AppendFormat(" <fieldset>")
|
|
strBody.AppendFormat(" <legend><b> </b></legend>")
|
|
strBody.AppendFormat(" <table class='TextoG' style='width:100%'>")
|
|
|
|
If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
|
|
strBody.Append(" <tr style=""height: 22px""> ")
|
|
strBody.Append(" <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
|
|
strBody.Append(" </tr> ")
|
|
End If
|
|
|
|
If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
|
|
strBody.Append(" <tr style=""height: 22px""> ")
|
|
strBody.Append(" <td>Notificación de transferencia de pago realizada.</td> ")
|
|
strBody.Append(" </tr> ")
|
|
End If
|
|
|
|
strBody.Append(" <tr style=""height: 22px""> ")
|
|
strBody.AppendFormat(" <td> </td> ")
|
|
strBody.Append(" </tr> ")
|
|
strBody.Append(" </table> ")
|
|
strBody.AppendFormat(" </fieldset>")
|
|
strBody.Append(" </div> ")
|
|
|
|
|
|
strBody.AppendFormat("<div style='width: 600px'>")
|
|
strBody.AppendFormat(" <table style='width:100%'>")
|
|
strBody.AppendFormat(" <tr>")
|
|
strBody.AppendFormat(" <td style='vertical-align: top'>")
|
|
strBody.AppendFormat(" <fieldset>")
|
|
strBody.AppendFormat(" <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
|
|
strBody.AppendFormat(" <table width='100%'>")
|
|
strBody.AppendFormat(" <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
|
|
strBody.AppendFormat(" <th scope='col' style='width:150px;'></th>")
|
|
strBody.AppendFormat(" <th scope='col' style='width:450px;'></th>")
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>Movimiento:</td>")
|
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>Banco:</td>")
|
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.Banco)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>Cuenta:</td>")
|
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
|
|
strBody.AppendFormat(" </tr>")
|
|
If objIE.CuentaDepositado.ToString <> "" Then
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>Cuenta Destino:</td>")
|
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
|
|
strBody.AppendFormat(" </tr>")
|
|
End If
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>Fecha:</td>")
|
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>Importe:</td>")
|
|
strBody.AppendFormat(" <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>Observaciones:</td>")
|
|
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.Observaciones)
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td colspan='2'>")
|
|
strBody.AppendFormat(" <hr />")
|
|
strBody.AppendFormat(" </td>")
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" </table>")
|
|
strBody.AppendFormat(" </fieldset>")
|
|
strBody.AppendFormat(" </td>")
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" </table>")
|
|
strBody.AppendFormat("</div>")
|
|
|
|
|
|
'MOVIMIENTOS CHEQUE
|
|
If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
|
|
Dim Textov33 As String = ""
|
|
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
|
|
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
|
|
End If
|
|
|
|
strBody.AppendFormat("<div style='width: 1000px'>")
|
|
strBody.AppendFormat(" <table style='width:1000px'>")
|
|
strBody.AppendFormat(" <tr>")
|
|
strBody.AppendFormat(" <td style='vertical-align: top'>")
|
|
strBody.AppendFormat(" <fieldset>")
|
|
strBody.AppendFormat(" <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
|
|
strBody.AppendFormat(" <table width='1000px'>")
|
|
strBody.AppendFormat(" <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
|
|
strBody.AppendFormat(" <th scope='col' style='width: 10%'>Fecha</th>")
|
|
strBody.AppendFormat(" <th scope='col' style='width: 20%'>Factura</th>")
|
|
strBody.AppendFormat(" <th scope='col' style='width: 20%'>Importe ($)</th>")
|
|
strBody.AppendFormat(" <th scope='col' style='width: 40%'>Folio Fiscal</th>")
|
|
strBody.AppendFormat(" <th scope='col' style='width: 15%'>NC Aplicadas</th>")
|
|
strBody.AppendFormat(" </tr>")
|
|
|
|
|
|
For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
|
|
strBody.AppendFormat(" <td>{0}</td>", dr("SerieFolio").ToString)
|
|
strBody.AppendFormat(" <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
|
|
strBody.AppendFormat(" <td>{0}</td>", dr("FolioFiscal"))
|
|
strBody.AppendFormat(" <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
|
|
strBody.AppendFormat(" </tr>")
|
|
Next
|
|
|
|
|
|
strBody.AppendFormat(" <tr class='Texto'>")
|
|
strBody.AppendFormat(" <td colspan='5'>")
|
|
strBody.AppendFormat(" <hr />")
|
|
strBody.AppendFormat(" </td>")
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" </table>")
|
|
strBody.AppendFormat(" </fieldset>")
|
|
strBody.AppendFormat(" </td>")
|
|
strBody.AppendFormat(" </tr>")
|
|
strBody.AppendFormat(" </table>")
|
|
strBody.AppendFormat("</div>")
|
|
End If
|
|
|
|
strBody.Append(" <div> Favor de no responder a este correo. </div> ")
|
|
|
|
strBody.Append("</body></html>")
|
|
End If
|
|
|
|
objIE.Dispose()
|
|
Return strBody.ToString
|
|
End Function
|
|
|
|
Private Sub BtnSendMail_Click(sender As Object, e As EventArgs) Handles BtnSendMail.Click
|
|
'NotificacionPago(HdnCveIE.Value.ToEntero, Txt)
|
|
Dim ObjMail As New ClsSisMail()
|
|
Dim Body = GeneraCorreo(HdnCveIE.Value.ToEntero)
|
|
|
|
Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail)
|
|
|
|
Dim ObjIE As New ClsBancos()
|
|
Dim ComprobanteIE As String
|
|
If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
If ObjIE.Comprobante <> "" Then
|
|
ComprobanteIE = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
|
|
|
|
If IO.File.Exists(ComprobanteIE) Then
|
|
ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.Ruta = ComprobanteIE.ToString})
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
ObjIE.Dispose()
|
|
|
|
If ObjMail.SendMail(UsuarioActual.Empresa, TxtParaMail.Text.Trim, "Notificaciones de pago", Body, TxtCC.Text.Trim, Displayname:="Notificaciones de pago", Archivos:=ListaArchivos) Then
|
|
'ResultadoMail = 1
|
|
TxtCC.Text = ""
|
|
TxtBody.Text = ""
|
|
RegistraScript("$('#ModalDivMail').modal('hide');")
|
|
Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion)
|
|
Else
|
|
Alert("No se pudo enviar el correo electrónico.", TipoMensaje.MsgError)
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
Protected Sub DdlCveTipoProveedor_SelectedIndexChanged(sender As Object, e As EventArgs)
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(544).ToString = "1" Then
|
|
TxtCodigo.Enabled = True
|
|
TxtCodigo.Text = ""
|
|
|
|
Select Case DdlCveTipoProveedor.SelectedValue
|
|
Case "1"
|
|
GetFolioAut("Pro")
|
|
Case "2"
|
|
GetFolioAut("Acr")
|
|
Case "3"
|
|
GetFolioAut("Amb")
|
|
End Select
|
|
|
|
End If
|
|
End Sub
|
|
Private Sub GetFolioAut(TipoProv As String)
|
|
Dim ObjSub As New ClsSubProyectos
|
|
Dim ObjFolios As New ClsGralFolios()
|
|
Dim CveSubProyectoMatriz As Integer
|
|
|
|
If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
|
|
CveSubProyectoMatriz = ObjSub.DtResultados.FiltroPrimeroValor("CveSubProyecto", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoSucursal = 1").ToEntero
|
|
End If
|
|
|
|
If ObjFolios.GetFolios(TipoProv, UsuarioActual.CveEmpresa) Then
|
|
|
|
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {CveSubProyectoMatriz} And Estado = 'Activo'")
|
|
If DT.Rows.Count > 0 Then
|
|
TxtCodigo.Text = DT.Rows(0)("FActual").ToString
|
|
TxtCodigo.Enabled = False
|
|
Else
|
|
Alert("No tiene registrados Folios Automáticos.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
ObjSub.Dispose()
|
|
ObjFolios.Dispose()
|
|
End Sub
|
|
Protected Sub LblB_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
|
|
|
|
Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
|
|
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "DivProgramado"))
|
|
CargaGVProgramado(CveCompra)
|
|
End Sub
|
|
Private Sub CargaGVProgramado(CveCompra As Integer)
|
|
Dim ObjComp As New ClsCompras
|
|
|
|
If ObjComp.GetCxPProgramado(CveCompra, UsuarioActual.CveEmpresa) Then
|
|
GVProgramado.DataSource = ObjComp.DtResultados
|
|
Else
|
|
GVProgramado.DataSource = Nothing
|
|
End If
|
|
GVProgramado.DataBind()
|
|
ObjComp.Dispose()
|
|
|
|
UpProgramado.Update()
|
|
End Sub
|
|
Protected Sub LnkExportCuentas_Click(sender As Object, e As EventArgs)
|
|
GvBancosCuentas.ExportToExcelG("CuentasBancarias", "Cuentas Bancarias", UsuarioActual, $"Proveedor: {LtlProveedor.Text}")
|
|
End Sub
|
|
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
|
|
'MyBase.VerifyRenderingInServerForm(control)
|
|
|
|
End Sub
|
|
|
|
#Region "P R O V E D O R E S G R I D S I M P R I M I R P D F/Excel"
|
|
Private Sub LnkExportarPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosExcel.Click
|
|
ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepProveedoresPagosBancos")
|
|
End Sub
|
|
Private Sub LinkPDFPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosPDF.Click
|
|
ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepProveedoresPagosBancos")
|
|
End Sub
|
|
|
|
Private Sub LnkCtasBancariass_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasExcel.Click
|
|
ImprimeGridsProveedores("Excel", DTCuentasBancos, "RepProveedoresCtasBancarias")
|
|
End Sub
|
|
Private Sub LinkCtasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasPDF.Click
|
|
ImprimeGridsProveedores("PDF", DTCuentasBancos, "RepProveedoresCtasBancarias")
|
|
End Sub
|
|
|
|
Private Sub LnkExportarHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasExcel.Click
|
|
ImprimeGridsProveedores("Excel", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
|
|
End Sub
|
|
Private Sub LinkPDFHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPDF.Click
|
|
ImprimeGridsProveedores("PDF", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
|
|
End Sub
|
|
|
|
Private Sub LnkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasExcel.Click
|
|
ImprimeGridsProveedores("Excel", DTCxP, "RepProveedoresCxPActivas")
|
|
End Sub
|
|
Private Sub LinkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasPDF.Click
|
|
ImprimeGridsProveedores("PDF", DTCxP, "RepProveedoresCxPActivas")
|
|
End Sub
|
|
|
|
Private Sub LnkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasExcel.Click
|
|
ImprimeGridsProveedores("Excel", DtCxPHistorial, "RepProveedoresComprasPagadas")
|
|
End Sub
|
|
Private Sub LinkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasPDF.Click
|
|
ImprimeGridsProveedores("PDF", DtCxPHistorial, "RepProveedoresComprasPagadas")
|
|
End Sub
|
|
|
|
Private Sub LnkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarExcel.Click
|
|
ImprimeGridsProveedores("Excel", DtAntNC, "RepProveedoresNCxAplicar")
|
|
End Sub
|
|
Private Sub LinkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarPDF.Click
|
|
ImprimeGridsProveedores("PDF", DtAntNC, "RepProveedoresNCxAplicar")
|
|
End Sub
|
|
|
|
Private Sub LnkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialExcel.Click
|
|
ImprimeGridsProveedores("Excel", DtAntNCH, "RepProveedoresNCxAplicar")
|
|
End Sub
|
|
Private Sub LinkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialPDF.Click
|
|
ImprimeGridsProveedores("PDF", DtAntNCH, "RepProveedoresNCxAplicar")
|
|
End Sub
|
|
|
|
Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String)
|
|
If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.Text))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
|
|
Else
|
|
Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs)
|
|
|
|
If ChkPagoElectronicoGrupos.Checked Then
|
|
DVDdlSatBanco.Visible = True
|
|
Else
|
|
DVDdlSatBanco.Visible = False
|
|
End If
|
|
|
|
UpAddBancos.Update()
|
|
End Sub
|
|
|
|
Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
|
|
|
|
If ChkPagoElectronico.Checked Then
|
|
Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la platoforma", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub CargarPagosNoBancarios()
|
|
Dim ObjBancos As New ClsBancos
|
|
If ObjBancos.GetPagosNoBancarios(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
|
|
GvPagosNoBancarios.DataSource = ObjBancos.DtResultados
|
|
GvPagosNoBancarios.DataBind()
|
|
End If
|
|
ObjBancos.Dispose()
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
|