AC/RegNomina.aspx

@@ -96,13 +96,15 @@
                                
                             </tr><tr> <td>Crédito al Salario</td>
                                 <td>
-                                    <asp:TextBox ID="TxtCredSalario" runat="server" Width="75px"></asp:TextBox></td></tr></table>
+                                    <asp:TextBox ID="TxtCredSalario" runat="server" Width="75px"></asp:TextBox></td>
+                                
+                                 </tr></table>
                         </asp:Panel>
-                        <asp:Panel ID="PnlFiniquito" runat="server" Visible="false">
+                        <asp:Panel ID="PnlFiniquito" runat="server" Visible="true">
-                            <table>
+                            <table border="0" id="TbIEPersonal" runat="server" Visible="false" >
                                 <tr><td>Personal:</td><td><asp:DropDownList CssClass="select2me" ID="DdlNominaPersonal" DataTextField="Nombre" DataValueField="CvePersonal" runat="server" Width="200px"> </asp:DropDownList></td></tr>
                             </table>
-                            <table border="0" id="TbIE" runat="server" visible="false">                                
+                            <table border="0" id="TbIE" runat="server" visible="true">                                
                                 <tr><td>Movimiento:</td><td><asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpGuardar" Width="250px"></asp:DropDownList></td></tr>
                                 <tr><td>Cuenta Bancaria:</td><td><asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me" Width="250px" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" ValidationGroup="GrpGuardar"></asp:DropDownList></td></tr>
                                 <tr><td>Folio:</td><td><asp:TextBox ID="TxtFolio" runat="server" MaxLength="14" class="form-control input-sm" Width="70px"></asp:TextBox></td></tr>

AC/RegNomina.aspx.vb

@@ -51,6 +51,7 @@ Partial Class AC_RegNomina
 
             CargaPresupuestos()
             CargaMeta()
+            CargaCombosIE()
             TxtImporte.Enabled = False
             CreaDTDetalles()
             BtnAgregar.Enabled = False
@@ -232,6 +233,10 @@ Partial Class AC_RegNomina
                 Dim total As Double = LbTotal.Text.ToDouble
                 LbTotal.Text = (total + dr("Importe").ToString.ToDouble).ToString.FormatoNumero
 
+                If RBLPago.selectedvalue = "1" Then
+                    txttotal.text = LbTotal.Text.todecimal.FormatoNumero
+                End If
+
                 CboMeta.SelectedIndex = -1
                 CboUnidadAdministrativa.Items.Clear()
                 CboFuenteFinanciamiento.Items.Clear()
@@ -241,6 +246,8 @@ Partial Class AC_RegNomina
                 TxtImporte.Text = ""
                 TxtImporte.Enabled = False
                 BtnAgregar.Enabled = False
+
+
             Else
                 Alert("El importe supera el capital disponible. Por favor de revisar y modificar", TipoMensaje.MsgAdvertencia)
             End If
@@ -270,6 +277,9 @@ Partial Class AC_RegNomina
                 ChkDevengar.Checked = True : ChkEjercer.Checked = True : ChkPagar.Checked = True
                 ChkEjercer.Enabled = True : ChkPagar.Enabled = True
                 tbGeneral.Visible = True
+                TbIEPersonal.visible = False
+                PnlFiniquito.visible = True
+                CargaCombosIE()
             Case "2"
                 PnlNomina.Visible = False : PnlFiniquito.Visible = True
                 ChkEjercer.Checked = False : ChkEjercer.Enabled = False
@@ -278,7 +288,7 @@ Partial Class AC_RegNomina
                 ChkDevengar.Checked = True
                 trGasto.Visible = True
                 tbGeneral.Visible = True
-
+                TbIEPersonal.visible = True
                 DdlNominaPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("IdCtaContPersonal > 0")
                 DdlNominaPersonal.DataBind()
                 TbIE.Visible = False
@@ -287,19 +297,7 @@ Partial Class AC_RegNomina
                 ChkDevengar.Checked = True : ChkEjercer.Checked = True : ChkPagar.Checked = True
                 trGasto.Visible = False
                 tbGeneral.Visible = False
-
+                CargaCombosIE()
-                DdlTipoTransaccion.Items.Clear()
-                DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros(String.Format("Tipo = '{0}'", If(RBLPago.SelectedValue = "3", "Ing", "Egs")))
-                DdlTipoTransaccion.DataBind()
-
-                DdlNominaPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("IdCtaContPersonal > 0")
-                DdlNominaPersonal.DataBind()
-
-                DdlCuenta.Items.Clear()
-                Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
-                DdlCuenta.DataSource = dt
-                DdlCuenta.DataBind()
-                TbIE.Visible = True
 
                 If RBLPago.SelectedValue = "4" Then
                     trGasto.Visible = True
@@ -311,6 +309,23 @@ Partial Class AC_RegNomina
 
     End Sub
 
