diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 7b4aa0184..3e84bfa9f 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -583,10 +583,23 @@   - + + + + + + - + + + + + + + + + @@ -770,7 +783,7 @@ Cargo:
-
+
@@ -778,7 +791,7 @@ Abono:
-
+
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 8f2befccb..c34e1d140 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -188,6 +188,15 @@ Partial Class ContabilidadC_RegPrePolizaS End Set End Property + Public Property IDMovEditar As Integer + Get + Return CType(ViewState("IDMovEditar"), Integer) + End Get + Set(value As Integer) + ViewState("IDMovEditar") = value + End Set + End Property + Public Property TipoPoliza As String Get Return CType(ViewState("TipoPoliza"), String) @@ -317,12 +326,11 @@ Partial Class ContabilidadC_RegPrePolizaS .Add("CveConceptoContable", Type.GetType("System.Int32")) .Add("IdCtaContable", Type.GetType("System.Int32")) .Add("ConceptoContable", Type.GetType("System.String")) - .Add("CveCuenta", Type.GetType("System.Int32")) - + .Add("CveCuenta", Type.GetType("System.Int32")) .Add("ContadoTipoTransaccion", Type.GetType("System.Int32")) .Add("ContadoCuenta", Type.GetType("System.Int32")) - .Add("ContadoNumeroFolio", Type.GetType("System.Int32")) - .Add("ContadoImporte", Type.GetType("System.Int32")) + .Add("ContadoNumeroFolio", Type.GetType("System.String")) + .Add("ContadoImporte", Type.GetType("System.Dou")) .Add("ContadoBeneficiario", Type.GetType("System.String")) .Add("ContadoObservaciones", Type.GetType("System.String")) @@ -826,10 +834,10 @@ Partial Class ContabilidadC_RegPrePolizaS If e.Row.DataKey("CveConcepto").ToEntero.Contiene(30) Then e.Row.FCLinkButton("ImgBancos").Visible = True - - If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then - e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" - End If + If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And + e.Row.DataKey("ContadoImporte").ToEntero > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then + e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" + End If End If End If End Sub @@ -887,6 +895,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'Registra movimieno bancario If gvr.DataKey("CveConcepto").ToEntero = 30 Then + CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString, gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -935,7 +944,7 @@ Partial Class ContabilidadC_RegPrePolizaS Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For - End If + End If End If If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then MensajeAlert.AppendFormat("

Folio Bancario: {1}", CveIE, FolioIE) @@ -1273,8 +1282,6 @@ Partial Class ContabilidadC_RegPrePolizaS dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, "")) - 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() @@ -1282,7 +1289,12 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() UpPrePoliza.Update() - End If + 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 = "" @@ -1372,8 +1384,7 @@ Partial Class ContabilidadC_RegPrePolizaS dr("Cargo") = "".ToDouble End If - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbonoE.Text.ToDouble).ToString.FormatoNumero - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargoE.Text.ToDouble).ToString.FormatoNumero + DtMovimientos.AcceptChanges() GvPrePoliza.EditIndex = -1 @@ -1382,11 +1393,17 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataBind() UpPrePoliza.Update() End If - GvPrePoliza.Columns(11).Visible = True + GvPrePoliza.Columns(11).Visible = True + GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = 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 - End If + End If + UpPrePoliza.Update() RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal") @@ -1563,17 +1580,17 @@ Partial Class ContabilidadC_RegPrePolizaS Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IdMov) + IDMovEditar = IdMov If Rows.Count > 0 Then Dim dr As DataRow = Rows(0) - Dim folio As Integer = dr("ContadoTipoTransaccion").ToString.ToEntero DdlTipoTransaccion.SelectedValueExist(dr("ContadoTipoTransaccion").ToString.ToEntero) DdlCuenta.SelectedValueExist(dr("ContadoCuenta").ToString.ToEntero) - TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString.ToEntero + TxtDocumentoFolio.Text = dr("ContadoNumeroFolio").ToString TxtDocumentoObservaciones.Text = dr("ContadoObservaciones").ToString TxtDocumentoBeneficiario.Text = dr("ContadoBeneficiario").ToString End If - + TxtDocumentoImporte.Text = If(GvRow.FCTextBox("TxtAbono").Text = "", GvRow.FCTextBox("TxtCargo").Text.FormatoNumero, GvRow.FCTextBox("TxtAbono").Text.FormatoNumero) UpBancos.Update() RegistraScript(String.Format("$('#{0}').modal();", "DivContadoModal")) @@ -1590,14 +1607,31 @@ Partial Class ContabilidadC_RegPrePolizaS DdlCuenta.DataBind() DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub - Private Sub BtnContado_Click(sender As Object, e As EventArgs) Handles BtnContado.Click - CveConcepto = 30 - CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero - CveCuenta = DdlCuenta.SelectedValue.ToEntero - Folio = TxtDocumentoFolio.Text - ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal - Observaciones = TxtDocumentoObservaciones.Text - Beneficiario = TxtDocumentoBeneficiario.Text + Private Sub BtnContado_Click(sender As Object, e As EventArgs) Handles BtnContado.Click + Dim Rows As DataRow() = DtMovimientos.Select("IdMov = " & IDMovEditar) + + If Rows.Count > 0 Then + Dim dr As DataRow = Rows(0) + + + dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero + dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero + dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text + dr("ContadoImporte") = TxtDocumentoImporte.Text.ToDecimal + dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text + dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text + End If + DtMovimientos.AcceptChanges() + GvMov.DataSource = DtMovimientos + GvMov.DataBind() + 'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero + 'CveCuenta = DdlCuenta.SelectedValue.ToEntero + 'Folio = TxtDocumentoFolio.Text + 'ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal + 'Observaciones = TxtDocumentoObservaciones.Text + 'Beneficiario = TxtDocumentoBeneficiario.Text + + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal")) GvMov.Rows(RowIndex).FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" UPMovs.Update() @@ -2008,10 +2042,10 @@ Partial Class ContabilidadC_RegPrePolizaS DdlCuenta.SelectedValue = CveBancoCuenta End If TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero - FolioExcel = Row("Folio").ToString.ToEntero + FolioExcel = Row("Folio").ToString CveTipoTransaccion = TipoMov CveCuenta = CveBancoCuenta - Folio = Row("Folio").ToString.ToEntero + Folio = FolioExcel ImporteDocumento = IIf(Row("Abono").ToString.ToEntero > 0, Row("Abono").ToString, Row("Cargo").ToString) Observaciones = Row("Referencia").ToString Beneficiario = Row("Concepto").ToString