--activación de concepto bancos, si es cargo, deben de salir las opciones de Ingreso, sino de egreso.

Contabilidad/RegPrePolizaS.aspx

@@ -562,7 +562,7 @@
                                 <asp:TemplateField  >
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkEdit" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                                        <asp:LinkButton ID="LnkGvPrePolizaEliminar" OnClick="LnkGvPrePolizaEliminar_Click" runat="server" AlternateText="Eliminar"  CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
+                                        <asp:LinkButton ID="LnkEliminar" OnClick="LnkGvPrePolizaEliminar_Click" runat="server" AlternateText="Eliminar"  CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
                                              data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"   />
                                     </ItemTemplate>
                                    <ItemStyle   Width="120px" />

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1000,8 +1000,11 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                         'Registra movimieno bancario
                         If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso (gvr.DataKey("ContadoImporte").ToDecimal <> 0 OrElse TipoGrid = 1) Then
+                            Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
+                            If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)
 
-                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"),
+
+                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio,
                                                        gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
                                                        False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CveIE < 0 Then
@@ -1490,6 +1493,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
             If AplicaBancos AndAlso Not AplicaComplementaria Then
+                TxtCargoE.AutoPostBack = True
+                TxtAbonoE.AutoPostBack = True
                 CargaModalConceptoTipoTransaccion("Egs")
                 'DivModalConceptoAncho.Attributes.Add("style", "width:1000px")
                 DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
@@ -1500,6 +1505,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
                 RegistraScript("$('#DivModalConceptoAncho').attr('style','width:450px');")
                 DvMoldalConceptoSeccion2.Visible = False
+                TxtCargoE.AutoPostBack = False
+                TxtAbonoE.AutoPostBack = False
             End If
 
             If AplicaTC Then
@@ -2932,11 +2939,12 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                         End If
 
-
                         If gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
 
+                            Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
+                            If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)
 
-                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
+                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio,
                                                        gvr.DataKey("ContadoBeneficiario").ToString, Importe, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
                                                        False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             FolioIE = gvr.DataKey("ContadoNumeroFolio").ToString
@@ -2947,9 +2955,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                         End If
 
-
-
-
                         If gvr.DataKey("CveConceptoContable").ToEntero <> 30 Then
 
                             If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
@@ -2960,15 +2965,12 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                         End If
 
-
                         If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
                             idCuentaContabilizacion = 0
                         End If
                         If Importe <> 0 Then
                             Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
 
-
-
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.DataKey("Referencia"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("Concepto"),
                                                            TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE,
                                                            CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
@@ -2976,7 +2978,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                            ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.DataKey("CveTipoGasto").ToEntero,
                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
 
-
                             Else
                                 MsgError = "No se pudo insertar el detalle de la póliza2"
                                 Exit For
@@ -3008,11 +3009,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If MsgError = "" Then
 
-
                 Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} <br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
 
-
-
                 ObjIE.Commit()
                 If Conta IsNot Nothing Then Conta.Commit()
 
@@ -3045,6 +3043,11 @@ Partial Class ContabilidadC_RegPrePolizaS
         GvPrePoliza.DataSource = DtMovimientos
         GvPrePoliza.DataBind()
 
+        TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+        TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+        UpTotalCargo.Update()
+        UpTotalAbono.Update()
+
         UpPrePoliza.Update()
     End Sub
 
@@ -3069,20 +3072,15 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlModalConceptoCuenta.DataBind()
         DdlModalConceptoCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-
-
     End Sub
 
 
 #End Region
 
-
-
     Private Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs) Handles BtnDescontabilizar.Click
 
         Dim ObjConta As New ClsContabilidad
 
-
         If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
 
             Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion)
@@ -3118,5 +3116,13 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Venta.Dispose()
     End Sub
+
+    Private Sub TxtCargoE_TextChanged(sender As Object, e As EventArgs) Handles TxtCargoE.TextChanged
+        If TxtCargoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Ing")
+    End Sub
+
+    Private Sub TxtAbonoE_TextChanged(sender As Object, e As EventArgs) Handles TxtAbonoE.TextChanged
+        If TxtAbonoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Egs")
+    End Sub
 End Class