diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 10a56ca64..7bed46456 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -7,10 +7,10 @@ Imports Extensiones Public Class ClsAcumuladores - Implements IDisposable - + Implements IDisposable + #Region "Campos" - 'SQL + 'SQL Private SqlConexion As SqlConnection Private SqlAdapter As SqlDataAdapter Private SqlTransacc As SqlTransaction @@ -68,9 +68,9 @@ Public Class ClsAcumuladores SqlAdapter = New SqlDataAdapter("", SqlConexion) ConexionAdd() - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try @@ -103,18 +103,18 @@ Public Class ClsAcumuladores CveConexion = 0 End If - End Sub + End Sub #End Region Public ReadOnly Property DtResultados() As DataTable Get DtResultados = Data End Get - End Property - + End Property + #End Region - + #Region " TAMAÑOS " - + Public Function TamañoGet(CveTamaño As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -270,13 +270,13 @@ Public Class ClsAcumuladores Return retorno - End Function - - + End Function + + #End Region - + #Region " TIPOS DEFECTO " - + Public Function TiposDefectoGet(CveTipoDefecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -375,12 +375,12 @@ Public Class ClsAcumuladores End Try Return Retorno - End Function - + End Function + #End Region - + #Region " TIPOS USO " - + Public Function TiposUsoGet(CveTipoUso As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -479,12 +479,12 @@ Public Class ClsAcumuladores End Try Return Retorno - End Function - + End Function + #End Region - + #Region " FOLIOS GARANTÍA " - + Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional TipoFolio As String = "-1", Optional Area As Integer = 1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -559,7 +559,6 @@ Public Class ClsAcumuladores .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio .Add("@Limite", SqlDbType.Int).Value = Limite .Add("@Area", SqlDbType.Int).Value = Area - End With Try @@ -724,12 +723,12 @@ Public Class ClsAcumuladores End Try Return Retorno - End Function - + End Function + #End Region - + #Region "GARANTIAS DETALLES" - + Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, CveTipoDefecto As Integer, CodigoTD As String, TipoComprobante As Integer, Comprobante As String, Importe As Double, @@ -834,12 +833,12 @@ Public Class ClsAcumuladores OnError("Ocurrió un error a eliminar de garantia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try Return Retorno - End Function - - - + End Function + + + #End Region - + #Region "P O L I Z A - V I R T U A L" Public Function AddPolizaVirtual(CveVenta As Integer, CveVentaDetalle As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Descuento As Decimal, Total As Decimal, TipoServicio As Integer, TipoPoliza As Integer, CveModeloAuto As Integer, AnioVehiculo As Integer, TieneUsado As Boolean, FechaUsado As DateTime, @@ -1398,7 +1397,7 @@ Public Class ClsAcumuladores ConexionClose() Dispose(True) GC.SuppressFinalize(Me) - End Sub + End Sub #End Region - + End Class diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 4f4417e6d..10be3c7d4 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1921,12 +1921,12 @@ Public Class ClsCompras Return Retorno End Function - - Public Function GetCompraDetallealmacen(CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean + Public Function GetCompraDetalleAlmacen(CveEmpresa As Integer, CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_DetalleAlmacen") With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e9fd6f6d5..0ff191dbd 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -3980,21 +3980,19 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetPolizasDescuadre(Optional Ejercicio As Integer = -1, Optional Periodo As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Sis_PolizasConDescuadreGet") - With SqlAdapter.SelectCommand.Parameters .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio .Add("@Periodo", SqlDbType.Int).Value = Periodo .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With - Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7d5dc99d7..a2177e891 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -13105,14 +13105,13 @@ Partial Class Compras_Compras End Sub - Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then DivAlmacenDev.Visible = True End If Dim objcompras As New ClsCompras() - If objcompras.GetCompraDetallealmacen(DDLDevolucion.SelectedValue.ToEntero) Then + If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then GVDevolucion.DataSource = objcompras.DtResultados GVDevolucion.DataBind() End If diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index cea689a17..9db0e3af6 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2095,12 +2095,12 @@ Partial Class Inventarios_EntregaAlmacen 'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5 If CveCliente = 819998 Then If NumRegistros > 5 Then - Alert("Solo se pueden recibir maximo 5 partidas.", TipoMensaje.MsgAdvertencia) + Alert("Solo se pueden recibir máximo 5 partidas.", TipoMensaje.MsgAdvertencia) Exit Sub End If Else If NumRegistros > 10 Then - Alert("Solo se pueden recibir maximo 10 partidas.", TipoMensaje.MsgAdvertencia) + Alert("Solo se pueden recibir máximo 10 partidas.", TipoMensaje.MsgAdvertencia) Exit Sub End If End If @@ -4351,7 +4351,7 @@ Partial Class Inventarios_EntregaAlmacen End Sub Private Sub RecargaporAlmacenes() - If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then + If DdlAlmacen.SelectedValue <> "-1" Then CargaGvDatos() End If End Sub diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 25098cc6c..08e150953 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -266,6 +266,14 @@ + +
+ + + + + +
diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 359058272..63c5ead40 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -386,7 +386,8 @@ Partial Class RepOC DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), - CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then + CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), + CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero) Then GvConsultar.DataSource = OC.DtResultados DtOC = OC.DtResultados diff --git a/Site.master b/Site.master index 58df238ef..d925ca666 100644 --- a/Site.master +++ b/Site.master @@ -168,7 +168,8 @@
  • - + Buscar Venta diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index a3f77d042..42949077a 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -761,6 +761,12 @@ Partial Class Ventas_PVCobranza ObjPVenta.Dispose() End Sub Private Sub BtnCerrarTurno_Click(sender As Object, e As EventArgs) Handles BtnCerrarTurno.Click + + 'validar. + ' que no existan movimientos pendientes de pago. + ' que no halla facturas pendientes de cancelación. + ' no facturar remisiones de días anteriores + Dim ObjPVenta As New ClsPuntoVenta If TxtEfectivoEnCaja.Text.Trim <> "" Then If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoEnCaja.Text.ToDouble, LblDiferenciaCaja.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then diff --git a/Ventas/PopUpBuscarFolio.aspx b/Ventas/PopUpBuscarFolio.aspx index 581a1df10..770e98c2c 100644 --- a/Ventas/PopUpBuscarFolio.aspx +++ b/Ventas/PopUpBuscarFolio.aspx @@ -12,7 +12,7 @@ } .tooltip-inner { - max-width: 750px !important; + max-width: 800px !important; font-size: 14px; } @@ -27,7 +27,7 @@ - + @@ -154,7 +154,7 @@ - +
    Filtros para búsqueda
    Pedido: @@ -182,16 +182,16 @@
    -
    +
    - + Tipo - + Folio @@ -232,23 +232,16 @@ - - - Pedido/OC + + + ... - - - - - XML - - - - - - PDF - - + + + + + +
    diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb index 7f76f6e5e..d195813ed 100644 --- a/Ventas/PopUpBuscarFolio.aspx.vb +++ b/Ventas/PopUpBuscarFolio.aspx.vb @@ -16,7 +16,7 @@ Partial Class PopUpBuscarFolio If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") CType(Me.Master, BaseMasterPage).EsPopup = True - CType(Me.Master, BaseMasterPage).PopupWidth = 800 + CType(Me.Master, BaseMasterPage).PopupWidth = 850 txtFechaI.Text = NowADS().AddMonths(-12).ToShortDateString 'RegistraScript("$get('tdContenido').style.height='500px'") CargaSubProyectos() @@ -169,7 +169,7 @@ Partial Class PopUpBuscarFolio Liga = String.Format("", e.Row.DBCampo("CveVenta")) End If - e.Row.FCLiteral("LtlTipo").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("TipoDocto")) + e.Row.FCLiteral("LtlTipo").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("TipoDocto")) e.Row.FCLiteral("LtlFolio").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Folio")) e.Row.FCLiteral("LtlFecha").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString) e.Row.FCLiteral("LtlNombre").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("NombreComercial")) @@ -177,26 +177,25 @@ Partial Class PopUpBuscarFolio e.Row.FCLiteral("LtlTotal").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Total").FormatoNumero) e.Row.FCLiteral("LtlMon").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Abreviatura")) e.Row.FCLiteral("LtlSucursal").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("SubProyecto")) - e.Row.FCLiteral("LtlEstatus").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("EstatusFactura")) - e.Row.FCLiteral("LtlPedidoContrato").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("PedidoContrato")) + e.Row.FCLiteral("LtlEstatus").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("EstatusFactura")) If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.xml") Then - e.Row.FCLiteral("LtlXML").Text = String.Format("
    XML
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + e.Row.FCLiteral("LtlXML").Text = String.Format("
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) Else - e.Row.FCLiteral("LtlXML").Text = "
    " + e.Row.FCLiteral("LtlXML").Text = "
    " End If If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then - e.Row.FCLiteral("LtlPDF").Text = String.Format("
    PDF
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + e.Row.FCLiteral("LtlPDF").Text = String.Format("
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) Else - e.Row.FCLiteral("LtlPDF").Text = "
    " + e.Row.FCLiteral("LtlPDF").Text = "
    " End If Else If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then - e.Row.FCLiteral("LtlPDF").Text = String.Format("
    PDF
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + e.Row.FCLiteral("LtlPDF").Text = String.Format("
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) Else - e.Row.FCLiteral("LtlPDF").Text = "
    " + e.Row.FCLiteral("LtlPDF").Text = "
    " End If End If diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 554b8974f..d551e714c 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -2106,20 +2106,20 @@ - +
    - +
    - Guardar + Guardar