+    Public Sub CargaCombosIE()
+
+        DdlTipoTransaccion.Items.Clear()
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros(String.Format("Tipo = '{0}' and Estatus = 1", If(RBLPago.SelectedValue = "3", "Ing", "Egs")))
+        DdlTipoTransaccion.DataBind()
+
+        DdlNominaPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("IdCtaContPersonal > 0")
+        DdlNominaPersonal.DataBind()
+        DdlNominaPersonal.items.insert(0, New listitem("-", "-1"))
+
+        DdlCuenta.Items.Clear()
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveTipoCuenta <> 1") ' quito las cajas chicas
+        DdlCuenta.DataSource = dt
+        DdlCuenta.DataBind()
+        TbIE.Visible = True
+    End Sub
+
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
         'Dim valor As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero
         'Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))  'Egs o Ing
@@ -351,6 +366,8 @@ Partial Class AC_RegNomina
         Dim Total As Decimal = DtDetalle.SUMD("Importe")
         Dim Fecha As Date = TxtFecha.Text.ToDate
         Dim Concepto As String = TxtConcepto.Text.Trim
+        Dim GeneraIE As Boolean = False
+
 
         Dim IdCtaISPT As Integer = 640
         Dim IdCtaCreditoSalario As Integer = 635
@@ -379,10 +396,15 @@ Partial Class AC_RegNomina
             If dr IsNot Nothing Then
                 IdCtaPersonal = dr("IdCtaContPersonal").ToString.ToEntero
             End If
+        Else
+            If Seleccion = "1" Then
+                CtaPuente = 0
+                GeneraIE = True
+            End If
 
         End If
 
-        If Seleccion.Contiene("3", "4") Then
+        If Seleccion.Contiene("1", "3", "4") Then
 
             Dim dr As DataRow
             dr = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta={0}", DdlCuenta.SelectedValue))
@@ -440,57 +462,57 @@ Partial Class AC_RegNomina
 
             If TieneError Then MensajeError = "Error Tipo 1"
 
-            If Seleccion.Contiene("1", "2", "3") Then
+            'If Seleccion.Contiene("1", "2", "3") Then
 
-                Total = DtDetalle.SUMD("Importe")
+            '    Total = DtDetalle.SUMD("Importe")
-                If Seleccion = "3" Then Total = TxtTotal.Text.ToDecimal
+            '    If Seleccion = "3" Then Total = TxtTotal.Text.ToDecimal
-                Dim objACPI As New ClsAC()
+            '    Dim objACPI As New ClsAC()
 
-                If objACPI.GetPresupuestoIngresos(CvePresupuestoIngreso, UsuarioActual.Empresa.EjercicioActual, True, UsuarioActual.CveEmpresa) Then
+            '    If objACPI.GetPresupuestoIngresos(CvePresupuestoIngreso, UsuarioActual.Empresa.EjercicioActual, True, UsuarioActual.CveEmpresa) Then
-                    If objACPI.DtResultados.Rows.Count > 0 Then
+            '        If objACPI.DtResultados.Rows.Count > 0 Then
-                        drt = objACPI.DtResultados.Rows(0)
+            '            drt = objACPI.DtResultados.Rows(0)
 
-                        If RBLPago.SelectedValue.Contiene("1", "2") Then
+            '            If RBLPago.SelectedValue.Contiene("1", "2") Then
 
