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

Case 5 actualización

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-10-04 09:30:33 -07:00
parent 06f518883e
commit c52fdf465f
2 changed files with 251 additions and 251 deletions
Download Patch File Download Diff File Expand all files Collapse all files

500
Compras/Compras.aspx.vb
View File

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

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -394,7 +394,7 @@ Partial Class Ventas_ClientesAbonar
Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Dim ObjCliente As New ClsClientes() 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 If ObjCliente.DtResultados.Rows.Count > 0 Then
Retorno = True Retorno = True
CargaCuentas() CargaCuentas()