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
|