From 355508efa2db74c139644276672ca7590b0d9c73 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Mon, 30 Sep 2019 19:07:27 -0700 Subject: [PATCH 1/9] =?UTF-8?q?cambio=20en=20el=20TC=20de=20la=20aplicaci?= =?UTF-8?q?=C3=B3n=20de=20NC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 31b36d589..58db7e977 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6593,8 +6593,8 @@ Partial Class Compras_Compras If Gvr.FCCheckBox("ChkFacturaNC").Checked Then Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, 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 importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal - Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal + Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador IdCtaContable = CtaProveedorExtranjera CveCuenta = CveCuentaProveedorExtranjera @@ -6611,7 +6611,7 @@ Partial Class Compras_Compras End If - importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador + importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador IdCtaContable = CtaProveedorExtranjera CveCuenta = CveCuentaProveedorExtranjera If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then From d20e22d49d6de877439a8bfa1d65f247e21da11e Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 2 Oct 2019 13:43:33 -0700 Subject: [PATCH 2/9] RH Familiares grid y personal requeriemientos --- App_Code/ClsRH.vb | 45 ++-- App_Code/Modelos.vb | 4 +- RH/CatPersonalRequerido.aspx | 29 ++- RH/CatPersonalRequerido.aspx.vb | 32 ++- RH/Personal.aspx | 165 +++++++++++- RH/Personal.aspx.vb | 401 ++++++++++++++++++++++++++++-- RH/RepPersonalNecesidades.aspx | 7 + RH/RepPersonalNecesidades.aspx.vb | 19 +- 8 files changed, 647 insertions(+), 55 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 7aa66e67c..022ef5ff0 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -3299,7 +3299,8 @@ Public Class ClsRH .Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad .Add("@CveUsuario", SqlDbType.Int).Value = RHRequerido.CveUsuario - .Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa + .Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa + .Add("@CveDepartamento", SqlDbType.Int).Value = RHRequerido.CveDepartamento End With Try @@ -3320,7 +3321,9 @@ Public Class ClsRH .Add("@CveRequerimiento", SqlDbType.Int).Value = RHRequerido.CveRequerimiento .Add("@CveSubProyecto", SqlDbType.Int).Value = RHRequerido.CveSubProyecto .Add("@CveTurno", SqlDbType.Int).Value = RHRequerido.CveTurno - .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad + .Add("@Cantidad", SqlDbType.Int).Value = RHRequerido.Cantidad + .Add("@CveEmpresa", SqlDbType.Int).Value = RHRequerido.CveEmpresa + .Add("@CveDepartamento", SqlDbType.Int).Value = RHRequerido.CveDepartamento End With Try @@ -3332,12 +3335,16 @@ Public Class ClsRH Return Retorno End Function - Public Function RemovePersonalRequerido(CveRequerimiento As Integer) As Boolean + Public Function RemovePersonalRequerido(CveRequerimiento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - - DataAdapter("PA_RH_PersonalRequeridoRemove") - - SqlAdapter.SelectCommand.Parameters.Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento + + DataAdapter("PA_RH_PersonalRequeridoRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveRequerimiento", SqlDbType.Int).Value = CveRequerimiento + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With Try @@ -3354,12 +3361,12 @@ Public Class ClsRH End Try Return Retorno - End Function - + End Function + #End Region - + #Region "ClsRHReportePersonalNecesidades" - Public Function GetReportePersonalNecesidades(CveTurno As Integer, CveProyecto As Integer, tCveSubProyeto As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean + Public Function GetReportePersonalNecesidades(CveTurno As Integer, CveProyecto As Integer, tCveSubProyeto As Integer, Estatus As Integer, CveEmpresa As Integer, CveDepartamento As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_Rep_NecesidadesPersonal") @@ -3369,6 +3376,7 @@ Public Class ClsRH .Add("@CveSubProyecto", SqlDbType.Int).Value = tCveSubProyeto .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento End With Try @@ -3378,9 +3386,9 @@ Public Class ClsRH OnError("Ocurrió un error al obtener el Reporte de Necesidades de Personal", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno - End Function + End Function #End Region - + #Region "ClsRHReporteRotacionPersonal" Public Function GetReporteRotacionPersonal(FechaInicio As Date, FechaFin As Date, CveTurno As Integer, CveProyecto As Integer, CveSubProyeto As Integer, CveEmpresa As Integer) As Boolean @@ -4287,7 +4295,7 @@ Public Class ClsRH End Function - Public Function PersonalFamiliaresAdd(CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String) As Boolean + Public Function PersonalFamiliaresAdd(CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String, Optional Beneficiario As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_PersonalFamiliaresAdd") @@ -4302,7 +4310,9 @@ Public Class ClsRH .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Telefono", SqlDbType.VarChar).Value = Telefono - .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Beneficiario", SqlDbType.Bit).Value = Beneficiario + End With Try @@ -4318,7 +4328,7 @@ Public Class ClsRH End Function - Public Function PersonalFamiliaresUpdate(CveFamiliar As Integer, CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String) As Boolean + Public Function PersonalFamiliaresUpdate(CveFamiliar As Integer, CvePersonal As Integer, Parentestco As Integer, Nombre As String, Domicilio As String, Edad As Integer, Ocupacion As String, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Observaciones As String, Optional Beneficiario As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_PersonalFamiliaresUpdate") @@ -4335,6 +4345,9 @@ Public Class ClsRH .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Telefono", SqlDbType.VarChar).Value = Telefono .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@Beneficiario", SqlDbType.Int).Value = Beneficiario + + End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index f77aa9e8d..2eb5346c2 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -8585,6 +8585,7 @@ Namespace Modelos CveTurno = -1 CveUsuario = -1 CveEmpresa = -1 + CveDepartamento = -1 End Sub Public Property CveRequerimiento As Integer Public Property CveProyecto As Integer @@ -8598,7 +8599,8 @@ Namespace Modelos Public Property FechaActualizacion As DateTime Public Property CveUsuario As Integer Public Property Usuario As String - Public Property CveEmpresa As Integer + Public Property CveEmpresa As Integer + Public Property CveDepartamento As Integer End Class #End Region diff --git a/RH/CatPersonalRequerido.aspx b/RH/CatPersonalRequerido.aspx index cc0b56517..cd3c2a71d 100644 --- a/RH/CatPersonalRequerido.aspx +++ b/RH/CatPersonalRequerido.aspx @@ -81,19 +81,28 @@ - + + + + + + + + + @@ -157,6 +166,22 @@
+ +
+ + + + + + + + + +
+ +
+ +
diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index 875b934e7..019aaef2d 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -94,6 +94,11 @@ Partial Class RH_CatPersonalRequerido Private Sub CargaTurno() ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ReqTurnoDdl.DataBind() + End Sub + + Private Sub CargaDepartamento() + DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataBind() End Sub Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click @@ -108,12 +113,14 @@ Partial Class RH_CatPersonalRequerido RHRequerido.Cantidad = TxtCantidad.Text.ToEntero RHRequerido.CveUsuario = UsuarioActual.CveUsuario RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa + RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero If ObjRH.AddPersonalRequerido(RHRequerido) Then ReqProyectoDdl.SelectedValueExist(-1) ReqSubProyectoDdl.SelectedValueExist(-1) - ReqTurnoDdl.SelectedValueExist(-1) + ReqTurnoDdl.SelectedValueExist(-1) + DdlDepartamento.SelectedValueExist(-1) TxtCantidad.Text = "" CargadatosGvPersonalReq() @@ -131,12 +138,16 @@ Partial Class RH_CatPersonalRequerido RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero RHRequerido.Cantidad = TxtCantidad.Text.ToEntero RHRequerido.CveRequerimiento = CveRequerimiento + RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero If ObjRH.UpdatePersonalRequerido(RHRequerido) Then ReqProyectoDdl.SelectedValueExist(-1) ReqSubProyectoDdl.SelectedValueExist(-1) - ReqTurnoDdl.SelectedValueExist(-1) + ReqTurnoDdl.SelectedValueExist(-1) + DdlDepartamento.SelectedValueExist(-1) + DdlDepartamento.SelectedValueExist(-1) + TxtCantidad.Text = "" CargadatosGvPersonalReq() @@ -164,7 +175,8 @@ Partial Class RH_CatPersonalRequerido Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento") Dim ObjRH As New ClsRH - If ObjRH.RemovePersonalRequerido(CveReq) Then + + If ObjRH.RemovePersonalRequerido(CveReq, UsuarioActual.CveEmpresa) Then CargadatosGvPersonalReq() Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion) @@ -189,13 +201,19 @@ Partial Class RH_CatPersonalRequerido CveRequerimiento = GvRow.DataKey("CveRequerimiento") CargaProyectos() + CargaTurno() + CargaDepartamento() + ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero) CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl) - ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) - CargaTurno() + ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero) + ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero) - TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero - + TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero + + DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero) + + BtnAgregarPersonalReqModal.Text = "Actualizar" UpModalPersonalReq.Update() diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 3b139a670..3cf3d5b97 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -70,7 +70,17 @@ - <%-- añlsdkjlasjdlkasjdkas--%> + + + +
  • + +
    • + +     +     + +   @@ -259,15 +269,69 @@
    -
    - - - -
    -
    - - - + + +
    +
    + + + +
    + +
    + + + +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    @@ -4218,6 +4282,87 @@ + + + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index c26034a1b..d1fe3b2f4 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -528,12 +528,94 @@ Partial Class RH_Personal Set(value As Integer) ViewState("CvePermiso") = value End Set + End Property + +#End Region + + +#Region "PROPIEDADES FAMILIARES" + + Private Property ActualizarFamiliar As Boolean + Get + If ViewState("ActualizarFamiliar") Is Nothing Then + Return True + Else + Return DirectCast(ViewState("ActualizarFamiliar"), Boolean) + + End If + End Get + Set(value As Boolean) + ViewState("ActualizarFamiliar") = value + End Set + End Property + Private Property CveFamiliar As Integer + Get + If ViewState("CveFamiliar") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("CveFamiliar"), Integer) + End If + + End Get + Set(value As Integer) + ViewState("CveFamiliar") = value + End Set + End Property + + Private Property IndexActual As Integer + Get + If ViewState("IndexActual") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("IndexActual"), Integer) + End If + End Get + Set(value As Integer) + ViewState("IndexActual") = value + End Set + End Property + + Property DTFamiliares As DataTable + Get + Return DirectCast(ViewState("DTFamiliares"), DataTable) + End Get + Set(value As DataTable) + ViewState("DTFamiliares") = value + End Set + End Property + + + Private Property ValPadre As Boolean + Get + If ViewState("ValPadre") Is Nothing Then + Return False + Else + Return DirectCast(ViewState("ValPadre"), Boolean) + End If + End Get + Set(value As Boolean) + ViewState("ValPadre") = value + End Set End Property -#End Region - - - + Private Property ValMadre As Boolean + Get + If ViewState("ValMadre") Is Nothing Then + Return False + Else + Return DirectCast(ViewState("ValMadre"), Boolean) + End If + End Get + Set(value As Boolean) + ViewState("ValMadre") = value + End Set + End Property + + +#End Region + + + Const wdPageBreak As Integer = 7 Const wdCharacter As Integer = 1 'Configuración @@ -581,9 +663,9 @@ Partial Class RH_Personal CargaComboUniformes() CargaPermisos() CargaCombosBuzon() - CargaPermisosReemplazos() - - + CargaPermisosReemplazos() + + If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then ViewState("CvePersonal") = Request("CvePersonal") 'CvePersonal = ViewState("CvePersonal").ToString.ToEntero @@ -634,14 +716,29 @@ Partial Class RH_Personal 'Inicia Permisos 'Fin Permisos End If - CargaCuentasBancarias() - - 'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago - ' HplAbonarMasivo.Visible = True - ' GvGxC.Columns(7).Visible = True - 'End If - - + CargaCuentasBancarias() + + If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then + + CrearEstructuraFamiliares() + CargaFamiliares() + + LIFamiliaresAcciones.Visible = True + DivFamiliares.Visible = True + DivPadres.Visible = False + + + End If + + + + + 'If UsuarioActual.TienePermisoProceso(84) Then 'abonar pago + ' HplAbonarMasivo.Visible = True + ' GvGxC.Columns(7).Visible = True + 'End If + + If Not CvePersonal > 0 Then DivSuperiorInmediato.Visible = False End If @@ -1381,6 +1478,11 @@ Partial Class RH_Personal 'Agregar Cuentas Bancarias ViewState("CvePersonal") = ObjPersonal.CvePersonal + 'Funsion usa RH Familiares + If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then + ProcesaDTFamiliares(ObjPersonal) + End If + If TempDTCuentasBancos.Rows.Count > 0 Then For Each row As DataRow In TempDTCuentasBancos.Rows If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, "", UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then @@ -1435,7 +1537,12 @@ Partial Class RH_Personal URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text, DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero, TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario, - FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then + FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso) Then + + 'Funsion usa RH Familiares + If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then + ProcesaDTFamiliares(ObjPersonal) + End If If Archivo.Exists Then @@ -5506,5 +5613,265 @@ Partial Class RH_Personal Alert("No se encontraron registros .", TipoMensaje.MsgAdvertencia) End If - End Sub + End Sub + + +#Region "FAMILIARES" + + + Private Sub CargaFamiliares() + + If CvePersonal <> -1 Then + Dim objRH As New ClsRH + + If objRH.PersonalFamiliaresGet(-1, CvePersonal) Then + + If objRH.DtResultados.Rows.Count > 0 Then + DTFamiliares = objRH.DtResultados + DTFamiliares.Columns.Add("Accion", Type.GetType("System.String")) + DTFamiliares.AcceptChanges() + GvFamiliares.DataSource = DTFamiliares + Else + DTFamiliares.Rows.Clear() + GvFamiliares.DataSource = DTFamiliares + End If + + Else + GvFamiliares.DataSource = Nothing + End If + + objRH.Dispose() + GvFamiliares.DataBind() + UPTabFamiliares.Update() + + End If + End Sub + + Private Sub CrearEstructuraFamiliares() + + Dim Familiares As New DataTable + + Familiares.Columns.Add("CveFamiliar", Type.GetType("System.Int32")) + Familiares.Columns.Add("CvePersonal", Type.GetType("System.Int32")) + Familiares.Columns.Add("CveParentesco", Type.GetType("System.Int32")) + Familiares.Columns.Add("Parentesco", Type.GetType("System.String")) + Familiares.Columns.Add("Nombre", Type.GetType("System.String")) + Familiares.Columns.Add("Domicilio", Type.GetType("System.String")) + Familiares.Columns.Add("Edad", Type.GetType("System.Int32")) + Familiares.Columns.Add("Ocupacion", Type.GetType("System.String")) + Familiares.Columns.Add("Fecha", Type.GetType("System.DateTime")) + Familiares.Columns.Add("Usuario", Type.GetType("System.String")) + Familiares.Columns.Add("Telefono", Type.GetType("System.String")) + Familiares.Columns.Add("Accion", Type.GetType("System.String")) + Familiares.Columns.Add("Observaciones", Type.GetType("System.String")) + Familiares.Columns.Add("Beneficiario", Type.GetType("System.Boolean")) + + DTFamiliares = Familiares + + End Sub + + + Protected Sub BtnAgregarFamiliar_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliar.Click + resetFormFamiliares() + RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});") + End Sub + + + Private Sub ResetFormFamiliares() + + ActualizarFamiliar = False + CveFamiliar = -1 + + LtlTituloModalFamiliar.Text = "Agregar Familiar" + BtnAgregarFamiliarModal.Text = "Agregar Familiar" + TxtNombreFamiliar4.Text = "" + TxtDomicilioFamiliar4.Text = "" + TxtEdadFamiliar4.Text = "" + TxtOcupacionFamiliar4.Text = "" + TxtTelefonoFamiliar.Text = "" + TxtObservacionesFamiliar.Text = "" + DDLParentescoFamiliar4.SelectedIndex = 0 + ChkBeneficiario.Checked = False + + UpModalFamiliar.Update() + + End Sub + + Protected Sub BtnAgregarFamiliarModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarFamiliarModal.Click + + If ActualizarFamiliar Then + + 'DtRowFamiliar("CveFamiliar") = -1 + DTFamiliares(IndexActual)("CvePersonal") = -1 + DTFamiliares(IndexActual)("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text + DTFamiliares(IndexActual)("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero + DTFamiliares(IndexActual)("Nombre") = TxtNombreFamiliar4.Text.Trim + DTFamiliares(IndexActual)("Domicilio") = TxtDomicilioFamiliar4.Text.Trim + DTFamiliares(IndexActual)("Edad") = TxtEdadFamiliar4.Text.ToEntero + DTFamiliares(IndexActual)("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim + DTFamiliares(IndexActual)("Telefono") = TxtTelefonoFamiliar.Text.Trim + DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim + DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked + + If DTFamiliares(IndexActual)("CveFamiliar").ToString = "-1" Then + DTFamiliares(IndexActual)("Accion") = "2" + Else + DTFamiliares(IndexActual)("Accion") = "1" + End If + + DTFamiliares.AcceptChanges() + + Else + + Dim DtRowFamiliar As DataRow + DtRowFamiliar = DTFamiliares.NewRow + + DtRowFamiliar("CveFamiliar") = -1 + DtRowFamiliar("CvePersonal") = -1 + DtRowFamiliar("Parentesco") = DDLParentescoFamiliar4.SelectedItem.Text + DtRowFamiliar("CveParentesco") = DDLParentescoFamiliar4.SelectedValue.ToEntero + DtRowFamiliar("Nombre") = TxtNombreFamiliar4.Text.Trim + DtRowFamiliar("Domicilio") = TxtDomicilioFamiliar4.Text.Trim + DtRowFamiliar("Edad") = TxtEdadFamiliar4.Text.ToEntero + DtRowFamiliar("Ocupacion") = TxtOcupacionFamiliar4.Text.Trim + DtRowFamiliar("Telefono") = TxtTelefonoFamiliar.Text.Trim + DtRowFamiliar("Observaciones") = TxtObservacionesFamiliar.Text.Trim + DtRowFamiliar("Beneficiario") = ChkBeneficiario.Checked + + DtRowFamiliar("Accion") = "2" + + DTFamiliares.Rows.Add(DtRowFamiliar) + DTFamiliares.AcceptChanges() + + End If + + IndexActual = -1 + + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarFamiliar")) + 'CargaFamiliares() + + GvFamiliares.DataSource = DTFamiliares + GvFamiliares.DataBind() + UPTabFamiliares.Update() + + CveFamiliar = -1 + ActualizarFamiliar = False + + End Sub + + Public Sub Edit_ClickFamiliar(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim activo As Boolean = True + + CveFamiliar = GvRow.DataKey("CveFamiliar").ToString.ToEntero + ActualizarFamiliar = True + IndexActual = GvRow.RowIndex + + LtlTituloModalFamiliar.Text = "Editar Familiar" + BtnAgregarFamiliarModal.Text = "Actualizar" + + TxtNombreFamiliar4.Text = GvRow.DataKey("Nombre") + DDLParentescoFamiliar4.SelectedValueExist(GvRow.DataKey("CveParentesco")) + TxtDomicilioFamiliar4.Text = GvRow.DataKey("Domicilio") + TxtEdadFamiliar4.Text = GvRow.DataKey("Edad") + TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion") + TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono") + TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones") + ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString) + + UpModalFamiliar.Update() + RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});") + + End Sub + + + Public Sub Remove_ClickFamiliar(sender As Object, e As EventArgs) + + + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + IndexActual = GvRow.RowIndex + Dim activo As Boolean = False + Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString.ToEntero + + If CveFamiliar > 0 Then + + DTFamiliares.Rows(IndexActual)("Accion") = "3" + Dim objRH As New ClsRH + ProcesaDTFamiliares(objRH) + objRH.Dispose() + + CargaFamiliares() + + + + Else + DTFamiliares.Rows(IndexActual).Delete() + DTFamiliares.AcceptChanges() + GvFamiliares.DataSource = DTFamiliares + GvFamiliares.DataBind() + UPTabFamiliares.Update() + End If + IndexActual = -1 + + End Sub + + Private Sub ProcesaDTFamiliares(ByRef objRH As ClsRH) + + 'Dim objRH As New ClsRH + + ValPadre = False + ValMadre = False + + For Each dRow As DataRow In DTFamiliares.Rows + + + + If dRow("Accion").ToString = "1" Then 'Actualiza + + Dim Beneficiario As Integer = -1 + + If Boolean.Parse(dRow("Beneficiario").ToString) Then + Beneficiario = 1 + Else + Beneficiario = 0 + End If + + + objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString.ToEntero, CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario) + + End If + If dRow("Accion").ToString = "2" Then 'Inserta + + + Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString) + + + + objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario) + + End If + + If dRow("CveParentesco").ToString.ToEntero = 1 Then + ValPadre = True + End If + + If dRow("CveParentesco").ToString.ToEntero = 2 Then + ValMadre = True + End If + + If dRow("Accion").ToString = "3" Then 'Borra + objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString.ToEntero, -1) + End If + + Next + + 'objRH.Dispose() + + End Sub + +#End Region + + End Class diff --git a/RH/RepPersonalNecesidades.aspx b/RH/RepPersonalNecesidades.aspx index b75ac94b1..74cdbe9b6 100644 --- a/RH/RepPersonalNecesidades.aspx +++ b/RH/RepPersonalNecesidades.aspx @@ -30,6 +30,12 @@ + +
  • Departamento: + + +
    • +
  • Turno: @@ -62,6 +68,7 @@ + diff --git a/RH/RepPersonalNecesidades.aspx.vb b/RH/RepPersonalNecesidades.aspx.vb index d1d975991..a591c9271 100644 --- a/RH/RepPersonalNecesidades.aspx.vb +++ b/RH/RepPersonalNecesidades.aspx.vb @@ -22,6 +22,7 @@ Partial Class RH_RepPersonalNecesidades CargaProyecto() CargaTurnos() CargaDatos() + CargaDepartamento() End If End Sub @@ -32,18 +33,32 @@ Partial Class RH_RepPersonalNecesidades End Sub Private Sub CargaProyecto() - DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa) + DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) DdlProyecto.DataBind() DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaSubProyecto() + DdlSubProyecto.Items.Clear() DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + + End Sub + + + + Private Sub CargaDepartamento() + + DdlDepartamento.Items.Clear() + DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataBind() + DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyecto() End Sub @@ -54,7 +69,7 @@ Partial Class RH_RepPersonalNecesidades Private Sub CargaDatos() Dim objpersonal As New ClsRH - If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then + If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlDepartamento.SelectedValue.ToEntero) Then GVDatos.DataSource = objpersonal.DtResultados Else GVDatos.DataSource = Nothing From b1be5ae74b9f13c62af32a38601cbe546ea75d98 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Wed, 2 Oct 2019 19:37:28 -0700 Subject: [PATCH 3/9] =?UTF-8?q?MODELO=20CON=20ignorar=20lo=20que=20no=20se?= =?UTF-8?q?a=20remisi=C2=B4n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Modelos.vb | 2 +- Compras/Compras.aspx.vb | 13 +++++++++++-- Contabilidad/OCDetalleAlmacen.aspx.vb | 2 +- LogMail.txt | 21 ++++++++++++++++++++- LogTimbrado.txt | 4 ++++ Ventas/Ventas.aspx.vb | 5 ++++- 6 files changed, 41 insertions(+), 6 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index f77aa9e8d..40dfb7f7d 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1408,7 +1408,7 @@ Namespace Modelos End If End If - If ErrorList.Count = 0 Then + If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then 'Agregamos las remisiones a la tabla If factura.DtRemisionesPS IsNot Nothing AndAlso factura.DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then Dim CveVentaDetalle As Integer = 0 diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 58db7e977..65cec3bf8 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6235,7 +6235,7 @@ Partial Class Compras_Compras CostoIndirectoAcum176 += ImporteCI176 'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176) - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=Dr("CveMovimientoAlmacen").ToString.ToEntero, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoAlmacen, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If @@ -6278,7 +6278,7 @@ Partial Class Compras_Compras End If - + 'falta el registro de la NC cuando es Dim RegistroCuentaPuente As Boolean = False 'NC CON PRODUCTOS - CUENTA PUENTE If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then @@ -9514,6 +9514,15 @@ Partial Class Compras_Compras Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation Select Case ConceptoContable + Case 5 + IdCtaContable = 1244 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then + ErrorPrepoliza = True + End If + IdCtaContable = 1243 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then + ErrorPrepoliza = True + End If Case 6 Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0 Dim ConceptoPersonal As String = "", Concepto As String = "" diff --git a/Contabilidad/OCDetalleAlmacen.aspx.vb b/Contabilidad/OCDetalleAlmacen.aspx.vb index 70023f39b..680091bbf 100644 --- a/Contabilidad/OCDetalleAlmacen.aspx.vb +++ b/Contabilidad/OCDetalleAlmacen.aspx.vb @@ -106,7 +106,7 @@ Partial Class Contabilidad_OCDetalleAlmacen If CvePrePoliza > 0 Then If Cargo > Abono Then - If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 228, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then + If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Referencia, 176, Referencia, Fecha, IdCtaCuenta228, -1, ImporteME:=Diferencia, ImporteMX:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, Referencia, 177, Referencia, Fecha, IdCtaCuenta177, -1, ImporteME:=-0, ImporteMX:=-Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then ContadorProcesados = ContadorProcesados + 1 diff --git a/LogMail.txt b/LogMail.txt index 6b789a002..6d47c895f 100644 --- a/LogMail.txt +++ b/LogMail.txt @@ -4,4 +4,23 @@ en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2 - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario. en System.Net.Mail.SmtpClient.Send(MailMessage message) - en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx' - Para:'DSDDS@hotmail.com' - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' - CCP: '' - Adjuntos: 0 10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. 11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Solicitud Vacaciones ' - CCP: '' - Adjuntos: 0 11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:02 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Permiso para Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:03 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 20/09/2019:05:15 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29109' - CCP: '' - Adjuntos: 1 20/09/2019:05:36 p. m. No se especifico a remitente - Entrega de Factura HMO - 29110 20/09/2019:05:45 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29111' - CCP: '' - Adjuntos: 1 20/09/2019:05:47 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29112' - CCP: '' - Adjuntos: 1 23/09/2019:10:55 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Solicitud de anticipo de Orden de Compra' - CCP: '' - Adjuntos: 0 23/09/2019:11:05 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 23/09/2019:11:34 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 25/09/2019:05:06 p. m. No se especifico a remitente - SIG - La Orden Compra #4860 cambió de estatus. \ No newline at end of file + en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129 10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx' - Para:'DSDDS@hotmail.com' - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' - CCP: '' - Adjuntos: 0 10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus. 11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Solicitud Vacaciones ' - CCP: '' - Adjuntos: 0 11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:02 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Permiso para Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:03 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 11/09/2019:01:10 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Vacaciones Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0 20/09/2019:05:15 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29109' - CCP: '' - Adjuntos: 1 20/09/2019:05:36 p. m. No se especifico a remitente - Entrega de Factura HMO - 29110 20/09/2019:05:45 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29111' - CCP: '' - Adjuntos: 1 20/09/2019:05:47 p. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura HMO - 29112' - CCP: '' - Adjuntos: 1 23/09/2019:10:55 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Solicitud de anticipo de Orden de Compra' - CCP: '' - Adjuntos: 0 23/09/2019:11:05 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 23/09/2019:11:34 a. m. No se especifico a remitente - Solicitud de anticipo de Orden de Compra 25/09/2019:05:06 p. m. No se especifico a remitente - SIG - La Orden Compra #4860 cambió de estatus. 30/09/2019:07:28 p. m. From:'signotificaciones@adssistemas.mx' - Para:'lillianrivas@compuproveedores.com;athziryrodriguez@compuproveedores.com' - Asunto:'Vinculación de factura de OC ' - CCP: '' - Adjuntos: 0 01/10/2019:12:27 a. m. From:'signotificaciones@adssistemas.mx' - Para:'lillianrivas@compuproveedores.com;' - Asunto:'NOTIFICACION DE 100% DE AVANCE DE CONTRATO' - CCP: '' - Adjuntos: 0 01/10/2019:12:28 a. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'pagaduria@difson.gob.mx;enrique.garcia@difson.gob.mx;laura.romero@difson.gob.mx' - Asunto:'Entrega de Factura HMO-29475' - CCP: 'LILLIANRIVAS@COMPUPROVEEDORES.COM' - Adjuntos: 2 + - Ocurrió Cargar datos Correo.System.IO.IOException: No se puede escribir datos de en la conexión de transporte: Se ha forzado la interrupción de una conexión existente por el host remoto. ---> System.Net.Sockets.SocketException: Se ha forzado la interrupción de una conexión existente por el host remoto + en System.Net.Sockets.NetworkStream.Read(Byte[] buffer, Int32 offset, Int32 size) + --- Fin del seguimiento de la pila de la excepción interna --- + en System.Net.Sockets.NetworkStream.Read(Byte[] buffer, Int32 offset, Int32 size) + en System.Net.FixedSizeReader.ReadPacket(Byte[] buffer, Int32 offset, Int32 count) + en System.Net.Security._SslStream.StartFrameBody(Int32 readBytes, Byte[] buffer, Int32 offset, Int32 count, AsyncProtocolRequest asyncRequest) + en System.Net.Security._SslStream.StartFrameHeader(Byte[] buffer, Int32 offset, Int32 count, AsyncProtocolRequest asyncRequest) + en System.Net.Security._SslStream.StartReading(Byte[] buffer, Int32 offset, Int32 count, AsyncProtocolRequest asyncRequest) + en System.Net.Security._SslStream.ProcessRead(Byte[] buffer, Int32 offset, Int32 count, AsyncProtocolRequest asyncRequest) + en System.Net.TlsStream.Read(Byte[] buffer, Int32 offset, Int32 size) + en System.Net.PooledStream.Read(Byte[] buffer, Int32 offset, Int32 size) + en System.Net.Mail.SmtpPooledStream.Dispose(Boolean disposing) + en System.IO.Stream.Close() + en System.Net.ConnectionPool.Destroy(PooledStream pooledStream) + en System.Net.ConnectionPool.ForceCleanup() + en System.Net.ConnectionPoolManager.CleanupConnectionPool(ServicePoint servicePoint, String groupName) + en System.Net.Mail.SmtpClient.Dispose(Boolean disposing) + en System.Net.Mail.SmtpClient.Dispose() + en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\wwwVentas\App_Code\ClsSisMail.vb:línea 138 01/10/2019:12:28 a. m. From:'ENVIOFACTURADIGITAL@COMPUPROVEEDORES.COM' - Para:'pagaduria@difson.gob.mx;enrique.garcia@difson.gob.mx;laura.romero@difson.gob.mx' - Asunto:'Entrega de Factura HMO-29475' - CCP: 'LILLIANRIVAS@COMPUPROVEEDORES.COM' - Adjuntos: 2 \ No newline at end of file diff --git a/LogTimbrado.txt b/LogTimbrado.txt index fcccb8013..4d2db01dc 100644 --- a/LogTimbrado.txt +++ b/LogTimbrado.txt @@ -12,3 +12,7 @@ .. PAC: 3 - Verificado : (36) 36 Armado: (32) 68 Genera: (0) 68 Timbrado: (10604) 10672 Actualizado: (16) 10688 ..05/09/2019:12:31 p. m. .. PAC: 4 - Verificado : (12) 12 Certificado : (209) 221 Armado: (35) 256 Genera: (306) 562 Timbrado: (918) 1480 ..20/09/2019:05:37 p. m. + + .. PAC: 4 - Verificado : (6) 6 Certificado : (384) 390 Armado: (27) 417 Genera: (390) 807 Timbrado: (2271) 3078 Guardado: (219) 3297 Actualizado: (902) 4199 ..01/10/2019:12:27 a. m. + + .. PAC: 4 - Verificado : (0) 0 Certificado : (204) 204 Armado: (1) 205 Genera: (249) 454 Timbrado: (431) 885 ..01/10/2019:12:27 a. m. diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 07bac883c..b4d99a77c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2239,6 +2239,7 @@ Partial Class Ventas ImgFecha.Visible = False End If + CargarCodigo() InicializaImprimirNew() @@ -2469,6 +2470,8 @@ Partial Class Ventas TxtFecha.Enabled = True ImgFecha.Visible = True End If + TxtFecha.Enabled = True + End Sub Private Sub ConfiguraEmpresa() @@ -9007,7 +9010,7 @@ Partial Class Ventas End If End If - If ErrorList.Count = 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then + If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then 'Agregamos las remisiones a la tabla If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then Dim CveVentaDetalle As Integer = 0 From 5d720805fe024cadca8700f39ed476f627f43661 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 3 Oct 2019 10:22:49 -0700 Subject: [PATCH 4/9] se cambio IdCtaContableSIGComplementaria a IdCtaContableComplementariaSIG --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 31b36d589..e79e2a920 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -11967,7 +11967,7 @@ Partial Class Compras_Compras IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaBancariaComplementaria = dr("IdCtaContableSIGComplementaria").ToString.ToEntero + CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() Else From 6b90d252a82ac785945348a9648bb79038b64d4b Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 3 Oct 2019 10:29:17 -0700 Subject: [PATCH 5/9] Se cambiaron parametros de Fecha de Varchar a Date --- App_Code/ClsInventarios.vb | 6 +++--- App_Code/ClsVentas.vb | 12 ++++++------ Inventarios/RepTraspasoAlmacen.aspx | 2 +- Inventarios/RepTraspasoAlmacen.aspx.vb | 8 ++++---- Ventas/RepCotizacionesxFacturar.aspx | 2 +- Ventas/RepCotizacionesxFacturar.aspx.vb | 8 ++++---- Ventas/RepRemisionesNC.aspx | 2 +- Ventas/RepRemisionesNC.aspx.vb | 8 ++++---- 8 files changed, 24 insertions(+), 24 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index a0ca323b8..aac53b30f 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1702,13 +1702,13 @@ Public Class ClsInventarios Return Retorno End Function - Public Function RepTraspasoAlmacen(FechaI As String, FechaF As String, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean + Public Function RepTraspasoAlmacen(FechaI As Date, FechaF As Date, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Recibido As Boolean, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepTraspasoAlmacen") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveAlmacenOrigen", SqlDbType.Int).Value = CveAlmacenOrigen .Add("@CveAlmacenDestino", SqlDbType.Int).Value = CveAlmacenDestino .Add("@Recibido", SqlDbType.Bit).Value = Recibido diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 60dea2804..063fe3bcd 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2452,13 +2452,13 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetRepCotizacionesSinFacturar(FechaI As String, FechaF As String, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Public Function GetRepCotizacionesSinFacturar(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepCotizacionesSinFacturarGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -2474,13 +2474,13 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetRepRemisionesNCSinFacturar(FechaI As String, FechaF As String, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean + Public Function GetRepRemisionesNCSinFacturar(FechaI As Date, FechaF As Date, CveSubProyecto As String, CveCliente As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepRemisionesNCGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.VarChar).Value = FechaI - .Add("@FechaF", SqlDbType.VarChar).Value = FechaF + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveSubProyecto", SqlDbType.VarChar).Value = CveSubProyecto .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa diff --git a/Inventarios/RepTraspasoAlmacen.aspx b/Inventarios/RepTraspasoAlmacen.aspx index 7a960e4a4..889f31c2c 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx +++ b/Inventarios/RepTraspasoAlmacen.aspx @@ -186,7 +186,7 @@ - diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb index b946ac833..9612e4d1e 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx.vb +++ b/Inventarios/RepTraspasoAlmacen.aspx.vb @@ -53,7 +53,7 @@ Partial Class RepTraspasoAlmacen #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString + txtFechaI.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString CargaAlmacenOrigen() @@ -68,13 +68,13 @@ Partial Class RepTraspasoAlmacen Public Sub CargaDatos() Dim ObjInventarios As New ClsInventarios - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) 'CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) 'Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString - If ObjInventarios.RepTraspasoAlmacen(FechaI, FechaF, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then + If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then GvDatos.DataSource = ObjInventarios.DtResultados DtInventarios = ObjInventarios.DtResultados GvDatos.DataBind() diff --git a/Ventas/RepCotizacionesxFacturar.aspx b/Ventas/RepCotizacionesxFacturar.aspx index 4006b9d70..0d45cd200 100644 --- a/Ventas/RepCotizacionesxFacturar.aspx +++ b/Ventas/RepCotizacionesxFacturar.aspx @@ -207,7 +207,7 @@ - diff --git a/Ventas/RepCotizacionesxFacturar.aspx.vb b/Ventas/RepCotizacionesxFacturar.aspx.vb index 20f4131e0..8f4a49951 100644 --- a/Ventas/RepCotizacionesxFacturar.aspx.vb +++ b/Ventas/RepCotizacionesxFacturar.aspx.vb @@ -53,7 +53,7 @@ Partial Class RepCotizacionesxFacturar #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString + txtFechaI.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString CargaSucursales() @@ -68,13 +68,13 @@ Partial Class RepCotizacionesxFacturar Public Sub CargaDatos() Dim ObjVentas As New ClsVentas - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString - If ObjVentas.GetRepCotizacionesSinFacturar(FechaI, FechaF, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjVentas.GetRepCotizacionesSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados GvDatos.DataBind() diff --git a/Ventas/RepRemisionesNC.aspx b/Ventas/RepRemisionesNC.aspx index 123f83eb3..7f7792043 100644 --- a/Ventas/RepRemisionesNC.aspx +++ b/Ventas/RepRemisionesNC.aspx @@ -207,7 +207,7 @@ - diff --git a/Ventas/RepRemisionesNC.aspx.vb b/Ventas/RepRemisionesNC.aspx.vb index 69ba12d94..a85466454 100644 --- a/Ventas/RepRemisionesNC.aspx.vb +++ b/Ventas/RepRemisionesNC.aspx.vb @@ -53,7 +53,7 @@ Partial Class RepRemisionesNC #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - txtFechaI.Text = Now.Day.ToString + "/" + (Now.Month - 6).ToString + "/" + Now.Year.ToString + txtFechaI.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString CargaSucursales() @@ -68,13 +68,13 @@ Partial Class RepRemisionesNC Public Sub CargaDatos() Dim ObjVentas As New ClsVentas - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1") - FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) Sucursales = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString - If ObjVentas.GetRepRemisionesNCSinFacturar(FechaI, FechaF, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then + If ObjVentas.GetRepRemisionesNCSinFacturar(FechaI.ToDate, FechaF.ToDate, Sucursales, CveCliente, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados GvDatos.DataBind() From e1c835b7641994a39957aa8d8eb2d95c948127e5 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Thu, 3 Oct 2019 11:49:40 -0700 Subject: [PATCH 6/9] registro de gasto, con producto con funcionalidad 562 --- Compras/Compras.aspx.vb | 53 ++++++++++++++++++++++++----------------- 1 file changed, 31 insertions(+), 22 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 65cec3bf8..b754077b7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6281,7 +6281,7 @@ Partial Class Compras_Compras 'falta el registro de la NC cuando es Dim RegistroCuentaPuente As Boolean = False 'NC CON PRODUCTOS - CUENTA PUENTE - If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then + If UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador @@ -6315,27 +6315,31 @@ Partial Class Compras_Compras End If - Dim ContienePSNeteoBonif As Boolean = False - For Each Dr As DataRow In TmpDT.Rows - If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo - ContienePSNeteoBonif = True - Exit For - End If - Next - If ContienePSNeteoBonif Then - importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal - importeMN = importeMovimiento * tipoCambioActual * Multiplicador - Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If UsuarioActual.CveEmpresa.Contiene(119) Then + Dim ContienePSNeteoBonif As Boolean = False + For Each Dr As DataRow In TmpDT.Rows + If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo + ContienePSNeteoBonif = True + Exit For + End If + Next + + If ContienePSNeteoBonif Then + importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal + importeMN = importeMovimiento * tipoCambioActual * Multiplicador + Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True + End If + Else ErrorPrepoliza = True End If - Else - ErrorPrepoliza = True End If End If + End If @@ -9626,7 +9630,7 @@ Partial Class Compras_Compras CveCuenta = 0 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ] - If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then + If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador @@ -15323,6 +15327,16 @@ Partial Class Compras_Compras TotalFlete = 0 TotalAlmacen = 0 + 'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo + For Each Dr2 As DataRow In DtInv.Rows + TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2) + ListaConsecutivas.Add(Dr2("Consec").ToString) + Next + + 'sino hay producto en almacen para aplciarle un servicio, no se debe de amrcar como costo indirecto + 'esto aplica cuando la factura solo trae un concepto, y es el de servicio + If TotalAlmacen = 0 Then Exit Sub + 'Obtenemos el total del flete y marcamos los conceptos que pertenecen a flete For Each gvr As GridViewRow In GVServicios.Rows If gvr.DataKey("CvePS").ToEntero = CvePS Or gvr.FCCheckBox("chkServicios").Checked Then @@ -15337,11 +15351,6 @@ Partial Class Compras_Compras If Not TotalFlete > 0 Then Exit Sub - 'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo - For Each Dr2 As DataRow In DtInv.Rows - TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2) - ListaConsecutivas.Add(Dr2("Consec").ToString) - Next 'Asignamos los costos indirectos y los indices For Each Drt As DataRow In TmpDT.Rows From b571df1faab3507a7a28b9b3377c1fff58afe28c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 3 Oct 2019 13:56:35 -0500 Subject: [PATCH 7/9] checkpoint --- OS/CatEstatusOrdenServicio.aspx.vb | 32 ++++++++++++++++++------------ 1 file changed, 19 insertions(+), 13 deletions(-) diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index e9445c1da..29d3154d0 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -106,6 +106,7 @@ Partial Class OS_CatEstatusOrdenServicio If HdnModalidad.Value = "I" Then If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CargaDatos() + Alert("Estatus agregado") End If Else If HdnID.Value.ToEntero <> -1 Then @@ -117,20 +118,20 @@ Partial Class OS_CatEstatusOrdenServicio If Not TieneError Then GvDatos.EditIndex = -1 CargaDatos() + Alert("Estatus actualizado") Else Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia) End If End If ObjEstatusOrdenServicios.Dispose() - 'CargaDatos() - 'AsociarEstatusUsuarios() - 'CargarUsuarioConEstatus() - 'UpDatos.Update() - 'UpPrueba.Update() - Alert("Estatus agregado") RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS")) - Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) + EstatusUsuariosGridActualizar() + AsociarEstatusUsuarios() + CargarUsuarioConEstatus() + UpDatos.Update() + 'UpPrueba.Update() + 'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) End Sub Public Sub Edit_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) @@ -168,9 +169,9 @@ Partial Class OS_CatEstatusOrdenServicio End If ObjEstatusOrdenServicios.Dispose() - 'CargaDatos() - 'UpDatos.Update() - Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) + CargaDatos() + UpDatos.Update() + 'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) End Sub Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating Dim ObjEstatusOrdenServicios As New ClsOS @@ -208,9 +209,6 @@ Partial Class OS_CatEstatusOrdenServicio End Sub Private Sub CargarUsuarioConEstatus() - 'For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1 - ' Prueba.Columns.RemoveAt(Contador) - 'Next For Each Estatus As DataRow In DtEstatusOS.Rows Dim test As New CheckBoxField test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString @@ -268,5 +266,13 @@ Partial Class OS_CatEstatusOrdenServicio End If objEstatusOC.Dispose() End Sub + + Private Sub EstatusUsuariosGridActualizar() + DtEstatusUsuariosAsociados = Nothing + Prueba.DataBind() + For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1 + Prueba.Columns.RemoveAt(Contador) + Next + End Sub #End Region End Class From f59461bae369397c54393f8f55b98dedc2936cc3 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 3 Oct 2019 12:26:45 -0700 Subject: [PATCH 8/9] Agrega CvePrecioLista en registro rapido de Cliente --- App_Code/ClsClientes.vb | 3 ++- Ventas/PV.aspx.vb | 12 +++++++++++- Ventas/Ventas.aspx.vb | 12 +++++++++++- 3 files changed, 24 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 46a58a11a..93e137ee0 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1552,7 +1552,7 @@ Public Class ClsClientes Return Retorno End Function - Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String) As Boolean + Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, CvePrecioLista As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd") @@ -1574,6 +1574,7 @@ Public Class ClsClientes .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago + .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista End With diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 52a13be90..8d08564bc 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4641,9 +4641,19 @@ Partial Class PV End Sub Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click + Dim CvePreioLista As Integer = -1 + If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0) + If Dr IsNot Nothing Then + If Dr("CvePrecioLista").ToString.ToEntero > 0 Then + CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero + End If + End If + End If + Dim ObjCliente As New ClsClientes - If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then + If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then If ObjCliente.DtResultados.Rows.Count > 0 Then RegistraScript("hideDivEC();") ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b4d99a77c..bd6c3b2b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16648,9 +16648,19 @@ Partial Class Ventas End Sub Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click + Dim CvePreioLista As Integer = -1 + If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then + Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0) + If Dr IsNot Nothing Then + If Dr("CvePrecioLista").ToString.ToEntero > 0 Then + CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero + End If + End If + End If + Dim ObjCliente As New ClsClientes - If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then + If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then If ObjCliente.DtResultados.Rows.Count > 0 Then RegistraScript("hideDivEC();") ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero From 8351c4ab5b5425821afc8e149d4db030bfb2e03d Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Thu, 3 Oct 2019 14:16:58 -0700 Subject: [PATCH 9/9] --- App_Code/ClsClientes.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 93e137ee0..6ffc5438a 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1552,7 +1552,7 @@ Public Class ClsClientes Return Retorno End Function - Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, CvePrecioLista As Integer) As Boolean + Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, Optional CvePrecioLista As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd")