diff --git a/Bancos/PolizaCheque.aspx b/Bancos/PolizaCheque.aspx index 026fa41d7..02274a49d 100644 --- a/Bancos/PolizaCheque.aspx +++ b/Bancos/PolizaCheque.aspx @@ -100,10 +100,12 @@
<%--
diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 6cd6f5131..a571d5eac 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -8,7 +8,6 @@ Imports Stimulsoft.Report.BarCodes Partial Class Bancos_PolizaCheque Inherits ClsPaginas - ' Private Shared missing As Object = System.Reflection.Missing.Value #Region "Propiedades" Private Property NombreArchivo As String @@ -191,8 +190,7 @@ Partial Class Bancos_PolizaCheque End If - ''DdlProveedores.txtText.Value = "" - DdlProveedores.txtText.Value = "Seleccione un proveedor" + DdlProveedores.txtText.Value = "Seleccione" DdlProveedores.txtValue.Value = "-1" DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("data-metodo", "getproveedores") @@ -203,33 +201,11 @@ Partial Class Bancos_PolizaCheque End If End Sub - 'Protected Sub BtnBuscarProveedor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnBuscarProveedor.Click - ' ViewState("CveProveedor") = HdnCveProveedor.Value.ToEntero - ' CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1") - ' DdlPlantilla_SelectedIndexChanged(DdlPlantilla, e) - 'End Sub - - 'Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String) - ' Dim ObjProveedor As New ClsCompProveedores() - - - ' If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - ' If ObjProveedor.DtResultados.Rows.Count > 0 Then - ' TxtPagueseA.Text = ObjProveedor.RazonSocial - ' TxtNotificarA.Text = ObjProveedor.NotificarA.Trim - ' Else - ' Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) - ' End If - ' End If - ' ObjProveedor.Dispose() - - 'End Sub Private Sub CargaPlantillas(TipoPlantilla As Integer) - 'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) - 'GvPlantillas.DataBind() + DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) DdlPlantilla.DataBind() DdlPlantilla.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -238,8 +214,8 @@ Partial Class Bancos_PolizaCheque Private Sub CargaCuenta() DdlCuenta.Items.Clear() - Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) - 'cuando es layout + Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) + 'cuando es layout If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) dt = dt.FiltraParametros("UsaLayout = 1") @@ -264,13 +240,12 @@ Partial Class Bancos_PolizaCheque End Sub Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged - 'CargaFolio() + CargaCuenta() End Sub Private Sub CargaFolio() If HdnTipoTransaccion.Value = "" Then CargaHdnTipoTransaccion() - 'If HdnTipoTransaccion.Value = "Egs" Then If DdlTipoTransaccion.SelectedValue.ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then If UsuarioActual.CveEmpresa = 119 AndAlso IfNull(Request("Tipo"), "") = "Ing" Then Dim ObjFolios As New ClsGralFolios @@ -289,10 +264,8 @@ Partial Class Bancos_PolizaCheque TxtFolio.Text = Folio.ToString End If End If - 'Else - 'TxtFolio.Text = "" - 'End If + Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue)) If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero @@ -319,11 +292,6 @@ Partial Class Bancos_PolizaCheque Public Shared Function wsGetCuentas(ByVal prefixText As String, ByVal count As Integer) As String() - - 'Dim dt As DataTable = CType(Session("DtCuentas"), DataTable) - 'Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) - 'dt = Conta.getCuentasCheque(Prefijo) - 'Conta.Dispose() Dim items As New List(Of String)(count) Dim dbrows As DataRow() @@ -357,8 +325,10 @@ Partial Class Bancos_PolizaCheque Protected Sub DdlPlantilla_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPlantilla.SelectedIndexChanged DdlPersonal.SelectedValueExist(-1) - DdlProveedores.txtText.Value = "Seleccione un proveedor" + DdlProveedores.txtText.Value = "Seleccione" DdlProveedores.txtValue.Value = "-1" + TxtPagueseA.Text = "" + If DdlPlantilla.SelectedValue.ToEntero = 56 Then DdlProveedores.Visible = False @@ -413,65 +383,64 @@ Partial Class Bancos_PolizaCheque IdCuenta = 0 CveCuenta = 0 CodigoCuenta = "" - NombreCuenta = "" - + NombreCuenta = "" + If UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso drt("CveCuenta").ToString.ToEntero > 0 Then - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) + + If drr IsNot Nothing Then + CveCuenta = drt("CveCuenta").ToString.ToEntero + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + + End If + EsComodin = 0 + End If + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) If drr IsNot Nothing Then - CveCuenta = drt("CveCuenta").ToString.ToEntero + IdCuenta = drt("IdCtaContable").ToString.ToEntero CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() + End If EsComodin = 0 - End If - If UsuarioActual.Empresa.TipoContabilidad = 2 Then - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) + + ElseIf drt("CveConcepto").ToString = "30" Then + 'saco la clave de la cuenta bancaria seleccionada + If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero + IdCuenta = drr("Id").ToString.ToEntero CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() + EsComodin = 1 End If - EsComodin = 0 - - - ElseIf drt("CveConcepto").ToString = "30" Then - 'saco la clave de la cuenta bancaria seleccionada - If DdlCuenta.SelectedValue.ToEntero > 0 And drt("CveConcepto").ToString = "30" Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCuentaBancos(DdlCuenta.SelectedValue.ToEntero))) - If drr IsNot Nothing Then - IdCuenta = drr("Id").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - ' Cuenta = drr("Nombre").ToString() - EsComodin = 1 - End If - End If - ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then - - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) - - IdCuenta = IdCtaFondoGarantia - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - - EsComodin = 0 End If + ElseIf drt("CveConcepto").ToString.ToEntero = 135 And IdCtaFondoGarantia > 0 Then + + Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", IdCtaFondoGarantia)) + + IdCuenta = IdCtaFondoGarantia + CodigoCuenta = drr("CuentaFormato").ToString() + NombreCuenta = drr("Nombre").ToString() + + + EsComodin = 0 End If + End If - Dim dr As DataRow = DtMovimientos.NewRow + Dim dr As DataRow = DtMovimientos.NewRow dr("IdCuenta") = IdCuenta dr("CveCuenta") = CveCuenta dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta - dr("Cuenta") = Cuenta 'TxtCuentaContable.Text + dr("Cuenta") = Cuenta dr("RazonSocial") = drt("RazonSocial") dr("Concepto") = TxtObservaciones.Text dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1) @@ -483,7 +452,7 @@ Partial Class Bancos_PolizaCheque dr("Proyecto") = drt("Proyecto") dr("Personal") = drt("Personal") dr("CvePersonal") = drt("CvePersonal") - 'dr("CveConcepto") = drt("CveConcepto") + DtMovimientos.Rows.Add(dr) @@ -766,8 +735,6 @@ Partial Class Bancos_PolizaCheque If e.Row.RowIndex = 0 Then e.Row.Cells(0).Width = Unit.Pixel(110) e.Row.Cells(1).Width = Unit.Pixel(200) - 'e.Row.Cells(2).Width = Unit.Pixel(150) - 'e.Row.Cells(3).Width = Unit.Pixel(150) e.Row.Cells(2).Width = Unit.Pixel(120) e.Row.Cells(3).Width = Unit.Pixel(303) e.Row.Cells(4).Width = Unit.Pixel(72) @@ -804,43 +771,15 @@ Partial Class Bancos_PolizaCheque Dim CvePrePoliza As Integer Dim ValidaConcepto30 As Boolean = False - Dim PaguesA As String = "" + Dim PaguesA As String = TxtPagueseA.Text.Trim Dim CveProveedorSeleccionado As Integer = -1 Dim CvePersonalSeleccionado As Integer = -1 If DdlPlantilla.SelectedValue.ToEntero = 56 Then CvePersonalSeleccionado = DdlPersonal.SelectedValue.ToEntero - - 'If Not CvePersonalSeleccionado > 0 Then - ' Alert("Debe de seleccionar un personal.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - - - PaguesA = DdlPersonal.SelectedItem.Text - Else CveProveedorSeleccionado = DdlProveedores.txtValue.Value.ToEntero - 'If Not CveProveedorSeleccionado > 0 Then - ' Alert("Debe de seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - - If CveProveedorSeleccionado > 0 Then - PaguesA = DdlProveedores.txtText.Value - Else - PaguesA = TxtObservaciones.Text.Trim - - If TxtObservaciones.Text.Length = 0 Then - Alert("Debe de proporsionar las Observaciones.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - End If - - - End If @@ -854,9 +793,6 @@ Partial Class Bancos_PolizaCheque End If - - - For Each Gvr As GridViewRow In GvMov.Rows TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal @@ -894,23 +830,13 @@ Partial Class Bancos_PolizaCheque Dim ObjIE As New ClsBancos() Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL) - 'Dim Conta As ClsContPAQi = Nothing Dim IDPoliza As Integer = 0 Dim CveIE As Integer Dim MsgError As String = "" Dim idCuentaContabilizacion As Long = 1 - 'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then - ' Conta = New ClsContPAQi(UsuarioActual.Empresa) - ' Conta.IniciaTransacSQL() - ' IDPoliza = Conta.AddPoliza(2, TxtObservaciones.Text, TotalCargos, TotalAbonos, UsuarioActual.CveUsuario, TxtFechaDocumento.Text.ToDate) - ' 'inserto la póliza - ' NumPoliza = Conta.Folio - ' If IDPoliza = 0 Then - ' MsgError = "No se pudo insertar la póliza contable." - ' End If - 'End If + If MsgError = "" Then ImporteDocumento = TxtImporte.Text.ToDecimal @@ -966,17 +892,9 @@ Partial Class Bancos_PolizaCheque CvePersonalSeleccionado = gvr.DataKey("CvePersonal").ToEntero End If - 'CveProveedor = gvr.DataKey("CveProveedor").ToEntero - 'If HdnCveProveedor.Value.ToEntero > 0 Then CveProveedor = HdnCveProveedor.Value.ToEntero - If Importe <> 0 Then - 'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then - ' If Not Conta.AddMovimiento(IDPoliza, gvr.DataKey("IDCuenta").ToEntero, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.FCTextBox("TxtConcepto").Text, 0, TxtFechaDocumento.Text.ToDate, "") Then - ' MsgError = "No se pudo insertar movimiento contable" - ' Exit For - ' End If - 'End If + If MsgError = "" Then If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then @@ -1022,8 +940,6 @@ Partial Class Bancos_PolizaCheque MsgError = "No se pudo actualizar el periodo de la nómina" End If - 'Generamos el Layout - 'GeneraLayout() End If Else @@ -1041,7 +957,6 @@ Partial Class Bancos_PolizaCheque If MsgError = "" Then If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjMov.ValorPolizaDescuadre > 0 Then - ' MsgError = ObjMov.MensajePolizaDescuadre GuardaLogAD($"PolizaCheque/Guardar Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") End If Else @@ -1053,7 +968,6 @@ Partial Class Bancos_PolizaCheque If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - 'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) IDPoliza = ObjMov.ContaIdPoliza Else MsgError = "Error al contabilizar" @@ -1066,7 +980,6 @@ Partial Class Bancos_PolizaCheque If MsgError = "" Then ObjIE.Commit() - 'If Conta IsNot Nothing Then Conta.Commit() If filemove <> "" Then filemove.FilesMove(CveIE.ToString, String.Format("{0}IE", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) @@ -1081,7 +994,7 @@ Partial Class Bancos_PolizaCheque DdlCuenta.SelectedValue = "-1" TxtFechaDocumento.Text = "" TxtImporte.Text = "" - 'TxtPagueseA.Text = "" + TxtPagueseA.Text = "" TxtObservaciones.Text = "" Dim StrMsg As New StringBuilder StrMsg.AppendFormat("El Movimiento se guardo correctamente

Movimiento
", CveIE) @@ -1095,145 +1008,26 @@ Partial Class Bancos_PolizaCheque Else Alert(MsgError.ToString, TipoMensaje.MsgError) ObjIE.RollBack() - 'If Conta IsNot Nothing Then Conta.RollBack() + End If Else Alert("Debe de llevar un importe", TipoMensaje.MsgAdvertencia) - 'If Conta IsNot Nothing Then Conta.RollBack() + End If - Else - 'If Conta IsNot Nothing Then Conta.RollBack() + + End If ObjIE.Dispose() ObjMov.Dispose() ObjNom.Dispose() - 'If Conta IsNot Nothing Then Conta.Dispose() + Else Alert("La suma de los movimientos no son iguales", TipoMensaje.MsgAdvertencia) End If End Sub - '' -------------------------------------- codigo para generar la poliza del cheque - - 'If pIDPoliza > 0 Then - 'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) - - ' If ObjPoliza.GetPoliza(pIDPoliza, -1, -1, -1, -1) Then - ' dtMovs = ObjPoliza.DtResultados - ' End If - ' ObjPoliza.Dispose() - - ' ''Movimientos Póliza - ' If dtMovs IsNot Nothing Then - - 'Dim TotalAbonos, TotalCargos As Double - ' TotalAbonos = 0 : TotalCargos = 0 - ' For Each Row As DataRow In dtMovs.Rows - ''Cantidad - ''If Row("AplicaParaConcepto").ToString.ToEntero > 0 Then - ' Hoja.Range("B" & CeldaF & ": B" & CeldaF).Value = Row("CuentaFormato").ToString - ''Unidad - ''If Row("AplicaParaConcepto").ToString.ToEntero > 0 Then - ' Hoja.Range("C" & CeldaF & ":C" & CeldaF).Value = Row("Nombre").ToString - ''Concepto y Descripción - ' Hoja.Range("F" & CeldaF & ":F" & CeldaF).Value = If(Row("Cargo").ToString.ToDouble > 0, Row("Cargo").ToString.ToDouble.FormatoNumero, "") - ''P Unitario - ''Morro el precio unitario si va a ir? - ' Hoja.Range("G" & CeldaF & ":G" & CeldaF).Value = If(Row("Abono").ToString.ToDouble > 0, Row("Abono").ToString.ToDouble.FormatoNumero, "") - - ' TotalCargos += Row("Cargo").ToString.ToDouble - ' TotalAbonos += Row("Abono").ToString.ToDouble - - ' If dtMovs.Rows.Count > 1 AndAlso CeldaF - CeldaI < dtMovs.Rows.Count - 1 Then - ' CeldaF = CeldaF + 1 - ' Libro.Application.Run("AddRow", (CeldaF - 1).ToString, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, - ' missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) - ' Libro.Save() - ' Libro.Application.DisplayAlerts = False - ' Libro.Application.ScreenUpdating = False - ' End If - - ' Next - - 'Dim AddedRow As Integer = CeldaF - CeldaI - - ' Hoja.Range("F" & (50 + AddedRow).ToString & ":F" & (50 + AddedRow).ToString).Value = TotalCargos.FormatoNumero - ' Hoja.Range("G" & (50 + AddedRow).ToString & ":G" & (50 + AddedRow).ToString).Value = TotalAbonos.FormatoNumero - ' Hoja.Range("C" & (52 + AddedRow).ToString & ":C" & (52 + AddedRow).ToString).Value = UsuarioRegistro - ''Hoja.Range("E" & (13 + AddedRow).ToString & ":E" & (13 + AddedRow).ToString).Value = LblAmortizacion.Text.Trim.ToDouble(TC).FormatoNumero - ''Hoja.Range("E" & (14 + AddedRow).ToString & ":E" & (14 + AddedRow).ToString).Value = TxtSubTotal2.Text.Trim.ToDouble(TC).FormatoNumero - ''Hoja.Range("E" & (15 + AddedRow).ToString & ":E" & (15 + AddedRow).ToString).Value = TxtIVA.Text.Trim.ToDouble(TC).FormatoNumero - - - ' End If - ' End If - - - 'Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs) Handles LnkAgregar.Click - ' If HdnCveCuenta.Value.ToEntero = 0 Then - ' Alert("Seleccione una cuenta contable") - ' Exit Sub - ' End If - - ' If TxtCargoImporte.Text = "" AndAlso TxtAbonoImporte.Text = "" Then - ' Alert("Ingrese un importe.") - ' Exit Sub - ' End If - - ' If HdnCveCuenta.Value.ToEntero > 0 AndAlso (TxtCargoImporte.Text.ToDouble > 0 Or TxtAbonoImporte.Text.ToDouble > 0) Then - - ' Dim Cuenta As String = "" - ' Dim CodigoCuenta As String = "" - ' If DdlCuentaContable.SelectedValue.ToEntero > 0 Then 'DtCuentasContables - ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero("Id=" & DdlCuentaContable.SelectedValue) - ' If drr IsNot Nothing Then - ' CodigoCuenta = drr("CuentaFormato").ToString() - ' Cuenta = drr("Nombre").ToString() - ' End If - ' End If - - ' Dim dr As DataRow = DtMovimientos.NewRow - ' dr("IdCuenta") = HdnCveCuenta.Value.ToEntero - ' dr("CodigoCuenta") = CodigoCuenta - ' dr("Cuenta") = Cuenta 'TxtCuentaContable.Text - ' dr("Referencia") = TxtReferencia.Text - ' dr("Concepto") = TxtConceptoContable.Text - ' dr("Cargo") = TxtCargoImporte.Text.ToDouble - ' dr("Abono") = TxtAbonoImporte.Text.ToDouble - - ' DtMovimientos.Rows.Add(dr) - - ' TxtTotalAbonos.Text = DtMovimientos.SUM("Abono").FormatoNumero - ' TxtTotalCargos.Text = DtMovimientos.SUM("Cargo").FormatoNumero - - ' 'ArregloMovs.Add(Mov) - ' GvMov.DataSource = DtMovimientos - ' GvMov.DataBind() - - ' 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria - ' If DdlCuenta.SelectedValue.ToEntero > 0 Then - ' Dim drr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta=" & DdlCuenta.SelectedValue) - ' If drr IsNot Nothing Then - ' TxtImporte.Text = (DtMovimientos.SUM("Abono", "IdCuenta =" & drr("IdCtaContable").ToString) - DtMovimientos.SUM("Cargo", "IdCuenta =" & drr("IdCtaContable").ToString)).ToString.FormatoNumero - ' UPPDocumento.Update() - ' End If - ' End If - - ' HdnCveCuenta.Value = "0" - ' DdlCuentaContable.SelectedValue = "0" - - ' TxtReferencia.Text = "" - ' TxtConceptoContable.Text = "" - ' TxtCargoImporte.Text = "" - ' TxtAbonoImporte.Text = "" - - ' End If - - 'End Sub - - Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting @@ -1281,10 +1075,22 @@ Partial Class Bancos_PolizaCheque Protected Sub CargaDDLPersonal() DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlPersonal.DataBind() - DdlPersonal.Items.Insert(0, New ListItem("Seleccione Personal", "-1")) + DdlPersonal.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub + + Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) + TxtPagueseA.Text = DdlPersonal.SelectedItem.Text + UPPDocumento.Update() + End Sub + + + + Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs) + TxtPagueseA.Text = DdlProveedores.txtText.Value + UPPDocumento.Update() + End Sub End Class diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3ae40dab8..85035a236 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4899,7 +4899,7 @@ Partial Class Compras_Compras ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC If HdnVCveOC.Value.ToEntero > 0 Then - + IDPolizaComprometido = 1 TotalPorDevengar = TotalPorDevengar * 2 Else @@ -13670,8 +13670,14 @@ Partial Class Compras_Compras End If End Sub Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs) + RegistraScript("$('#DivCancelarCompra').modal('hide');") + If (Not UsuarioActual.TienePermisoProceso(315)) And GvInvMov.Rows.Count > 0 Then + Alert("La compra no se puede cancelar debido a que tiene movimientos de almacén.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Dim ObjComprasComprobacion As New ClsCompras If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then @@ -13694,6 +13700,9 @@ Partial Class Compras_Compras ObjComprasComprobacion.Dispose() Dim cvemovimientoentrada As Integer = -1 + + + 'DEVOLUCIÓN AUTOMATICA If CheckDevAuto.Checked Then Dim ErrorMovInv As Boolean = False @@ -13757,6 +13766,7 @@ Partial Class Compras_Compras ObjCompra.Dispose() End If + Dim ObjAC As ClsContPAQi = Nothing If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa)