diff --git a/AC/RegNomina.aspx b/AC/RegNomina.aspx
index ff40472e7..5f660dfe7 100644
--- a/AC/RegNomina.aspx
+++ b/AC/RegNomina.aspx
@@ -96,13 +96,15 @@
| Crédito al Salario |
- |
+
+
+
-
-
+
+
-
+
| Movimiento: | |
| Cuenta Bancaria: | |
| Folio: | |
diff --git a/AC/RegNomina.aspx.vb b/AC/RegNomina.aspx.vb
index 48188e68e..2d6a6cd3d 100644
--- a/AC/RegNomina.aspx.vb
+++ b/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
-
- 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
+ CargaCombosIE()
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")
- If Seleccion = "3" Then Total = TxtTotal.Text.ToDecimal
- Dim objACPI As New ClsAC()
+ ' Total = DtDetalle.SUMD("Importe")
+ ' If Seleccion = "3" Then Total = TxtTotal.Text.ToDecimal
+ ' Dim objACPI As New ClsAC()
- If objACPI.GetPresupuestoIngresos(CvePresupuestoIngreso, UsuarioActual.Empresa.EjercicioActual, True, UsuarioActual.CveEmpresa) Then
- If objACPI.DtResultados.Rows.Count > 0 Then
- drt = objACPI.DtResultados.Rows(0)
+ ' If objACPI.GetPresupuestoIngresos(CvePresupuestoIngreso, UsuarioActual.Empresa.EjercicioActual, True, UsuarioActual.CveEmpresa) Then
+ ' If objACPI.DtResultados.Rows.Count > 0 Then
+ ' 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
- 'DEVENGO EL INGRESO
- If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaPorEjecutar").ToString.ToEntero, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+ ' 'se debe de registrar 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("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
- 'If Not objAC.AddMovimiento(IDPoliza, CtaCliente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
- 'abono,
+ ' 'CARGO la deuda del cliente
+ ' 'If Not objAC.AddMovimiento(IDPoliza, CtaCliente, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+ ' '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
- If RBLPago.SelectedValue.Contiene("1", "3") Then
- 'RECAUDO EL INGRESO
- If Not objAC.AddMovimiento(IDPoliza, drt("IdCuentaDevengado").ToString.ToEntero, False, Total, "", Concepto, 0, Fecha, "") Then TieneError = True
+ ' End If
+ ' If RBLPago.SelectedValue.Contiene("1", "3") Then
+ ' '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("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
- TieneError = True
- End If
- Else
- TieneError = True
- End If
+ ' Else
+ ' TieneError = True
+ ' End If
+ ' Else
+ ' TieneError = True
+ ' 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
- 'registro un IE
- ObjIE = New ClsBancos
- 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 Obs As String = TxtConcepto.Text
- Dim Folio As String
+ If Seleccion.Contiene("1", "3", "4") AndAlso GeneraIE Then
+ 'registro un IE
+ ObjIE = New ClsBancos
+ ObjIE.IniciaTransacSQL()
+ Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
+ 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 Folio As String
- Folio = TxtFolio.Text.Trim
- Dim CveConceptoCargo As Integer = 30
- Dim CveConceptoAbono As Integer = 28
- Total = TxtTotal.Text.ToDecimal
+ Folio = TxtFolio.Text.Trim
+ Dim CveConceptoCargo As Integer = 30
+ Dim CveConceptoAbono As Integer = 28
+ 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
- If Seleccion = "3" Then
- CveConceptoCargo = 29
- CveConceptoAbono = 30
- End If
+ 'cuando saco el egreso invierto los concepto
+ If Seleccion = "3" Then
+ CveConceptoCargo = 29
+ CveConceptoAbono = 30
+ 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 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
- 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"
+ If CveIE > 0 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
+ MsgError = "no se pudo insertar el detalle de la póliza 2"
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
- If Not objAC.AddMovimiento(IDPoliza, IdCtaBancaria, If(Seleccion = "3", False, True), Total, "", Concepto, 0, Fecha, "") Then TieneError = True
-
+ ObjIE.UpdateIEPrePoliza(Fecha, objAC.Folio.ToString, IDPoliza, CvePrePoliza, CveIE, -1)
+ 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