From e2900eae42bf59c348c15ab63416c02994fe4700 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 9 May 2022 09:38:18 -0700 Subject: [PATCH] --cambios en TC al registrar --- Contabilidad/RegPrePolizaS.aspx | 178 +++------- Contabilidad/RegPrePolizaS.aspx.vb | 531 ++++++++++------------------- 2 files changed, 217 insertions(+), 492 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b3c7a652c..b3bfd9b46 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -86,7 +86,7 @@
  • - Agregar Concepto + Agregar Concepto
  • Crear a partir de @@ -178,14 +178,7 @@ - - - - - - - - + @@ -226,9 +219,7 @@ - - - + @@ -249,101 +240,22 @@ - - - - + - - - - - - - - - - - - -
    - <%--
    -
    - -
    -
    - - - - -
    - - - - - - - -
    - - - -
    - -
    - - -
    - -
    - -
    - - - - - -
    -
    -
    --%> - - <%--
    - - -
    - -
    - -
    - - -
    - - -
    - -
    - - -
    - -
    - - - - -
    -
    -
    --%> - - - - - + + + + + + +
    +
    + +
    -
    +
    @@ -402,22 +314,8 @@ - - - - - - - - - - -
    - - - - - + + @@ -434,7 +332,7 @@
    Cuenta
    -
    +
    @@ -546,6 +444,7 @@
    +
    @@ -557,7 +456,7 @@
    - Movimientos + Movimientos2
    @@ -576,7 +475,7 @@
    + DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,EsComplementaria" Width="100%" > Movimiento @@ -888,8 +787,7 @@
    Cliente:
    - - +
    @@ -920,7 +818,7 @@
    -
    Procentaje IVA:
    +
    Porcentaje IVA:
    @@ -934,6 +832,16 @@
    +
    +
    + TC: +
    +
    +
    + + +
    +

    @@ -990,6 +898,15 @@

    +
    +
    +
    + Mon Extrajera: +
    +
    +
    + +
    @@ -1010,16 +927,7 @@
    -
    -
    - Tipo de Cambio: -
    -
    -
    - - -
    -
    +
    diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 299004330..79dcf305f 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -276,7 +276,7 @@ Partial Class ContabilidadC_RegPrePolizaS End If ValidaCrearAPartirDe() DvPlantilla.Visible = False - UPPDocumento.Visible = False + If UsuarioActual.Empresa.TipoContabilidad = 1 Then @@ -318,9 +318,9 @@ Partial Class ContabilidadC_RegPrePolizaS TxtConcepto.Enabled = True TxtUsuarioElaboro.Text = UsuarioActual.Usuario DvPlantilla.Visible = True - LnkAddConcepto.Visible = False + 'LnkAddConcepto.Visible = False - UpPrePoliza.Visible = False + 'UpPrePoliza.Visible = False End If @@ -366,7 +366,9 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("Concepto", Type.GetType("System.String")) .Add("Cargo", Type.GetType("System.Double")) .Add("Abono", Type.GetType("System.Double")) - .Add("TipoMovto", Type.GetType("System.Int32")) + .Add("TipoMovto", Type.GetType("System.Boolean")) + .Add("ImporteMN", Type.GetType("System.Decimal")) + .Add("ImporteME", Type.GetType("System.Decimal")) .Add("EsComodin", Type.GetType("System.Int32")) .Add("CveConcepto", Type.GetType("System.Int32")) .Add("CveSubProyecto", Type.GetType("System.Int32")) @@ -384,6 +386,10 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("IdCtaContable", Type.GetType("System.Int32")) .Add("ConceptoContable", Type.GetType("System.String")) .Add("CveCuenta", Type.GetType("System.Int32")) + .Add("CodigoNombreCuenta", Type.GetType("System.String")) + .Add("SubProyecto", Type.GetType("System.String")) + .Add("FolioFactura", Type.GetType("System.String")) + .Add("TipoGasto", Type.GetType("System.String")) .Add("ContadoTipoTransaccion", Type.GetType("System.Int32")) .Add("ContadoCuenta", Type.GetType("System.Int32")) @@ -396,6 +402,7 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("EsComplementaria", Type.GetType("System.Boolean")) .Add("TC", Type.GetType("System.Decimal")) + End With @@ -547,9 +554,6 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.Columns.Add("Abono", GetType(Decimal)) End If - - - GvPrePoliza.DataBind() If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then @@ -584,9 +588,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'divDatosPrincipales.Visible = False 'divObservaciones.Visible = False - UPMovs.Visible = False - UPMovs.Update() - UPPDocumento.Update() + UpPrePoliza.Update() RegistraScript("comparar();") @@ -847,12 +849,25 @@ Partial Class ContabilidadC_RegPrePolizaS If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada DivAgregarConceptos.Visible = True + LnkAddConcepto.Visible = True + If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then + 'DivAgregarConceptos.Visible = True + LnkAddConcepto.Visible = True + CargaConceptos() + CargaSubProyectos() + CargaCuentasContables() + End If + GvPrePoliza.Visible = True + DivAgregarConceptos.Visible = False + divMovtos.Visible = False + UPMovs.Update() + Else DivAgregarConceptos.Visible = False + divMovtos.Visible = True + UPMovs.Update() End If - - Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") @@ -919,7 +934,7 @@ Partial Class ContabilidadC_RegPrePolizaS e.Row.Height = Unit.Pixel(1) e.Row.Cells(0).ToolTip = e.Row.DBCampo("CveCuenta") - If e.Row.DBCampo("TipoMovto") = "1" Then + If e.Row.DBCampo("TipoMovto") = "True" Then e.Row.FCTextBox("TxtAbono").Visible = True Else e.Row.FCTextBox("TxtCargo").Visible = True @@ -957,8 +972,8 @@ Partial Class ContabilidadC_RegPrePolizaS End If If e.Row.DBCampo("EsComplementaria") = "True" Then - If e.Row.DBCampo("TipoMovto") = "0" Then e.Row.FindControl("divCargoME").Visible = True - If e.Row.DBCampo("TipoMovto") = "1" Then e.Row.FindControl("divAbonoME").Visible = True + If e.Row.DBCampo("TipoMovto") = "False" Then e.Row.FindControl("divCargoME").Visible = True + If e.Row.DBCampo("TipoMovto") = "True" Then e.Row.FindControl("divAbonoME").Visible = True End If @@ -1000,7 +1015,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CvePrePolizaInsertada As Integer = -1 If CvePrePolizaOrigen > 0 Then - CrarPrePolizaApartirDe() + CrearPrePolizaApartirDe() Exit Sub End If @@ -1039,9 +1054,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If - - - 'terminan validaciones If CvePrePoliza > 0 Then @@ -1102,7 +1114,7 @@ Partial Class ContabilidadC_RegPrePolizaS ImporteME = 0 TipoCambio = 1 - If gvr.DataKey("TipoMovto").ToDouble > 0 Then + If gvr.DataKey("TipoMovto") = "True" Then Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble TmpAbono = TmpAbono + Importe TipoMovto = True @@ -1173,9 +1185,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If End If - - - Else MsgError = "No se pudo insertar la póliza" End If @@ -1204,8 +1213,6 @@ Partial Class ContabilidadC_RegPrePolizaS ObjIE.Commit() If Conta IsNot Nothing Then Conta.Commit() - UPPDocumento.Update() - TxtConcepto.Text = "" 'GvMov.DataBind() DdlPlantilla_SelectedIndexChanged(Nothing, Nothing) @@ -1331,7 +1338,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlConceptosContablesE.SelectedValueExist(CveConceptoContable) DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e) - TxtModalConceptoTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00") + TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00") DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion")) DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta")) TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio") @@ -1341,16 +1348,6 @@ Partial Class ContabilidadC_RegPrePolizaS DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto) - 'GvPrePoliza.Rows(IndiceGrid).DataKey("") - - 'dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero - 'dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero - 'dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text - 'dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text - 'dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text - 'dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal - - DdlProveedoresE.SelectedValueExist(CveProveedor) DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e) DdlComprasE.SelectedValueExist(CveCompra) @@ -1358,12 +1355,16 @@ Partial Class ContabilidadC_RegPrePolizaS DdlPersonalE.SelectedValueExist(CvePersonal) If CveCliente > 0 Then + DvModalconceptoCliente.Visible = True DdlClientesE.SelectedValue = CveCliente - DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente={CveCliente}") + DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "") DdlClientesE_SelectedIndexChanged(DdlClientesE, e) End If - DdlVentasE.SelectedValueExist(CveVenta) + If CveVenta > 0 Then + DdlVentasE.SelectedValueExist(CveVenta) + End If + If CveClasificacion > 0 Then DdlClasificacionesE.SelectedValue = CveClasificacion @@ -1391,10 +1392,6 @@ Partial Class ContabilidadC_RegPrePolizaS Else CargaModalConceptoTipoTransaccion("Egs") End If - - - - UpModalConcepto.Update() End Sub @@ -1457,6 +1454,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim AplicaSubProyecto As Boolean = False Dim AplicaTC As Boolean = False 'ok Dim AplicaVenta As Boolean = False + Dim AplicaComplementaria As Boolean = False 'ok AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString) AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString) @@ -1473,7 +1471,7 @@ Partial Class ContabilidadC_RegPrePolizaS AplicaSubProyecto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaSubProyecto").ToString) AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString) AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString) - + AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString) If AplicaImpuesto Then @@ -1514,26 +1512,19 @@ Partial Class ContabilidadC_RegPrePolizaS 'DdlClasificacionesE.Visible = False End If + If AplicaVenta Then + DvModalconceptoVenta.Visible = True + Else + DvModalconceptoVenta.Visible = False + End If If AplicaCliente Then CargaClientesE() - DvModalconceptoCliente.Visible = True - DvModalconceptoVenta.Visible = True - - - 'DdlClientesE.Visible = True - 'DdlVentasE.Visible = True Else - DvModalconceptoCliente.Visible = False - DvModalconceptoVenta.Visible = False - - 'DdlClientesE.Visible = False - 'DdlVentasE.Visible = False End If - If AplicaBancos Then CargaModalConceptoTipoTransaccion("Egs") 'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px") @@ -1553,71 +1544,15 @@ Partial Class ContabilidadC_RegPrePolizaS DVmodalConceptoTipoCambio.Visible = False End If + If AplicaComplementaria Then + DivMonedaExtranjera.Visible = True + Else + DivMonedaExtranjera.Visible = False + End If End If - - - - 'Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("") - - 'If dr IsNot Nothing Then - ' DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True" - - 'End If - - 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then - ' CargaProveedoresE() - ' DdlProveedoresE.Visible = True - ' DdlComprasE.Visible = True - 'Else - ' DdlProveedoresE.Visible = False - ' DdlComprasE.Visible = False - 'End If - - 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then - ' CargaPersonalE() - ' DdlPersonalE.Visible = True - 'Else - ' DdlPersonalE.Visible = False - 'End If - - 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then - ' CargaClasificacionesE() - ' DdlClasificacionesE.Visible = True - 'Else - ' DdlClasificacionesE.Visible = False - 'End If - - 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then - ' CargaClientesE() - ' DdlClientesE.Visible = True - ' DdlVentasE.Visible = True - 'Else - ' DdlClientesE.Visible = False - ' DdlVentasE.Visible = False - 'End If - - 'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(30) Then - - ' DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px") - ' DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6") - ' DvMoldalConceptoSeccion2.Visible = True - 'Else - - ' DvMoldalConceptoAncho.Attributes.Add("style", "width:450px") - ' DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12") - ' DvMoldalConceptoSeccion2.Visible = False - 'End If - - - - - - UpModalConcepto.Update() - - End Sub Private Sub CargaProveedoresE() DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) @@ -1648,12 +1583,18 @@ Partial Class ContabilidadC_RegPrePolizaS DdlClientesE.DataBind() ' DdlClientes.Items.Insert(0, New ListItem(" - ", "-1")) End Sub - Private Sub CargaVentasE(CveCliente As Integer) + Private Sub CargaVentasE(CveCliente As Integer, Optional CveMoneda As Integer = -1) + DvModalconceptoVenta.Visible = True Dim ObjVentas As New ClsVentas DdlVentasE.ClearSelection() If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then - DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0") + If CveMoneda = 2 Then + DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2") + Else + DdlVentasE.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0") + End If + DdlVentasE.DataBind() DdlVentasE.Items.Insert(0, New ListItem(" - ", "-1")) Else @@ -1678,7 +1619,8 @@ Partial Class ContabilidadC_RegPrePolizaS CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero) End Sub Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange - CargaVentasE(DdlClientesE.SelectedValue.ToEntero) + + CargaVentasE(DdlClientesE.SelectedValue.ToEntero, IIf(DdlConceptosContablesE.SelectedValue.Contiene("291", "292"), 2, -1)) End Sub @@ -1691,181 +1633,121 @@ Partial Class ContabilidadC_RegPrePolizaS If DtMovimientos Is Nothing Then CreaDT() - If CvePrePoliza > 0 Then - - Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) - Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCtaContable") = IdCtaContable - dr("CveCuenta") = DdlCuentaContableE.SelectedValue - 'dr("CodigoCuenta") = CodigoCuenta & "
    " & NombreCuenta - dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text - dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text - dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue - dr("Concepto") = TxtConceptoE.Text - dr("Referencia") = TxtReferenciaE.Text - dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1) - dr("Cargo") = TxtCargoE.Text.ToDouble - dr("Abono") = TxtAbonoE.Text.ToDouble - dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble) - dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue - dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text - dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero - dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero - dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero - dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero - dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero - If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString() - If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString() - dr("Modificado") = True - - If DdlPorcentajeIVAE.Visible Then - dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal - End If - - - - DtMovimientos.Rows.Add(dr) - DtMovimientos.AcceptChanges() - - If CvePrePoliza > 0 Or CvePrePolizaOrigen Then - GvPrePoliza.DataSource = DtMovimientos - GvPrePoliza.DataBind() - UpPrePoliza.Update() - End If - - - - TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero - TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero - UpTotalCargo.Update() - UpTotalAbono.Update() - Else - 'Dim dr As DataRow = DtMovimientos.NewRow - 'Dim CodigoCuenta As String = "" - 'Dim NombreCuenta As String = "" - - 'dr("IdCuenta") = DdlCtaContableE.SelectedValue - - 'If DdlCtaContableE.SelectedValue.ToEntero > 0 Then - ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContableE.SelectedValue)) - ' If drr IsNot Nothing Then - ' CodigoCuenta = drr("CuentaFormato").ToString() - ' NombreCuenta = drr("Nombre").ToString() - ' End If - 'End If - - 'dr("CodigoCuenta") = CodigoCuenta & "
    " & NombreCuenta - 'dr("Cuenta") = DdlConceptosContablesE.SelectedItem.Text - 'dr("Referencia") = TxtReferenciaE.Text - 'dr("Concepto") = TxtConceptoE.Text - 'dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1) - 'dr("EsComodin") = 0 - 'dr("CveConcepto") = DdlConceptosContablesE.SelectedValue - 'dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue - 'dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text - 'dr("Cargo") = TxtCargoE.Text.ToDouble - 'dr("Abono") = TxtAbonoE.Text.ToDouble - ''dr("Descripcion") = TxtDescripcionE.Text - 'dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue - 'dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero - 'dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero - 'dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero - 'dr("CveClasificacion") = -1 - 'dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero - 'dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero - - 'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbonoE.Text.ToDouble).ToString.FormatoNumero - 'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargoE.Text.ToDouble).ToString.FormatoNumero - 'DtMovimientos.Rows.Add(dr) - 'DtMovimientos.AcceptChanges() - - 'GvMov.DataSource = DtMovimientos - 'GvMov.DataBind() - 'UPMovs.Update() - 'Actualizar = False + Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) + Dim dr As DataRow = DtMovimientos.NewRow + dr("IdCtaContable") = IdCtaContable + dr("CveCuenta") = DdlCuentaContableE.SelectedValue + 'dr("CodigoCuenta") = CodigoCuenta & "
    " & NombreCuenta + dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text + dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text + dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue + dr("Concepto") = TxtConceptoE.Text + dr("Referencia") = TxtReferenciaE.Text + dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True) + dr("Cargo") = TxtCargoE.Text.ToDouble + dr("Abono") = TxtAbonoE.Text.ToDouble + dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble) + dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue + dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text + dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero + dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero + dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero + dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero + dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero + If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString() + If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString() + dr("Modificado") = True + If DdlPorcentajeIVAE.Visible Then + dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal End If + + DtMovimientos.Rows.Add(dr) + DtMovimientos.AcceptChanges() + + If CvePrePoliza > 0 Or CvePrePolizaOrigen Then + GvPrePoliza.DataSource = DtMovimientos + GvPrePoliza.DataBind() + UpPrePoliza.Visible = True + End If + + TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero + TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero + UpTotalCargo.Update() + UpTotalAbono.Update() + RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") + Else Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero + Dim Rows As DataRow() = DtMovimientos.Select("CvePrePolizaDetalle = " & CvePrePolizaDetalle) - - If Rows.Count > 0 Then - Dim dr As DataRow = Rows(0) - Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) - dr("IdCtaContable") = IdCtaContable - dr("CveCuenta") = DdlCuentaContableE.SelectedValue - dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text - dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text - dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue - dr("Concepto") = TxtConceptoE.Text - dr("Referencia") = TxtReferenciaE.Text - dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, 0, 1) - dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble) - dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue - dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text - dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero - dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero - dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero - dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero - dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero - dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) - dr("Modificado") = True - - dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero - dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero - dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text - dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text - dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text - dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal - - dr("TC") = TxtModalConceptoTipoCambio.Text.ToDecimal - - dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToString.ToDecimal - - - - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero - - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero - 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero - - If TxtCargoE.Text <> "" Then - dr("Cargo") = TxtCargoE.Text.ToDouble - dr("Abono") = "".ToDouble - Else - dr("Abono") = TxtAbonoE.Text.ToDouble - dr("Cargo") = "".ToDouble - End If - - - DtMovimientos.AcceptChanges() - GvPrePoliza.EditIndex = -1 - - If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then - GvPrePoliza.DataSource = DtMovimientos - GvPrePoliza.DataBind() - UpPrePoliza.Update() - End If - GvPrePoliza.Columns(11).Visible = True - GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True - - TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero - TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero - UpTotalCargo.Update() - UpTotalAbono.Update() - + If CvePrePolizaDetalle <= 0 Then + Dim IdMov As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("IdMov").ToEntero + Rows = DtMovimientos.Select("IdMov = " & IdMov) End If - RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") - End If + If Rows.Count > 0 Then + Dim dr As DataRow = Rows(0) + Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero) + dr("IdCtaContable") = IdCtaContable + dr("CveCuenta") = DdlCuentaContableE.SelectedValue + dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text + dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text + dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue + dr("Concepto") = TxtConceptoE.Text + dr("Referencia") = TxtReferenciaE.Text + dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True) + dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble) + dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue + dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text + dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero + dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero + dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero + dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero + dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero + dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) + dr("Modificado") = True + dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero + dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero + dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text + dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text + dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text + dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal - UpPrePoliza.Update() + dr("TC") = TxtTipoCambio.Text.ToDecimal + + dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal + + If TxtCargoE.Text <> "" Then + dr("Cargo") = TxtCargoE.Text.ToDouble + dr("Abono") = "".ToDouble + Else + dr("Abono") = TxtAbonoE.Text.ToDouble + dr("Cargo") = "".ToDouble + End If + + DtMovimientos.AcceptChanges() + GvPrePoliza.EditIndex = -1 + + 'If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then + GvPrePoliza.DataSource = DtMovimientos + GvPrePoliza.DataBind() + UpPrePoliza.Update() + GvPrePoliza.Visible = True + 'End If + + GvPrePoliza.Columns(11).Visible = True + GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True + + TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero + TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero + UpTotalCargo.Update() + UpTotalAbono.Update() + + End If + RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") + End If + UpPrePoliza.Update() End Sub Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting @@ -1913,7 +1795,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("Cuenta") = DdlConceptosContables.SelectedItem dr("Referencia") = TxtReferencia.Text dr("Concepto") = TxtConcepto.Text - dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) + dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True) dr("EsComodin") = 0 dr("CveConcepto") = DdlConceptosContables.SelectedValue dr("Cargo") = TxtCargo.Text.ToDouble @@ -1943,7 +1825,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("CveConceptoContable") = DdlConceptosContables.SelectedValue dr("Concepto") = TxtDescripcion.Text dr("Referencia") = TxtReferencia.Text - dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) + dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True) dr("Cargo") = TxtCargo.Text.ToDouble dr("Abono") = TxtAbono.Text.ToDouble dr("ImporteMN") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, TxtCargo.Text.ToDouble, TxtAbono.Text.ToDouble) @@ -1985,7 +1867,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("Cuenta") = DdlConceptosContables.SelectedItem.Text dr("Referencia") = TxtReferencia.Text dr("Concepto") = TxtConcepto.Text - dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) + dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True) dr("EsComodin") = 0 dr("CveConcepto") = DdlConceptosContables.SelectedValue dr("CveConceptoContable") = DdlConceptosContables.SelectedValue @@ -2006,12 +1888,6 @@ Partial Class ContabilidadC_RegPrePolizaS DtMovimientos.Rows.Add(dr) DtMovimientos.AcceptChanges() - 'If CvePrePoliza > 0 Then - ' GvPrePoliza.DataSource = DtMovimientos - ' GvPrePoliza.DataBind() - ' UpPrePoliza.Update() - 'End If - GvMov.DataSource = DtMovimientos GvMov.DataBind() UPMovs.Update() @@ -2140,7 +2016,7 @@ Partial Class ContabilidadC_RegPrePolizaS Next UpPrePoliza.Update() End If - If UPMovs.Visible Then + If divMovtos.Visible Then For Each Gvr As GridViewRow In GvMov.Rows Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue) Next @@ -2217,58 +2093,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If - UPPDocumento.Update() - DivAgregarConceptos.Visible = True - - 'If DtMovimientos Is Nothing Then CreaDT() - - 'Dim dr As DataRow = DtMovimientos.NewRow - 'Dim CodigoCuenta As String = "" - 'Dim NombreCuenta As String = "" - - 'dr("IdCuenta") = DdlCtaContable.SelectedValue - - 'If DdlCtaContable.SelectedValue.ToEntero > 0 Then - ' Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue)) - ' If drr IsNot Nothing Then - ' CodigoCuenta = drr("CuentaFormato").ToString() - ' NombreCuenta = drr("Nombre").ToString() - ' End If - 'End If - - 'dr("CodigoCuenta") = CodigoCuenta & "
    " & NombreCuenta - 'dr("Cuenta") = DdlConceptosContables.SelectedItem - 'dr("Referencia") = TxtReferencia.Text - 'dr("Concepto") = TxtObservaciones.Text - 'dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) - 'dr("EsComodin") = 0 - 'dr("CveConcepto") = DdlConceptosContables.SelectedValue - 'dr("Cargo") = TxtCargo.Text.ToDouble - 'dr("Abono") = TxtAbono.Text.ToDouble - 'dr("Descripcion") = TxtDescripcion.Text - 'dr("CveSubProyecto") = DdlSubProyecto.SelectedValue - 'dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero - 'dr("CveCompra") = DdlCompras.SelectedValue.ToEntero - 'dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero - 'dr("CveClasificacion") = -1 - 'dr("CveCliente") = DdlClientes.SelectedValue.ToEntero - 'dr("CveVenta") = DdlVentas.SelectedValue.ToEntero - - 'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero - 'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero - 'DtMovimientos.Rows.Add(dr) - - 'If CvePrePoliza > 0 Then - ' GvPrePoliza.DataSource = DtMovimientos - ' GvPrePoliza.DataBind() - 'End If - - - 'GvMov.DataSource = DtMovimientos - 'GvMov.DataBind() - 'UPMovs.Update() - - End Sub Private Sub LbCancelarEdicion_Click(sender As Object, e As EventArgs) Handles LbCancelarEdicion.Click @@ -2956,9 +2780,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'divDatosPrincipales.Visible = False 'divObservaciones.Visible = False - UPMovs.Visible = False - UPMovs.Update() - UPPDocumento.Update() + UpPrePoliza.Update() RegistraScript("comparar();") @@ -2988,7 +2810,7 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub - Private Sub CrarPrePolizaApartirDe() + Private Sub CrearPrePolizaApartirDe() Dim CvePrePoliza As Integer Dim FolioPoliza As Integer @@ -3131,9 +2953,6 @@ Partial Class ContabilidadC_RegPrePolizaS MsgError = ObjMov.MensajePolizaDescuadre End If End If - - - Else MsgError = "No se pudo insertar la póliza" End If @@ -3157,8 +2976,6 @@ Partial Class ContabilidadC_RegPrePolizaS ObjIE.Commit() If Conta IsNot Nothing Then Conta.Commit() - UPPDocumento.Update() - TxtConcepto.Text = "" GvMov.DataBind() TxtFechaDocumento.Text = ""