Case 5 actualización
This commit is contained in:
Rakcsle Supertramp
@@ -9518,15 +9518,15 @@ Partial Class Compras_Compras
|
||||
Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
|
||||
|
||||
Select Case ConceptoContable
|
||||
Case 5
|
||||
IdCtaContable = 1244
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
IdCtaContable = 1243
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
'Case 5
|
||||
' IdCtaContable = 1244
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' IdCtaContable = 1243
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
Case 6
|
||||
Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
|
||||
Dim ConceptoPersonal As String = "", Concepto As String = ""
|
||||
@@ -9815,11 +9815,11 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CargaXML"
|
||||
|
||||
|
||||
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
||||
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||
If o Is Nothing Then
|
||||
@@ -10024,10 +10024,10 @@ Partial Class Compras_Compras
|
||||
'End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "GV'S"
|
||||
Protected Sub GVAnticipos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAnticipos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -10292,9 +10292,9 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "METODOS"
|
||||
Private Sub GeneraGlobalDT(data As Object)
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
@@ -10727,66 +10727,66 @@ Partial Class Compras_Compras
|
||||
|
||||
CargarUMAlias()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALGO DE AF QUE NUNCA SE USABA "
|
||||
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
|
||||
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
|
||||
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
|
||||
'carga la OC
|
||||
Dim CveOC As Integer = -1
|
||||
@@ -10823,45 +10823,45 @@ Partial Class Compras_Compras
|
||||
|
||||
'UpnAF.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Estimaciones"
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
Private Sub CargaGvInv()
|
||||
|
||||
@@ -11178,11 +11178,11 @@ Partial Class Compras_Compras
|
||||
|
||||
UpAlmacenEvidencia.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
|
||||
|
||||
|
||||
Private Sub CargaTipoTransaccion()
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
|
||||
DdlTipoTransaccion.DataBind()
|
||||
@@ -11203,52 +11203,52 @@ Partial Class Compras_Compras
|
||||
DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1"))
|
||||
DdlCuentaCaja.DataBind()
|
||||
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FINANCIAMIENTO - AC"
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - PERSONAL"
|
||||
Private Sub CargaGvPersonal()
|
||||
GvPersonal.DataSource = TmpDT
|
||||
@@ -11419,13 +11419,13 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - ACTIVOS FIJOS -AF"
|
||||
Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
|
||||
Tab.ActiveTabIndex = 3
|
||||
@@ -11655,58 +11655,58 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Protected Sub BtnAFMedida_Click(sender As Object, e As EventArgs)
|
||||
TmpDT(HdnIndexTmpDT.Value.ToEntero)("AFMedida") = HdnTxtAFMedida.Value
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "C O N T R A T O S"
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB ALMACEN - INVENTARIOS ISRAEL PIÑA - 5 FEBRERO 2015"
|
||||
|
||||
|
||||
Protected Sub CalculaTotalPorDevengar()
|
||||
Dim total = TxtTotal.Text.ToDouble
|
||||
For Each Gvr As GridViewRow In GvInv.Rows
|
||||
@@ -11720,10 +11720,10 @@ Partial Class Compras_Compras
|
||||
|
||||
Protected Sub CambiaTotalDevengar(sender As Object, e As EventArgs)
|
||||
CalculaTotalPorDevengar()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " AJUSTA IMPORTES "
|
||||
Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
|
||||
'Dim TempSubTotal = TxtSubTotal.Text.ToDouble
|
||||
@@ -11822,9 +11822,9 @@ Partial Class Compras_Compras
|
||||
GvPS.DataBind()
|
||||
UpPS.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "DDL'S"
|
||||
Protected Sub DdlCredito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCredito.SelectedIndexChanged
|
||||
CargaCreditosDetalle(DdlCredito.SelectedValue.ToEntero)
|
||||
@@ -12053,9 +12053,9 @@ Partial Class Compras_Compras
|
||||
RVDocumentoImporteFE.MaximumValue = saldo.ToString
|
||||
UPCondicionesPago.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CHK'S"
|
||||
Protected Sub RBLCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCajaChica.SelectedIndexChanged
|
||||
Select Case RBLCajaChica.SelectedValue
|
||||
@@ -12277,9 +12277,9 @@ Partial Class Compras_Compras
|
||||
ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
|
||||
TrRembolsoCajaChica.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "ARMONIZACION CONTABLE - AC - SIMPLIFICADO"
|
||||
Private Sub CargaPresupuestosEgresos(Optional CargaTodo As Boolean = True)
|
||||
|
||||
@@ -12543,10 +12543,10 @@ Partial Class Compras_Compras
|
||||
EjercicioAC = Ejercicio
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "E V E N T O - B I T A C O R A"
|
||||
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -12643,9 +12643,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
ObjEventoBitacora.Dispose()
|
||||
GvEB.DataBind()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " C O N T A B I L I D A D "
|
||||
Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
|
||||
'Alert("Hola entre", TipoMensaje.MsgError)
|
||||
@@ -13034,10 +13034,10 @@ Partial Class Compras_Compras
|
||||
If Not ErrorCompra Then
|
||||
CargaCompra()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REEMBOLSOS NO USA AC "
|
||||
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
|
||||
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
|
||||
@@ -13051,13 +13051,13 @@ Partial Class Compras_Compras
|
||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CONSIGNACIONES "
|
||||
Protected Sub ChkConsignacion_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -13327,13 +13327,13 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ***** Devoluciones INV ***** "
|
||||
|
||||
'*se envia true si hubo un error*'
|
||||
|
||||
|
||||
'*se envia true si hubo un error*'
|
||||
|
||||
Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim CveAlmacen As Integer
|
||||
@@ -13530,9 +13530,9 @@ Partial Class Compras_Compras
|
||||
ImgBtnBuscarOC.Visible = False
|
||||
UpParametros.Update()
|
||||
UpPSS.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REFACTURACION "
|
||||
Private Sub ValidaRefacturacion()
|
||||
If Not CveCompra > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" And UsuarioActual.Empresa.CvePlataforma <> 2 Then
|
||||
@@ -13766,10 +13766,10 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
Return ErrorBitacora
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CANCELAR COMPRA "
|
||||
Private Sub ValidaCancelarCompra()
|
||||
If UsuarioActual.TienePermisoProceso(140) Then
|
||||
@@ -14048,10 +14048,10 @@ Partial Class Compras_Compras
|
||||
DivValesCombustible.Visible = True
|
||||
RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
|
||||
UPPValesCombustible.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VALES COMBUSTIBLES "
|
||||
Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs)
|
||||
IdVale = New List(Of Integer)
|
||||
@@ -14071,9 +14071,9 @@ Partial Class Compras_Compras
|
||||
' Alert(cve.ToString)
|
||||
'Next
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VINCULAR OC "
|
||||
Private Sub InicializaOC()
|
||||
'BORRAR OC
|
||||
@@ -15106,11 +15106,11 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
Alert($"El concepto <b>{PS}</b> tiene especificada la cantidad <b>{Cantidad}</b> pero un costo de cero ($0). <br/><br/> <b>En caso de vincular la OC de esta manera la cantidad especificada sera considerada como recibida.</b> <br/><br/> De ser correcto Continue o de lo contrario rectifique.", TipoMensaje.MsgAdvertencia)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "F L E T E S Y S E R V I C I O S"
|
||||
|
||||
|
||||
Public Sub CreaDTFacturas()
|
||||
|
||||
Dim dt As New DataTable
|
||||
|
||||
@@ -394,7 +394,7 @@ Partial Class Ventas_ClientesAbonar
|
||||
Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
Dim ObjCliente As New ClsClientes()
|
||||
If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
|
||||
If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
Retorno = True
|
||||
CargaCuentas()
|
||||
|
||||
Reference in New Issue
Block a user