diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 72ba56b54..4ddd2d56a 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1445,7 +1445,7 @@ Public Class ClsBancos .Add("@FechaDocumento", SqlDbType.Date).Value = FechaDocumento .Add("@Folio", SqlDbType.VarChar).Value = Folio .Add("@PagueseA", SqlDbType.VarChar).Value = PagueseA - .Add("@Importe", SqlDbType.Money).Value = Importe + .Add("@Importe", SqlDbType.Money).Value = Importe.RoundSQL .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index ed48b6e96..b3cf9ba5b 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -174,6 +174,46 @@ Public Class ClsNominas End Sub #End Region + Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_AutorizaCalculoAnual", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@PersonalXml", SqlDbType.Xml).Value = If(String.IsNullOrEmpty(PersonalXml), DBNull.Value, DirectCast(PersonalXml, Object)) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al aplicar calculo anual.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function PersonalAplicaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, CvePersonal As Integer, Aplica As Integer, motivo As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_PersonalAplicaCalculoAnual", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Aplica", SqlDbType.Int).Value = Aplica + .Add("@Motivo", SqlDbType.VarChar).Value = motivo + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al aplicar calculo anual.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function #Region "ClsNominas_Nominas" Public Function NominaUpMetododepago(cveEmpresa As Integer, CvePersonal As Integer, CvePeriodo As Integer, MetodoPagoFijo As Boolean, diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index a0b88fb36..248704414 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -118,12 +118,14 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState context.Response.Write(sendMailLPM(context)) Case "getSATColomias" getSatColonias(context) - Case "GetFilesDirectory" + Case "GetFilesDirectory" GetFilesDirectory(context) Case "Getetiquetas" Getetiquetas(context) - Case "cancelarRemision" + Case "cancelarRemision" cancelarRemision(context) + Case "RemoveMovimiento" + RemoveMovimiento(context) End Select Catch ex As Exception ex.GuardaLog(ex.Message) @@ -1644,4 +1646,66 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Return retorno End Function #End Region + Private Function RemoveMovimiento(ByVal context As HttpContext) As String + Dim retorno As String = "" + + Dim Borrar As Boolean = False + Dim Inv As New ClsInventarios + Dim Conta As New ClsContabilidad(Inv.IniciaTransacSQL()) + Dim ObjGral As New ClsGenerales(Inv.IniciaTransacSQL()) + + Dim CveMovimiento As Integer = IfNull(context.Request("CveMovimiento"), "-1").ToString().ToEntero() + Dim CveEmpresa As Integer = IfNull(context.Request("CveEmpresa"), "-1").ToString().ToEntero() + + Dim TieneError = False + + CveMovimiento.ToString.GuardaLog + + 'Dim ObjConta As ClsContPAQi = Nothing + 'If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then + ' ObjConta = New ClsContPAQi(UsuarioActual.Empresa) + ' ObjConta.IniciaTransacSQL() + 'End If + + 'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then + ' TieneError = True + 'End If + + If Not Inv.MovimientoRemove(CveMovimiento, CveEmpresa) Then + + TieneError = True + End If + + 'If Not TieneError Then + ' If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + ' TieneError = True + ' End If + 'End If + + If Not TieneError Then + 'If ObjConta IsNot Nothing Then ObjConta.Commit() + Inv.Commit() + + + Else + Inv.RollBack() + + Alert("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intentar.", TipoMensaje.MsgError) + End If + CveMovimiento = 0 + + Inv.Dispose() + ObjGral.Dispose() + Conta.Dispose() + If Not String.IsNullOrEmpty(retorno) Then + context.Response.Write(retorno) + Else + context.Response.Write("[]") + End If + + Return retorno + End Function + + + End Class \ No newline at end of file diff --git a/Bancos/RepIE.aspx b/Bancos/RepIE.aspx index ae5d9e704..d44810e5d 100644 --- a/Bancos/RepIE.aspx +++ b/Bancos/RepIE.aspx @@ -329,8 +329,8 @@
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index 72be2e8c0..9fbf0c80c 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 52d7f470c..209f43a40 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4844,13 +4844,17 @@ - + - + + + + + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7c8ceedc8..32780864d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6434,7 +6434,7 @@ Partial Class Compras_Compras ' End If Case 6 'Compra - Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" @@ -6826,7 +6826,7 @@ Partial Class Compras_Compras Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) - importeMNTemp = (Gvr.DataKey("PU").ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL + importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL ImporteTransito += importeMNTemp 'se registra por cada compra relacionada If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMNTemp, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index bbeb59cd2..9cb7e9dd9 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -194,7 +194,8 @@ Partial Class PopUpVerFactura If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then SeleccionaReporte(UrlParametros) End If - End If + End If + If Request("onlyPrint") IsNot Nothing Then If Request("onlyPrint").ToString() = "Pallet" Then imprimirpallet2(Request("CvePallet").ToString.ToEntero()) @@ -216,6 +217,16 @@ Partial Class PopUpVerFactura Dim SubProyecto As String = "" Dim AgenciaAduanalUSA As String = "" Dim AgenciaAduanalMEX As String = "" + Dim Temperatura As String = "" + Dim Hora As String = "" + Dim Chofer As String = "" + Dim CamPlaca As String = "" + Dim Camion As String = "" + Dim Rem1Placa As String = "" + Dim Remolque1 As String = "" + Dim NoPallets As String = "" + Dim NoBultos As String = "" + Dim NoKgManifiesto As String = "" Dim tablaReporte As New DataTable 'Envase = "1 1/9" @@ -227,13 +238,34 @@ Partial Class PopUpVerFactura If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then Dim row As DataRow = objnom.DtResultados.Rows(0) NoEmbarque = row("NoEmbarque").ToString() - Fecha = row("Fecha").ToString() + Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha")) SubProyecto = row("SubProyecto").ToString() AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString() AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString() + Temperatura = row("Temperatura").ToString() + Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng")) + Chofer = row("Chofer").ToString() + CamPlaca = row("CamPlaca").ToString() + Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion")) + Rem1Placa = row("Rem1Placa").ToString() + Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion")) + If row("CveCamionRemolque1").ToString() = "1" Then + Rem1Placa = "12-TF-5E" + Remolque1 = "Remolque 1" + Else + Rem1Placa = "15-TF-7f" + Remolque1 = "Remolque 2" + End If + + If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then + NoPallets = objnom.DtResultados.Rows.Count.ToString() + NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2") + NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0") + tablaReporte = objnom.DtResultados + End If End If - + 'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f End Using Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NoEmbarque", NoEmbarque)) @@ -241,9 +273,18 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("SubProyecto", SubProyecto)) params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA)) params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX)) - params.Add(New ReportParameter("Temperatura", "45")) + params.Add(New ReportParameter("Temperatura", Temperatura)) + params.Add(New ReportParameter("Hora", Hora)) + params.Add(New ReportParameter("Chofer", Chofer)) + params.Add(New ReportParameter("CamPlaca", CamPlaca)) + params.Add(New ReportParameter("Camion", Camion)) + params.Add(New ReportParameter("Rem1Placa", Rem1Placa)) + params.Add(New ReportParameter("Remolque1", Remolque1)) + params.Add(New ReportParameter("NoBultos", NoBultos)) + params.Add(New ReportParameter("NoPallets", NoPallets)) + params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto)) @@ -1609,7 +1650,7 @@ Partial Class PopUpVerFactura Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT - Timbre.Comprobante.Subtotal = Obj.SubTotal + Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento Timbre.Comprobante.Moneda = Obj.MonedaSAT Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index d8d7cf6c7..b8062cc96 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -66,9 +66,9 @@ Textbox81 0.36804in - 5.50529in + 4.70028in 0.18682in - 2.05349in + 2.8585in @@ -84,8 +84,8 @@ Logo Fit 0.23694in - 0.8541in - 1.39456in + 2.38455cm + 3.48217cm 1 + + - + + + + =Parameters!ClienteRFC.Value + + - POR ESTE PAGARE ME(NO) OBLIGO(AMOS) INCONDICIONALMENTE A PAGAR A LA ORDEN DE + BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV - - - BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO, SA DE CV. - - AL VENCIMIENTO ABAJO INDICADO. EN LA CIUDAD DE HERMOSILLO, SONORA O EN CUALQUIER OTRO LUGAR QUE SE ME REQUIERA DE PAGO, RENUNCIANDO EXPRESAMENTE AL FUERO DE MI DOMICILIO. LA CANTIDAD DE + , EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, LA CANTIDAD DE - $ + $ + + + + =Parameters!Total.Value - - + + + SON + @@ -307,56 +332,40 @@ - - - - LA SUMA ANTERIOR SI NO FUERA CUBIERTA A SU VENCIMIENTO, CAUSARA INTERES MORATORIO A RAZON DEL + *** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU VENCIMIENTO - 3.00% MENSUAL + =Parameters!Vencimiento.Value - Y EN CASO DEL COBRO JUDICIAL SE CARGARAN LOS GASTOS QUE ESTOS GENEREN. + , DE NO PAGARSE CAUSARÍA UN INTERÉS MORATORIO DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO. - - true - true - - - - - a - - - - =cdate(Parameters!Fecha.Value) - - - - - - - - - Vencimiento el - - - - =Parameters!Vencimiento.Value - - - - - - - Textbox38 - 8.17569cm - 3.93558cm - 1.07625cm - 5.19875cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - - 10.25697cm - 3.93558cm - 0cm - 5.19875cm - 6 - - - - - - true - true - - - - - S U S C R I P T O R - - - - - - - Textbox39 - 10.43336cm - 3.93558cm - 0.6cm - 5.19875cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - 10.25697cm - 11.9387cm + 8.35197cm + 6.8587cm 0cm - 5.19875cm - 8 + 6.65396cm + 5 @@ -519,10 +408,10 @@ - NOMBRE Y FIRMA DEL AVAL + ACEPTO (AMOS) DE CONFORMIDAD @@ -532,11 +421,50 @@ Textbox39 - 10.43336cm - 11.9387cm + 8.52836cm + 6.8587cm 0.6cm - 5.19875cm - 9 + 6.65396cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Obligado + + + + + + + Textbox38 + 6.90569cm + 6.8587cm + 0.67938cm + 6.65396cm + 7 @@ -552,10 +480,10 @@ Start true - 7.01812in - 0.17767in - 4.422in - 7.87128in + 7.49312in + 0.20879in + 3.59384in + 7.78795in =iif(Parameters!AplicaPagare.Value="0",True,False) @@ -849,8 +777,8 @@ Textbox2 0.05159in - 4.31439cm - 1.62208in + 4.36025cm + 1.28875in 3.20861in 1 - - - TIPO DE DOCUMENTO: - - - - =Parameters!Tipo.Value + = IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO") @@ -1490,9 +1403,9 @@ Textbox4 0.05022in - 4.90719in + 5.03983in 1.62345in - 3.35633in + 3.24175in 4 - - - - - 72 HORAS - POSTERIORES A LA FECHA DE ELABORACIÓN" + POSTERIORES A LA FECHA DE ELABORACIÓN, + + + + + + + + + TODA DEVOLUCIÓN NO REALIZADA EL DÍA DE LA COMPRA CAUSARÁ EL 10% DE CARGO" + + true + true + + + + + Banco: + + + + BBVA BANCOMER SA + + + + + + + 0160660639 + + + + + + + 5803 + + + + + + + 012760001606606397 + + + + + + + pagos:@bdhbaterias.com + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 14.70114cm + 14.38124cm + 0cm + 6.65396cm + 19 + + + + + + true + true + + + + + Nombre + + + + + + + Textbox39 + 14.87753cm + 14.38124cm + 0.6cm + 6.65396cm + 20 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Recibí Producto + + + + + + + Textbox38 + 13.25486cm + 14.38124cm + 0.67938cm + 6.65396cm + 21 + + + 2pt + 2pt + 2pt + 2pt + + - 29.14037cm + 28.16088cm - 21.12144cm + 21.1673cm 0.63499cm @@ -3466,7 +3583,7 @@ Textbox31 0.11289cm - 8.85735cm + 8.90321cm 0.41981cm 6.02198cm @@ -506,7 +506,7 @@ - Textbox496 + Textbox4 @@ -614,14 +614,14 @@ - + true true - 18,172.00 + =Parameters!NoKgManifiesto.Value @@ -632,7 +632,7 @@ - Textbox499 + Textbox8 @@ -874,14 +874,14 @@ - + true true - 20 + =Parameters!NoPallets.Value @@ -892,7 +892,7 @@ - Textbox508 + Textbox6 @@ -2768,7 +2768,7 @@ - + =Parameters!Chofer.Value @@ -3188,7 +3188,13 @@ - 45 °F + =Parameters!Temperatura.Value + + + + °F @@ -3327,7 +3333,7 @@ - + =Parameters!CamPlaca.Value @@ -3389,7 +3395,7 @@ - + =Parameters!Camion.Value @@ -3475,14 +3481,14 @@ - + true true - LCT-03 + =Parameters!Remolque1.Value @@ -3493,7 +3499,7 @@ - Textbox157 + Textbox9 @@ -3541,14 +3547,14 @@ - + true true - 67-UA-1Z + =Parameters!Rem1Placa.Value @@ -3559,7 +3565,7 @@ - Textbox222 + Textbox10 @@ -5364,7 +5370,7 @@ - =Parameters!AgenciaAduanalUSA.Value + =Parameters!AgenciaAduanalMEX.Value @@ -5470,7 +5476,7 @@ - =Parameters!AgenciaAduanalMEX.Value + =Parameters!AgenciaAduanalUSA.Value @@ -7167,21 +7173,21 @@ - + true true - + =Fields!NoPallets.Value + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!Etiqueta.Value + - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - 1 1/9 GROWER - - + Calculo ISR anual - + - +
  • - Excel + Excel
    • -     - - - - + - +
  • + Autoriza +
    • +     +     +     + + + + + + + +
    +
    +
    +
    + +
    + +
    +
    + + +
    + +
    +
    +
    + <%----%> +
    +
    + +
    +     +     + + + + + + <%# Eval("Aplica").ToString() =="1" ?"✓" :"✘" %> + + + + + + + - + + + + + + + @@ -38,47 +92,52 @@ - + - + - + - + - + + + + + + - + - + - + - + - + @@ -89,7 +148,72 @@ + + + + +     - + diff --git a/Nomina/CalculoISRAnual.aspx.cs b/Nomina/CalculoISRAnual.aspx.cs index 624902bf0..4392add3e 100644 --- a/Nomina/CalculoISRAnual.aspx.cs +++ b/Nomina/CalculoISRAnual.aspx.cs @@ -1,25 +1,57 @@ using System; using System.Collections.Generic; +using System.Data; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; +using System.Xml.Linq; +using Extensiones; public partial class Nomina_CalculoISRAnual : ClsPaginas { + + protected int CvePersonal + { + get + { + if (ViewState["CvePersonal"] == null) { return 0; } + else { return ViewState["CvePersonal"].ToString().ToEntero(); } + } + + set { ViewState["CvePersonal"] = value; } + } + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { + cargaddls(); CargaCalculoISRAnual(); } } + public void cargaddls() + { + + DataTable dtejercicio = new DataTable(); + using (ClsNominas objnom = new ClsNominas()) + { + if (objnom.GetEjercicios(UsuarioActual.CveEmpresa)) + { + dtejercicio = objnom.DtResultados; + } + } + DdlEjercicios.DataSource = dtejercicio; + DdlEjercicios.DataBind(); + string anio = DateTime.Now.Year.ToString(); + DdlEjercicios.SelectedValueExistInsert(anio, anio); + } protected void CargaCalculoISRAnual() { using (ClsNominas onom = new ClsNominas()) { - onom.CalculoISRAnual(2021, UsuarioActual.Empresa.CveEmpresa); + onom.CalculoISRAnual(DdlEjercicios.SelectedValue.ToEntero(), UsuarioActual.Empresa.CveEmpresa); GVCalculoISRAnual.DataSource = onom.DtResultados; } @@ -27,8 +59,185 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas upDatos.Update(); } + protected void LnkConsultar_Click(object sender, EventArgs e) + { + CargaCalculoISRAnual(); + } protected void LnkdownExcel_Click(object sender, EventArgs e) { + + //DataTable dtCon = generateTable("\r\n"); + + + ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook(); + var libro = wb.AddWorksheet("Asistencia"); + int column = 1; + + int row = 1; + + libro.Cell(row, column++).Value = "Aplica"; + libro.Cell(row, column++).Value = "Causa"; + libro.Cell(row, column++).Value = "Código"; + libro.Cell(row, column++).Value = "Nombre"; + libro.Cell(row, column++).Value = "Tipo ingreso"; + libro.Cell(row, column++).Value = "Ingresos totales"; + libro.Cell(row, column++).Value = "Base gravada"; + libro.Cell(row, column++).Value = "Base exenta"; + libro.Cell(row, column++).Value = "ISR retenido"; + libro.Cell(row, column++).Value = "Art 152"; + libro.Cell(row, column++).Value = "Subs. Correspondiente"; + libro.Cell(row, column++).Value = "Impuesto anual"; + libro.Cell(row, column++).Value = "A cargo"; + libro.Cell(row, column++).Value = "A compensar"; + libro.Range(row, 1, row, column - 1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(row, 1, row, column - 1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + row++; + using (ClsNominas onom = new ClsNominas()) + { + if (onom.CalculoISRAnual(DdlEjercicios.SelectedValue.ToEntero(), UsuarioActual.Empresa.CveEmpresa) && onom.DtResultados.Rows.Count > 0) + { + foreach (DataRow drow in onom.DtResultados.Rows) + { + + column = 1; + libro.Cell(row, column++).Value = drow["Aplica"].ToString()=="1"?"Si":"No"; + libro.Cell(row, column++).Value = drow["causa"]; + libro.Cell(row, column++).Value = drow["Codigo"]; + libro.Cell(row, column++).Value = drow["NombreCompleto"]; + libro.Cell(row, column++).Value = string.Format("{0} - {1:dd/MM/yyyy}", drow["TipoIngreso"], drow["FechaInicio"]); + libro.Cell(row, column++).Value = drow["IngresosTotales"]; + libro.Cell(row, column++).Value = drow["BaseGravada"]; + libro.Cell(row, column++).Value = drow["BaseExcenta"]; + libro.Cell(row, column++).Value = drow["ISRRetenido"]; + libro.Cell(row, column++).Value = drow["Art152"]; + libro.Cell(row, column++).Value = drow["SubsCorrespondiente"]; + libro.Cell(row, column++).Value = drow["ImpuestoAnual"]; + libro.Cell(row, column++).Value = drow["Acargo"]; + libro.Cell(row, column++).Value = drow["Acompensar"]; + row++; + } + } + } + + libro.SheetView.Freeze(1, 4); + libro.ColumnsUsed().AdjustToContents(); + libro.Range(1, 6, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center; + libro.Range(2, 6, row, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Right; + libro.Range(2, 6, row, column).SetDataType(ClosedXML.Excel.XLDataType.Number); + libro.Range(2, 6, row, column).Style.NumberFormat.Format = "$#,###,###,###,###,###,0.00"; + + + System.IO.Stream fs = new System.IO.MemoryStream(); + wb.SaveAs(fs); + fs.Position = 0; + System.IO.MemoryStream memoryStream = new System.IO.MemoryStream(); + using (System.IO.Stream input = fs) + + { + input.CopyTo(memoryStream); + } + memoryStream.Position = 0; + + Response.Clear(); + Response.Buffer = true; + + Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"; + Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Calculo Anual")); + Response.BinaryWrite(memoryStream.ToArray()); + Response.End(); + } + + + protected void LnkAplicar_Click(object sender, EventArgs e) + { + GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CvePersonal = gvrow.DataKey("CvePersonal").ToString().ToEntero(); + using (ClsNominas onom = new ClsNominas()) + { + if (onom.PersonalAplicaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CvePersonal, 1, "")) + { + Alert("El empleado sera incluido al calculo anual"); + CargaCalculoISRAnual(); + } + } + } + + protected void LnkCancelar_Click(object sender, EventArgs e) + { + GridViewRow gvrow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CvePersonal = gvrow.DataKey("CvePersonal").ToString().ToEntero(); + RegistraScript("$('#DModalcancelarEmpleado').modal();"); + } + + protected void LnkGuardarCancelarAplica_Click(object sender, EventArgs e) + { + using (ClsNominas onom = new ClsNominas()) + { + if(onom.PersonalAplicaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CvePersonal, 0, TxtMotivo.Text)) + { + Alert("El empleado sera omitido del calculo anual"); + RegistraScript("$('#DModalcancelarEmpleado').modal('hide');"); + CargaCalculoISRAnual(); + } + } + } + + protected void LnkOpenModalAutoriza_Click(object sender, EventArgs e) + { + using(ClsNominas onom = new ClsNominas()) + { + if (onom.GetConceptos(UsuarioActual.CveEmpresa, "-1", -1, -1, -1)) + { + DdlConceptoCargo.DataSource = onom.DtResultados; + DdlConceptoCompensar.DataSource = onom.DtResultados; + DdlConceptoCargo.DataBind(); + DdlConceptoCompensar.DataBind(); + DataRow drow = onom.DtResultados.FiltroPrimero(string.Format("CveSistema ={0}",46)); + if (drow != null) + { + DdlConceptoCargo.SelectedValueExist(drow["CveConcepto"]); + } + drow = null; drow = onom.DtResultados.FiltroPrimero(string.Format("CveSistema ={0}", 49)); + if (drow != null) + { + DdlConceptoCompensar.SelectedValueExist(drow["CveConcepto"]); + } + } + } + RegistraScript("$('#DModalAutoriza').modal();"); + UpAutorizaCalculo.Update(); + } + + protected void LnkAutoriza_Click(object sender, EventArgs e) + { + bool continuar = true; + + + System.Xml.Linq.XDocument xmlarchivos = new System.Xml.Linq.XDocument(); + XElement xfolder = new XElement("personal"); + foreach (GridViewRow item in GVCalculoISRAnual.Rows ) + { + XElement xempleado = new XElement("empleado"); + xempleado.SetAttributeValue("CvePersonal", item.DataKey("CvePersonal")); + xempleado.SetAttributeValue("ACarago", item.DataKey("Acargo")); + xempleado.SetAttributeValue("ACompensar", item.DataKey("Acompensar")); + + xfolder.Add(xempleado); + } + xmlarchivos.Add(xfolder); + string xmlpeople= xmlarchivos.ToString(); + + using (ClsNominas onom = new ClsNominas()) + { + continuar = onom.AutorizaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xmlpeople); + } + if (continuar) + { + Alert("El calculo a sido autorizado"); + RegistraScript("$('#DModalAutoriza').modal('hide');"); + } + + RegistraScript(string.Format("console.log('{0}');debugger", xmlpeople)); } } \ No newline at end of file diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs index 85844e675..656215346 100644 --- a/RH/CalculoSBC.aspx.cs +++ b/RH/CalculoSBC.aspx.cs @@ -154,7 +154,8 @@ public partial class RH_CalculoSBC : ClsPaginas double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2); double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble(); double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2); - if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario))) + if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && + (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario))) { }