diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 3821f21de..c243c6058 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -477,20 +477,21 @@ 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) As Boolean + + Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable SqlDataAdapter("PA_Acum_FoliosGarantiaGet") With SqlAdapter.SelectCommand.Parameters - .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia + .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia + .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 955f487b8..d5c7b5237 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -317,7 +317,7 @@ Public Class ClsVentas Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, - Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False) As Boolean + Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -403,6 +403,7 @@ Public Class ClsVentas .Add("@DiasCredito", SqlDbType.Int).Value = DiasCredito .Add("@EsDiasCreditoFijo", SqlDbType.Bit).Value = EsDiasCreditoFijo .Add("@AnticipoEspecial", SqlDbType.Bit).Value = AnticipoEspecial + .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -430,7 +431,8 @@ Public Class ClsVentas Fecha As Date, Observaciones As String, CveEmpresa As Integer, CveVenta As Integer, CveMetodoPago As Integer, FormaPago As Integer, Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1, Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, - Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, Optional RetISR As Double = -1) As Boolean + Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, + Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -460,6 +462,7 @@ Public Class ClsVentas .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra + .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje End With Try diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx index 2836aea82..88e35e479 100644 --- a/Contabilidad/RegPrePoliza.aspx +++ b/Contabilidad/RegPrePoliza.aspx @@ -373,6 +373,9 @@ +
+
+ diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 623229efd..e6580a22f 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -794,6 +794,18 @@ Partial Class ContabilidadC_RegPrePoliza e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green" End If End If + + If e.Row.DataKey("CveConcepto").ToEntero.Contiene(17) Then + e.Row.FCDropDownList("DdlProveedores").Visible = True + e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlProveedores").DataBind() + e.Row.FCDropDownList("DdlProveedores").Items.Insert(0, New ListItem(" - ", "-1")) + + 'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then + ' e.Row.FCLinkButton("ImgPagoCompra").CssClass = "btn btn-circle btn-sm green" + 'End If + End If + End If End Sub @@ -854,15 +866,20 @@ Partial Class ContabilidadC_RegPrePoliza If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then FolioIE = ObjIE.Folio End If - End If - - + End If + + + Dim CveProveedor As Integer = -1 + Dim CveCompra As Integer = -1 'inserto las compras que voy a pagarDdlSaldos For Each gvr As GridViewRow In GvMov.Rows If gvr.DataKey("IDCuenta").ToEntero > 0 Then IdCtaContable = gvr.DataKey("IDCuenta") End If + CveProveedor = gvr.DataKey("CveProveedor").ToEntero + CveCompra = gvr.DataKey("CveCompra").ToEntero + CveConcepto = gvr.DataKey("CveConcepto").ToEntero If gvr.DataKey("TipoMovto").ToDouble <> 0 Then Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble @@ -870,6 +887,11 @@ Partial Class ContabilidadC_RegPrePoliza Else Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble TipoMovto = False + End If + 'Registra pago de compra + If CveConcepto = 17 Then + CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero + CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero End If If CveConcepto = 41 Then @@ -890,7 +912,7 @@ Partial Class ContabilidadC_RegPrePoliza If Importe <> 0 Then If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE, - CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero, + CveProveedor:=CveProveedor, CveCompra:=CveCompra, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero, ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero, CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1), @@ -1560,10 +1582,34 @@ Partial Class ContabilidadC_RegPrePoliza Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs) GeneraTimbre(CvePrePoliza) - End Sub + End Sub #End Region - - - + + + + Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs) + Dim ddl As DropDownList = CType(sender, DropDownList) + Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras") + CargaCompras2(ddl.SelectedValue.ToEntero, ddl2) + End Sub + + Private Sub CargaCompras2(CveProveedor As Integer, ddl As DropDownList) + + Dim ObjCompras As New ClsCompras + + ddl.ClearSelection() + If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then + ddl.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0") + ddl.DataBind() + ddl.Items.Insert(0, New ListItem(" - ", "-1")) + ddl.Visible = True + Else + ddl.DataSource = Nothing + ddl.DataBind() + ddl.Items.Insert(0, New ListItem(" - ", "-1")) + + End If + ObjCompras.Dispose() + End Sub End Class diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 4d3cf4f62..f53f4291d 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -1868,112 +1868,7 @@ Partial Class Inventarios_RecepcionEntrega End If ' TERMINA: GARANTIAS - ' COMIENZA: VIRTUAL - If TipoDocto.Contiene("Ing") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" Then - Dim DtPSVirtual As New DataTable("DtTamanios") - DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer))) - DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) - DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal))) - DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer))) - - Dim DtTamanios As DataTable = Nothing - - If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then - DtTamanios = ObjAcumuladores.DtResultados.Copy() - End If - - Dim CveConceptoMovimientoVirtual As Integer = -1 - Dim CveAlmacenVirtual As Integer = -1 - Dim CveMovimientoRelacionadoVirtual As Integer = -1 - Dim ValidaVirtual As Boolean = False - - If TipoMovimiento = 1 Then - For Each GvRow As GridViewRow In GvDatos.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - - If GvRow.datakey("CveTamaño").tostring.toentero > 0 Then - ValidaVirtual = True ' si tiene tamaño, debe de tener virtual - Dim drr As DataRow = DtTamanios.FiltroPrimero(String.Format("CveTamaño={0}", GvRow.DataKey("CveTamaño"))) - If drr IsNot Nothing Then - - Dim CvePSCargo = drr("CvePSCargo").ToString().ToEntero() - Dim Row As DataRow = DtPSVirtual.NewRow() - Row("CvePS") = CvePSCargo - Row("Cantidad") = GvRow.FCTextBox("TbCantidadF").Text.ToDecimal() - Row("PU") = 0 - Row("CveUM") = GvRow.DataKey("CveUM").ToEntero() - - DtPSVirtual.Rows.Add(Row) - End If - - End If - - End If - Next - CveConceptoMovimientoVirtual = 3 - CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() - - ElseIf TipoMovimiento = 2 Then - ValidaVirtual = True - Dim CveMovimientoSalidaDev As Integer = -1 - If ObjInventario.GetInv_Mov(CveVentaSurtir, UsuarioActual.CveEmpresa) Then - Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND CveTipoAlmacen = 24 AND CveConcepto = 3 AND CveVenta > 0") - CveMovimientoSalidaDev = RowMovimiento("CveMovimiento").ToString().ToEntero() - CveAlmacenVirtual = RowMovimiento("CveAlmacen").ToString().ToEntero() - CveMovimientoRelacionadoVirtual = CveMovimientoSalidaDev - Else - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar el movimiento. Por favor vuelva a intentar." - End If - - 'CARGA CONCEPTOS DEVUELTOS EN LA VENTA - If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaDev, UsuarioActual.CveEmpresa) Then - DtPSVirtual = ObjInventario.DtResultados.Copy() - Else - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar los movimientos de devolución. Por favor vuelva a intentar." - End If - CveConceptoMovimientoVirtual = 18 - End If - - If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then - CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, - Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6") - FolioVirtual = ObjInventario.Folio - - If CveMovimientoVirtual > 0 Then - For Each RowUsado As DataRow In DtPSVirtual.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() - Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() - Dim PU As Double = RowUsado("PU").ToString().ToDouble() - Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() - - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar." - Exit For - End If - Next - Else - ErrorMovInv = True - End If - - Else - If ValidaVirtual Then - ErrorMovInv = True - TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar." - - End If - End If - - If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then - ErrorMovInv = True - TextoError = "No se tienen productos para el almacen virtual." - End If - End If - - ' TERMINA: VIRTUAL If Not ErrorMovInv Then Dim ConceptoMovimiento = 3 @@ -2097,7 +1992,7 @@ Partial Class Inventarios_RecepcionEntrega Else If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, EsInterno:=EsInterno) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero()) Then ErrorMovInv = True TextoError = "Ocurrió un error al guardar los movimientos de entrada" Exit For @@ -2316,8 +2211,81 @@ Partial Class Inventarios_RecepcionEntrega End If End If - 'AGREGA BITACORA A VENTA - If Not ErrorMovInv Then + ' COMIENZA: VIRTUAL + If TipoDocto.Contiene("Ing", "Dev") AndAlso UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso CveMovimiento > 0 Then + Dim DtPSVirtual As New DataTable("DtTamanios") + + If ObjInventario.GetMovimientosDetalleVirtual(CveMovimiento, UsuarioActual.CveEmpresa) Then + DtPSVirtual = ObjInventario.DtResultados + End If + + ' + 'DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer))) + 'DtPSVirtual.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) + 'DtPSVirtual.Columns.Add(New DataColumn("PU", GetType(Decimal))) + 'DtPSVirtual.Columns.Add(New DataColumn("CveUM", GetType(Integer))) + + 'Dim DtTamanios As DataTable = Nothing + + 'If ObjAcumuladores.TamañoGet(-1, UsuarioActual.CveEmpresa) Then + ' DtTamanios = ObjAcumuladores.DtResultados.Copy() + 'End If + + Dim CveConceptoMovimientoVirtual As Integer = -1 + Dim CveAlmacenVirtual As Integer = -1 + Dim CveMovimientoRelacionadoVirtual As Integer = CveMovimiento + Dim ValidaVirtual As Boolean = False + CveAlmacenVirtual = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() + + If TipoMovimiento = 1 Then + CveConceptoMovimientoVirtual = 37 + + ElseIf TipoMovimiento = 2 Then + ValidaVirtual = True + CveConceptoMovimientoVirtual = 36 + End If + + If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6") + FolioVirtual = ObjInventario.Folio + + If CveMovimientoVirtual > 0 Then + For Each RowUsado As DataRow In DtPSVirtual.Rows + Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CantidadUsado As Double = RowUsado("Cantidad").ToString().ToDouble() + Dim PU As Double = RowUsado("PU").ToString().ToDouble() + Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() + + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1) Then + ErrorMovInv = True + TextoError = "Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar." + Exit For + End If + Next + Else + ErrorMovInv = True + End If + + Else + If ValidaVirtual Then + ErrorMovInv = True + TextoError = "Ocurrió un error al procesar el movimiento en almacen virtual. Por favor vuelva a intentar." + + End If + End If + + If DtPSVirtual.Rows.Count = 0 AndAlso ValidaVirtual = True Then + ErrorMovInv = True + TextoError = "No se tienen productos para el almacen virtual." + End If + End If + + ' TERMINA: VIRTUAL + + + 'AGREGA BITACORA A VENTA + If Not ErrorMovInv Then Dim MensajeBitacora = If(TipoMovimiento = 1, "Surtida", "Devuelta") If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: {1}", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir) Then ErrorMovInv = True @@ -2334,7 +2302,7 @@ Partial Class Inventarios_RecepcionEntrega RegistraScript("playsonidito('beep-07.wav')") Dim Msg As New StringBuilder - Msg.AppendFormat("Movimiento Salida: {1}", CveMovimiento, Folio) + Msg.AppendFormat("Movimiento {2}: {1}", CveMovimiento, Folio, If(TipoMovimiento = 1, "Salida", "Entrada")) Msg.AppendFormat("
Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) If CveMovimientoEntrada > 0 Then @@ -2355,7 +2323,7 @@ Partial Class Inventarios_RecepcionEntrega End If If CveMovimientoVirtual > 0 Then - Msg.AppendFormat("

Movimiento de Salida del Almacen Virtual: ") + Msg.AppendFormat("

{0} Almacen Virtual: ", If(TipoMovimiento = 1, "Salida", "Entrada")) Msg.AppendFormat("{1}", CveMovimientoVirtual, FolioVirtual) Msg.AppendFormat("
Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtual))) End If diff --git a/OC/OC.aspx b/OC/OC.aspx index b0716cdc0..c42828217 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -286,11 +286,12 @@
- + <%-- - - - + --%> + + <%-- + --%>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 4f6b6aaae..46881c301 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -476,6 +476,7 @@ Partial Class OC Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargaDatosAgregarPS() 'MODALIDAD MULTIEMPRESA CveEmpresaActual = UsuarioActual.CveEmpresa @@ -754,7 +755,6 @@ Partial Class OC UPPDetalle.Update() PermisosPagina() - RegistraScript("$get('HdnWidth').value = $('#C_Tab_TabC_DivConceptosContenido').width();") End If Me.Form.DefaultButton = "" @@ -1294,7 +1294,7 @@ Partial Class OC HplCompraContabilizada.Text = "No" End If - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) 'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero @@ -1330,7 +1330,7 @@ Partial Class OC lblFolio.Text = "REQ " + objOC.Folio.ToString lblTipoPadreHijo.Text = "OC" ChkCotizacion.Visible = True - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) If objOC.CveProveedorSucursal.ToEntero > 0 Then DivProveedorSucursal.Visible = True @@ -1494,14 +1494,14 @@ Partial Class OC 'Permisos, para cambiar el proveedor en una OC If objOC.Tipo.ToUpper = "OC" AndAlso UsuarioActual.TienePermisoProceso(111) Then DdlProveedores.Enabled = True - DdlProveedores.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) DdlIVA.Enabled = True ImgCambiaProv.Visible = True UPProv.Update() End If If DdlProveedores.SelectedValue <> objOC.CveProveedor.ToString Then - DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString)) + 'DdlProveedores.Items.Insert(1, New ListItem(GlobalDTCompProveedores(CveEmpresaActual).FiltroPrimeroValor("RazonSocial", $"CveProveedor = {objOC.CveProveedor}"), objOC.CveProveedor.ToString)) End If CargaCotizaciones(CveOrdenCompra) @@ -1741,9 +1741,16 @@ Partial Class OC CboUnidadMedida.DataBind() End Sub Private Sub CargaProveedores() - DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) - DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("metodo", "getproveedores") + Else + + GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing + DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) + DdlProveedores.DataBind() + End If + 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedorCot.DataBind() @@ -1755,7 +1762,7 @@ Partial Class OC Private Sub CargaProveedorSucursal() DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() - DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) UPProv.Update() : UPPEmp.Update() End Sub Private Sub CargaEstatusOC() @@ -2614,7 +2621,7 @@ Partial Class OC If Not TieneError Then Fecha = Now CveProveedor = DdlProveedores.SelectedValue.ToEntero - ProveedorNombre = DdlProveedores.SelectedItem.Text + ProveedorNombre = DdlProveedores.SelectedText SerieFolio = $"OC: {Folio}" If DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1) AND Diferencia <> 0 ").Rows.Count > 0 Then @@ -2952,12 +2959,12 @@ Partial Class OC End If 'AGREGA DETALLES - If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, - dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), + If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, + dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra, - CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, - IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, - RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, + CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, + IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, + RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then @@ -4724,7 +4731,7 @@ Partial Class OC ChkEventoPrioridad.Checked = False RegistraScript("$('#ModalBitacora').modal('hide')", "hidemodal") - CargaEventoBitacoraTemp() + CargaEventoBitacoraTemp() End Sub @@ -4880,7 +4887,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedItem.Text)) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedText)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -4894,7 +4901,7 @@ Partial Class OC Dim DtPara As DataTable = GlobalDTUsuarios(Dr("CveUsuarioPara").ToString.ToEntero, CveEmpresaActual) Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra Cancelada") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedItem.Text)) + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.s/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", Dr("CveEvento").ToString.ToEntero), "", DdlProveedores.SelectedText)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -5118,7 +5125,7 @@ Partial Class OC Return CveEmpresaActual = 66 End Function - Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged + Protected Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.selectedindexchange Dim Objeto As New ClsCompProveedores DdlProveedorSucursal.Items.Clear() @@ -5191,7 +5198,7 @@ Partial Class OC PnlUsuarioAsignado.Visible = False - RVProveedores.Enabled = False + 'RVProveedores.Enabled = False 'Si NO requiere cotizacion y el estatus siguiente es el final, If TipoOC.ToUpper = "REQ" Then @@ -5203,7 +5210,7 @@ Partial Class OC If ChkCotizacion.Checked = False AndAlso CboE.SelectedValue.ToEntero.Contiene(CveEstatusFinalOK) AndAlso TipoOS = False Then BtnGuardar.Text = "Guardar y Generar OC" : uppOpciones.Update() - RVProveedores.Enabled = True + 'RVProveedores.Enabled = True If CveEmpresaActual.Contiene(13, 83, 72) Then PnlUsuarioAsignado.Visible = True @@ -5228,7 +5235,7 @@ Partial Class OC If CveEstatus <> CveEstatusFinalError Then RegistraScript("$get('divCE').style.display='';PosicionaObjeto('C_CboE','divCE'); ") End If Else - RVProveedores.Enabled = True + 'RVProveedores.Enabled = True End If @@ -5959,7 +5966,7 @@ Partial Class OC Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As ExcelFile = excelFile.Load(flatFilePath) + Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) Dim unnamed As Integer = 0 Dim cols As Integer @@ -6392,7 +6399,7 @@ Partial Class OC Dim CveProveedorPrevio As String = DdlProveedores.SelectedValue Dim CveProveedorSucursalPrevio As String = DdlProveedorSucursal.SelectedValue CargaProveedores() - DdlProveedores.SelectedValueExist(CveProveedorPrevio) + DdlProveedores.ddl.SelectedValueExist(CveProveedorPrevio) DdlProveedores_SelectedIndexChanged(DdlProveedores, EventArgs.Empty) If DdlProveedorSucursal.Visible Then DdlProveedorSucursal.SelectedValueExist(CveProveedorSucursalPrevio) diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index 0c13a7096..217c9a811 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -119,7 +119,7 @@ Partial Class CatSubProyectos Public Sub CargaDatos() Dim ObjSub As New ClsSubProyectos - If ObjSub.GetSubProyectos() Then + If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") GvDatos.DataBind() End If @@ -204,7 +204,7 @@ Partial Class CatSubProyectos If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados + GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -232,7 +232,7 @@ Partial Class CatSubProyectos If ObjSubProyectos.UpdateSubProyectoSegNeg(CveSubProyecto, CveSegmento, UsuarioActual.CveEmpresa) Then GvDatos.EditIndex = -1 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados + GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Else ErrorSubProyecto = True diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 680aee283..f32552f6c 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -459,7 +459,7 @@ Partial Class Ventas_ClientesAbonar TxtImporte.Text = "" TxtObservaciones.Text = "" If SumDescuentoProntoPago > 0.0 Then - GvCxC.Columns(15).Visible = True + GvCxC.Columns(14).Visible = True End If Mov.Dispose() diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index e00126eae..9b317a159 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -5018,7 +5018,7 @@ Partial Class PV Private Sub CargaAjuste() Dim ObjAcum As New ClsAcumuladores - If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then + If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then DdlFolioGarantia.DataSource = ObjAcum.DtResultados DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1")) End If diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index c0a918e0c..e18481707 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -410,11 +410,11 @@
- + - + diff --git a/Ventas/RepConciliacionEmitidosSat.aspx b/Ventas/RepConciliacionEmitidosSat.aspx index 1409c9839..fa07791c0 100644 --- a/Ventas/RepConciliacionEmitidosSat.aspx +++ b/Ventas/RepConciliacionEmitidosSat.aspx @@ -148,6 +148,11 @@ + + + + + diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 688e063f4..2ff6dbdb5 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -373,7 +373,7 @@ -
+
@@ -725,10 +725,10 @@
- - + + -
+
@@ -811,6 +811,14 @@ + + + +
+ Turno: +
+ +
@@ -2831,2408 +2839,2414 @@ -
+
-
-
-
+
+
+
- - -
-
- - Condiciones de Pago -
-
-
-
-
-
- -
-
-
- - - - - - -
-
- - - -
-
- - - - - - - + + +
+
+ + Condiciones de Pago +
+
+
+
+
+
+ +
- - - - - - - - - <%-- +
+
Forma de entrega: - - - -
Uso CFDI: - - - - - - -
Método de Pago: - - - - - -
Forma de Pago: - - - - - - -
Tipo Relación - - - -
-
-
+ + + + + +
+
+ + + +
+
+ + + + + + + + + + + + + + + + + <%----%> - - - - - - - - + + + + - - - - - - -
Forma de entrega: + + + +
Uso CFDI: + + + + + + +
Método de Pago: + + + + + +
Forma de Pago: + + + + + + +
Tipo Relación + + + +
+
+
Num. Cta. Pago:
Fecha de Pago: -
- - - - - - - - - - -
- 		- -
- -
-
- - Crédito - Contado - Terminal - -
-
- - <%-- ******************** Punto de Venta *****************************************************************************************************************************--%> - - - -
- - -
-
-
-
- -
- $ - - -
-
- - - -
-
-
- -
-
- -
- $ - - -
-
- - - -
-
- - MSI - 3M - 6M - 9M - 12M - - <%-- - --%> -
-
-
- - -
-
- -
- $ - - -
-
- - - -
-
-
-
-
- -
- $ - - -
-
- - - -
-
-
- -
-
- -
- $ - - -
-
- - - -
-
-
- - -
-
- -
- - Otros - Credito - Debito - Cheque - -
- -
- $ - - -
- -
- - - -
- -
- - Meses - 3M - 6M - 9M - 12M - -
- -
-
- - - -
-
-
-
- -
- $ - - - - - <%-- - --%> -

