-
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index c5225c895..a92d266e1 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -5,6 +5,9 @@ Imports Extensiones
Imports System.Linq
Imports System.Web.Services
Imports GemBox.Spreadsheet
+Imports System.IO
+Imports iTextSharp.text.pdf
+Imports Microsoft.Reporting.WebForms
Partial Class ContabilidadC_RegPrePoliza
Inherits ClsPaginas
@@ -167,12 +170,32 @@ Partial Class ContabilidadC_RegPrePoliza
ViewState("IdPoliza") = value
End Set
End Property
+
+ Public Property Tick As String
+ Get
+ Return CType(ViewState("Tick"), String)
+ End Get
+ Set(value As String)
+ ViewState("Tick") = value
+ End Set
+ End Property
+
+ Public Property CveIE As Integer
+ Get
+ Return CType(ViewState("CveIE"), Integer)
+ End Get
+ Set(value As Integer)
+ ViewState("CveIE") = value
+ End Set
+ End Property
+
+
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
-
+ Tick = DateTime.Now.Ticks.ToString
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
@@ -265,8 +288,8 @@ Partial Class ContabilidadC_RegPrePoliza
ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
ViewState("CveTurno") = Request("CveTurno").ToEntero
- DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
- DdlPlantilla.SelectedValue = "61"
+ 'DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
+ 'DdlPlantilla.SelectedValue = "61"
DdlPlantilla.Enabled = False
DivAgregarConceptos.Visible = False
@@ -485,19 +508,19 @@ Partial Class ContabilidadC_RegPrePoliza
'Asignamos los Subproyectos
e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlSubProyecto").DataBind()
- e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
+ 'e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1"))
e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto"))
'Asignamos los Tipos de Gasto
e.Row.FCDropDownList("DdlTipoGasto").DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlTipoGasto").DataBind()
- e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1"))
+ 'e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1"))
e.Row.FCDropDownList("DdlTipoGasto").SelectedValueExist(e.Row.DataKey("CveTipoGasto"))
'ASignamos las CuentasContables
e.Row.FCDropDownList("DdlCtaContable").DataSource = Session("DtCuentas")
e.Row.FCDropDownList("DdlCtaContable").DataBind()
- e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0"))
+ 'e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0"))
e.Row.FCDropDownList("DdlCtaContable").SelectedValueExist(e.Row.DataKey("IdCtaContable"))
TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).ToString.FormatoNumero
@@ -511,6 +534,12 @@ Partial Class ContabilidadC_RegPrePoliza
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+ If CveConceptoContable.Contiene(30) AndAlso UsuarioActual.CveRol = 1 Then
+ LnkImprimirPDF.Visible = True
+ LnkComprobante.Visible = True
+ CveIE = e.Row.DBCampo("CveIE").ToString.ToEntero
+
+ End If
'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
@@ -1724,6 +1753,235 @@ Partial Class ContabilidadC_RegPrePoliza
Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
GeneraTimbre(CvePrePoliza)
End Sub
+
+ Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs)
+ Dim pdf() As Byte
+ Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"}
+ Dim filtroComplemento() As String = {"CveIE"}
+ Dim Pathpdf As New List(Of String)
+ Dim nombre As String = "recibo"
+ Dim pdfs = New List(Of Byte())
+ Dim Path As String
+ Dim Factura() As Byte
+ Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro)
+ Dim ObjCompra As New ClsCompras
+ Dim ObjIE As New ClsBancos()
+ Dim i As Integer = 0
+ Dim pathPoliza As String
+ Try
+
+
+ Path = ImprimirPolizaPDF(IdPoliza)
+ pathPoliza = Path
+ If File.Exists(Path) Then
+ Pathpdf.Add(Path)
+ End If
+
+ For Each Row As DataRow In dt.Rows
+ If Row("CveConceptoContable").ToString.ToEntero = 30 Then
+ If Row("CveIE").ToString.ToEntero > 0 Then
+ If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+ If ObjIE.DtResultados.Rows.Count > 0 Then
+ Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
+ If File.Exists(Path) Then
+ Dim formato As String = System.IO.Path.GetExtension(Path)
+ If formato.ToLower.Contiene(".jpg", ".png", ".jpeg") Then
+ Dim ComprobantePDF As String = String.Format("{0}\{1}\comprobante.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick)
+ Using crea_archivo = New iTextSharp.text.Document
+ PdfWriter.GetInstance(crea_archivo, New FileStream(ComprobantePDF, FileMode.Create))
+ crea_archivo.Open()
+ Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(Path)
+ crea_archivo.Add(image)
+ End Using
+ Pathpdf.Add(ComprobantePDF)
+
+ Else
+ Pathpdf.Add(Path)
+ End If
+
+ End If
+ End If
+ End If
+ End If
+ End If
+ If Row("CveConceptoContable").ToString.ToEntero.Contiene(17, 309, 312) Then
+ If ObjCompra.GetCompras(Row("CveCompra").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+ If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
+ Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
+ Dim RFC As String = dr("RFC").ToString
+ Dim CveFactura As String = dr("CveFactura").ToString
+ Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
+ If File.Exists(Path) Then
+
+ Pathpdf.Add(Path)
+ End If
+ End If
+ End If
+ End If
+ Next
+
+ dt = DtMovimientos.FiltraParametros("", "", filtroComplemento)
+ For Each Row As DataRow In dt.Rows
+ If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then
+ If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
+ Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
+ Dim RFC As String = dr("RFCde").ToString
+ Dim CveFactura As String = dr("CveFactura").ToString
+ If CveFactura <> "" Then
+ Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
+ If File.Exists(Path) Then
+ Pathpdf.Add(Path)
+ End If
+ End If
+ End If
+ End If
+ Next
+
+ MergePdfFiles(Pathpdf.ToArray)
+ If File.Exists(pathPoliza) Then
+ Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+ End If
+
+ Catch ex As Exception
+ Alert("Error")
+ End Try
+ End Sub
+ Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
+ Dim ObjConta As New ClsContabilidad
+ 'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
+
+ Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
+ Dim params As New List(Of ReportParameter)
+ Dim Bytes As Byte() = Nothing
+
+
+ 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
+ If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+ Try
+
+
+ Dim dtVC As DataTable
+ Dim dr As DataRow
+ dtVC = ObjConta.DtResultados
+ dr = dtVC.Rows(0)
+ Dim ruta As String = ""
+
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("TipoPoliza", dr("CveTipoPoliza").ToString))
+ params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+ params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+ 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
+ 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
+ params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
+ params.Add(New ReportParameter("Moneda", ""))
+ params.Add(New ReportParameter("CodigoPostal", ""))
+
+ If UsuarioActual.CveEmpresa = 119 Then
+ params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+ End If
+
+ If Archivo.Exists Then
+ ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
+ Else
+ ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
+ End If
+
+ Bytes = StreamPDF(ruta, dtVC, params, "ppoliza")
+
+ If Not File.Exists(String.Format("{0}{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)) Then
+ DirectoryExistsCreate(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick))
+ File.WriteAllBytes(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString), Bytes)
+ End If
+
+ Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
+ Catch ex As Exception
+ Alert("ggg")
+ End Try
+ End If
+
+
+ ObjConta.Dispose()
+
+ End Function
+ Private Sub MergePdfFiles(ByVal pdfFiles() As String)
+ Dim result As Boolean = False
+ Dim pdfCount As Integer = 0
+ Dim f As Integer = 0
+ Dim fileName As String
+ Dim reader As iTextSharp.text.pdf.PdfReader = Nothing
+ Dim pageCount As Integer = 0
+ Dim pdfDoc As iTextSharp.text.Document = Nothing
+ Dim writer As PdfWriter = Nothing
+ Dim cb As PdfContentByte = Nothing
+
+ Dim page As PdfImportedPage = Nothing
+ Dim rotation As Integer = 0
+
+
+ Try
+ pdfCount = pdfFiles.Length
+ If pdfCount > 0 Then
+ fileName = pdfFiles(f)
+ reader = New iTextSharp.text.pdf.PdfReader(fileName)
+ pageCount = reader.NumberOfPages
+ pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18)
+ writer = PdfWriter.GetInstance(pdfDoc, New FileStream(String.Format("{0}\{1}\Salida.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick), FileMode.Create))
+
+ With pdfDoc
+ .Open()
+ End With
+ cb = writer.DirectContent
+ While f < pdfCount
+ Dim i As Integer = 0
+ While i < pageCount
+ i += 1
+ pdfDoc.SetPageSize(reader.GetPageSizeWithRotation(i))
+ pdfDoc.NewPage()
+ page = writer.GetImportedPage(reader, i)
+ rotation = reader.GetPageRotation(i)
+ If rotation = 90 Then
+ cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(i).Height)
+ ElseIf rotation = 270 Then
+ cb.AddTemplate(page, 0, 1.0F, -1.0F, 0, reader.GetPageSizeWithRotation(i).Width + 60, -30)
+ Else
+ cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0)
+ End If
+ End While
+ f += 1
+ If f < pdfCount Then
+ fileName = pdfFiles(f)
+ reader = New iTextSharp.text.pdf.PdfReader(fileName)
+ pageCount = reader.NumberOfPages
+ End If
+ End While
+
+
+ pdfDoc.Close()
+
+ Dim Archivo As New System.IO.FileInfo(String.Format("{0}\{1}\Salida.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick))
+
+ If Archivo.Exists Then
+ HttpContext.Current.Response.Clear()
+ HttpContext.Current.Response.ClearContent()
+ HttpContext.Current.Response.ContentType = "application/octet-stream"
+ HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
+ HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+ HttpContext.Current.Response.TransmitFile(String.Format("{0}\{1}\Salida.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick))
+ Response.Flush() ' send it to the client to download
+ HttpContext.Current.Response.SuppressContent = True
+ HttpContext.Current.ApplicationInstance.CompleteRequest()
+
+ End If
+ result = True
+ End If
+ Catch ex As Exception
+ End Try
+
+
+
+ End Sub
+
#End Region
@@ -1945,7 +2203,7 @@ Partial Class ContabilidadC_RegPrePoliza
Next
If Not TieneError Then
ObjConta.Commit()
- Alert(String.Format("
Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) + Alert(String.Format("
Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) Alert($"Se agregó la póliza {ObjConta.ContaFolio}") @@ -2014,5 +2272,41 @@ Partial Class ContabilidadC_RegPrePoliza Return dataTable End Function + + Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click + Dim ObjIE As New ClsBancos + Dim Comprobante As String = "" + + Dim Filesgral As List(Of Archivo) = TxtCargarArchivo.getfiles().Archivos + If Filesgral.Count > 0 Then + Dim fileItem As Archivo = Filesgral(0) + Dim Path As String = HttpContext.Current.Request.ApplicationPath + Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + + Path = Extensiones.DirectorioBaseEmpresas + Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa) + + + + If Not Directory.Exists(Path) Then + Directory.CreateDirectory(Path) + End If + Path += $"/{CveIE}.{Comprobante}" + If File.Exists(Path) Then + File.Delete(Path) + End If + My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path) + End If + TxtCargarArchivo.Text = "" + RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1") + + If ObjIE.UpdateComprobanteIE(Comprobante.Replace("."c, ""), CveIE) Then + Alert("El Comprobante se guardo exitosamente.", TipoMensaje.MsgInformacion) + End If + + ObjIE.Dispose() + + End Sub + End Class diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 286ca172c..421303bcd 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -67,9 +67,17 @@
-
- Crear Complemento de Pago
-
+
+
+
+ Cargar Excel
+
+
+ Crear Complemento de Pago
+
+
+
+
@@ -779,6 +787,54 @@
+
+
+
+
+
+
+
+
+
+
+ Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) + Alert(String.Format("
Prepóliza: {1}", CvePrePoliza, ObjConta.ContaFolio)) Alert($"Se agregó la póliza {ObjConta.ContaFolio}") @@ -2014,5 +2272,41 @@ Partial Class ContabilidadC_RegPrePoliza Return dataTable End Function + + Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click + Dim ObjIE As New ClsBancos + Dim Comprobante As String = "" + + Dim Filesgral As List(Of Archivo) = TxtCargarArchivo.getfiles().Archivos + If Filesgral.Count > 0 Then + Dim fileItem As Archivo = Filesgral(0) + Dim Path As String = HttpContext.Current.Request.ApplicationPath + Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + + Path = Extensiones.DirectorioBaseEmpresas + Path += String.Format("Empresas/{0}/IE", UsuarioActual.CveEmpresa) + + + + If Not Directory.Exists(Path) Then + Directory.CreateDirectory(Path) + End If + Path += $"/{CveIE}.{Comprobante}" + If File.Exists(Path) Then + File.Delete(Path) + End If + My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path) + End If + TxtCargarArchivo.Text = "" + RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1") + + If ObjIE.UpdateComprobanteIE(Comprobante.Replace("."c, ""), CveIE) Then + Alert("El Comprobante se guardo exitosamente.", TipoMensaje.MsgInformacion) + End If + + ObjIE.Dispose() + + End Sub + End Class diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 286ca172c..421303bcd 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -67,9 +67,17 @@
+
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 617ce1010..f62902ab6 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -4,11 +4,12 @@ Imports System.Data
Imports Extensiones
Imports System.Linq
Imports System.Web.Services
+Imports GemBox.Spreadsheet
Partial Class ContabilidadC_RegPrePolizaS
- Inherits ClsPaginas
-
-
+ Inherits ClsPaginas
+
+
#Region "Propiedades"
Public Property ArregloMovs As ArrayList
Get
@@ -157,9 +158,9 @@ Partial Class ContabilidadC_RegPrePolizaS
Set(value As Integer)
ViewState("IndiceGrid") = value
End Set
- End Property
+ End Property
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
@@ -483,16 +484,29 @@ Partial Class ContabilidadC_RegPrePolizaS
End Sub
- Private Sub CargaPlantillas(TipoPlantilla As Integer)
-
- 'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
- 'GvPlantillas.DataBind()
-
- DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
- DdlPlantilla.DataBind()
- DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
- End Sub
-
+ Private Sub CargaPlantillas(TipoPlantilla As Integer)
+
+ 'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+ 'GvPlantillas.DataBind()
+
+ If UsuarioActual.CveEmpresa.Contiene(120) Then
+ DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+ DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
+
+ Else
+ DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+ DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
+
+ End If
+
+
+ DdlPlantilla.DataBind()
+ DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
+
+ DdlPlantilla2.DataBind()
+ DdlPlantilla2.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
+ End Sub
+
Private Sub CargaConceptos()
DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
DdlConceptosContables.DataBind()
@@ -543,8 +557,9 @@ Partial Class ContabilidadC_RegPrePolizaS
Private Sub CargaCuentasContables()
Dim ObjConta As New ClsContabilidad
- If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
DdlCtaContable.DataSource = ObjConta.DtResultados
+ DtCuentasContables = ObjConta.DtResultados
End If
ObjConta.Dispose()
DdlCtaContable.DataBind()
@@ -1338,7 +1353,7 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("IdCuenta") = DdlCtaContable.SelectedValue
If DdlCtaContable.SelectedValue.ToEntero > 0 Then
- Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
+ Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString()
NombreCuenta = drr("Nombre").ToString()
@@ -1406,7 +1421,7 @@ Partial Class ContabilidadC_RegPrePolizaS
dr("IdCuenta") = DdlCtaContable.SelectedValue
If DdlCtaContable.SelectedValue.ToEntero > 0 Then
- Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
+ Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
If drr IsNot Nothing Then
CodigoCuenta = drr("CuentaFormato").ToString()
NombreCuenta = drr("Nombre").ToString()
@@ -1457,8 +1472,8 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtAbono.Text = ""
TxtReferencia.Text = ""
TxtDescripcion.Text = ""
- End Sub
-
+ End Sub
+
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
Public Sub Bancos_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -1510,9 +1525,9 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
ObjContabilidad.Dispose()
- End Sub
+ End Sub
#End Region
-
+
Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs)
If UpPrePoliza.Visible Then
For Each Gvr As GridViewRow In GvPrePoliza.Rows
@@ -1669,11 +1684,11 @@ Partial Class ContabilidadC_RegPrePolizaS
ObjConta.Dispose()
- End Sub
-
-
+ End Sub
+
+
#Region "COMPLEMENTO DE PAGO"
-
+
Private Sub GeneraTimbre(CvePrePoliza As Integer)
Dim Str As New StringBuilder
Dim Banco As New ClsBancos
@@ -1730,10 +1745,211 @@ Partial Class ContabilidadC_RegPrePolizaS
Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
GeneraTimbre(CvePrePoliza)
- End Sub
+ End Sub
#End Region
-
-
-
+
+
+
+#Region "E X C E L"
+
+
+ Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+ RegistraScript(String.Format("$('#{0}').modal();", "DivCargaExcel"))
+
+ End Sub
+
+ Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
+ Dim NombreArchivo As String
+ SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+ Dim workbook As New ExcelFile()
+ Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.ToString)
+
+ Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero
+ Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
+
+ Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows
+ Select New With
+ {
+ .ConceptoAdministrativo = row.Item("ConceptoContable"),
+ .Cuenta = row.Item("Codigo"),
+ .NombreCuenta = row.Item("NombreCuenta"),
+ .Cargo = "",
+ .Abono = "",
+ .Referencia = "",
+ .Concepto = "",
+ .SubProyecto = row.Item("SubProyecto"),
+ .CveConceptoContable = row.Item("CveConcepto"),
+ .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
+ .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
+ .CveCuenta = row.Item("CveCuenta")
+ }).QueryToDataTable(True)
+
+ worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+ {
+ .ColumnHeaders = True,
+ .StartRow = 0,
+ .StartColumn = 0
+ })
+
+ Dim columnCount = worksheet.CalculateMaxUsedColumns()
+ For i = 0 To columnCount
+ worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+ Next
+ worksheet.Columns("I").Hidden = True
+ worksheet.Columns("J").Hidden = True
+ worksheet.Columns("K").Hidden = True
+ worksheet.Columns("L").Hidden = True
+
+
+ NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString
+ workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
+
+
+ End Sub
+
+ Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+ If TxtExcel.getfiles().Archivos.Count > 0 Then
+ Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+
+ Dim Directorio As String = Server.MapPath("~") & file.patch
+
+ Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+ CargarArchivo(Directorio, file.filename, Tipo)
+ Else
+ Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
+ End If
+ End Sub
+ Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+ Dim dt As New DataTable
+ ' Conexion As Odbc.OdbcConnection = Nothing
+ Dim ErrorArchivo = False
+ Dim ErrorExcel = False
+
+ dt = ReadExcelFile(Ruta + FileName, True)
+
+
+ If Not ErrorArchivo Then
+
+ If Not dt.Columns(0).ColumnName = "ConceptoAdministrativo" Then
+ Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(1).ColumnName = "Cuenta" Then
+ Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(2).ColumnName = "NombreCuenta" Then
+ Alert("El nombre de la tercera columna debe ser 'NombreCuenta'.Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(3).ColumnName = "Cargo" Then
+ Alert("El nombre de la cuarta columna debe ser 'Cargo'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(4).ColumnName = "Abono" Then
+ Alert("El nombre de la quinta columna debe ser 'Abono' .Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(5).ColumnName = "Referencia" Then
+ Alert("El nombre de la sexta columna debe ser 'Referencia'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(6).ColumnName = "Concepto" Then
+ Alert("El nombre de la séptima columna debe ser 'Concepto'.Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ If Not dt.Columns(7).ColumnName = "SubProyecto" Then
+ Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
+ Exit Sub
+ End If
+ End If
+
+ If Not ErrorArchivo Then
+
+
+ Dim ObjConta As New ClsContabilidad()
+ ObjConta.IniciaTransacSQL()
+ Try
+ Dim TieneError As Boolean = False
+ Dim ContadorUpdate As Integer = 0
+ Dim ContadorError As Integer = 0
+ Dim NombreCuenta As String = ""
+ Dim CvePrePoliza As Integer = 0
+ Dim Cuenta As String = ""
+ Dim Reporte As New StringBuilder
+ Dim TotalCargos As Integer = 0
+ Dim TotalAbonos As Integer = 0
+
+
+ CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, DdlPlantilla2.SelectedItem.Text.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero)
+
+
+ For Each Row As DataRow In dt.Rows
+ NombreCuenta = Row("NombreCuenta").ToString
+ Cuenta = Row("Cuenta").ToString
+
+ Dim Importe As Decimal = If(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
+ Dim Concepto As String = Row("Concepto").ToString
+ Dim Referencia As String = Row("Referencia").ToString
+ Dim IdCuenta As Integer = -1
+ Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
+ Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
+ Dim YaExiste As Boolean = False
+ Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
+ Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
+
+
+ If Importe <> 0 Then
+
+ If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
+ If ObjConta.DtResultados.Rows.Count > 0 Then
+ IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
+ 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
+ Else
+ Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} ")
+ TieneError = True
+ YaExiste = True
+ End If
+ Else
+ TieneError = True
+ Exit For
+ End If
+
+
+ If YaExiste = False Then
+ If IdCuenta > 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate, IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
+ TieneError = True
+ Exit For
+ End If
+ Else
+ IdCuenta = -2
+ End If
+ End If
+
+ End If
+
+ Next
+ If Not TieneError Then
+ ObjConta.Commit()
+ Alert(String.Format("
+
+
+
+ Prepóliza: {1}", CvePrePoliza, "Ver")) + + Alert($"Se agregó la póliza {ObjConta.ContaFolio}") + + Else + Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError) + ObjConta.RollBack() + End If + + + Catch ex As Exception + ObjConta.RollBack() + End Try + + ObjConta.Dispose() + End If + End Sub +#End Region + End Class diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 992646e1b..346bf361c 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -894,6 +894,10 @@ Partial Class Contratos_Default GRidsPresupuestos.Visible = True msjpresupuestos.Visible = False + If ObjContratos.CveContratoTipo = 30 Then + Server.Transfer(String.Format("/Contratos/ContratoObra.aspx?CveContrato={0}", CveContrato)) + End If + If ArchivoUpdate = ObjContratos.Archivo.ToString Then LinkArchivo.Visible = True LinkArchivo.HRef = String.Format("{0}{1}", Ruta, ObjContratos.Archivo.ToString) diff --git a/Contratos/ContratoAvance.aspx b/Contratos/ContratoAvance.aspx index 2a42ad29a..69501d2c1 100644 --- a/Contratos/ContratoAvance.aspx +++ b/Contratos/ContratoAvance.aspx @@ -192,7 +192,7 @@ -
+
+
+
+
+ Apartado Usado
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ {0}", mensaje2) @@ -1473,6 +1501,13 @@ Partial Class Inventarios_RecepcionUsados GvM.DataSource = DtTemp GvM.DataBind() + 'If TmpDTPolizaVirtual IsNot Nothing AndAlso RblUsadosAjuste.SelectedValue = "2" Then + ' TmpDTPolizaVirtual.Clear() + ' For Each Row As DataRow In DtTemp.Rows + ' AddPolizaVirtual(Row("CvePS").ToString().ToEntero()) + ' Next + 'End If + EscondeColumnasGVM(DtTemp) End Sub Private Sub EscondeColumnasGVM(DtTemp As DataTable) @@ -2076,6 +2111,14 @@ Partial Class Inventarios_RecepcionUsados DdlClientes.SelectedValueExist(CveCliente) End If + If Me.ObjFactura IsNot Nothing Then + Me.ObjFactura.Dispose() + Me.ObjFactura = Nothing + End If + + Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas) + + 'SI ES DISTRIBUIDOR VAMOS A GENERAR LA REMISION DE NOTA DE CREDITO If EsDistribuidor Then DivCliente.Visible = True @@ -2087,13 +2130,6 @@ Partial Class Inventarios_RecepcionUsados Me.ObjRemisionNC = Nothing End If - If Me.ObjFactura IsNot Nothing Then - Me.ObjFactura.Dispose() - Me.ObjFactura = Nothing - End If - - Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas) - If Me.ObjFactura IsNot Nothing Then 'CreaRemisionNC(ObjFactura.CveCliente, ObjFactura.CveSubProyecto, ObjFactura.CveMoneda) DivTotal.Visible = True @@ -2102,12 +2138,17 @@ Partial Class Inventarios_RecepcionUsados 'DivCliente.Visible = False 'DivFactura.Visible = False End If + If ObjVentas.GetVentasUsadosDetalle(CveRemisionRecibida) Then DtUsados = ObjVentas.DtResultados.Copy() End If + ObjVentas.Dispose() If DtUsados IsNot Nothing Then + + 'DivRecepcionApartado.Visible = True + For Each RowUsado As DataRow In DtUsados.Rows Dim CvePS = RowUsado("CvePS").ToString().ToEntero() @@ -2271,6 +2312,10 @@ Partial Class Inventarios_RecepcionUsados Me.ObjRemisionNC.PedidoContrato = "" Me.ObjRemisionNC.ObservacionesAlmacen = "" + 'If TmpDTPolizaVirtual IsNot Nothing Then + ' Me.ObjRemisionNC.DtPolizasVirtuales = TmpDTPolizaVirtual + 'End If + End Sub Private Function AddPSRNC(ByRef TmpDT As DataTable, Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String, @@ -3087,6 +3132,10 @@ Partial Class Inventarios_RecepcionUsados ObjPS.Dispose() GuardaAjuste() + + 'If TmpDTPolizaVirtual Is Nothing Then + ' CreaDTmpDTPolizaVirtual() + 'End If End Sub Protected Sub CargarDescuento() @@ -3251,15 +3300,126 @@ Partial Class Inventarios_RecepcionUsados Using ObjMarcas As New ClsProductosServicios If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then DdlMarcaPSAjuste.DataSource = ObjMarcas.DtResultados + DdlMarcaRem.DataSource = ObjMarcas.DtResultados End If End Using + DdlMarcaPSAjuste.DataBind() + DdlMarcaRem.DataBind() DdlMarcaPSAjuste.Items.Insert(0, New ListItem("Todas", "-1")) + DdlMarcaRem.Items.Insert(0, New ListItem("Todas", "-1")) UpAjuste.Update() End Sub +#Region "P O L I Z A - V I R T U A L" + Private Sub CreaDTmpDTPolizaVirtual() + TmpDTPolizaVirtual = New DataTable + TmpDTPolizaVirtual.Columns.Add("CvePS", GetType(Integer)) + TmpDTPolizaVirtual.Columns.Add("Cantidad", GetType(Decimal)) + TmpDTPolizaVirtual.Columns.Add("PU", GetType(Decimal)) + TmpDTPolizaVirtual.Columns.Add("Descuento", GetType(Decimal)) + TmpDTPolizaVirtual.Columns.Add("Total", GetType(Decimal)) + TmpDTPolizaVirtual.Columns.Add("CveVentaDetalle", GetType(Integer)) + TmpDTPolizaVirtual.Columns.Add("TipoServicio", GetType(Integer)) + TmpDTPolizaVirtual.Columns.Add("TipoPoliza", GetType(Integer)) + TmpDTPolizaVirtual.Columns.Add("CveModeloAuto", GetType(Integer)) + TmpDTPolizaVirtual.Columns.Add("AnioVehiculo", GetType(Integer)) + TmpDTPolizaVirtual.Columns.Add("TieneUsado", GetType(Boolean)) + TmpDTPolizaVirtual.Columns.Add("FechaUsado", GetType(DateTime)) + TmpDTPolizaVirtual.Columns.Add("CvePSUsado", GetType(Integer)) + TmpDTPolizaVirtual.Columns.Add("CveBCIUsado", GetType(Integer)) + End Sub + Private Function AddPolizaVirtual(CvePS As Integer) As Boolean + + Dim Retorno As Boolean = True + + 'If Modalidad = "U" Then + ' If TmpDTPolizaVirtual.Rows.Count > 0 Then + ' Dim Elimino As Boolean = False + ' For Each RowPoliza As DataRow In TmpDTPolizaVirtual.Rows + ' If RowPoliza("CvePS").ToString().ToEntero() = CvePS Then + ' RowPoliza.Delete() + ' Elimino = True + ' Exit For + ' End If + ' Next + ' If Elimino Then + ' TmpDTRecepcionUsados.AcceptChanges() + ' End If + ' End If + 'End If + + Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") + + If DrPS IsNot Nothing Then + 'SOLO DEBE AGREGAR POLIZA VIRTUAL SI ES ACUMULADOR + If Not DrPS("CveClasificacion").ToString().ToEntero().Contiene(20520, 20522, 20513, 20511, 20521, 20512, 20514, 20229) Then + Return Retorno + End If + Else + Retorno = False + Return Retorno + End If + + Dim Cantidad As Decimal = 1 + Dim PU As Decimal = txtPrecio.Text.ToDecimal() + Dim Descuento As Decimal = 0 + Dim ImporteAjuste As Decimal = TxtImporteAjuste.Text.ToDecimal().RoundSQL(2) + + Dim Total As Decimal = ((Cantidad * PU) - Descuento).RoundSQL(2) + Dim TipoServicio As Integer = -1 + Dim FechaUsado As DateTime = If(TxtFechaAjuste.Text.ToDateTime() < MinFecha, Now, TxtFechaAjuste.Text.ToDateTime()) + Dim CveModeloAuto As Integer = -1 + Dim AnioVehiculo As Integer = 0 + Dim TipoPoliza As Integer = 1 'VENTA + + If Total = ImporteAjuste Then + TipoPoliza = 3 'GARANTIA + Else + TipoPoliza = 2 'AJUSTE + End If + + 'Dim TieneUsado As Boolean = GvRecepcionUsados.Rows.Cast(Of GridViewRow).Any(Function(GvRow) GvRow.RowType = DataControlRowType.DataRow AndAlso GvRow.FCTextBox("TxtCantidad").Text.ToDecimal() > 0) + Dim CvePSUsado As Integer = -1 + Dim CveBCIUsado As Integer = -1 + + 'If TieneUsado Then + ' For Each GvRow As GridViewRow In GvRecepcionUsados.Rows + ' If GvRow.RowType = DataControlRowType.DataRow Then + ' If GvRow.FCTextBox("TxtCantidad").Text.ToDecimal() > 0 Then + ' CvePSUsado = GvRow.DataKey("CvePSCargo").ToEntero() + ' CveBCIUsado = GvRow.FCDropDownList("DdlBCIUsado").SelectedValue.ToEntero() + + ' Exit For + ' End If + ' End If + ' Next + 'End If + + Dim Row As DataRow = TmpDTPolizaVirtual.NewRow() + Row("CvePS") = CvePS + Row("Cantidad") = Cantidad + Row("PU") = PU + Row("Descuento") = Descuento + Row("Total") = Total + Row("CveVentaDetalle") = -1 + Row("TipoServicio") = TipoServicio + Row("TipoPoliza") = TipoPoliza + Row("CveModeloAuto") = CveModeloAuto + Row("AnioVehiculo") = AnioVehiculo + Row("TieneUsado") = 1 + Row("FechaUsado") = FechaUsado + Row("CvePSUsado") = CvePSUsado + Row("CveBCIUsado") = CveBCIUsado + + TmpDTPolizaVirtual.Rows.Add(Row) + + Return Retorno + End Function +#End Region + Partial Class MFolioGarantiaMensaje Public Property CvePS As Integer diff --git a/Inventarios/RepTraspasoAlmacen.aspx b/Inventarios/RepTraspasoAlmacen.aspx index 0a1fd7f89..b211ab7f2 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx +++ b/Inventarios/RepTraspasoAlmacen.aspx @@ -206,12 +206,11 @@ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
-
+
@@ -861,6 +873,9 @@
-
+
@@ -879,7 +894,6 @@
-
+
@@ -998,7 +1015,6 @@
-
-
@@ -1227,12 +1241,13 @@
+
@@ -1096,9 +1111,8 @@
-
- Agregar
+ Guardar
Actualizar
+ Actualizar
+ Guardar
+
+
-
- Actualizar
- Agregar
-
@@ -1257,6 +1272,11 @@
+
+
+ Agregar
+
+
-
- Agregar
-
-
@@ -1395,12 +1410,13 @@
Descripción
+
+ Actualizar
+ Guardar
+
+
- Actualizar
- Agregar
-
@@ -1429,7 +1445,7 @@
-
+
diff --git a/RH/CalculoSBC.aspx b/RH/CalculoSBC.aspx
index 0e633f32a..253c60a86 100644
--- a/RH/CalculoSBC.aspx
+++ b/RH/CalculoSBC.aspx
@@ -51,6 +51,13 @@
+ Tipo :
+ Fecha :
+
+
+
@@ -379,6 +386,7 @@
+
diff --git a/RH/CalculoSBC.aspx.cs b/RH/CalculoSBC.aspx.cs
index f23576f15..ddc608182 100644
--- a/RH/CalculoSBC.aspx.cs
+++ b/RH/CalculoSBC.aspx.cs
@@ -27,11 +27,16 @@ public partial class RH_CalculoSBC : ClsPaginas
{
using (ClsNominas objnom = new ClsNominas())
{
- if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, TxtFechaPago.Text))
+ if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa,DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text))
{
GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0];
GVCFija.DataSource = objnom.DTSetResultados.Tables[0];
GVPV.DataSource = objnom.DTSetResultados.Tables[0];
+ if(objnom.DTSetResultados.Tables.Count > 0)
+ {
+ GVDetalleParteVariable.DataSource = objnom.DTSetResultados.Tables[1];
+ GVDetalleParteVariable.DataBind();
+ }
}
}
GVCalculosSBC.DataBind();
@@ -61,13 +66,13 @@ public partial class RH_CalculoSBC : ClsPaginas
//02: MovtosmodSalario GVCalculosSBC
concater = "";
int contador = 0;
- foreach (var item in ObjPersonal.DtResultados.Select("Tipo=2"))
- {
+ //foreach (var item in ObjPersonal.DtResultados.Select("Tipo=2"))
+ //{
- MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item["Movtotxt"]);
- concater = "\\r\\n";
- contador++;
- }
+ // MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater, item["Movtotxt"]);
+ // concater = "\\r\\n";
+ // contador++;
+ //}
foreach (GridViewRow item in GVCalculosSBC.Rows)
{
double SalarioDiarioSSNuevo =Math.Round( item.DataKey("SalarioDiarioSSNuevo").ToDouble(),2);
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index d11e83470..52185762d 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -5,26 +5,35 @@
@@ -32,7 +41,7 @@
PDF
--%>
- Expediente de personal
+ Expediente de personal
Gafete
@@ -61,7 +70,7 @@
- PDF consumo
+ PDF consumo
@@ -80,7 +89,7 @@
-
+
@@ -102,7 +111,7 @@
-
+
|
| |||||
|
-
+ |
- |
- |
- |
|
- |
@@ -1938,7 +1960,7 @@
