diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx index fd6a6e5f5..4a40e98ba 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -14,7 +14,7 @@
  • - +
    • @@ -81,7 +81,9 @@ + ShowFooter="False" DataKeyNames="CvePSCargo,CodigoPS,Inicial,E_Almacen,E_Pub,E_Traspaso,E_Compra,E_Otros,S_Almacen,S_Traspaso,S_Otros,Exist_Actual" + OnRowDataBound="GvAcum_RowDataBound" + > diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb index fb134f4fb..30d650c56 100644 --- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -53,14 +53,25 @@ Partial Class Acumuladores_RepEntradasUsados Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Dim ObjAcum As New ClsAcumuladores + BtnImprimir.Visible = False + If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then GvAcum.DataSource = ObjAcum.DtResultados DatosEntradasUsados = ObjAcum.DtResultados + If DatosEntradasUsados IsNot Nothing AndAlso DatosEntradasUsados.Rows.Count > 0 Then + BtnImprimir.Visible = True + End If + End If + ObjAcum.Dispose() + GvAcum.DataBind() + UpAcciones.Update() + UpDatos.Update() + End Sub Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) @@ -163,4 +174,20 @@ Partial Class Acumuladores_RepEntradasUsados End Sub + + Protected Sub GvAcum_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("CvePSCargo").ToEntero <= 0 Then + + e.Row.CssClass = "Totales" + + End If + + + End If + + End Sub + End Class diff --git a/Agropecuaria/CierreCultivo.aspx b/Agropecuaria/CierreCultivo.aspx index 1766b5ce7..2f4819174 100644 --- a/Agropecuaria/CierreCultivo.aspx +++ b/Agropecuaria/CierreCultivo.aspx @@ -50,10 +50,7 @@
    -
    - - - + @@ -75,7 +72,8 @@
    + EmptyDataText="No se Encontraron datos" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None" + OnRowDataBound="GvDatos_RowDataBound" > @@ -102,21 +100,30 @@
    - +
    -
    + + + + - +
    + + +
    + + - - - @@ -127,9 +134,11 @@
    + +
    - +
    diff --git a/Agropecuaria/CierreCultivo.aspx.vb b/Agropecuaria/CierreCultivo.aspx.vb index cabf77d83..898524035 100644 --- a/Agropecuaria/CierreCultivo.aspx.vb +++ b/Agropecuaria/CierreCultivo.aspx.vb @@ -19,6 +19,20 @@ Partial Class Agrupecuaria_CierreCultivo End Property + Private Property DT_Datos_Cierre_Cuadros As DataTable + Get + + If ViewState("DT_Datos_Cierre_Cuadros") Is Nothing Then + ViewState("DT_Datos_Cierre_Cuadros") = New DataTable + End If + + Return DirectCast(ViewState("DT_Datos_Cierre_Cuadros"), DataTable) + + End Get + Set(ByVal value As DataTable) + ViewState("DT_Datos_Cierre_Cuadros") = value + End Set + End Property Private Sub Agrupecuaria_CierreCultivo_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -55,20 +69,40 @@ Partial Class Agrupecuaria_CierreCultivo Exit Sub End If + + + If Not DdlSubProyectoCierreCultivo.SelectedValue.ToEntero > 0 Then + Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + + DT_Datos_Cierre = Nothing + DT_Datos_Cierre_Cuadros = Nothing + Dim ObjGral As New ClsGenerales - If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjGral.DtResultados - DT_Datos_Cierre = ObjGral.DtResultados + 'se valida que se ejecute la consulta, que el resultado tenga dos tablas y que las dos tablas tengan por lo menos 1 registro + If ObjGral.GetCierreCultivos(DdlTemporada.SelectedValue.ToEntero, DdlSubProyectoCierreCultivo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjGral.DSResultados.Tables.Count = 2 AndAlso + ObjGral.DSResultados.Tables(0).Rows.Count > 0 AndAlso ObjGral.DSResultados.Tables(1).Rows.Count > 0 Then + + DT_Datos_Cierre = ObjGral.DSResultados.Tables(0).FiltraParametros("", "Gpo") + DT_Datos_Cierre_Cuadros = ObjGral.DSResultados.Tables(1) + + + GvDatos.DataSource = DT_Datos_Cierre + Else GvDatos.DataSource = Nothing DT_Datos_Cierre = Nothing + DT_Datos_Cierre_Cuadros = Nothing End If OcultarmostrarControles(DT_Datos_Cierre) ObjGral.Dispose() GvDatos.DataBind() + UpDatos.Update() @@ -81,10 +115,12 @@ Partial Class Agrupecuaria_CierreCultivo Protected Sub LnkAccionesCerrarCultivo_Click(sender As Object, e As EventArgs) - + TxtModalConcepto.Text = "" + TxtmodalFechaCierreCultivo.Text = "" + UpModalCerrarCultivo.Update() RegistraScript("$('#DivModalCerrarCultivo').modal('show');") - UpModalCerrarCultivo.Update() + End Sub @@ -108,17 +144,79 @@ Partial Class Agrupecuaria_CierreCultivo Dim ObjConta As New ClsContabilidad() ObjConta.IniciaTransacSQL() Dim CvePrePoliza As Integer = -1 + Dim FolioPoliza As Integer = -1 Dim ErrorProceso As Boolean = False Dim CveSubProyecto As Integer = DdlSubProyectoCierreCultivo.SelectedValue.ToEntero - Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe") + Dim ImporteCierre As Decimal = DT_Datos_Cierre.SUMD("Importe", "CveClasificacion > 0") + Dim CveClasificacionTotalitaria As Integer = DT_Datos_Cierre.Rows(0)("CveClasificacion").ToString.ToEntero ' se usa la primera clasificacion - CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 1, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, $"Cierre Temporada {DdlTemporada.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) + + Dim ConceptoTotales As String = $"{DdlTemporada.SelectedItem.Text}-{DdlSubProyectoCierreCultivo.SelectedItem.Text}" + + CvePrePoliza = ObjConta.AddPrePolizas("CierreCultivo/Cerrar", 53, ImporteCierre, ImporteCierre, 1, TxtmodalFechaCierreCultivo.Text.ToDate, TxtModalConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) + 'FolioPoliza = ObjConta.FolioPoliza If CvePrePoliza > 0 Then + Dim Orden As Integer = 1 + + For Each dRow As DataRow In DT_Datos_Cierre.Rows + + Dim ImporteMovimiento As Decimal = dRow("Importe").ToString.ToDecimal + Dim CveClasificacion As Integer = dRow("CveClasificacion").ToString.ToEntero + Dim Clasificacion As String = dRow("Clasificacion").ToString + Dim TipoMovimiento As Boolean = True + + Dim CveConceptoClasificaiones As Integer = 336 + Dim CveConceptoNominas As Integer = 336 + + Dim CveConceptoTotal As Integer = 69 + + + If CveClasificacion > 0 Then + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, Clasificacion, CveConceptoClasificaiones, Clasificacion, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, ImporteMX:=ImporteMovimiento, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then + ErrorProceso = True + Exit For + End If + + Else + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ConceptoTotales, 69, ConceptoTotales, TxtmodalFechaCierreCultivo.Text.ToDate, -1, -1, -1, -1, -1, ImporteMX:=ImporteCierre, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, TipoCambio:=1, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then + ErrorProceso = True + Exit For + End If + + End If + + Orden = Orden + 1 + Next + + + If Not ErrorProceso Then + + Dim ObjGral As New ClsGenerales(ObjConta.IniciaTransacSQL) + + + For Each dRow As DataRow In DT_Datos_Cierre_Cuadros.Rows + If Not ObjGral.UpdateCierreCultivos(dRow("CveCultivoCuadro").ToString.ToEntero, CvePrePoliza, UsuarioActual.CveEmpresa) Then + ErrorProceso = True + Exit For + End If + Next + + + + End If + + + + 'ObjConta.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) + Else ErrorProceso = True End If @@ -128,8 +226,9 @@ Partial Class Agrupecuaria_CierreCultivo ObjConta.RollBack() Else ObjConta.Commit() - + Alert($"Cultivo Cerrado correctamente Ver Pre Póliza") RegistraScript("$('#DivModalCerrarCultivo').modal('hide');") + CargaDatos() End If ObjConta.Dispose() @@ -137,4 +236,23 @@ Partial Class Agrupecuaria_CierreCultivo End Sub + + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + + If e.Row.DataKey("CveClasificacion").ToEntero <= 0 Then + + e.Row.Font.Bold = True + + End If + + End If + + End Sub + + Protected Sub BtnModalCerrarCultivo_Click(sender As Object, e As EventArgs) + CierraCultivo() + End Sub End Class diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index d530802bc..e14cd2203 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -228,6 +228,8 @@ Public Class ClsContabilidad OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ElseIf ex.Message.Contains("CK_Conta_PrePolizas_Concepto") Then OnError("Ocurrio un error al registrar la póliza, el concepto o descripción no puede ir vacio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then + Alert("No se puede registrar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia) Else OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End If @@ -1647,6 +1649,8 @@ Public Class ClsContabilidad If ex.Message.Contains("50015;") Then OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then + Alert("No se puede actualizar la póliza, póliza duplicada, ya existe una póliza con los datos especificados.", TipoMensaje.MsgAdvertencia) Else OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End If diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 73df9a9aa..8d10ef979 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -15,6 +15,7 @@ Public Class ClsGenerales Private SqlCommand As SqlCommand Private SqlTransacc As SqlTransaction Private Data As DataTable + Private DSet As New DataSet Private disposedValue As Boolean = False 'REGISTRAR CONEXIONES ABIERTAS Private CveConexion As Integer = 0 @@ -50,6 +51,12 @@ Public Class ClsGenerales End Get End Property + Public ReadOnly Property DSResultados() As DataSet + Get + DSResultados = DSet + End Get + End Property + Public Property FolioInsertado As Integer Public Property SerieInsertada As String @@ -3623,18 +3630,40 @@ Public Class ClsGenerales End Function - Public Function GetCierreCultivos(CveTemporada As Integer, CveEmpresa As Integer) As Boolean + Public Function UpdateCierreCultivos(CveCultivoCuadro As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Agro_CierreCultivosGet") + DataAdapter("PA_Agro_CierreCultivosUpdate") With SqlAdapter.SelectCommand.Parameters - .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada + .Add("@CveCultivoCuadro", SqlDbType.Int).Value = CveCultivoCuadro + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try SqlAdapter.Fill(Data) Retorno = True + Catch ex As Exception + OnError($"Ocurrió un error al actualizar la pre póliza del cuadro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + Public Function GetCierreCultivos(CveTemporada As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Agro_CierreCultivosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTemporada", SqlDbType.Int).Value = CveTemporada + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(DSet) + Retorno = True Catch ex As Exception OnError($"Ocurrió un error al obtener los datos de cultivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try @@ -3644,7 +3673,6 @@ Public Class ClsGenerales End Function - #End Region diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7b7e0e607..b7cf23d3c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8901,32 +8901,39 @@ Public Class ClsPaginas DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra001BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra001ImporteDR", GetType(Decimal)) + + DTConceptosPagoRelacionado.Columns.Add("Tra002BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra002ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Tra003BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Tra003ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Ret001BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret001ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Ret002BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002TasaOCuotaDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret002ImporteDR", GetType(Decimal)) + DTConceptosPagoRelacionado.Columns.Add("Ret003BaseDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret003ImpuestoDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret003TipoFactorDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("Ret003TasaOCuotaDR", GetType(String)) @@ -8934,14 +8941,6 @@ Public Class ClsPaginas - '001 ISR - '002 IVA - '003 IEPS - 'Impuetos - 'Retenciones - - - Dim ObjBancos As New ClsBancos If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie") @@ -9114,12 +9113,15 @@ Public Class ClsPaginas Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces) For Each NodoTraslados As XmlNode In NodosTraslados + Dim BaseDR As String = ValorXML(NodoTraslados, "BaseDR") Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR") ' ImpuestoDR Dim TipoFactor As String = ValorXML(NodoTraslados, "TipoFactorDR") Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR") Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal If ImpuestoDR = "001" Then + + DrRelacionado("Tra001BaseDR") = BaseDR DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR DrRelacionado("Tra001TipoFactorDR") = TipoFactor DrRelacionado("Tra001TasaOCuotaDR") = TasaOCuotaDR @@ -9127,6 +9129,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "002" Then + DrRelacionado("Tra002BaseDR") = BaseDR DrRelacionado("Tra002ImpuestoDR") = ImpuestoDR DrRelacionado("Tra002TipoFactorDR") = TipoFactor DrRelacionado("Tra002TasaOCuotaDR") = TasaOCuotaDR @@ -9134,6 +9137,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "003" Then + DrRelacionado("Tra003BaseDR") = BaseDR DrRelacionado("Tra003ImpuestoDR") = ImpuestoDR DrRelacionado("Tra003TipoFactorDR") = TipoFactor DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR @@ -9143,12 +9147,14 @@ Public Class ClsPaginas For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces) + Dim BaseDR As String = ValorXML(NodoRetenciiones, "BaseDR") Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR") ' ImpuestoDR Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR") Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR") Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal If ImpuestoDR = "001" Then + DrRelacionado("Ret001BaseDR") = BaseDR DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR DrRelacionado("Ret001TipoFactorDR") = TipoFactor DrRelacionado("Ret001TasaOCuotaDR") = TasaOCuotaDR @@ -9156,6 +9162,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "002" Then + DrRelacionado("Ret002BaseDR") = BaseDR DrRelacionado("Ret002ImpuestoDR") = ImpuestoDR DrRelacionado("Ret002TipoFactorDR") = TipoFactor DrRelacionado("Ret002TasaOCuotaDR") = TasaOCuotaDR @@ -9163,6 +9170,7 @@ Public Class ClsPaginas End If If ImpuestoDR = "003" Then + DrRelacionado("Ret003BaseDR") = BaseDR DrRelacionado("Ret003ImpuestoDR") = ImpuestoDR DrRelacionado("Ret003TipoFactorDR") = TipoFactor DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 8d06d1397..852ef415a 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -630,6 +630,7 @@ Public Class ClsSisEmpresas Return Retorno End Function + Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean, @@ -768,6 +769,37 @@ Public Class ClsSisEmpresas Return Retorno End Function + + + Public Function UpdateEmpresasCertificados(ArchivoKey As String, ArchivoCer As String, ArchivoPfx As String, CveEmpresa As Integer) As Boolean + + + Dim Retorno As Boolean = False + + DataAdapter("PA_Sis_EmpresasCertificadosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@ArchivoKey", SqlDbType.VarChar).Value = ArchivoKey + .Add("@ArchivoCer", SqlDbType.VarChar).Value = ArchivoCer + .Add("@ArchivoPfx", SqlDbType.VarChar).Value = ArchivoPfx + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Alert("Ocurrió un error al actualizar los archivos de certificados", TipoMensaje.MsgAdvertencia) + Catch ex As Exception + OnError("Ocurrió un error al actualizar los archivos de certificados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + + Public Function UpdateEmpresaXWizard(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String, RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, Regimen As String, SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, Buzon_Mail As String, Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, CveEmpresa As Integer, diff --git a/Empresas/119/Formatos/ReciboDePago.rdlc b/Empresas/119/Formatos/ReciboDePago.rdlc index 8fc36e37c..135892adf 100644 --- a/Empresas/119/Formatos/ReciboDePago.rdlc +++ b/Empresas/119/Formatos/ReciboDePago.rdlc @@ -702,7 +702,7 @@ - 0.39427cm + 0.43188cm @@ -798,6 +798,7 @@ 2pt + true @@ -901,7 +902,6 @@ es-MX - true @@ -938,7 +938,6 @@ 2pt - true @@ -970,13 +969,13 @@ Textbox108 = IIF( - Fields!Tra001ImporteDR.Value > 0 - OR Fields!Tra002ImporteDR.Value > 0 - OR Fields!Tra003ImporteDR.Value > 0 - OR Fields!Ret001ImporteDR.Value > 0 - OR Fields!Ret002ImporteDR.Value > 0 - OR Fields!Ret003ImporteDR.Value > 0 - ,False,True) + Fields!Tra001BaseDR.Value > 0 + OR Fields!Tra002BaseDR.Value > 0 + OR Fields!Tra003BaseDR.Value > 0 + OR Fields!Ret001BaseDR.Value > 0 + OR Fields!Ret002BaseDR.Value > 0 + OR Fields!Ret003BaseDR.Value > 0 + ,False,true) @@ -1564,7 +1563,7 @@ ImpPagado = IIF( - Fields!Tra001ImporteDR.Value > 0 + Fields!Tra001BaseDR.Value > 0 ,False,True) @@ -1923,7 +1922,7 @@ ImpPagado = IIF( - Fields!Tra002ImporteDR.Value > 0 + Fields!Tra002BaseDR.Value > 0 ,False,True) @@ -2282,7 +2281,7 @@ ImpPagado = IIF( - Fields!Tra003ImporteDR.Value > 0 + Fields!Tra003BaseDR.Value > 0 ,False,True) @@ -2641,7 +2640,7 @@ ImpPagado = IIF( - Fields!Ret001ImporteDR.Value > 0 + Fields!Ret001BaseDR.Value > 0 ,False,True) @@ -3000,7 +2999,7 @@ ImpPagado = IIF( - Fields!Ret002ImporteDR.Value > 0 + Fields!Ret002BaseDR.Value > 0 ,False,True) @@ -3359,13 +3358,14 @@ ImpPagado = IIF( - Fields!Ret003ImporteDR.Value > 0 + Fields!Ret003BaseDR.Value > 0 ,False,True) + es-MX @@ -3394,7 +3394,7 @@ Textbox95 = IIF( - Fields!Ret003ImporteDR.Value > 0 + Fields!Ret003BaseDR.Value > 0 ,False,True) - 12.4607cm + 12.1432cm @@ -510,9 +515,10 @@ CodigoPS + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -533,6 +539,7 @@ 0 @@ -544,9 +551,10 @@ TipoAgrupador + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -567,6 +575,7 @@ =Fields!E_Almacen.Value @@ -579,9 +588,10 @@ E_Almacen + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -602,6 +612,7 @@ 0 @@ -614,9 +625,10 @@ Paqueteria1 + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -637,6 +649,7 @@ =Fields!E_Traspaso.Value @@ -649,9 +662,10 @@ E_Traspaso + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -672,6 +686,7 @@ =Fields!E_Compra.Value @@ -684,9 +699,10 @@ E_Compra + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -707,6 +723,7 @@ 0 @@ -719,9 +736,10 @@ Fecha + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -742,6 +760,7 @@ =Fields!S_Almacen.Value @@ -754,9 +773,10 @@ S_Almacen + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -777,6 +797,7 @@ =Fields!S_Traspaso.Value @@ -789,9 +810,10 @@ S_Traspaso + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -812,6 +834,7 @@ 0 @@ -823,9 +846,10 @@ Textbox16 + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -846,6 +870,7 @@ 0 @@ -857,9 +882,10 @@ Textbox42 + =IIF(Fields!CvePSCargo.Value > 0, "White","Silver") 2pt 2pt 2pt @@ -900,7 +926,7 @@ DataSet1 0.10583cm 0.08377cm - 1.2148cm + 0.95022cm 20.80089cm - 1.01804cm + 0.6cm true true - 0.12694cm + 0.12693cm 0.01325cm 0cm 20.90669cm @@ -1146,7 +1172,6 @@ FechaConFormato - 0.30333cm 0.6cm 8.45793cm 1 @@ -1183,7 +1208,6 @@ FechaConFormato - 0.30333cm 8.69316cm 0.6cm 8.00814cm @@ -1221,7 +1245,6 @@ PageNumber - 0.30333cm 16.84241cm 0.6cm 4.00442cm @@ -1294,7 +1317,6 @@ ReportParameter1 - image/png diff --git a/Empresas/Grales/Formatos/ReciboDePago.rdlc b/Empresas/Grales/Formatos/ReciboDePago.rdlc index ebf4b91ac..0a4d324a6 100644 --- a/Empresas/Grales/Formatos/ReciboDePago.rdlc +++ b/Empresas/Grales/Formatos/ReciboDePago.rdlc @@ -724,7 +724,7 @@ - 0.51379cm + 0.39484cm @@ -986,13 +986,13 @@ Textbox108 = IIF( - Fields!Tra001ImporteDR.Value > 0 - OR Fields!Tra002ImporteDR.Value > 0 - OR Fields!Tra003ImporteDR.Value > 0 - OR Fields!Ret001ImporteDR.Value > 0 - OR Fields!Ret002ImporteDR.Value > 0 - OR Fields!Ret003ImporteDR.Value > 0 - ,False,True) + Fields!Tra001BaseDR.Value > 0 + OR Fields!Tra002BaseDR.Value > 0 + OR Fields!Tra003BaseDR.Value > 0 + OR Fields!Ret001BaseDR.Value > 0 + OR Fields!Ret002BaseDR.Value > 0 + OR Fields!Ret003BaseDR.Value > 0 + ,False,True) + + + +