-
-
-
-
-
- -
- $ - - -

-
-
-
- - - - - - -
-
- -
- -
-
- -
-
- -
- -
-
- - - - - - - - - - - - - - -
-
- -
- - - - - <%-- **************************************************************************************************************************************************************** --%> - - <%-- Terminal --%> - - -
-
- - <%----%> - +
Fecha de Pago: +
+ + + + + + + + + +
- - - - <%-- --%> + 		+ +
Tipo Relación: -
-
- - -
-
+ + + +
+
+ + Crédito + Contado + Terminal + +
+
+ + <%-- ******************** Punto de Venta *****************************************************************************************************************************--%> + + + +
+ + +
+
+
+
+ +
+ $ + + +
+
+ + + +
+
+
+ +
+
+ +
+ $ + + +
+
+ + + +
+
+ + MSI + 3M + 6M + 9M + 12M + + <%-- + --%> +
+
+
-
- - -
-
- - Observaciones -
-
-
-
-
-
- +
+
+ +
+ $ + + +
+
+ + + +
+
+
+
+
+ +
+ $ + + +
+
+ + + +
+
+
+ +
+
+ +
+ $ + + +
+
+ + + +
+
+
+ + +
+
+ +
+ + Otros + Credito + Debito + Cheque + +
+ +
+ $ + + +
+ +
+ + + +
+ +
+ + Meses + 3M + 6M + 9M + 12M + +
+ +
+
+ + + +
+
+
+
+ +
+ $ + + + + + <%-- + --%> +