-                            'se debe de registrar el ingreso 
+            '                'se debe de registrar el ingreso 
-                            'DEVENGO EL INGRESO
+            '                'DEVENGO EL INGRESO
-                            If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaPorEjecutar").ToString.ToEntero, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaPorEjecutar").ToString.ToEntero, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
-                            If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
-                            'CARGO la deuda del cliente 
+            '                'CARGO la deuda del cliente 
-                            'If Not objAC.AddMovimiento(IDPoliza, CtaCliente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                'If Not objAC.AddMovimiento(IDPoliza, CtaCliente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
-                            'abono,
+            '                'abono,
 
-                            If Not objAC.AddMovimiento(IDPoliza, CtaCliente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Not objAC.AddMovimiento(IDPoliza, CtaCliente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
-                            If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaMatriz").ToString.ToEntero, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaMatriz").ToString.ToEntero, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
 
 
-                        End If
+            '            End If
-                        If RBLPago.SelectedValue.Contiene("1", "3") Then
+            '            If RBLPago.SelectedValue.Contiene("1", "3") Then
-                            'RECAUDO EL INGRESO
+            '                'RECAUDO EL INGRESO
-                            If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
-                            If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaRecaudado").ToString.ToEntero, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaRecaudado").ToString.ToEntero, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
-                            If Seleccion = "1" AndAlso Not objAC.AddMovimiento(IDPoliza, CtaPuente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Seleccion = "1" AndAlso Not objAC.AddMovimiento(IDPoliza, CtaPuente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
-                            If Not objAC.AddMovimiento(IDPoliza, CtaCliente, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+            '                If Not objAC.AddMovimiento(IDPoliza, CtaCliente, True, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
-                        End If
+            '            End If
 
-                    Else
+            '        Else
-                        TieneError = True
+            '            TieneError = True
-                    End If
+            '        End If
-                Else
+            '    Else
-                    TieneError = True
+            '        TieneError = True
-                End If
+            '    End If
 
-                objACPI.Dispose()
+            '    objACPI.Dispose()
 
-            End If
+            'End If
 
             If IdCtaPersonal > 0 Then
 
@@ -499,52 +521,54 @@ Partial Class AC_RegNomina
                 'cuando es el pago a personal, se carga, los demas casos se abona
                 If Seleccion.Contiene("1", "2", "4") Then If Not objAC.AddMovimiento(IDPoliza, IdCtaPersonal, If(Seleccion = "4", False, True), Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
                 CtaPuente = 0 ' para que no se inserte mas abajo
+                GeneraIE = True
+            End If
 
-                If Seleccion.Contiene("3", "4") Then
+            If Seleccion.Contiene("1", "3", "4") AndAlso GeneraIE Then
-                    'registro un IE 
+                'registro un IE 
-                    ObjIE = New ClsBancos
+                ObjIE = New ClsBancos
-                    ObjIE.IniciaTransacSQL()
+                ObjIE.IniciaTransacSQL()
-                    Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
+                Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
-                    Dim CvePrePoliza = ObjMov.AddPrePolizas("Banc", 2, Importe, Importe, 1, Fecha, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                Dim CvePrePoliza = ObjMov.AddPrePolizas("Banc/RegNomina", 2, Importe, Importe, 1, Fecha, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    Dim Obs As String = TxtConcepto.Text
+                Dim Obs As String = TxtConcepto.Text
-                    Dim Folio As String
+                Dim Folio As String
 
-                    Folio = TxtFolio.Text.Trim
+                Folio = TxtFolio.Text.Trim
-                    Dim CveConceptoCargo As Integer = 30
+                Dim CveConceptoCargo As Integer = 30
-                    Dim CveConceptoAbono As Integer = 28
+                Dim CveConceptoAbono As Integer = 28
-                    Total = TxtTotal.Text.ToDecimal
+                Total = TxtTotal.Text.ToDecimal
 
-                    If Seleccion = "4" Then Total = DtDetalle.SUMD("Importe")
+                If Seleccion = "4" Then Total = DtDetalle.SUMD("Importe")
 
-                    'cuando saco el egreso invierto los concepto
+                'cuando saco el egreso invierto los concepto
-                    If Seleccion = "3" Then
+                If Seleccion = "3" Then
-                        CveConceptoCargo = 29
+                    CveConceptoCargo = 29
-                        CveConceptoAbono = 30
+                    CveConceptoAbono = 30
-                    End If
+                ElseIf Seleccion = "1" Then
+                    CveConceptoCargo = 95
+                    CveConceptoAbono = 30
+                    Obs = "NOMINA PAGADA"
+                End If
 
                     'lo envia como transferencia recibida
                     CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, Folio, Obs, Total, 1, 1.0, Obs, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                    If CveIE > 0 Then
+                If CveIE > 0 Then
-                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Total, "", CveConceptoCargo, Obs, Fecha, 0, -1, CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero, ImporteMX:=Total) Then
+                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Total, "", CveConceptoCargo, Obs, Fecha, 0, -1, CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero, ImporteMX:=Total) Then
-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, "", CveConceptoAbono, Obs, Fecha, 0, -1, CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero, ImporteMX:=Total) Then
+                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, "", CveConceptoAbono, Obs, Fecha, 0, -1, CveIE, CvePersonal:=DdlNominaPersonal.SelectedValue.ToEntero, ImporteMX:=Total) Then
-                                MsgError = "no se pudo insertar el detalle de la póliza 2"
+                            MsgError = "no se pudo insertar el detalle de la póliza 2"
-                            End If
-                        Else
-                            MsgError = "no se pudo insertar el detalle de la póliza"
                         End If
-
-                        ObjIE.UpdateIEPrePoliza(Fecha, objAC.Folio.ToString, IDPoliza, CvePrePoliza, CveIE, -1)
                     Else
-                        TieneError = True
+                        MsgError = "no se pudo insertar el detalle de la póliza"
                     End If
 
-                    'Registra el movimiento total
+                    ObjIE.UpdateIEPrePoliza(Fecha, objAC.Folio.ToString, IDPoliza, CvePrePoliza, CveIE, -1)
-                    If Not objAC.AddMovimiento(IDPoliza, IdCtaBancaria, If(Seleccion = "3", False, True), Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+                Else
-
+                    TieneError = True
                 End If
 
-
+                'Registra el movimiento total
+                If Not objAC.AddMovimiento(IDPoliza, IdCtaBancaria, If(Seleccion = "3", False, True), Total, "", Concepto, 0, Fecha, "") Then TieneError = True
 
             End If
 
@@ -566,7 +590,6 @@ Partial Class AC_RegNomina
             Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble
             If Importe <> 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaDevolucionISPT, If(Importe > 0, False, True), Math.Abs(Importe), "", Concepto, 0, Fecha, "") Then TieneError = True
 
-
         Else
             TieneError = True
         End If