diff --git a/Bancos/PolizaCheque.aspx b/Bancos/PolizaCheque.aspx index 88b3514dc..32ed1c0b4 100644 --- a/Bancos/PolizaCheque.aspx +++ b/Bancos/PolizaCheque.aspx @@ -24,7 +24,7 @@
- +
@@ -213,7 +213,7 @@ --%>
- + Código diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 0b28dc305..1879bd21b 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -155,6 +155,7 @@ Partial Class Bancos_PolizaCheque Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True With DtMovimientos.Columns .Add("IdCuenta", Type.GetType("System.Int32")) + .Add("CveCuenta", Type.GetType("System.Int32")) .Add("CodigoCuenta", Type.GetType("System.String")) .Add("Cuenta", Type.GetType("System.String")) .Add("Referencia", Type.GetType("System.String")) @@ -401,6 +402,7 @@ Partial Class Bancos_PolizaCheque Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") Dim Cuenta As String = "" Dim IdCuenta As Integer = 0 + Dim CveCuenta As Integer = 0 Dim CodigoCuenta As String = "" Dim NombreCuenta As String = "" Dim EsComodin As Integer = 0 @@ -412,6 +414,7 @@ Partial Class Bancos_PolizaCheque Cuenta = drt("ConceptoContable").ToString IdCuenta = 0 + CveCuenta = 0 CodigoCuenta = "" NombreCuenta = "" @@ -420,7 +423,7 @@ Partial Class Bancos_PolizaCheque Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString)) If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero + CveCuenta = drt("CveCuenta").ToString.ToEntero CodigoCuenta = drr("CuentaFormato").ToString() NombreCuenta = drr("Nombre").ToString() 'Cuenta = drr("Nombre").ToString() @@ -469,7 +472,8 @@ Partial Class Bancos_PolizaCheque Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCuenta") = IdCuenta + dr("IdCuenta") = IdCuenta + dr("CveCuenta") = CveCuenta dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta dr("Cuenta") = Cuenta 'TxtCuentaContable.Text dr("RazonSocial") = drt("RazonSocial") @@ -566,24 +570,8 @@ Partial Class Bancos_PolizaCheque dr("CvePersonal") = drt("CvePersonal") DtMovimientos.Rows.Add(dr) - Next - 'Dim drtt As DataRow = DtMovimientos.NewRow - 'drtt("IdCuenta") = 0 - 'drtt("CodigoCuenta") = "" - 'drtt("Cuenta") = Cuenta - 'drtt("RazonSocial") = "" - 'drtt("Concepto") = "" - 'drtt("TipoMovto") = 0 - 'drtt("EsComodin") = EsComodin - 'drtt("CveConcepto") = 44 - 'drtt("CveProveedor") = "-1" - 'drtt("SubProyecto") = "" - 'drtt("Proyecto") = "" - 'drtt("Personal") = "" - 'drtt("CveSubProyecto") = -1 - 'drtt("CvePersonal") = -1 - 'DtMovimientos.Rows.Add(drtt) - + Next + ObjNomina.Dispose() ObjConta.Dispose() @@ -809,20 +797,8 @@ Partial Class Bancos_PolizaCheque If UsuarioActual.CveEmpresa = 119 Then e.Row.FCLiteral("LtlSP").Visible = False e.Row.FCDropDownList("DdlSubProyecto").Visible = True - End If - 'cuando se modifica el importe de la cuenta bancaria que se actualice el importe del documento - 'If e.Row.DBCampo("EsComodin") = "1" Then - ' If e.Row.DBCampo("TipoMovto") = "1" Then - ' e.Row.FCTextBox("TxtAbono").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)") - ' e.Row.FCTextBox("TxtAbono").Text = TxtImporte.Text - ' Else - ' e.Row.FCTextBox("TxtCargo").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)") - ' e.Row.FCTextBox("TxtCargo").Text = TxtImporte.Text - ' End If - ' TxtImporte.Attributes.Add("onkeyup", String.Format("FncImporte(this.id,'{0}',1)", e.Row.FCTextBox(If(e.Row.DBCampo("TipoMovto") = "1", "TxtAbono", "TxtCargo")).ClientID)) - - ' UPPImporte.Update() - 'End If + End If + End If End Sub @@ -966,7 +942,7 @@ Partial Class Bancos_PolizaCheque Importe = Importe * TC End If - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then MsgError = "no se pudo insertar el detalle de la póliza2" End If @@ -1009,12 +985,6 @@ Partial Class Bancos_PolizaCheque MsgError = "No se insertó el encabezado" End If - 'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then - ' If Not ObjIE.UpdateIEPrePoliza(TxtFechaDocumento.Text.ToDate, NumPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) Then - ' MsgError = "Error al actualizar la poliza" - ' End If - 'End If - Catch ex As Exception MsgError = "Error" End Try @@ -1030,20 +1000,17 @@ Partial Class Bancos_PolizaCheque End If End If - 'El movimiento 2 es el de Pago If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - 'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) - IDPoliza = ObjMov.ContaIdPoliza - Else - MsgError = "Error al contabilizar" - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) - End If + + If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + 'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) + IDPoliza = ObjMov.ContaIdPoliza Else - Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError) + MsgError = "Error al contabilizar" + Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) End If + End If @@ -1090,8 +1057,6 @@ Partial Class Bancos_PolizaCheque Alert("La suma de los movimientos no son iguales", TipoMensaje.MsgAdvertencia) End If - - End Sub '' -------------------------------------- codigo para generar la poliza del cheque