Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -1,181 +1,181 @@
|
|||||||
Option Explicit On
|
Option Explicit On
|
||||||
Option Strict On
|
Option Strict On
|
||||||
|
|
||||||
Imports System.Data
|
Imports System.Data
|
||||||
Imports System.Linq
|
Imports System.Linq
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
|
|
||||||
Partial Class Bancos_CatBancos
|
Partial Class Bancos_CatBancos
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
|
|
||||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
ViewState("Orden") = ""
|
ViewState("Orden") = ""
|
||||||
CargaDatos()
|
CargaDatos()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Sub CargaDatos()
|
Public Sub CargaDatos()
|
||||||
Dim ObjBancos As New ClsBancos
|
Dim ObjBancos As New ClsBancos
|
||||||
If ObjBancos.GetBancos() Then
|
If ObjBancos.GetBancos() Then
|
||||||
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||||
GlobalDTBancos = ObjBancos.DtResultados
|
GlobalDTBancos = ObjBancos.DtResultados
|
||||||
Else
|
Else
|
||||||
Me.GvDatos.DataSource = Nothing
|
Me.GvDatos.DataSource = Nothing
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjBancos.Dispose()
|
ObjBancos.Dispose()
|
||||||
|
|
||||||
If ViewState("Orden").ToString() <> String.Empty Then
|
If ViewState("Orden").ToString() <> String.Empty Then
|
||||||
CargaGrid(ViewState("Orden").ToString())
|
CargaGrid(ViewState("Orden").ToString())
|
||||||
Else
|
Else
|
||||||
CargaGrid("")
|
CargaGrid("")
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||||
Dim ObjBancos As New ClsBancos
|
Dim ObjBancos As New ClsBancos
|
||||||
If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||||
TxtBanco.Text = ""
|
TxtBanco.Text = ""
|
||||||
TxtEjecutivo.Text = ""
|
TxtEjecutivo.Text = ""
|
||||||
TxtTelefono.Text = ""
|
TxtTelefono.Text = ""
|
||||||
Alert("El nuevo Banco se guardó correctamente.", TipoMensaje.MsgInformacion)
|
Alert("El nuevo Banco se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||||
UpTitulos.Update()
|
UpTitulos.Update()
|
||||||
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||||
GlobalDTBancos = ObjBancos.DtResultados
|
GlobalDTBancos = ObjBancos.DtResultados
|
||||||
|
|
||||||
If ViewState("Orden").ToString() <> String.Empty Then
|
If ViewState("Orden").ToString() <> String.Empty Then
|
||||||
CargaGrid(ViewState("Orden").ToString())
|
CargaGrid(ViewState("Orden").ToString())
|
||||||
Else
|
Else
|
||||||
CargaGrid("")
|
CargaGrid("")
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
ObjBancos.Dispose()
|
ObjBancos.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "G V D A T O S"
|
#Region "G V D A T O S"
|
||||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
If e.Row.RowIndex = 0 Then
|
If e.Row.RowIndex = 0 Then
|
||||||
e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO
|
e.Row.Cells(0).Width = Unit.Pixel(156) 'BANCO
|
||||||
e.Row.Cells(1).Width = Unit.Pixel(206) 'EJECUTIVO
|
e.Row.Cells(1).Width = Unit.Pixel(206) 'EJECUTIVO
|
||||||
e.Row.Cells(2).Width = Unit.Pixel(106) 'TELEFONO
|
e.Row.Cells(2).Width = Unit.Pixel(106) 'TELEFONO
|
||||||
e.Row.Cells(3).Width = Unit.Pixel(95) 'ESTATUS
|
e.Row.Cells(3).Width = Unit.Pixel(95) 'ESTATUS
|
||||||
e.Row.Cells(4).Width = Unit.Pixel(95) 'FECHA
|
e.Row.Cells(4).Width = Unit.Pixel(95) 'FECHA
|
||||||
e.Row.Cells(5).Width = Unit.Pixel(100) 'USUARIO
|
e.Row.Cells(5).Width = Unit.Pixel(100) 'USUARIO
|
||||||
e.Row.Cells(6).Width = Unit.Pixel(100) 'EDITAR
|
e.Row.Cells(6).Width = Unit.Pixel(100) 'EDITAR
|
||||||
e.Row.Cells(7).Width = Unit.Pixel(65) 'ELIMINAR
|
e.Row.Cells(7).Width = Unit.Pixel(65) 'ELIMINAR
|
||||||
End If
|
End If
|
||||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||||
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
|
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
|
||||||
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
|
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
|
||||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
|
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
|
||||||
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
|
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
|
||||||
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
|
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||||
Dim ObjBancos As New ClsBancos
|
Dim ObjBancos As New ClsBancos
|
||||||
If ObjBancos.RemoveBancos(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
If ObjBancos.RemoveBancos(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||||
GvDatos.EditIndex = -1
|
GvDatos.EditIndex = -1
|
||||||
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||||
GlobalDTBancos = ObjBancos.DtResultados
|
GlobalDTBancos = ObjBancos.DtResultados
|
||||||
Alert("El Banco se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
Alert("El Banco se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjBancos.Dispose()
|
ObjBancos.Dispose()
|
||||||
|
|
||||||
If ViewState("Orden").ToString() <> String.Empty Then
|
If ViewState("Orden").ToString() <> String.Empty Then
|
||||||
CargaGrid(ViewState("Orden").ToString())
|
CargaGrid(ViewState("Orden").ToString())
|
||||||
Else
|
Else
|
||||||
CargaGrid("")
|
CargaGrid("")
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
|
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
|
||||||
GvDatos.EditIndex = -1
|
GvDatos.EditIndex = -1
|
||||||
If ViewState("Orden").ToString() <> String.Empty Then
|
If ViewState("Orden").ToString() <> String.Empty Then
|
||||||
CargaGrid(ViewState("Orden").ToString())
|
CargaGrid(ViewState("Orden").ToString())
|
||||||
Else
|
Else
|
||||||
CargaGrid("")
|
CargaGrid("")
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
||||||
|
|
||||||
Dim ObjBancos As New ClsBancos
|
Dim ObjBancos As New ClsBancos
|
||||||
|
|
||||||
Dim Banco As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtBanco"), TextBox).Text.Trim
|
Dim Banco As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtBanco"), TextBox).Text.Trim
|
||||||
Dim Ejecutivo As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtEjecutivo"), TextBox).Text.Trim
|
Dim Ejecutivo As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtEjecutivo"), TextBox).Text.Trim
|
||||||
Dim Telefono As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTelefono"), TextBox).Text.Trim
|
Dim Telefono As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTelefono"), TextBox).Text.Trim
|
||||||
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||||
Dim CveBanco As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
Dim CveBanco As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||||
|
|
||||||
|
|
||||||
If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
|
If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then
|
||||||
GvDatos.EditIndex = -1
|
GvDatos.EditIndex = -1
|
||||||
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||||
GlobalDTBancos = ObjBancos.DtResultados
|
GlobalDTBancos = ObjBancos.DtResultados
|
||||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjBancos.Dispose()
|
ObjBancos.Dispose()
|
||||||
|
|
||||||
If ViewState("Orden").ToString() <> String.Empty Then
|
If ViewState("Orden").ToString() <> String.Empty Then
|
||||||
CargaGrid(ViewState("Orden").ToString())
|
CargaGrid(ViewState("Orden").ToString())
|
||||||
Else
|
Else
|
||||||
CargaGrid("")
|
CargaGrid("")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
|
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
|
||||||
GvDatos.EditIndex = e.NewEditIndex
|
GvDatos.EditIndex = e.NewEditIndex
|
||||||
|
|
||||||
If ViewState("Orden").ToString() <> String.Empty Then
|
If ViewState("Orden").ToString() <> String.Empty Then
|
||||||
CargaGrid(ViewState("Orden").ToString())
|
CargaGrid(ViewState("Orden").ToString())
|
||||||
Else
|
Else
|
||||||
CargaGrid("")
|
CargaGrid("")
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "O R D E N A M I E N T O"
|
#Region "O R D E N A M I E N T O"
|
||||||
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||||
Dim Orden As String = ""
|
Dim Orden As String = ""
|
||||||
Dim Campo As String = ""
|
Dim Campo As String = ""
|
||||||
Dim Literal As Literal = Nothing
|
Dim Literal As Literal = Nothing
|
||||||
Const OrdenInicial As String = ""
|
Const OrdenInicial As String = ""
|
||||||
Dim Arg(2) As String
|
Dim Arg(2) As String
|
||||||
|
|
||||||
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||||
Campo = Arg(0)
|
Campo = Arg(0)
|
||||||
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||||
|
|
||||||
If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
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)
|
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||||
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||||
Else
|
Else
|
||||||
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||||
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||||
End If
|
End If
|
||||||
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||||
ViewState("Orden") = Orden
|
ViewState("Orden") = Orden
|
||||||
CargaGrid(Orden)
|
CargaGrid(Orden)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
Private Sub CargaGrid(Orden As String)
|
Private Sub CargaGrid(Orden As String)
|
||||||
If Orden <> String.Empty Then
|
If Orden <> String.Empty Then
|
||||||
Dim DV As New DataView(CType(ViewState("DTBancos"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
Dim DV As New DataView(CType(ViewState("DTBancos"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||||
GvDatos.DataSource = DV.ToTable()
|
GvDatos.DataSource = DV.ToTable()
|
||||||
DV.Dispose()
|
DV.Dispose()
|
||||||
Else
|
Else
|
||||||
GvDatos.DataSource = CType(ViewState("DTBancos"), DataTable)
|
GvDatos.DataSource = CType(ViewState("DTBancos"), DataTable)
|
||||||
End If
|
End If
|
||||||
GvDatos.DataBind()
|
GvDatos.DataBind()
|
||||||
UpDatos.Update()
|
UpDatos.Update()
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
3068
Bancos/IE.aspx
3068
Bancos/IE.aspx
File diff suppressed because it is too large
Load Diff
@@ -424,6 +424,31 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
Private Property CuentaOld As String
|
||||||
|
Get
|
||||||
|
Return CType(ViewState("CuentaOld"), String)
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("CuentaOld") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Private Property FechaOld As String
|
||||||
|
Get
|
||||||
|
Return CType(ViewState("FechaOld"), String)
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("FechaOld") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Property FolioOld As String
|
||||||
|
Get
|
||||||
|
Return CType(ViewState("FolioOld"), String)
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
ViewState("FolioOld") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -1086,6 +1111,10 @@ Partial Class Bancos_IE
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
' DATOS PARA LA BITACORA
|
||||||
|
CuentaOld = LblCuenta.Text
|
||||||
|
FechaOld = TxtFechaDocumento.Text
|
||||||
|
FolioOld = TxtFolio.Text
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@@ -3683,20 +3712,46 @@ Partial Class Bancos_IE
|
|||||||
Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
|
Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
|
||||||
|
|
||||||
Dim IE As New ClsBancos
|
Dim IE As New ClsBancos
|
||||||
|
IE.IniciaTransacSQL()
|
||||||
|
Dim ObjGral As New ClsGenerales
|
||||||
|
ObjGral.IniciaTransacSQL()
|
||||||
Dim FechaAplicado As DateTime? = Nothing
|
Dim FechaAplicado As DateTime? = Nothing
|
||||||
|
Dim OcurrioError As Boolean = False
|
||||||
|
|
||||||
Dim CveCuentaDepositoUpdate As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero = 0, -1, DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero)
|
Dim CveCuentaDepositoUpdate As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero = 0, -1, DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero)
|
||||||
|
|
||||||
If IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text, CveCuentaDeposito:=CveCuentaDepositoUpdate, CveCuenta:=DdlCuenta.SelectedValue.ToEntero,
|
If IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text, CveCuentaDeposito:=CveCuentaDepositoUpdate, CveCuenta:=DdlCuenta.SelectedValue.ToEntero,
|
||||||
Observaciones:=TxtObservaciones.Text) Then
|
Observaciones:=TxtObservaciones.Text) Then
|
||||||
Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion, $"document.location.href=""IE.aspx?CveIE={CveIE}""")
|
'Agrega a la Bitacora
|
||||||
End If
|
If CuentaOld <> DdlCuenta.SelectedItem.Text Then
|
||||||
|
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, DdlCuenta.SelectedItem.Text, CuentaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Cuenta", "Banco", TxtFolio.Text + " / " + Cuenta) Then
|
||||||
|
OcurrioError = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If FechaOld <> TxtFechaDocumento.Text.Trim Then
|
||||||
|
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFechaDocumento.Text.Trim, FechaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Fecha", "Banco", TxtFolio.Text + " / " + Cuenta) Then
|
||||||
|
OcurrioError = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If FolioOld <> TxtFolio.Text.Trim Then
|
||||||
|
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFolio.Text.Trim, FolioOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Número", "Banco", TxtFolio.Text + " / " + Cuenta) Then
|
||||||
|
OcurrioError = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
OcurrioError = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
If OcurrioError Then
|
||||||
|
IE.RollBack()
|
||||||
|
ObjGral.RollBack()
|
||||||
|
Else
|
||||||
|
IE.Commit()
|
||||||
|
ObjGral.Commit()
|
||||||
|
Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion, $"document.location.href=""IE.aspx?CveIE={CveIE}""")
|
||||||
|
End If
|
||||||
IE.Dispose()
|
IE.Dispose()
|
||||||
|
ObjGral.Dispose()
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub ImgUpdateCuentaDeposito_Click(sender As Object, e As ImageClickEventArgs)
|
Protected Sub ImgUpdateCuentaDeposito_Click(sender As Object, e As ImageClickEventArgs)
|
||||||
|
|||||||
37527
Compras/Compras.aspx.vb
37527
Compras/Compras.aspx.vb
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -1,388 +1,388 @@
|
|||||||
Option Explicit On
|
Option Explicit On
|
||||||
Option Strict On
|
Option Strict On
|
||||||
|
|
||||||
Imports System.Data
|
Imports System.Data
|
||||||
Imports Extensiones
|
Imports Extensiones
|
||||||
Imports Microsoft.Reporting.WebForms
|
Imports Microsoft.Reporting.WebForms
|
||||||
|
|
||||||
Partial Class Compras_RepRembolsoComprobaciones
|
Partial Class Compras_RepRembolsoComprobaciones
|
||||||
Inherits ClsPaginas
|
Inherits ClsPaginas
|
||||||
|
|
||||||
#Region "Propiedades"
|
#Region "Propiedades"
|
||||||
Private ReadOnly Property CveCajaChica As Integer
|
Private ReadOnly Property CveCajaChica As Integer
|
||||||
Get
|
Get
|
||||||
Return ViewState("CveCajaChica").ToString.ToEntero
|
Return ViewState("CveCajaChica").ToString.ToEntero
|
||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
Private ReadOnly Property CvePersonal As Integer
|
Private ReadOnly Property CvePersonal As Integer
|
||||||
Get
|
Get
|
||||||
Return ViewState("CvePersonal").ToString.ToEntero
|
Return ViewState("CvePersonal").ToString.ToEntero
|
||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
Private Property CveMoneda As Integer
|
Private Property CveMoneda As Integer
|
||||||
Get
|
Get
|
||||||
Return ViewState("CveMoneda").ToString.ToEntero
|
Return ViewState("CveMoneda").ToString.ToEntero
|
||||||
End Get
|
End Get
|
||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
ViewState("CveMoneda") = value
|
ViewState("CveMoneda") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
Private Property IdCuentaBancaria As Integer
|
Private Property IdCuentaBancaria As Integer
|
||||||
Get
|
Get
|
||||||
Return ViewState("IdCuentaBancaria").ToString.ToEntero
|
Return ViewState("IdCuentaBancaria").ToString.ToEntero
|
||||||
End Get
|
End Get
|
||||||
Set(value As Integer)
|
Set(value As Integer)
|
||||||
ViewState("IdCuentaBancaria") = value
|
ViewState("IdCuentaBancaria") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
Private Property NumeroReembolso As String
|
Private Property NumeroReembolso As String
|
||||||
Get
|
Get
|
||||||
NumeroReembolso = ViewState("NumeroReembolso").ToString
|
NumeroReembolso = ViewState("NumeroReembolso").ToString
|
||||||
End Get
|
End Get
|
||||||
Set(value As String)
|
Set(value As String)
|
||||||
ViewState("NumeroReembolso") = value
|
ViewState("NumeroReembolso") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
Private Property DtDatos As DataTable
|
Private Property DtDatos As DataTable
|
||||||
Get
|
Get
|
||||||
DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
|
DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
|
||||||
End Get
|
End Get
|
||||||
|
|
||||||
Set(ByVal value As DataTable)
|
Set(ByVal value As DataTable)
|
||||||
ViewState("DtDatos") = value
|
ViewState("DtDatos") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
Private Property DtCheques As DataTable
|
Private Property DtCheques As DataTable
|
||||||
Get
|
Get
|
||||||
Return CType(ViewState("DtCheques"), DataTable)
|
Return CType(ViewState("DtCheques"), DataTable)
|
||||||
End Get
|
End Get
|
||||||
Set(value As DataTable)
|
Set(value As DataTable)
|
||||||
ViewState("DtCheques") = value
|
ViewState("DtCheques") = value
|
||||||
End Set
|
End Set
|
||||||
End Property
|
End Property
|
||||||
#End Region
|
#End Region
|
||||||
Private Sub Compras_RepRembolsoComprobaciones_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Private Sub Compras_RepRembolsoComprobaciones_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
If Not Page.IsPostBack Then
|
If Not Page.IsPostBack Then
|
||||||
|
|
||||||
ViewState("CveMoneda") = 1
|
ViewState("CveMoneda") = 1
|
||||||
|
|
||||||
'Cargar Filtros
|
'Cargar Filtros
|
||||||
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
|
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
|
||||||
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
|
dt = dt.FiltraParametros(String.Format("CveTipoCuenta = 1")) 'caja chica = 1
|
||||||
DdlCajaChica.DataSource = dt
|
DdlCajaChica.DataSource = dt
|
||||||
DdlCajaChica.DataBind()
|
DdlCajaChica.DataBind()
|
||||||
|
|
||||||
Dim ObjPersonal As New ClsRH
|
Dim ObjPersonal As New ClsRH
|
||||||
ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
|
ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
|
||||||
DdlPersonal.DataSource = ObjPersonal.DtResultados
|
DdlPersonal.DataSource = ObjPersonal.DtResultados
|
||||||
ObjPersonal.Dispose()
|
ObjPersonal.Dispose()
|
||||||
DdlPersonal.DataBind()
|
DdlPersonal.DataBind()
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub DdlTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
|
Protected Sub DdlTipoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||||
ViewState("CveCajaChica") = -2
|
ViewState("CveCajaChica") = -2
|
||||||
ViewState("CvePersonal") = -2
|
ViewState("CvePersonal") = -2
|
||||||
|
|
||||||
LtTituloPago.Text = ""
|
LtTituloPago.Text = ""
|
||||||
|
|
||||||
If DdlTipoPago.SelectedValue = "1" Then
|
If DdlTipoPago.SelectedValue = "1" Then
|
||||||
DdlPersonal.Visible = True
|
DdlPersonal.Visible = True
|
||||||
DdlPersonal.SelectedValue = "-2"
|
DdlPersonal.SelectedValue = "-2"
|
||||||
LtTituloPago.Text = "F / E:"
|
LtTituloPago.Text = "F / E:"
|
||||||
|
|
||||||
'Valida Proceso 120 para ROL Administrador de obra - para FyE solo puede ver los del UsuarioActual
|
'Valida Proceso 120 para ROL Administrador de obra - para FyE solo puede ver los del UsuarioActual
|
||||||
If UsuarioActual.TienePermisoProceso(120) Then
|
If UsuarioActual.TienePermisoProceso(120) Then
|
||||||
If UsuarioActual.CvePersonal > 0 Then
|
If UsuarioActual.CvePersonal > 0 Then
|
||||||
DdlPersonal.SelectedValue = UsuarioActual.CvePersonal.ToString
|
DdlPersonal.SelectedValue = UsuarioActual.CvePersonal.ToString
|
||||||
ViewState("CvePersonal") = UsuarioActual.CvePersonal
|
ViewState("CvePersonal") = UsuarioActual.CvePersonal
|
||||||
End If
|
End If
|
||||||
DdlPersonal.Enabled = False
|
DdlPersonal.Enabled = False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Else
|
Else
|
||||||
DdlPersonal.Visible = False
|
DdlPersonal.Visible = False
|
||||||
DdlPersonal.SelectedValue = "-2"
|
DdlPersonal.SelectedValue = "-2"
|
||||||
|
|
||||||
DdlPersonal.Enabled = True
|
DdlPersonal.Enabled = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If DdlTipoPago.SelectedValue = "2" Then
|
If DdlTipoPago.SelectedValue = "2" Then
|
||||||
DdlCajaChica.Visible = True
|
DdlCajaChica.Visible = True
|
||||||
DdlCajaChica.SelectedValue = "-2"
|
DdlCajaChica.SelectedValue = "-2"
|
||||||
LtTituloPago.Text = "Caja Chica:"
|
LtTituloPago.Text = "Caja Chica:"
|
||||||
Else
|
Else
|
||||||
DdlCajaChica.Visible = False
|
DdlCajaChica.Visible = False
|
||||||
DdlCajaChica.SelectedValue = "-2"
|
DdlCajaChica.SelectedValue = "-2"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonal.SelectedIndexChanged
|
Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonal.SelectedIndexChanged
|
||||||
ViewState("CvePersonal") = DdlPersonal.SelectedValue
|
ViewState("CvePersonal") = DdlPersonal.SelectedValue
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub DdlCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCajaChica.SelectedIndexChanged
|
Protected Sub DdlCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCajaChica.SelectedIndexChanged
|
||||||
ViewState("CveCajaChica") = DdlCajaChica.SelectedValue
|
ViewState("CveCajaChica") = DdlCajaChica.SelectedValue
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
|
Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound
|
||||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||||
If e.Row.RowIndex = 0 Then
|
If e.Row.RowIndex = 0 Then
|
||||||
e.Row.BackColor = Drawing.Color.LightGray
|
e.Row.BackColor = Drawing.Color.LightGray
|
||||||
End If
|
End If
|
||||||
'If e.Row.RowIndex = 1 Then
|
'If e.Row.RowIndex = 1 Then
|
||||||
' e.Row.Cells(0).Width = Unit.Pixel(100)
|
' e.Row.Cells(0).Width = Unit.Pixel(100)
|
||||||
' e.Row.Cells(1).Width = Unit.Pixel(300)
|
' e.Row.Cells(1).Width = Unit.Pixel(300)
|
||||||
' e.Row.Cells(2).Width = Unit.Pixel(70)
|
' e.Row.Cells(2).Width = Unit.Pixel(70)
|
||||||
' e.Row.Cells(3).Width = Unit.Pixel(70)
|
' e.Row.Cells(3).Width = Unit.Pixel(70)
|
||||||
' e.Row.Cells(4).Width = Unit.Pixel(80)
|
' e.Row.Cells(4).Width = Unit.Pixel(80)
|
||||||
' e.Row.Cells(5).Width = Unit.Pixel(40)
|
' e.Row.Cells(5).Width = Unit.Pixel(40)
|
||||||
' e.Row.Cells(6).Width = Unit.Pixel(60)
|
' e.Row.Cells(6).Width = Unit.Pixel(60)
|
||||||
' e.Row.Cells(7).Width = Unit.Pixel(60)
|
' e.Row.Cells(7).Width = Unit.Pixel(60)
|
||||||
'End If
|
'End If
|
||||||
|
|
||||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||||
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
||||||
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
||||||
|
|
||||||
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(7).ForeColor = Drawing.Color.Red
|
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(7).ForeColor = Drawing.Color.Red
|
||||||
If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxP" Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
|
If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxP" Then e.Row.Cells(5).ForeColor = Drawing.Color.Red
|
||||||
If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
|
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("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
|
||||||
If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
|
If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
|
||||||
If Not e.Row.DBCampo("IdPoliza").ToEntero > 0 Then e.Row.Cells(13).Text = ""
|
If Not e.Row.DBCampo("IdPoliza").ToEntero > 0 Then e.Row.Cells(13).Text = ""
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub LbkUnificar_Click(sender As Object, e As EventArgs) Handles LbkUnificar.Click
|
Private Sub LbkUnificar_Click(sender As Object, e As EventArgs) Handles LbkUnificar.Click
|
||||||
Dim ObjComp As New ClsCompras()
|
Dim ObjComp As New ClsCompras()
|
||||||
Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
|
Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
|
||||||
Dim ObjAC As ClsContPAQi = Nothing
|
Dim ObjAC As ClsContPAQi = Nothing
|
||||||
If UsuarioActual.Empresa.UsaAC Then
|
If UsuarioActual.Empresa.UsaContabilidad Then
|
||||||
ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
|
ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||||
ObjAC.IniciaTransacSQL()
|
ObjAC.IniciaTransacSQL()
|
||||||
End If
|
End If
|
||||||
Dim TieneError = False
|
Dim TieneError = False
|
||||||
Dim CvePrePoliza As Integer = 0
|
Dim CvePrePoliza As Integer = 0
|
||||||
Dim IdPoliza As Integer = 0
|
Dim IdPoliza As Integer = 0
|
||||||
Dim Msg As New StringBuilder
|
Dim Msg As New StringBuilder
|
||||||
|
|
||||||
CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
|
CvePrePoliza = ObjMov.AddPrePolizas("Compras/Registrar", 1, DtDatos(0)("Original").ToString.ToDecimal, DtDatos(0)("Original").ToString.ToDecimal, CveMoneda, TxtFechaUnificacion.Text.Trim.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
|
||||||
|
|
||||||
If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then
|
If CvePrePoliza > 0 AndAlso DdlPersonal.SelectedValue.ToEntero > 0 Then
|
||||||
If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
|
If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, DdlPersonal.SelectedValue.ToEntero, -1, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
|
||||||
TieneError = True
|
TieneError = True
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If CvePrePoliza > 0 AndAlso DdlCajaChica.SelectedValue.ToEntero > 0 Then
|
If CvePrePoliza > 0 AndAlso DdlCajaChica.SelectedValue.ToEntero > 0 Then
|
||||||
If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, -1, DdlCajaChica.SelectedValue.ToEntero, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
|
If Not ObjComp.UnificarComprasPersonal(CvePrePoliza, -1, DdlCajaChica.SelectedValue.ToEntero, TxtNumeroReembolso.Text, UsuarioActual.CveEmpresa) Then
|
||||||
TieneError = True
|
TieneError = True
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
TieneError = True
|
TieneError = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
|
If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
|
||||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||||
GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||||
TieneError = True
|
TieneError = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not TieneError Then
|
If Not TieneError Then
|
||||||
Msg.AppendFormat("Se unificaron todas las compras con éxito")
|
Msg.AppendFormat("Se unificaron todas las compras con éxito")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
|
If UsuarioActual.Empresa.UsaContabilidad AndAlso Not TieneError Then
|
||||||
If ObjAC Is Nothing Then
|
If ObjAC Is Nothing Then
|
||||||
TieneError = True
|
TieneError = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If Not TieneError Then
|
If Not TieneError Then
|
||||||
If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
|
If Not ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
|
||||||
TieneError = True
|
TieneError = True
|
||||||
Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
|
Alert($"Ocurrio un error al contabilizar {ObjMov.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
|
||||||
Else
|
Else
|
||||||
IdPoliza = ObjMov.ContaIdPoliza
|
IdPoliza = ObjMov.ContaIdPoliza
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If IdPoliza > 0 AndAlso Not TieneError Then
|
If IdPoliza > 0 AndAlso Not TieneError Then
|
||||||
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
|
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If Not TieneError Then
|
If Not TieneError Then
|
||||||
ObjComp.Commit()
|
ObjComp.Commit()
|
||||||
If ObjAC IsNot Nothing Then ObjAC.Commit()
|
If ObjAC IsNot Nothing Then ObjAC.Commit()
|
||||||
Alert(Msg.ToString, TipoMensaje.MsgInformacion)
|
Alert(Msg.ToString, TipoMensaje.MsgInformacion)
|
||||||
Else
|
Else
|
||||||
ObjComp.RollBack()
|
ObjComp.RollBack()
|
||||||
If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
If ObjAC IsNot Nothing Then ObjAC.RollBack()
|
||||||
Alert("Ocurrió un error al unificar las compras", TipoMensaje.MsgAdvertencia)
|
Alert("Ocurrió un error al unificar las compras", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjComp.Dispose()
|
ObjComp.Dispose()
|
||||||
ObjMov.Dispose()
|
ObjMov.Dispose()
|
||||||
If ObjAC IsNot Nothing Then ObjAC.Dispose()
|
If ObjAC IsNot Nothing Then ObjAC.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region " CARGA DATOS "
|
#Region " CARGA DATOS "
|
||||||
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
||||||
CargaCxP()
|
CargaCxP()
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub CargaDatos(tCveIE As Integer)
|
Private Sub CargaDatos(tCveIE As Integer)
|
||||||
Dim ObjIE As New ClsBancos()
|
Dim ObjIE As New ClsBancos()
|
||||||
|
|
||||||
If ObjIE.GetBancosIE(tCveIE, UsuarioActual.CveEmpresa) Then
|
If ObjIE.GetBancosIE(tCveIE, UsuarioActual.CveEmpresa) Then
|
||||||
If ObjIE.DtResultados.Rows.Count > 0 Then
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||||
|
|
||||||
Else
|
Else
|
||||||
Alert("El Documento solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
Alert("El Documento solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
ObjIE.Dispose()
|
ObjIE.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub CargaCxP()
|
Protected Sub CargaCxP()
|
||||||
Dim ObjMovtos As New ClsMovimientos
|
Dim ObjMovtos As New ClsMovimientos
|
||||||
|
|
||||||
GvCxP.Visible = True
|
GvCxP.Visible = True
|
||||||
|
|
||||||
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim))
|
ObjMovtos.GetCxPPersonalCajaChica(UsuarioActual.CveEmpresa, CvePersonal, CveCajaChica, If(TxtNumeroReembolso.Text.Trim = "", "-1", TxtNumeroReembolso.Text.Trim))
|
||||||
DtDatos = ObjMovtos.DtResultados
|
DtDatos = ObjMovtos.DtResultados
|
||||||
GvCxP.DataSource = DtDatos
|
GvCxP.DataSource = DtDatos
|
||||||
|
|
||||||
'cargo si tiene cheques pendientes sin amortizar
|
'cargo si tiene cheques pendientes sin amortizar
|
||||||
If CvePersonal > 0 Then
|
If CvePersonal > 0 Then
|
||||||
If DtDatos.Rows.Count > 0 AndAlso TxtNumeroReembolso.Text.Trim <> "" Then
|
If DtDatos.Rows.Count > 0 AndAlso TxtNumeroReembolso.Text.Trim <> "" Then
|
||||||
TxtConcepto.Text = $"{DdlPersonal.SelectedItem} R#{TxtNumeroReembolso.Text} ${DtDatos(0)("Original").ToString.FormatoNumero}"
|
TxtConcepto.Text = $"{DdlPersonal.SelectedItem} R#{TxtNumeroReembolso.Text} ${DtDatos(0)("Original").ToString.FormatoNumero}"
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa = 119 Then
|
If UsuarioActual.CveEmpresa = 119 Then
|
||||||
divUnificar.Visible = True
|
divUnificar.Visible = True
|
||||||
If DtDatos.Rows.Count > 1 Then TxtFechaUnificacion.Text = DtDatos(1)("FechaCompra").ToString.ToDate.ToShortDateString
|
If DtDatos.Rows.Count > 1 Then TxtFechaUnificacion.Text = DtDatos(1)("FechaCompra").ToString.ToDate.ToShortDateString
|
||||||
End If
|
End If
|
||||||
CargaEgresosSinComprobar()
|
CargaEgresosSinComprobar()
|
||||||
Else
|
Else
|
||||||
If UsuarioActual.CveEmpresa = 119 Then divUnificar.Visible = False
|
If UsuarioActual.CveEmpresa = 119 Then divUnificar.Visible = False
|
||||||
End If
|
End If
|
||||||
'ObjMovtos.GetEgresosSinComprobarPersonalDetalle(CvePersonal, UsuarioActual.CveEmpresa)
|
'ObjMovtos.GetEgresosSinComprobarPersonalDetalle(CvePersonal, UsuarioActual.CveEmpresa)
|
||||||
Else
|
Else
|
||||||
If UsuarioActual.CveEmpresa = 119 Then
|
If UsuarioActual.CveEmpresa = 119 Then
|
||||||
divUnificar.Visible = True
|
divUnificar.Visible = True
|
||||||
If DtDatos.Rows.Count > 1 Then TxtFechaUnificacion.Text = DtDatos(1)("FechaCompra").ToString.ToDate.ToShortDateString
|
If DtDatos.Rows.Count > 1 Then TxtFechaUnificacion.Text = DtDatos(1)("FechaCompra").ToString.ToDate.ToShortDateString
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa = 119 AndAlso CveCajaChica > 0 AndAlso DtDatos.Rows.Count > 0 AndAlso TxtNumeroReembolso.Text.Trim <> "" Then
|
If UsuarioActual.CveEmpresa = 119 AndAlso CveCajaChica > 0 AndAlso DtDatos.Rows.Count > 0 AndAlso TxtNumeroReembolso.Text.Trim <> "" Then
|
||||||
TxtConcepto.Text = $"{DdlCajaChica.SelectedItem} R#{TxtNumeroReembolso.Text} ${DtDatos(0)("Original").ToString.FormatoNumero}"
|
TxtConcepto.Text = $"{DdlCajaChica.SelectedItem} R#{TxtNumeroReembolso.Text} ${DtDatos(0)("Original").ToString.FormatoNumero}"
|
||||||
|
|
||||||
divUnificar.Visible = True
|
divUnificar.Visible = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjMovtos.Dispose()
|
ObjMovtos.Dispose()
|
||||||
GvCxP.DataBind()
|
GvCxP.DataBind()
|
||||||
|
|
||||||
LnkImprimir.Visible = True
|
LnkImprimir.Visible = True
|
||||||
NumeroReembolso = TxtNumeroReembolso.Text
|
NumeroReembolso = TxtNumeroReembolso.Text
|
||||||
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
|
||||||
If NumeroReembolso <> "" AndAlso CvePersonal > 0 AndAlso DtDatos.MAX("CvePrePolizaComprobacionSinBancos").ToEntero > 0 Then
|
If NumeroReembolso <> "" AndAlso CvePersonal > 0 AndAlso DtDatos.MAX("CvePrePolizaComprobacionSinBancos").ToEntero > 0 Then
|
||||||
DivVincularEgreso.Visible = True
|
DivVincularEgreso.Visible = True
|
||||||
Else
|
Else
|
||||||
DivVincularEgreso.Visible = False
|
DivVincularEgreso.Visible = False
|
||||||
End If
|
End If
|
||||||
If DtDatos.MAX("IdPoliza").ToEntero > 0 Then
|
If DtDatos.MAX("IdPoliza").ToEntero > 0 Then
|
||||||
LbkUnificar.Visible = False
|
LbkUnificar.Visible = False
|
||||||
Else
|
Else
|
||||||
LbkUnificar.Visible = True
|
LbkUnificar.Visible = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
UpAcciones.Update()
|
UpAcciones.Update()
|
||||||
|
|
||||||
UPCompras.Update()
|
UPCompras.Update()
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
#Region "PDF"
|
#Region "PDF"
|
||||||
Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
|
Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
|
||||||
Imprimir("PDF")
|
Imprimir("PDF")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
||||||
Imprimir("EXCEL")
|
Imprimir("EXCEL")
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Imprimir(Formato As String)
|
Private Sub Imprimir(Formato As String)
|
||||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
|
||||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", 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 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)
|
Dim params As New List(Of ReportParameter)
|
||||||
|
|
||||||
If Archivo.Exists Then
|
If Archivo.Exists Then
|
||||||
params.Add(New ReportParameter("Numero", NumeroReembolso))
|
params.Add(New ReportParameter("Numero", NumeroReembolso))
|
||||||
params.Add(New ReportParameter("Anio", DtDatos.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
|
params.Add(New ReportParameter("Anio", DtDatos.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
|
||||||
params.Add(New ReportParameter("Nombre", DtDatos.MAX("SubProyecto")))
|
params.Add(New ReportParameter("Nombre", DtDatos.MAX("SubProyecto")))
|
||||||
params.Add(New ReportParameter("Fecha", Now.Date.ToString))
|
params.Add(New ReportParameter("Fecha", Now.Date.ToString))
|
||||||
params.Add(New ReportParameter("Elaboro", ""))
|
params.Add(New ReportParameter("Elaboro", ""))
|
||||||
params.Add(New ReportParameter("Autorizo", ""))
|
params.Add(New ReportParameter("Autorizo", ""))
|
||||||
params.Add(New ReportParameter("ElaboroPuesto", ""))
|
params.Add(New ReportParameter("ElaboroPuesto", ""))
|
||||||
params.Add(New ReportParameter("AutorizoPuesto", ""))
|
params.Add(New ReportParameter("AutorizoPuesto", ""))
|
||||||
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtDatos.FiltraParametros("CveCompra > 0"), params, "Reembolso", RDSName:="DsCompras")
|
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtDatos.FiltraParametros("CveCompra > 0"), params, "Reembolso", RDSName:="DsCompras")
|
||||||
Else
|
Else
|
||||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
||||||
|
|
||||||
params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.Text)))
|
params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.Text)))
|
||||||
|
|
||||||
If Imagen.Exists Then
|
If Imagen.Exists Then
|
||||||
params.Add(New ReportParameter("LogoPath", logouri))
|
params.Add(New ReportParameter("LogoPath", logouri))
|
||||||
Else
|
Else
|
||||||
params.Add(New ReportParameter("LogoPath", ""))
|
params.Add(New ReportParameter("LogoPath", ""))
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtDatos, params, "RepRembolsosComprobaciones", Formato:=Formato)
|
ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtDatos, params, "RepRembolsosComprobaciones", Formato:=Formato)
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
Private Sub CargaEgresosSinComprobar()
|
Private Sub CargaEgresosSinComprobar()
|
||||||
If CvePersonal > 0 Then
|
If CvePersonal > 0 Then
|
||||||
DdlCheque.Items.Clear()
|
DdlCheque.Items.Clear()
|
||||||
Dim ObjMov As New ClsMovimientos
|
Dim ObjMov As New ClsMovimientos
|
||||||
If ObjMov.GetEgresosSinComprobarPersonalDetalle(CvePersonal, UsuarioActual.CveEmpresa) Then
|
If ObjMov.GetEgresosSinComprobarPersonalDetalle(CvePersonal, UsuarioActual.CveEmpresa) Then
|
||||||
DdlCheque.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0", "FechaDocumento, FolioFecha")
|
DdlCheque.DataSource = ObjMov.DtResultados.FiltraParametros("CveIE > 0", "FechaDocumento, FolioFecha")
|
||||||
DdlCheque.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
DdlCheque.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||||
End If
|
End If
|
||||||
ObjMov.Dispose()
|
ObjMov.Dispose()
|
||||||
DdlCheque.DataBind()
|
DdlCheque.DataBind()
|
||||||
UPCompras.Update()
|
UPCompras.Update()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
Protected Sub BtnVincularEgreso_Click(sender As Object, e As EventArgs)
|
Protected Sub BtnVincularEgreso_Click(sender As Object, e As EventArgs)
|
||||||
If Not DdlCheque.SelectedValue.ToEntero > 0 Then
|
If Not DdlCheque.SelectedValue.ToEntero > 0 Then
|
||||||
Alert("Tiene que tener seleccionado un egreso sin comprobar", TipoMensaje.MsgAdvertencia)
|
Alert("Tiene que tener seleccionado un egreso sin comprobar", TipoMensaje.MsgAdvertencia)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim ObjIE As New ClsBancos
|
Dim ObjIE As New ClsBancos
|
||||||
If ObjIE.UpdateComprobacionSinBancos(DdlCheque.SelectedValue.ToEntero, DtDatos.MAX("CvePrePolizaComprobacionSinBancos").ToEntero,
|
If ObjIE.UpdateComprobacionSinBancos(DdlCheque.SelectedValue.ToEntero, DtDatos.MAX("CvePrePolizaComprobacionSinBancos").ToEntero,
|
||||||
CvePersonal, UsuarioActual.CveEmpresa) Then
|
CvePersonal, UsuarioActual.CveEmpresa) Then
|
||||||
Alert("Vinculado correctamente")
|
Alert("Vinculado correctamente")
|
||||||
DdlCheque.SelectedIndex = 0
|
DdlCheque.SelectedIndex = 0
|
||||||
CargaEgresosSinComprobar()
|
CargaEgresosSinComprobar()
|
||||||
End If
|
End If
|
||||||
ObjIE.Dispose()
|
ObjIE.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -122,7 +122,15 @@ Partial Class General_SaldosIniciales
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
If RblFormato.SelectedValue = "1" Then
|
If RblFormato.SelectedValue = "1" Then
|
||||||
If Not dt.Columns(14).ColumnName = "Es distribuidor" Then
|
If Not dt.Columns(14).ColumnName = "Vendedor" Then
|
||||||
|
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(15).ColumnName = "Clasificación" Then
|
||||||
|
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not dt.Columns(16).ColumnName = "Es distribuidor" Then
|
||||||
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
Alert("El nombre de la catorceava columna debe ser 'Es distribuidor'. Favor de corregirlo", TipoMensaje.MsgError)
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
@@ -723,7 +731,12 @@ Partial Class General_SaldosIniciales
|
|||||||
Dim Telefono As String = Row("Teléfono").ToString
|
Dim Telefono As String = Row("Teléfono").ToString
|
||||||
Dim Contacto As String = Row("Contacto").ToString
|
Dim Contacto As String = Row("Contacto").ToString
|
||||||
Dim CelularContacto As String = Row("Celular Contacto").ToString
|
Dim CelularContacto As String = Row("Celular Contacto").ToString
|
||||||
|
Dim Vendedor As String = Row("Vendedor").ToString
|
||||||
|
Dim Clasificacion As String = Row("Clasificación").ToString
|
||||||
Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
|
Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
|
||||||
|
|
||||||
|
Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
|
||||||
|
Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
|
||||||
Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString = "si", True, False)
|
Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString = "si", True, False)
|
||||||
|
|
||||||
If CveCliente > 0 Then
|
If CveCliente > 0 Then
|
||||||
@@ -736,8 +749,8 @@ Partial Class General_SaldosIniciales
|
|||||||
' Exit For
|
' Exit For
|
||||||
'End If
|
'End If
|
||||||
Else
|
Else
|
||||||
If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", "", Contacto, "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, -1,
|
If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", "", Contacto, "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, -1, -1,
|
||||||
"-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor) Then
|
"-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", Codigo, 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación) Then
|
||||||
ErrorClientes = True
|
ErrorClientes = True
|
||||||
RFC.GuardaLog
|
RFC.GuardaLog
|
||||||
Exit For
|
Exit For
|
||||||
|
|||||||
6958
Ventas/PV.aspx
6958
Ventas/PV.aspx
File diff suppressed because it is too large
Load Diff
10867
Ventas/PV.aspx.vb
10867
Ventas/PV.aspx.vb
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user