diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 46a58a11a..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) 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") @@ -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/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/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/ClsVentas.vb b/App_Code/ClsVentas.vb index 64441797d..34e8e1235 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/App_Code/Modelos.vb b/App_Code/Modelos.vb index a1c16daa0..862d64fea 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 @@ -8590,6 +8590,7 @@ Namespace Modelos CveTurno = -1 CveUsuario = -1 CveEmpresa = -1 + CveDepartamento = -1 End Sub Public Property CveRequerimiento As Integer Public Property CveProyecto As Integer @@ -8603,7 +8604,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/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 31b36d589..56add2947 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,10 +6278,10 @@ 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 + 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 @@ -6593,8 +6597,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 +6615,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 @@ -9514,6 +9518,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 = "" @@ -9617,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 @@ -11967,7 +11980,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 @@ -15314,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 @@ -15328,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 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/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/LogMail.txt b/LogMail.txt index 37220abf3..6b789a002 100644 --- a/LogMail.txt +++ b/LogMail.txt @@ -4,4 +4,4 @@ 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. 02/10/2019:05:07 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 79 02/10/2019:05:40 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80 02/10/2019:05:57 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 81 02/10/2019:06:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 48 \ 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. \ 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/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 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 diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 4d48ae9e7..3682ca87d 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4540,9 +4540,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/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() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e4a14edc9..909a07ec2 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() @@ -16652,9 +16655,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