diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 3bc8643af..500315bf5 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3633,6 +3633,24 @@ Public Class ClsNominas Return retorno End Function + + + Public Function GetRepPersonalDIM(Ejercicio As Integer, CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_PersonalDIM", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte Personal DIM.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) @@ -3656,6 +3674,8 @@ Public Class ClsNominas Dispose(True) GC.SuppressFinalize(Me) End Sub + + #End Region End Class diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 0d9ee6648..dbe3a8552 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8912,6 +8912,7 @@ Public Class ClsPaginas PaginaDict.Add("/Nomina/CatSatTipoIncapacidad.aspx".ToUpper(), 258) PaginaDict.Add("/Nomina/CatSatRiesgoPuesto.aspx".ToUpper(), 259) PaginaDict.Add("/Nomina/ReportePTU.aspx".ToUpper(), 870) + PaginaDict.Add("/Nomina/RepPersonalDIM.aspx".ToUpper(), 1340) #End Region #Region "Ordenes de Servicios" PaginaDict.Add("/OS/PopUpBuscarOS.aspx".ToUpper(), 80) diff --git a/Bancos/ConciliacionesBancarias.aspx b/Bancos/ConciliacionesBancarias.aspx index f3eb42492..a15d0dc0c 100644 --- a/Bancos/ConciliacionesBancarias.aspx +++ b/Bancos/ConciliacionesBancarias.aspx @@ -145,7 +145,7 @@ - + diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 20ba7ac10..584d740c0 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -102,6 +102,10 @@ Partial Class Bancos_ConciliacionesBancariasaspx ObjBancos.Dispose() GvDatos.DataBind() UpDatos.Update() + CeFechaAplicado.StartDate = txtFechaI.Text.ToDate + CeFechaAplicado.EndDate = txtFechaF.Text.ToDate + CeFechaDesconciliado.StartDate = txtFechaI.Text.ToDate + CeFechaDesconciliado.EndDate = txtFechaF.Text.ToDate If GvDatos.Rows.Count > 0 Then RegistraScript("CalculaSeleccionados();", "1") End Sub @@ -178,8 +182,9 @@ Partial Class Bancos_ConciliacionesBancariasaspx If Not CBool(Dr("FueConciliado").ToString) And Dr("CveIE").ToString.ToEntero > 0 Then For Each DrE As DataRow In DtDatosEdoCuenta.Rows If ((Dr("FechaDocumento").ToString.ToDate = DrE("FechaDocumento").ToString.ToDate And Dr("Importe").ToString.ToDouble = DrE("Importe").ToString.ToDouble And Dr("Tipo").ToString = DrE("Tipo").ToString And DdlCriterio.SelectedValue.ToEntero = 1) Or (Dr("Importe").ToString.ToDouble = DrE("Importe").ToString.ToDouble And Dr("Tipo").ToString = DrE("Tipo").ToString And DdlCriterio.SelectedValue.ToEntero = 2)) And Not CBool(DrE("Seleccionado").ToString) And Not CBool(DrE("FueConciliado").ToString) And Not CBool(Dr("Seleccionado").ToString) Then - If Not ObjBancos.UpdateConciliacionBancaria(Dr("CveIE").ToString.ToEntero, If(Dr("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Dr("FechaDocumento").ToString.ToDate), -1, 1, 1, UsuarioActual.CveUsuario) Or - Not ObjBancos.UpdateConciliacionBancaria(Dr("CveIE").ToString.ToEntero, If(Dr("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Dr("FechaDocumento").ToString.ToDate), DrE("CveIEEstadoCuenta").ToString.ToEntero, 1, 2, UsuarioActual.CveUsuario) Then + Dim FechaConciliado As Date = TxtFechaAplicado.Text.ToDate 'If(Dr("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Dr("FechaDocumento").ToString.ToDate) + If Not ObjBancos.UpdateConciliacionBancaria(Dr("CveIE").ToString.ToEntero, FechaConciliado, -1, 1, 1, UsuarioActual.CveUsuario) Or + Not ObjBancos.UpdateConciliacionBancaria(Dr("CveIE").ToString.ToEntero, FechaConciliado, DrE("CveIEEstadoCuenta").ToString.ToEntero, 1, 2, UsuarioActual.CveUsuario) Then ErrorTrans = True Else If Not ObjOI.AddEventoBitacora("El pago ha sido conciliado", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=Dr("CveIE").ToString.ToEntero) Then @@ -283,7 +288,8 @@ Partial Class Bancos_ConciliacionesBancariasaspx Dim CveIE As Integer = 0 For Each Gvr As GridViewRow In GvDatos.Rows If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then - If Not ObjBancos.UpdateConciliacionBancaria(Gvr.DataKey("CveIE").ToEntero, If(Gvr.DataKey("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Gvr.DataKey("FechaDocumento").ToString.ToDate), -1, 1, 1, UsuarioActual.CveUsuario) Then + Dim FechaConciliado As Date = TxtFechaAplicado.Text.ToDate 'If(Gvr.DataKey("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Gvr.DataKey("FechaDocumento").ToString.ToDate) + If Not ObjBancos.UpdateConciliacionBancaria(Gvr.DataKey("CveIE").ToEntero, FechaConciliado, -1, 1, 1, UsuarioActual.CveUsuario) Then ErrorTrans = True Else If Not ObjOI.AddEventoBitacora("El pago ha sido conciliado", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=Gvr.DataKey("CveIE").ToEntero) Then @@ -296,8 +302,10 @@ Partial Class Bancos_ConciliacionesBancariasaspx Next For Each Gvr As GridViewRow In GvEdoConciliacion.Rows If Gvr.FCCheckBox("ChkConciliado").Checked And Gvr.FCCheckBox("ChkConciliado").Enabled Then - If Not ObjBancos.UpdateIEEstadoCuenta(Gvr.DataKey("CveIEEstadoCuenta").ToEntero, Gvr.DataKey("Importe").ToDouble, True, CveIE, Gvr.DataKey("Referencia").ToString, - Gvr.DataKey("Tipo").ToString, Gvr.DataKey("FechaDocumento").ToDate, Gvr.DataKey("CveCuenta").ToEntero) Then + Dim FechaConciliado As Date = TxtFechaAplicado.Text.ToDate 'If(Gvr.DataKey("FechaDocumento").ToString.ToDate < txtFechaI.Text.ToDate, TxtFechaAplicado.Text.ToDate, Gvr.DataKey("FechaDocumento").ToString.ToDate) + If Not ObjBancos.UpdateConciliacionBancaria(CveIE, FechaConciliado, Gvr.DataKey("CveIEEstadoCuenta").ToEntero, 1, 2, UsuarioActual.CveUsuario) Then + 'If Not ObjBancos.UpdateIEEstadoCuenta(Gvr.DataKey("CveIEEstadoCuenta").ToEntero, Gvr.DataKey("Importe").ToDouble, True, CveIE, Gvr.DataKey("Referencia").ToString, + ' Gvr.DataKey("Tipo").ToString, Gvr.DataKey("FechaDocumento").ToDate, Gvr.DataKey("CveCuenta").ToEntero) Then ErrorTrans = True End If End If @@ -382,7 +390,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Protected Sub LnkDesconciliar_Click(sender As Object, e As EventArgs) Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) ModalidadDesconciliar = "D" - TxtFechaDesconciliado.Text = Now.ToShortDateString + TxtFechaDesconciliado.Text = txtFechaF.Text CveIEDesconciliar = gvRow.DataKey("CveIE").ToEntero UpDesconciliar.Update() RegistraScript("$('#DModalDesconciliar').modal()") diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index ddea8c483..6792fb427 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -464,7 +464,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnGeneraCompras.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() Alert("Error al generar la fluctuación", TipoMensaje.MsgError) @@ -547,7 +547,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnGeneraComprasAnt.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() Alert("Error al generar la fluctuación", TipoMensaje.MsgError) @@ -648,7 +648,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnGeneraVentas.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() @@ -745,7 +745,7 @@ Partial Class Bancos_FluctuacionCambiaria If Not ErrorRegistrar Then Conta.Commit() BtnClientesAnticipos.Visible = False - Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) + Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion) Else Conta.RollBack() diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index c8073cca1..909bba2e7 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -3,7 +3,14 @@ <%@ Import Namespace="Extensiones" %> - + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + + + + + TOTAL ACTIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!TipoCuenta.Value + Equal + + 1 + + + + 2.6512cm + 0.31432cm + 1.65cm + 10.42504cm + + + Verdana + 8pt + + + + + + + 5.36361cm + + + 2.86585cm + + + 2.19558cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum( Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!TipoCuenta.Value + Equal + + 2 + + + + 4.74417cm + 0.31432cm + 1.65cm + 10.42504cm + 1 + + + Verdana + 8pt + + + + + + + 5.21467cm + + + 2.56871cm + + + 1.91058cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!TipoCuenta.Value + Equal + + 3 + + + + 2.6512cm + 10.77464cm + 1.65cm + 9.69396cm + 2 + + + Verdana + 8pt + + + + + + + 5.21467cm + + + 2.56871cm + + + 1.91058cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!TipoCuenta.Value + Equal + + 4 + + + + 4.74417cm + 10.77464cm + 1.65cm + 9.69396cm + 3 + + + Verdana + 8pt + + + + true + true + + + + + ACTIVO + + + + + + + Textbox28 + 1.91009cm + 0.31432cm + 0.6cm + 10.46032cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + PASIVO + + + + + + + Textbox28 + 1.91009cm + 10.77464cm + 0.6cm + 9.69395cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.21467cm + + + 2.56871cm + + + 1.91058cm + + + + + 0.6cm + + + + + true + true + + + + + CAPITAL CONTABLE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL CAPITAL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + F + + + + =Fields!TipoCuenta.Value + In + + 5 + 6 + 7 + 8 + + + + 8.30193cm + 10.77464cm + 1.65cm + 9.69396cm + 6 + + + Verdana + 8pt + + + + true + true + + + + + CAPITAL + + + + + + + Textbox28 + 7.52554cm + 10.77464cm + 0.6cm + 9.69395cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total CAPITAL + + + + + + + Textbox45 + 10.22837cm + 10.77464cm + 0.6cm + 4.89717cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total Pasivo y Patrimonio + + + + + + + Textbox45 + 11.12267cm + 10.77464cm + 0.6cm + 4.89717cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Pasivo: + + + + + + + Textbox45 + 6.57056cm + 10.77464cm + 0.6cm + 5.21467cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Iif( Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2) <.005,"" ,"La suma de los totales estan descuadradas." & Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + FitProportional + 0.03141cm + 0.31432cm + 1.5cm + 5.36361cm + 18 + + + + + + true + true + + + + + =Parameters!pEmp.Value + + + + + + + Textbox1 + 0.03141cm + 5.67793cm + 0.81167cm + 10.31137cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado de Situación Financiera + + + + =Parameters!periodo.Value + + + + + + + Textbox5 + 0.89924cm + 5.67793cm + 0.6cm + 10.31137cm + 20 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.07056cm + 15.98931cm + 0.81167cm + 4.47928cm + 21 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.36361cm + + + 2.86585cm + + + 2.19558cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO DIFERIDO + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO DIFERIDO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!TipoCuenta.Value + Equal + + 9 + + + + 6.92554cm + 0.31432cm + 1.65cm + 10.42504cm + 22 + + + Verdana + 8pt + + + + true + true + + + + + Total del Activo + + + + + + + Textbox45 + 11.12267cm + 0.31432cm + 0.6cm + 5.36361cm + 23 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 4.88706in + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 3.454cm + 0.6cm + 12.91455cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.02088cm + 16.62517cm + 0.57912cm + 3.49249cm + 1 + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + + + + + + + + + 2.46062cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 1.86062cm + 16.37931cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma2.Value + + + + Textbox2 + 0.10583cm + 1.71666cm + 0.99688cm + 8.02269cm + 1 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma1.Value + + + + Textbox2 + 1.46374cm + 6.03938cm + 0.99688cm + 8.02269cm + 2 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + Textbox2 + 0.10582cm + 10.37435cm + 0.99688cm + 8.02269cm + 3 + + =Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value <> ""), False, True) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + + + + + + Reporte Personal DIM + + + + + + +
  • + Descarga Excel +
    • +
  • + Descarga Archivo +
    • + +     + + + + +     + +     + + + + +
    +
    +
    + + +
    +
    +
    +
    + + +
    + + +
    + + + +
    +
    +
    +
    + +
    +     +     + + +
    +
    + + + + + + + + + Mes inicial + + + + + + + + Mes final + + + + + + + + RFC + + + + + + + + CURP + + + + + + + + Apellido
    + paterno +     + + + +     + + + Apellido
    + materno +     + + + +     + + + Nombre + + + + + + + + Área
    + geográfica +     + + + +     + + + Si el patrón
    + realizó
    + cálculo anual +     + + + +     + + + Tarifa
    + utilizada del
    + ejercicio +     + + + +     + + + Tarifa 1991 + + + + + + + + Proporción
    + del subsidio +     + + + +     + + + Sindicalizado + + + + + + + + Si es
    + asimilado a
    + salarios +     + + + +     + + + Entidad
    + Federativa +     + + + +     + + + RFC otros
    + patrones1 +     + + + +     + + + RFC otros
    + patrones2 +     + + + +     + + + RFC otros
    + patrones3 +     + + + +     + + + RFC otros
    + patrones4 +     + + + +     + + + RFC otros
    + patrones5 +     + + + +     + + + RFC otros
    + patrones6 +     + + + +     + + + RFC otros
    + patrones7 +     + + + +     + + + RFC otros
    + patrones8 +     + + + +     + + + RFC otros
    + patrones9 +     + + + +     + + + RFC otros
    + patrones10 +     + + + +     + + + Pagos por
    + separación +     + + + +     + + + Asimilados a
    + salarios +     + + + +     + + + Pagos del
    + patrón +
    + efectuados
    + a sus trab +     + + + +     + + + <%-- + CvePersonal + + + --%> + + + Ingresos
    + totales por
    + pago en
    + parcialidades +     + + + +     + + + Monto
    + diario
    + percibido
    + por jubilaciones +     + + + +     + + + Cantidad
    + que se
    + hubiera
    + percibido +     + + + +     + + + Monto total
    + del pago en
    + una sola
    + exhibición +     + + + +     + + + Días + + + + + + + + Ingresos
    + exentos +     + + + +     + + + Ingresos
    + gravables +     + + + +     + + + Ingresos
    + acumulables +     + + + +     + + + Ingresos no
    + acumulables +     + + + +     + + + Impuesto
    + retenido +     + + + +     + + + Monto total
    + pagado de
    + otros pagos +     + + + +     + + + Número de
    + años de
    + servicio +     + + + +     + + + Ingresos
    + exentos +     + + + +     + + + Ingresos
    + gravados +     + + + +     + + + Ingresos
    + acumulables (mes) +     + + + +     + + + Impuesto
    + correspondiente(mes) +     + + + +     + + + Ingresos no
    + acumulables +     + + + +     + + + Impuesto
    + retenido +     + + + +     + + + + + Becas para
    trabajadores
    (Gravado) +     + + + +     + + + Becas para
    trabajadores
    (Exento) +     + + + +     + + + + + Sueldos,
    + salarios,
    + rayas y
    + jornales (Gravado) +     + + + +     + + + Sueldos,
    + salarios,
    + rayas y
    + jornales (Exento) +     + + + +     + + + Gratificación anual (Gravado) + + + + + + + + Gratificación
    + anual (Exento) +     + + + +     + + + Viáticos y
    + gastos de
    + viaje (Gravado) +     + + + +     + + + Viáticos y
    + gastos de
    + viaje (Exento) +     + + + +     + + + Tiempo
    + extraordinario
    + (Gravado) +     + + + +     + + + Tiempo
    + extraordinario
    + (Exento) +     + + + +     + + + Prima
    + vacacional
    + (Gravado) +     + + + +     + + + Prima
    + vacacional
    + (Exento) +     + + + +     + + + Prima
    + dominical
    + (Gravado) +     + + + +     + + + Prima
    + dominical
    + (Exento) +     + + + +     + + + PTU
    + (Gravado) +     + + + +     + + + PTU
    + (Exento) +     + + + +     + + + Reembolso
    + de gastos
    + médicos,
    + (Gravado) +     + + + +     + + + Reembolso
    + de gastos
    + médicos,
    + (Exento) +     + + + +     + + + Fondo de
    + ahorro
    + (Gravado) +     + + + +     + + + Fondo de
    + ahorro
    + (Exento) +     + + + +     + + + Caja de
    + ahorro
    + (Gravado) +     + + + +     + + + Caja de
    + ahorro
    + (Exento) +     + + + +     + + + Vales para
    + despensa
    + (Gravado) +     + + + +     + + + Vales para
    + despensa
    + (Exento) +     + + + +     + + + Ayuda para
    + gastos de
    + funeral
    + (Gravado) +     + + + +     + + + Ayuda para
    + gastos de
    + funeral
    + (Exento) +     + + + +     + + + Contribuciones
    + a cargo del
    + trab(Gravado) +     + + + +     + + + Contribuciones
    + a cargo del
    + trab(Exento) +     + + + +     + + + Premios por
    + puntualidad
    + (Gravado) +     + + + +     + + + Premios por
    + puntualidad
    + (Exento) +     + + + +     + + + Prima de
    + seguro de
    + vida (Gravado) +     + + + +     + + + Prima de
    + seguro de
    + vida (Exento) +     + + + +     + + + Seguro de
    + gastos médicos
    + mayores (Gravado) +     + + + +     + + + Seguro de
    + gastos médicos
    + mayores (Exento) +     + + + +     + + + Vales para
    + restaurante
    + (Gravado) +     + + + +     + + + Vales para
    + restaurante +
    + (Exento) +     + + + +     + + + Vales para
    + gasolina
    + (Gravado) +     + + + +     + + + Vales para
    + gasolina
    + (Exento) +     + + + +     + + + Vales para
    + ropa (Gravado) +     + + + +     + + + Vales para
    + ropa (Exento) +     + + + +     + + + Ayuda para
    + renta(Gravado) +     + + + +     + + + Ayuda para
    + renta(Exento) +     + + + +     + + + Ayuda para
    + artículos +
    + escolares (Gravado) +     + + + +     + + + Ayuda para
    + artículos
    + escolares (Exento) +     + + + +     + + + Dotación o
    + ayuda para
    + anteojos (Gravado) +     + + + +     + + + Dotación o
    + ayuda para
    + anteojos (Exento) +     + + + +     + + + Ayuda para
    + transporte (Gravado) +     + + + +     + + + Ayuda par
    + a transporte (Exento) +     + + + +     + + + Cuotas sindicales
    + pagadas patron(Gravado) +     + + + +     + + + Cuotas sindicales
    + pagadas patron(Exento) +     + + + +     + + + Subsidios por
    + incapacidad (Gravado) +     + + + +     + + + Subsidios por
    + incapacidad (Exento) +     + + + +     + <%--Becas para trabajadores(Gravado) + Becas para trabajadores(Exento)--%> + + + Pagos
    + efectuados
    + por otros
    + empleadores
    + (Gravado) +     + + + +     + + + Pagos
    + efectuados
    + por otros
    + empleadores
    + (Exento) +     + + + +     + + + Otros
    + ingresos por
    + salarios
    + (Gravado) +     + + + +     + + + Otros
    + ingresos por
    + salarios
    + (Exento) +     + + + +     + + + Suma del
    + ingreso
    + GRAVADO +     + + + +     + + + Suma del
    + ingreso
    + EXENTO +     + + + +     + + + + + + Impuesto
    + retenido
    + durante el
    + ejercicio +     + + + +     + + + Impuesto
    + retenido por
    + otro(s)
    + patrón(es) +     + + + +     + + + Saldo a favor
    + en el ejercicio
    + que declara +
    + que el patrón +
    + compensará durante
    + el siguiente
    + ejercicio +     + + + +     + + + Saldo a favor
    + del ejercicio anterior
    + no compensado
    + durante el
    + ejercicio que
    + declara ++ +     + + + +     + + + Suma de las
    + cantidades +
    + que por concepto
    + de crédito al +
    + salario le +
    + correspondió +
    + al trabajador +     + + + +     + + + Crédito al
    + salario
    + entregado
    + en efectivo +     + + + +     + + + Monto total
    + de ingresos
    + obtenidos +
    + Prev Social +     + + + +     + + + Exentos +
    + Previsión
    + social +     + + + +     + + + Suma de
    ingresos
    por sueldos
    y salarios +     + + + +     + + + Monto del
    + impuesto local
    + a los ingresos
    + por sueldos
    + y salarios +     + + + +     + + + Monto del
    + subsidio para
    + el empleo
    + entregado en
    + el ejercicio +     + + + +     + + + Total de
    + las aportaciones
    + voluntarias
    + deducibles +     + + + +     + + + Impuesto
    + conforme a la
    + tarifa anual +     + + + +     + + + Monto del
    + subsidio +
    + acreditable +
    + (No aplica) +     + + + +     + + + Monto del
    + subsidio no
    + acreditable +
    + (No aplica) +     + + + +     + + + Impuesto sobre
    + ingresos
    + acumulables +     + + + +     + + + Impuesto sobre
    + ingresos
    + no acumulables +     + + + +     + + + Impuesto local
    + a los ingresos
    + por sueldos,
    + salarios +
    + y en general +     + + + +     + + + Monto del
    + subsidio para
    + el empleo
    + que le correspondió +
    + al trabajador +
    + durante +
    + el ejercicio +     + + + +     + + +     +     +     +     + +
    +
    + + + + + + + + + + + +     + + + + diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb new file mode 100644 index 000000000..d264bf3ac --- /dev/null +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -0,0 +1,445 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Drawing +Imports System.IO +Imports CrystalDecisions.CrystalReports.Engine +Imports Extensiones +Imports GemBox.Spreadsheet +Imports Microsoft.Reporting.WebForms + +Partial Class Nomina_RepPersonalDIM + Inherits ClsPaginas + + Public Property Dt_Datos As DataTable + Get + If ViewState("Dt_Datos") Is Nothing Then + ViewState("Dt_Datos") = New DataTable + End If + Return DirectCast(ViewState("Dt_Datos"), DataTable) + End Get + Set(value As DataTable) + ViewState("Dt_Datos") = value + End Set + + End Property + + Protected Sub Nomina_RepPersonalDIM(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + CargaEjercicios() + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual) + + End If + End Sub + + + Private Sub CargaEjercicios() + 'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ClsConta As New ClsContabilidad + If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then + DdlEjercicio.DataSource = ClsConta.DtResultados + Else + DdlEjercicio.DataSource = Nothing + End If + ClsConta.Dispose() + DdlEjercicio.DataBind() + + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) + + If DdlEjercicio.Items.Count = 0 Then + DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) + End If + + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub + + + Private Sub CargaDatos() + + Dt_Datos = New DataTable + LnkDescargaArchivo.Visible = False + LnkExportar.Visible = False + + Dim ObjNom As New ClsNominas + + + If ObjNom.GetRepPersonalDIM(Ejercicio:=DdlEjercicio.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjNom.DtResultados + Dt_Datos = ObjNom.DtResultados + + If Dt_Datos.Rows.Count > 0 Then + LnkDescargaArchivo.Visible = True + LnkExportar.Visible = True + End If + + + Else + GvDatos.DataSource = Nothing + End If + + ObjNom.Dispose() + + GvDatos.DataBind() + + UpAcciones.Update() + UpGvCargaDatos.Update() + + + End Sub + + +#Region "DESCARGA EXCEL" + + Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + Imprimir("Excel") + End Sub + + Private Sub Imprimir(Optional reporte As String = "PDF") + ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") + End Sub + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub + + Protected Sub LnkDescargaArchivo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LnkDescargaArchivo.Click + Dim tabla As DataTable = Dt_Datos + + Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirTablaATexto(tabla)) + + Using memoryStream As New MemoryStream(contenidoBytes) + Response.Clear() + Response.ContentType = "text/plain" + Response.AddHeader("Content-Disposition", $"attachment; filename=RepPersonalDIM{DdlEjercicio.SelectedItem.Text}.txt") + memoryStream.WriteTo(Response.OutputStream) + End Using + + Response.End() + + End Sub + + Public Function ConvertirTablaATexto(ByVal DT As DataTable) As String + + Dim DTDatos As DataTable = DT.Copy() + + Dim columnasARemover As New List(Of DataColumn)() + + + For Each columna As DataColumn In DTDatos.Columns + If columna.ColumnName.Contains("CvePersonal") Then + columnasARemover.Add(columna) + End If + Next + + + For Each columna As DataColumn In columnasARemover + DTDatos.Columns.Remove(columna) + Next + + DTDatos.AcceptChanges() + + Dim sb As New StringBuilder + For Each fila As DataRow In DTDatos.Rows + For i As Integer = 0 To DTDatos.Columns.Count - 1 + sb.Append(fila(i).ToString()) + + If i < DTDatos.Columns.Count - 1 Then + sb.Append("|") + End If + Next + sb.AppendLine() + Next + + Return sb.tostring + + End Function + +#End Region + + Protected Sub GvDatos_DataBound(sender As Object, e As EventArgs) + + Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) + Dim cell As New TableHeaderCell() + cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->" + cell.ColumnSpan = 28 + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + + + cell = New TableHeaderCell() + cell.ColumnSpan = 18 + cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->" + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + + cell = New TableHeaderCell() + cell.ColumnSpan = 2 + cell.Text = " ANEXO 1 ASIM SAL-> " + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + + cell = New TableHeaderCell() + cell.ColumnSpan = 58 + cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->" + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + cell = New TableHeaderCell() + cell.ColumnSpan = 19 + cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->" + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + 'row.BackColor = ColorTranslator.FromHtml("#3AC0F2") + GvDatos.HeaderRow.Parent.Controls.AddAt(0, row) + + End Sub + + + + + Public Sub ExportToExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100, Optional DTExtra As DataTable = Nothing) + + Dim sw1 As New StringWriter() + Dim htw1 As New HtmlTextWriter(sw1) + GridView.RenderControl(htw1) + + Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault + + Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString())) + + htmlStream1.Position = 0 + Dim sr1 As New StreamReader(htmlStream1) + Dim myStr1 = sr1.ReadToEnd() + sr1.Dispose() + htmlStream1.Dispose() + sw1.Dispose() + + Dim HtmlCompleto As String = myStr1 + + HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") + + Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) + + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) + + Dim excel As GemBox.Spreadsheet.ExcelFile + + excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) + + If Usuario IsNot Nothing Then + + Dim TotalRowHeader As Integer = 6 + Dim TotalRowFooter As Integer = 2 + + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + If DatoTituloExtra.Length > 0 Then + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = DatoTituloExtra + RangoDatoTituloExtra.Style.Font.Size = 20 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + End If + + If DatosFiltros.Length > 0 Then + + Dim Arreglo As String() = DatosFiltros.Split("|"c) + worksheet.Rows.InsertEmpty(TotalRowHeader, Arreglo.Count) + For Each TextoFiltro As String In Arreglo + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = TextoFiltro + RangoDatoTituloExtra.Style.Font.Size = 12 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + TotalRowHeader += 1 + + Next + End If + + ' TotalRowHeader += 2 + + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20 + worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + + Next + + Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(1).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre + + worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + + + For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + If I > 0 Then + + If 1 = 1 Then + worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" + Else + worksheet.Columns(I + 1).Style.NumberFormat = "#,##" + End If + + Try + worksheet.Columns(I).AutoFit(1) + Catch ex As Exception + End Try + + End If + Next + + + + If DTExtra IsNot Nothing Then + + Dim NombreTabla As String = "" + + If DTExtra.TableName IsNot Nothing Then + NombreTabla = DTExtra.TableName + End If + + If NombreTabla.Trim = "" Then + NombreTabla = "hoja2" + End If + + 'excel.Worksheets.Add(NombreTabla) + + Dim workbookDTExtra = New ExcelFile + Dim worksheetDTExtra = workbookDTExtra.Worksheets.Add(NombreTabla) + + + worksheetDTExtra.InsertDataTable(DTExtra, + New InsertDataTableOptions() With + { + .ColumnHeaders = True, + .StartRow = 0 + }) + + + + Dim columnCount = worksheetDTExtra.CalculateMaxUsedColumns() + For i As Integer = 0 To columnCount - 1 + worksheetDTExtra.Columns(i).AutoFit(1, worksheetDTExtra.Rows(1), worksheetDTExtra.Rows(worksheetDTExtra.Rows.Count - 1)) + worksheetDTExtra.Cells(0, i).Style.FillPattern.SetSolid(Drawing.ColorTranslator.FromHtml("#4b77be")) + worksheetDTExtra.Cells(0, i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + Next + + + excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra) + excel.Worksheets(0).Name = Titulo + End If + + + + Dim indexRow As Integer = 8 + Dim indexRowGV As Integer = 0 + Dim cssClassRow As String = "" + + Dim CountRowFiltros As Integer = -1 + If DatosFiltros.Trim.Length > 0 Then + CountRowFiltros = 0 + End If + + For indexRow = 8 To worksheet.Rows.Count - 4 + + Try + cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim() + + Select Case cssClassRow + + Case "Totales" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#67809f")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#ddd") + Exit Select + Case "SubTotales2" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077") + Exit Select + Case "SubTotales" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F") + Exit Select + Case Else + Exit Select + End Select + + Catch ex As Exception + End Try + + indexRowGV += 1 + Next + + + + End If + + excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") + + + End Sub +End Class + diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 91ec23517..c6a069f88 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -582,13 +582,13 @@ - + - + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 188b6390e..4e097c201 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -114,8 +114,6 @@ Partial Class RepVentaDetalle DVServicioDomicilio.Visible = True End If - - End If End Sub @@ -452,6 +450,7 @@ Partial Class RepVentaDetalle If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS + GvDatos.Columns(9).Visible = ChkIEPS.Checked End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -482,24 +481,6 @@ Partial Class RepVentaDetalle e.Row.FCLiteral("LtlFacturaCotizacion").Text = "" & e.Row.DBCampo("FolioVenta") & "" End If - 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left - 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left - 'e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left - If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-" If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "-" @@ -550,178 +531,38 @@ Partial Class RepVentaDetalle Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkFolio.Checked Then - GvDatos.Columns(1).Visible = True - Else - GvDatos.Columns(1).Visible = False - End If - - If ChkFecha.Checked Then - GvDatos.Columns(2).Visible = True - - Else - GvDatos.Columns(2).Visible = False - End If - - If ChkCliente.Checked Then - GvDatos.Columns(3).Visible = True - Else - GvDatos.Columns(3).Visible = False - End If - - If ChkSubTotal.Checked Then - GvDatos.Columns(4).Visible = True - Else - GvDatos.Columns(4).Visible = False - End If - - If ChkDescuento.Checked Then - GvDatos.Columns(5).Visible = True - Else - GvDatos.Columns(5).Visible = False - End If - - If ChlMotivoDescuento.Checked Then - GvDatos.Columns(6).Visible = True - Else - GvDatos.Columns(6).Visible = False - End If - - If ChkAmortizacion.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkIVA.Checked Then - GvDatos.Columns(8).Visible = True - Else - GvDatos.Columns(8).Visible = False - End If - - If ChkIEPS.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkRetIVA.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(11).Visible = True - Else - GvDatos.Columns(11).Visible = False - End If - - If ChkTotalImpuestos.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkTotal.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If + GvDatos.Columns(1).Visible = ChkFolio.Checked + GvDatos.Columns(2).Visible = ChkFecha.Checked + GvDatos.Columns(3).Visible = ChkCliente.Checked + GvDatos.Columns(4).Visible = ChkSubTotal.Checked + GvDatos.Columns(5).Visible = ChkDescuento.Checked + GvDatos.Columns(6).Visible = ChlMotivoDescuento.Checked + GvDatos.Columns(7).Visible = ChkAmortizacion.Checked + GvDatos.Columns(8).Visible = ChkIVA.Checked + GvDatos.Columns(9).Visible = ChkIEPS.Checked + GvDatos.Columns(10).Visible = ChkRetIVA.Checked + GvDatos.Columns(11).Visible = ChkRetISR.Checked + GvDatos.Columns(12).Visible = ChkTotalImpuestos.Checked + GvDatos.Columns(13).Visible = ChkTotal.Checked GvDatos.Columns(14).Visible = ChkMoneda.Checked - - If ChkSucursal.Checked Then - GvDatos.Columns(15).Visible = True - Else - GvDatos.Columns(15).Visible = False - End If - - If ChkSucursalEjecucion.Checked Then - GvDatos.Columns(16).Visible = True - Else - GvDatos.Columns(16).Visible = False - End If - - If ChkCodigo.Checked Then - GvDatos.Columns(17).Visible = True - Else - GvDatos.Columns(17).Visible = False - End If - - If ChkSucursalCliente.Checked Then - GvDatos.Columns(18).Visible = True - Else - GvDatos.Columns(18).Visible = False - End If - - If ChkSucursalCobranza.Checked Then - GvDatos.Columns(19).Visible = True - Else - GvDatos.Columns(19).Visible = False - End If - - If ChkSucursalEjecucion.Checked Then - GvDatos.Columns(20).Visible = True - Else - GvDatos.Columns(20).Visible = False - End If - - If ChkVendedor.Checked Then - GvDatos.Columns(21).Visible = True - Else - GvDatos.Columns(21).Visible = False - End If - - If ChkEstatusFactura.Checked Then - GvDatos.Columns(22).Visible = True - Else - GvDatos.Columns(22).Visible = False - End If - - If ChkMotivoCancelacion.Checked Then - GvDatos.Columns(23).Visible = True - Else - GvDatos.Columns(23).Visible = False - End If - - If ChkSeTimbro.Checked Then - GvDatos.Columns(24).Visible = True - Else - GvDatos.Columns(24).Visible = False - End If - - If ChkSeEnvioMail.Checked Then - GvDatos.Columns(25).Visible = True - Else - GvDatos.Columns(25).Visible = False - End If - - If ChkCuentaContable.Checked Then - GvDatos.Columns(26).Visible = True - Else - GvDatos.Columns(26).Visible = False - End If - - If ChkUsuario.Checked Then - GvDatos.Columns(27).Visible = True - Else - GvDatos.Columns(27).Visible = False - End If - - If ChkObservaciones.Checked Then - GvDatos.Columns(28).Visible = True - Else - GvDatos.Columns(28).Visible = False - End If - + GvDatos.Columns(15).Visible = ChkSucursal.Checked + GvDatos.Columns(16).Visible = ChkSucursalEjecucion.Checked + GvDatos.Columns(17).Visible = ChkCodigo.Checked + GvDatos.Columns(18).Visible = ChkSucursalCliente.Checked + GvDatos.Columns(19).Visible = ChkSucursalCobranza.Checked + GvDatos.Columns(20).Visible = ChkSucursalEjecucion.Checked + GvDatos.Columns(21).Visible = ChkVendedor.Checked + GvDatos.Columns(22).Visible = ChkEstatusFactura.Checked + GvDatos.Columns(23).Visible = ChkMotivoCancelacion.Checked + GvDatos.Columns(24).Visible = ChkSeTimbro.Checked + GvDatos.Columns(25).Visible = ChkSeEnvioMail.Checked + GvDatos.Columns(26).Visible = ChkCuentaContable.Checked + GvDatos.Columns(27).Visible = ChkUsuario.Checked + GvDatos.Columns(28).Visible = ChkObservaciones.Checked GvDatos.Columns(29).Visible = ChkFolioFiscal.Checked - GvDatos.Columns(30).Visible = ChkMailCliente.Checked - - GvDatos.Columns(31).Visible = True = ChkEstatusFacturacion.Checked - + GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked - GvDatos.Columns(33).Visible = ChkSaldo.Checked Personalizo = 1 @@ -966,124 +807,6 @@ Partial Class RepVentaDetalle Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte() Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario) - 'Dim ObjVentas As New ClsVentas - 'Dim Vta As Modelos.Factura = Nothing - - 'Dim TmpDTImpuestos = New DataTable - 'TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) - 'TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) - 'TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) - - 'If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - ' Dim dtVentas As DataTable = ObjVentas.DtResultados - - ' ' se rellenan los campos de la factura - ' Vta = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, Server.MapPath("/")) - - ' Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString - ' 'se rellena la sucursal - ' Vta.Cliente.Sucursal = New Modelos.ClienteModel(dtVentas(0)("CveCliente").ToString.ToEntero, UsuarioActual.CveEmpresa) - ' Vta.Cliente = New Modelos.ClienteModel - ' Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString - ' Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString - ' Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString - ' Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString - ' Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString - ' Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString - ' Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString - ' Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString - ' Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString - ' Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString - ' Vta.AtencionA = dtVentas(0)("AtencionA").ToString - ' Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString - ' Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString - ' Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString - ' Vta.Cliente.Mail = dtVentas(0)("Mail").ToString - ' Vta.RefDocto = dtVentas(0)("Ref").ToString - ' Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero - - - ' Vta.ClienteSucursal = New Modelos.SucursalModel - ' Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString - ' Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString - ' Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString - ' Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString - ' Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString - ' Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString - ' Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString - ' Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString - ' Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString - ' Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString - ' Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString - ' Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString - - ' Vta.EnviarA = New Modelos.EnviarAModel - ' Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero - ' Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString - ' Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString - ' Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString - ' Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString - ' Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString - - ' Dim DR As DataRow = TmpDTImpuestos.NewRow() - ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then - ' If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("IVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR) - - ' 'solo para eclipse, que muesre un subtotal debajo de IVA - ' If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 1000 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' End If - - ' If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra - ' Vta.DtDetalle = ObjVentas.DtResultados - ' End If - - ' If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then - ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then - ' Dim dtImpuesto As DataTable = ObjVentas.DtResultados - ' If dtImpuesto.Rows.Count > 0 Then - ' For Each Row As DataRow In dtImpuesto.Rows - ' Dim Orden = 80 - ' If Row("Importe").ToString.ToDouble <> 0 Then - ' DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString - ' DR("Importe") = Row("Importe").ToString.ToDouble - ' DR("Orden") = Orden - ' TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' Orden = Orden + 1 - ' End If - ' Next - ' End If - ' Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC") - ' Else - ' Vta.DtDeduccion = ObjVentas.DtResultados - ' End If - ' End If - - ' If ObjVentas.GetVentasFirmas(CveVenta) Then - ' Vta.DtFirmas = ObjVentas.DtResultados - ' End If - 'End If - 'ObjVentas.Dispose() - - 'If Not IsNothing(Vta) Then - ' PdfFactura(Vta) - ' Vta = Nothing - 'End If End Function