+
+
+
+
+
+ +
+ $ + + +

+
+
+
+ + + + + + +
+
+ +
+ +
+
+ +
+
+ +
+ +
+
+ + + + + + + + + + + + + + +
+
+ +
+ + + + + <%-- **************************************************************************************************************************************************************** --%> + + <%-- Terminal --%> + + +
+
+ + <%----%> + +
+
+ + + <%-- --%> + + + + + Tipo Relación: + + + + +
+ +
-
- - - - - - - - - + + + + + + + + + + + + +
Observaciones Generales: 
-
Orden de Compra:   + + +
+ + +
+
+ + Observaciones +
+
+
+
+
+
+ +
+
+
+ + + + + + + + + - + + - - - + + - - - - - - - - -
Observaciones Generales: 
+
Orden de Compra:   - - - + +
Pedido:   +
Pedido:  
Observaciones Almacén: 
-
+
Observaciones Almacén: 
+
Kilometraje 
+
+
+ +
- - -
-
- - - - - +
+ + + + + -
-
- - Acciones -
-
-
-
-
-
- -
-
-
-
- -
- - - - - - - +
+
+ + Acciones +
+
+
+
+
+
+ +
+
+
+
+ +
+
- -
- -
+ + + + + + - - + - -
+ +
+ +
- +
+ -
- -
    -
  • - -
    • -
  • - -
    • - <%--
  • +
    + +
      +
    • + +
      • +
    • + +
      • + <%--
      • --%> -
    -
    - - +
+
+ + - - + + - - + + - - + + - - + + -
+ + + +
+ +
- - -
-
- - +
+ + + + + + + + + Folio + + + + + + Fecha + + + + + + Saldo + +   + + + + Moneda Venta + + + + + + Moneda + + + + + + Amort. Ant. + + + + + + + + + + + <%----%> + + + + -