diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 7a4694fb5..776206141 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -616,6 +616,24 @@ Public Class ClsVentas Return Retorno End Function + + Public Function UpdateVentaTC(CveVenta As Integer, CveEmpresa As Integer, TipoCambio As Decimal) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasTipoCambioUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoCambio", SqlDbType.Decimal).Value = TipoCambio + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el TC de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasFechaVencimientoUpdate") diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index d628b144e..8a90c05d3 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -525,6 +525,7 @@ + <%----%> @@ -1152,7 +1153,8 @@ - + + @@ -1171,14 +1173,7 @@ -
  • Consignación: - - - - - - - +
  • Consignación:
    • <%--
  • Folio Consignación: @@ -1432,7 +1427,8 @@ - + + @@ -1452,14 +1448,7 @@
      -
    • Tipo Cambio: - - - - - - - +
    • Tipo Cambio: @@ -1858,19 +1847,9 @@ - Clasificación - - - - - - - + Clasificación
      - Producto/Servicio - - - + Producto/Servicio       diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index da86e3a93..5bc9aab40 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1090,12 +1090,10 @@ Partial Class Compras_Compras ViewState("EmpresasOC") = value End Set End Property - Private Property DtPendientesAlmacen As DataTable Get DtPendientesAlmacen = DirectCast(ViewState("DtPendientesAlmacen"), DataTable) End Get - Set(ByVal value As DataTable) ViewState("DtPendientesAlmacen") = value End Set @@ -1109,19 +1107,12 @@ Partial Class Compras_Compras ViewState("CveTipoConcepto") = value End Set End Property - - - - Private Property CveRetISRConceptoOriginal As Integer Get - If ViewState("CveRetISRConceptoOriginal") Is Nothing Then ViewState("CveRetISRConceptoOriginal") = -1 End If - Return ViewState("CveRetISRConceptoOriginal").ToString.ToEntero - End Get Set(value As Integer) ViewState("CveRetISRConceptoOriginal") = value @@ -1140,7 +1131,6 @@ Partial Class Compras_Compras End Property Public Property FechaCompraOriginal As Date - Get Return ViewState("FechaCompraOriginal").ToString.ToDate End Get @@ -1152,7 +1142,6 @@ Partial Class Compras_Compras Private Property UUIDSList As List(Of String) Get - If ViewState("UUIDSList") Is Nothing Then Return New List(Of String) Else @@ -1168,7 +1157,6 @@ Partial Class Compras_Compras Private Property NumeroReembolsoOriginal As String Get - If ViewState("NumeroReembolsoOriginal") Is Nothing Then ViewState("NumeroReembolsoOriginal") = "" End If @@ -1178,13 +1166,10 @@ Partial Class Compras_Compras Set(value As String) ViewState("NumeroReembolsoOriginal") = value End Set - - End Property Private Property EsDevolucionApoyoLogistico As Boolean Get - If ViewState("EsDevolucionApoyoLogistico") Is Nothing Then ViewState("EsDevolucionApoyoLogistico") = False End If @@ -1197,21 +1182,16 @@ Partial Class Compras_Compras Private Property TipoCompraOriginal As Integer Get - If ViewState("TipoCompraOriginal") Is Nothing Then ViewState("TipoCompraOriginal") = -1 End If - Return ViewState("TipoCompraOriginal").ToString.ToEntero - End Get Set(value As Integer) ViewState("TipoCompraOriginal") = value End Set End Property - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") @@ -1242,12 +1222,6 @@ Partial Class Compras_Compras btnProrateo2.Visible = True End If - '**************************************************************** - 'If UsuarioActual.CveEmpresa = 72 Then - ' LiRecepcion.Visible = True - ' DdlRecepcion.SelectedValue = "2" - 'End If - TipoCambio = 1 IvaAcumulado = 0 TotalAlmacen = 0 @@ -1306,8 +1280,6 @@ Partial Class Compras_Compras TieneOC = False CveMoneda = -1 - - ImgAnticiposPendientes.Attributes.Add("OnClick", "MuestraAnticipos();") 'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide(200);") 'BtnCancelar.Attributes.Add("OnClick", "$('#DivAddEq').hide();") @@ -1320,7 +1292,6 @@ Partial Class Compras_Compras RBLPago.Visible = True If UsuarioActual.Empresa.UsaAC Then RBLPago.Items.RemoveAt(2) 'Elimina Reembolso cuando es AC - If UsuarioActual.Empresa.UsaAC Then TrReembolso.Visible = True GvPS.Columns(1).Visible = True @@ -1329,13 +1300,10 @@ Partial Class Compras_Compras TxtOC.Attributes.Add("onkeypress", "fncBuscaOC(event);") - - If UsuarioActual.CveEmpresa = 66 And UsuarioActual.TienePermisoProceso(96) Then ChkProgramarPago.Visible = True End If - 'CARGA PERSONAL 'Dim ObjPersonal As New ClsRH 'ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) @@ -1363,7 +1331,6 @@ Partial Class Compras_Compras End If - 'Carga Proveedor If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then ViewState("CveProveedor") = Request("CveProveedor") @@ -1399,7 +1366,6 @@ Partial Class Compras_Compras InicializaAplicaNCFact() DivReembolso.Visible = False RBLPago.Items(2).Enabled = False - End If If DdlTipoComprobante.SelectedValue = "DEV" Then @@ -1410,8 +1376,6 @@ Partial Class Compras_Compras CambiaEjercicioAC() End If - - If UsuarioActual.Empresa.Funcionalidad(123) <> "" And Not UsuarioActual.TienePermisoProceso(156) Then If Not ValidaCierrePeriodo() Then Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia) @@ -1454,20 +1418,13 @@ Partial Class Compras_Compras ViewState("CveCompra") = Request("CveCompra") CargaCompra() BtnGuardar.Enabled = False - 'TdIVA.Visible = True - 'DdlIVA.Enabled = False - DivConsignaciones.Visible = False - ' 2018/05/25 - Muestra Boton Agregar Guia LnkAgregarGuia.Visible = True UpLnkPaqueteriaGuias.Update() DivEsNoDeducible.Visible = True DivActualizarVincular.Visible = True - DVModalAnticipoFechaEjecucion.Visible = True - - Else ViewState("CveProveedor") = -1 @@ -1916,6 +1873,7 @@ Partial Class Compras_Compras DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6")) DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11")) + DdlTipoCompra.Items.Add(New ListItem("Garantía", "12")) Case "T" DdlTipoCompra.Items.Clear() DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9")) @@ -3223,7 +3181,6 @@ Partial Class Compras_Compras HplImporte.Visible = False HplImporte.Text = "" HplImporte.NavigateUrl = "" - Else If Saldo <= 0 Then LblCompraEstatus.Text = "PAGADA" @@ -3235,26 +3192,20 @@ Partial Class Compras_Compras HplImporte.Visible = True HplImporte.Text = String.Format("$ {0}", Total.FormatoNumero()) HplImporte.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=700&width=920", CveProveedor, CveCompra) - - Else If Saldo < Total Then LblCompraEstatus.Text = "ABONADA" LblCompraEstatus.Font.Bold = True - End If LblCompraEstatus.ForeColor = Drawing.Color.Navy trSaldo.Visible = True HplSaldoAuxiliar.Text = String.Format("$ {0}", Saldo.FormatoNumero()) HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=700&width=920", CveProveedor, CveCompra) - End If End If - UpEstatus.Update() Else - If CveCompra > 0 Then LblCompraEstatus.Font.Bold = True LblCompraEstatus.ForeColor = Drawing.Color.Navy @@ -3262,9 +3213,7 @@ Partial Class Compras_Compras HplSaldoAuxiliar.Text = String.Format("$ {0}", Saldo.FormatoNumero()) HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=700&width=920", CveProveedor, CveCompra) End If - End If - End Sub Private Sub CargaMonedas() @@ -3273,9 +3222,6 @@ Partial Class Compras_Compras End Sub Private Sub CargarAlmacen() - 'ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2)") 'solo muestra tipo material y herramientas - 'ddlAlmacen.DataBind() - Dim DtAlmacenes = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)") If DdlTipoCompra.SelectedValue = "10" Then @@ -3285,12 +3231,9 @@ Partial Class Compras_Compras ddlAlmacenAdd.DataSource = DtAlmacenes DdlAlmacenDevolucion.DataSource = DtAlmacenes End If - ddlAlmacenAdd.DataBind() DdlAlmacenDevolucion.DataBind() - DdlAlmacenDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1")) - End Sub Protected Sub CargaFuncionariosEmpleados() @@ -5550,8 +5493,12 @@ Partial Class Compras_Compras Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList Dim indice = 0 Dim ImporteConcepto As Decimal = 0 - - If DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0 Then + Dim CveConceptoMovimiento As Integer = 2 + 'apoyo logistico/garantia + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then + CveConceptoMovimiento = 13 + End If + If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then For Each tCveAlmacen As Integer In ListAlmacenes If GvInv.Rows(indice).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then @@ -5562,7 +5509,7 @@ Partial Class Compras_Compras Dim fecha As Date = TxtFecha.Text.ToDate If Not UsuarioActual.Empresa.UsaAC Then fecha = Now - CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, 2, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G2") + CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G2") If CveMovimientoInventario <= 0 Then ErrorMovInv = True @@ -5602,7 +5549,6 @@ Partial Class Compras_Compras Next End If Else - 'UNIDAD BASE - EQUIVALENCIAS - INVENTARIO If UsuarioActual.CveEmpresa = 1 Then DtEquivalencias = New DataTable @@ -5619,8 +5565,6 @@ Partial Class Compras_Compras CveUnidad = CveUnidadBase End If End If - - ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar) - If(DdlMoneda.SelectedValue.ToEntero = 1, tDescuento, tDescuento * TipoCambioGuardar) 'si no es por serie lote ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto) @@ -5630,22 +5574,13 @@ Partial Class Compras_Compras Exit For End If End If - End If - - i = i + 1 contadorAlamcen = contadorAlamcen + 1 Next End If - - Next End If - - - - End If If AplicarCostoIndirecto(ObjInventario, ObjCompras) Then @@ -5853,18 +5788,8 @@ Partial Class Compras_Compras Dim CuentasContablesInvalidas As New StringBuilder Dim ConceptoPersonal As String = "" Dim IdCtaIVAXAcreditar As Integer = 0 - ' Dim IdCtaIVAAcreditable As Integer = 0 Dim GuardoConcepto18 As Boolean = False - 'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then - ' IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - ' ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - 'End If - - '********************** Variables '********************** - - '****** Pagos - 'Bancos (30) Dim importeBanco As Decimal = 0 If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "1" AndAlso (Not DivTarjeta.Visible Or DdlTarjeta.SelectedValue.ToEntero = -1) Then @@ -6078,10 +6003,6 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If - - - - 'daskldaskldmaskldanmlksd If importeMovimiento <> 0 Then For Each gvRowCredito As GridViewRow In GvCreditos.Rows @@ -6130,17 +6051,9 @@ Partial Class Compras_Compras If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If - - End If End If - - - Next - - - End If 'If TipoCreditoInteres Then @@ -6179,10 +6092,6 @@ Partial Class Compras_Compras IdCtaContable = CtaProveedorExtranjera End If - - - - Case 30 'Bancos importeMovimiento = importeBanco + importeCajaChica 'Uno de los dos debe ser 0 If CveMonedaPago = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 1 Then @@ -6391,8 +6300,6 @@ Partial Class Compras_Compras If RBLPago.SelectedValue.ToEntero = 4 Then Exit Select 'Es credito el concepto 6 se agrega en CASE 17 End If - - Dim DifSubTotatles As Decimal = 0D If CveCompraRefacturacion > 0 Then @@ -6588,7 +6495,6 @@ Partial Class Compras_Compras End If End If - Dim CveMovimientoAlmacen As Integer = -1 'If importeMovimiento <> 0 Then @@ -6685,11 +6591,8 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If Else - If Not CveCompraRefacturacion > 0 Then - Dim CveSubProyecto240 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero - If CveSubProyecto240 <= 0 Then Alert("Debe de asignar un sub proyecto o centro de costos", TipoMensaje.MsgAdvertencia) ErrorPrepoliza = True @@ -6700,7 +6603,6 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If End If - End If Case 6 Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" @@ -6712,7 +6614,6 @@ Partial Class Compras_Compras IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero End If End If - If importeMN <> 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=SeContabiliza) Then @@ -6720,43 +6621,26 @@ Partial Class Compras_Compras End If End If Next - End Select - 'End If - End If 'falta el registro de la NC cuando es Dim RegistroCuentaPuente As Boolean = False 'NC CON PRODUCTOS - CUENTA PUENTE - - If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.ToEntero = 9 Then + If DdlTipoComprobante.SelectedValue = "NC" And DdlTipoCompra.SelectedValue.Contiene("9", "12") Then RegistraConcepto225 = True End If - If RegistraConcepto225 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(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'no es necesario, ya se está interpretandoe l usado como producto - 'If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora - - ' Dim Valor As Decimal = 0 - ' For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows - ' Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal() - ' If TotalTamanio > 0 Then - ' Valor += TotalTamanio - ' End If - ' Next - - ' importeMovimiento += Valor - ' importeMN = importeMovimiento * tipoCambioActual * Multiplicador - 'End If - Dim ConceptoContabilizacionNC = 225 + Dim tCveClasif As Integer = -1 + Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero Dim CveMovimientoDevolucion As Integer = -1 'CUANDO NO SE RECIBE LA MERCANCIA EN COMPRAS, SE REGISTRA EL 225, SI SE ESTA REGISTRANDO LA DEVOLUCION EN ALMACEN, SE REGISTRA EL 68 @@ -6764,11 +6648,10 @@ Partial Class Compras_Compras ConceptoContabilizacionNC = 68 CveMovimientoDevolucion = Devolucion.CveMovimiento End If - - If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContabilizacionNC, UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero - End If + 'cuando es garantía. + If DdlTipoCompra.SelectedValue = "12" Then + ConceptoContabilizacionNC = 259 + tCveClasif = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero End If Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}" @@ -6776,20 +6659,12 @@ Partial Class Compras_Compras If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then RegistroCuentaPuente = True Dim ImporteTransito As Decimal = 0 - 'Conta ContPAQ - If IdCtaContable = 0 Then - CuentasContablesInvalidas.Append("
      " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString) - idCuentaContabilizacion = 0 - End If - 'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68 If DdlTipoCompra.SelectedValue = "10" AndAlso ConceptoContabilizacionNC = 68 Then SeContabiliza = False IdCtaContable = 0 End If - 'se lleva saldo de Mercancía en tránsito - If ChkNCInvNC.Checked Then For Each Gvr As GridViewRow In GVNCInv.Rows If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then @@ -6797,10 +6672,8 @@ Partial Class Compras_Compras ErrorMovInv = True Exit For End If - End If Next - Dim diferenciaTransito As Decimal = 0 For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then @@ -6820,7 +6693,6 @@ Partial Class Compras_Compras End If End If Next - 'la diferencia se va aplicar sobre los 'Dim diferenciaTransito As Decimal = ImporteTransito - importeMN.RoundSQL @@ -6837,21 +6709,17 @@ Partial Class Compras_Compras End If End If Else - Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion If TotalRealDevolucion <> 0 Then If Math.Abs(DiferenciaDevolucion) > 0 Then - Dim CveSubProyecto69 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero - Dim CveClasificacion69 As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero - Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero Dim tMovto As Boolean = False If UsuarioActual.CveEmpresa = 119 Then tMovto = True Else DiferenciaDevolucion = -DiferenciaDevolucion End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaDevolucion.RoundSQL(), Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaDevolucion.RoundSQL(), Referencia, 69, Concepto, FechaMovimiento, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=tCveClasif) Then ErrorPrepoliza = True End If End If @@ -6859,7 +6727,7 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If End If @@ -6869,7 +6737,7 @@ Partial Class Compras_Compras 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) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo + If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.Contiene("11") Then 'clasificación de Bonificación, no se incluirá en el neteo ContienePSNeteoBonif = True Exit For End If @@ -6879,8 +6747,6 @@ Partial Class Compras_Compras 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 CveClasificacion = 20319 ").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero - - Dim CveSubProyecto259 As Integer = TmpDT.MAX("CveSubProyecto").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), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then @@ -6890,11 +6756,8 @@ Partial Class Compras_Compras Else ErrorPrepoliza = True End If - End If End If - - End If 'ChkNCInvNC @@ -6926,17 +6789,14 @@ Partial Class Compras_Compras Dim DTDistinct = DT.Copy If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then - For Each drowdis As DataRow In DTDistinct.Rows If drowdis("CveTipoGasto").ToString = "" Then drowdis("CveTipoGasto") = 0 End If If drowdis("TipoGasto").ToString.Trim = "" Then drowdis("TipoGasto") = "ND" - End If Next - DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) Else @@ -6946,7 +6806,6 @@ Partial Class Compras_Compras End If If drowdis("TipoGasto").ToString.Trim = "" Then drowdis("TipoGasto") = "ND" - End If Next DTDistinct.AcceptChanges() @@ -6961,7 +6820,6 @@ Partial Class Compras_Compras Dim tTipoMovimiento As Boolean = TipoMovimiento If DTDistinct.Rows.Count > 0 Then For Each Row2 As DataRow In DTDistinct.Rows - tTipoMovimiento = TipoMovimiento 'DETERMINA IMPORTE If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then @@ -6971,7 +6829,6 @@ Partial Class Compras_Compras End If 'se debe de restar el costo indirecto, si se recibió por OC sobre el importe del gasto, por si ya está incuido importeMovimiento = importeMovimiento - CostoIndirectoAcum176 - importeMN = importeMovimiento * tipoCambioActual * Multiplicador '[IPP] EL 6 DEBE SER POSITIVO 27/AGOSTO/2018 'CLASIFICACION @@ -7009,8 +6866,6 @@ Partial Class Compras_Compras importeMovimiento = -importeMovimiento importeMN = -importeMN End If - - Dim usacomplementariaProveedor As Boolean = False usacomplementariaProveedor = If(tipoCambioActual > 1, True, False) @@ -7431,9 +7286,7 @@ Partial Class Compras_Compras ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) End If - End If - End If Else @@ -7459,12 +7312,6 @@ Partial Class Compras_Compras IdCtaContable = CtaProveedorAnticiposExtranjera End If - 'Agregamos el 21/37/60 - - - 'Dim ImporComisionAnticipo As Decimal = Ant.ImporteComision - 'Dim importeMNComision As Decimal = ImporComisionAnticipo * tipoCambioActual * Multiplicador - If Not usacomplementariaAnticipo Then ImporteAntMN = TipoCambioAnt * ImporteAnt End If @@ -7489,13 +7336,10 @@ Partial Class Compras_Compras Pago.TCPago = Ant.TCCompra Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1) Pago.OtroGastoIngreso = ImporComisionAnticipo - ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) End If - End If - End If If UsuarioActual.CveEmpresa.Contiene(83) Then @@ -7509,7 +7353,6 @@ Partial Class Compras_Compras 'Simplificacion de PrePolizas If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then - If Not ObjConta.UpdatePrePolizasDetalleBloquear(Ant.CvePrePoliza, False) Then ErrorPrepoliza = True Alert("No se pudo desbloquear los movimientos", TipoMensaje.MsgError) @@ -7521,10 +7364,8 @@ Partial Class Compras_Compras End If End If End If - Next importeMovimiento = 0 - End If End Select @@ -7534,19 +7375,10 @@ Partial Class Compras_Compras End If '5, 305, 306, 311 If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then - 'Conta ContPAQ - - - If IdCtaContable = 0 Then - CuentasContablesInvalidas.Append("
      " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - idCuentaContabilizacion = 0 - End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True Exit For End If - End If Next @@ -10779,74 +10611,43 @@ Partial Class Compras_Compras If Not OCVinculada Then e.Row.Cells(3).Text = e.Row.DBCampo("PSCodigo").ToString End If - Else If e.Row.DBCampo("CveMetodoInventario").ToString = "5" Then e.Row.FCTextBox("TbCantidad").Enabled = False Else e.Row.FCTextBox("TbCantidad").Enabled = True End If - e.Row.FCCheckBox("cbInv").Enabled = False End If - If UsuarioActual.Empresa.UsaAC Then - e.Row.FCCheckBox("cbInv").Enabled = False - End If - - - If EsDevolucionApoyoLogistico Then - e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 27") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - - Else - e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(If(DdlTipoCompra.SelectedValue.ToEntero = 9, "CveTipoAlmacen IN (21)", "CveTipoAlmacen IN (1,2,7,14,19)")) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - End If - + If UsuarioActual.Empresa.UsaAC Then e.Row.FCCheckBox("cbInv").Enabled = False + Dim StrTipo As String = "CveTipoAlmacen IN (1,2,7,14,19)" + If DdlTipoCompra.SelectedValue.Contiene("9", "12") Then StrTipo = "CveTipoAlmacen IN (21)" + If EsDevolucionApoyoLogistico Then StrTipo = "CveTipoAlmacen = 27" + e.Row.FCDropDownList("ddlEAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrTipo) e.Row.FCDropDownList("ddlEAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("ddlEAlmacen").DataBind() - 'e.Row.FCDropDownList("ddlEAlmacen").SelectedValue = If(e.Row.DBCampo("CveAlmacen").ToEntero <= 0, "-1", e.Row.DBCampo("CveAlmacen")) If UsuarioActual.Empresa.UsaAC Then e.Row.FCDropDownList("ddlEAlmacen").Enabled = False - If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then - e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1 e.Row.FCCheckBox("cbInv").Checked = True - ddlAlmacenConsignacion_SelectedIndexChanged(e.Row.FCDropDownList("ddlEAlmacen"), Nothing) CambiaTotalDevengar(Nothing, Nothing) End If End If - If Not e.Row.DBCampo("CveMetodoInventario").ToString = "5" Then e.Row.FCTextBox("TbCantidad").Attributes.Add("onblur", String.Format("ValidarCantidad(this,{0})", If(e.Row.DBCampo("CantidadF").ToString.ToDecimal > e.Row.DBCampo("Cantidad").ToString.ToDecimal, e.Row.DBCampo("Cantidad"), e.Row.DBCampo("CantidadF")))) e.Row.FCTextBox("TbCantidad").Text = If(e.Row.DBCampo("CantidadF").ToString.ToDecimal > e.Row.DBCampo("Cantidad").ToString.ToDecimal, e.Row.DBCampo("Cantidad"), e.Row.DBCampo("CantidadF")) End If - 'e.Row.FCImageButton("btnImgDestino").Attributes.Add("onclick", "javascript:$('#DivAlmacen').show(500); PosicionaObjeto(this.id,'DivAlmacen'); CargarValores('" & e.Row.RowIndex & "','" & e.Row.DBCampo("Cantidad") & "','" & e.Row.DBCampo("PS").Replace("'", "\'") & "'); ") - ' e.Row.FCImageButton("btnImgDestino").ID = e.Row.FCImageButton("btnImgDestino").ID.ToString + e.Row.RowIndex.ToString - 'e.Row.Cells(6).ToolTip = "Enviar a otro Almacén." + If e.Row.DBCampo("Consec").ToEntero = 0 Then e.Row.BackColor = Drawing.Color.PaleGreen - If e.Row.DBCampo("Consec").ToEntero = 0 Then - e.Row.BackColor = Drawing.Color.PaleGreen - End If - - If UsuarioActual.CveEmpresa = 66 Then - e.Row.FCDropDownList("DdlRecibirInv").Items.RemoveAt(1) - End If - - 'If isAlmacenistaGluyas() Then - ' Dim dt As DataTable = Nothing - ' dt = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS=2", "PS") - ' e.Row.FCDropDownList("Ddlnewps").DataSource = dt 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) - ' e.Row.FCDropDownList("Ddlnewps").DataBind() - ' e.Row.FCDropDownList("Ddlnewps").Items.Insert(0, New ListItem("Seleccione", "-1")) - ' dt.Dispose() - 'End If + If UsuarioActual.CveEmpresa = 66 Then e.Row.FCDropDownList("DdlRecibirInv").Items.RemoveAt(1) 'Consignaciones If CveConsignacion > 0 Then @@ -10857,7 +10658,6 @@ Partial Class Compras_Compras If e.Row.DBCampo("CveAlmacenConsignacion").ToEntero > 0 Then e.Row.FCDropDownList("ddlAlmacenConsignacion").SelectedValueExist(e.Row.DBCampo("CveAlmacenConsignacion")) End If - ''CARGA CONSIGNACIONES e.Row.FCDropDownList("DdlVinculaConsignacion").DataSource = DtConsignaciones.FiltraParametros(String.Format("CveAlmacenSalida = {0} OR {0} = '-1'", e.Row.FCDropDownList("ddlAlmacenConsignacion").SelectedValue)) e.Row.FCDropDownList("DdlVinculaConsignacion").DataBind() @@ -10867,7 +10667,6 @@ Partial Class Compras_Compras e.Row.FCDropDownList("DdlVinculaConsignacion").SelectedValueExist(e.Row.DBCampo("NoConsignacion")) e.Row.FCHiddenField("HdnNoConsignacion").Value = e.Row.DBCampo("NoConsignacion") End If - If e.Row.DBCampo("CveConsignacion").ToEntero > 0 Then e.Row.FCHiddenField("HdnCveConsignacion").Value = e.Row.DBCampo("CveConsignacion") e.Row.FCHiddenField("HdnPS").Value = e.Row.DBCampo("HdnPS") @@ -10883,8 +10682,6 @@ Partial Class Compras_Compras End If If Not UsuarioActual.Empresa.UsaAC Then - - e.Row.FCTextBox("TxtDividir").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);LimitaCantidad({0},this,'{1}');", e.Row.DBCampo("Cantidad"), e.Row.FCButton("BtnDividirCompra").ClientID)) e.Row.FCTextBox("TxtDividir").Text = "" @@ -10895,31 +10692,20 @@ Partial Class Compras_Compras e.Row.FCTextBox("TxtDividir").Visible = False End If End If - End If 'HEADER GvInv If e.Row.RowType = DataControlRowType.Header Then Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,7,14,19)" + ' iliana, horacio, marco, RMF. 2017.03.13 + If UsuarioActual.CveUsuario.Contiene(1397, 1517, 1565) Then StrAlmacenes = "CveTipoAlmacen IN (1,2,7,14,12,19)" + If DdlTipoCompra.SelectedValue.ToEntero = 9 Then StrAlmacenes = "CveTipoAlmacen IN (21)" + ' salidas de garantía + If DdlTipoCompra.SelectedValue.ToEntero = 12 Then StrAlmacenes = "CveTipoAlmacen IN (21)" + If DdlTipoCompra.SelectedValue.ToEntero = 10 Then StrAlmacenes = $"Modalidad = 0" + If EsDevolucionApoyoLogistico Then StrAlmacenes = " CveTipoAlmacen = 27" - If UsuarioActual.CveUsuario.Contiene(1397, 1517, 1565) Then ' iliana, horacio, marco, RMF. 2017.03.13 - StrAlmacenes = "CveTipoAlmacen IN (1,2,7,14,12,19)" - End If - - - If DdlTipoCompra.SelectedValue.ToEntero = 9 Then - StrAlmacenes = "CveTipoAlmacen IN (21)" - End If - - If DdlTipoCompra.SelectedValue.ToEntero = 10 Then - StrAlmacenes = $"Modalidad = 0" - End If - - If EsDevolucionApoyoLogistico Then - StrAlmacenes = " CveTipoAlmacen = 27" - End If - - e.Row.FCDropDownList("ddlAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("ddlAlmacen").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros(StrAlmacenes) e.Row.FCDropDownList("ddlAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1")) e.Row.FCDropDownList("ddlAlmacen").DataBind() @@ -10932,19 +10718,14 @@ Partial Class Compras_Compras e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind() - If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1 e.Row.FCCheckBox("cbAll").Checked = True - cbAll_CheckedChanged(e.Row.FCCheckBox("cbAll"), Nothing) ddlAlmacen_SelectedIndexChanged(e.Row.FCDropDownList("ddlAlmacen"), Nothing) - End If End If - - End If End Sub @@ -10959,81 +10740,6 @@ Partial Class Compras_Compras InicializaCargaEvidenciaAlmacen() End Sub - 'Protected Sub btnAgregarEq_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click - - - ' Dim eq As New ClsProductosServicios - ' Dim Unidad As String = TmpDT.Rows.Item(HdnEq.Value.ToEntero)("UM").ToString - ' Dim CvePS As Integer = TmpDT.Rows.Item(HdnEq.Value.ToEntero)("CvePS").ToString.ToEntero - ' Dim CveUM As Integer = TmpDT.Rows.Item(HdnEq.Value.ToEntero)("CveUM").ToString.ToEntero - ' Dim PU As Double = TmpDT.Rows.Item(HdnEq.Value.ToEntero)("PU").ToString.ToDouble - - ' Dim tCve As Integer = 0 - ' Dim ErrorUM As Boolean = False - - ' If UsuarioActual.Empresa.UsaInventarios And CveUM = 0 Then - ' Dim UM As New ClsUnidadesMedida - ' tCve = UM.AddUnidadMedida(TmpDT.Rows.Item(HdnEq.Value.ToEntero)("UM").ToString, TmpDT.Rows.Item(HdnEq.Value.ToEntero)("UM").ToString, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) - - ' If tCve > 0 Then - ' TmpDT.Rows.Item(HdnEq.Value.ToEntero)("CveUM") = tCve - ' Else - ' ErrorUM = True - ' End If - - - ' End If - - ' If Not ErrorUM Then - - ' If eq.AddPSEquivalencias(CvePS, CveUM, txtCantidadEq.Text.ToDecimal, False, PU, UsuarioActual.CveUsuario) Then - ' TmpDT.Rows.Item(HdnEq.Value.ToEntero)("CveEq") = 1 - - ' End If - - - ' End If - - - ' GvPS.DataSource = TmpDT - ' GvPS.DataBind() - - ' eq.Dispose() - - ' txtCantidadEq.Text = "" - 'End Sub - - - 'Protected Sub Enviar_Click(sender As Object, e As ImageClickEventArgs) Handles ImgAdd.Click - - ' If TbCantidadAlm.Text.ToDouble < DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("Cantidad").ToString.ToDouble And TbCantidadAlm.Text.ToDouble > 0 Then - - ' DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("Cantidad") = DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("Cantidad").ToString.ToDouble - TbCantidadAlm.Text.ToDouble - ' AddDTEnvio(TbCantidadAlm.Text.ToDouble, - ' DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("UM").ToString, - ' DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("CveUM").ToString.ToEntero, - ' DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("CvePS").ToString().ToEntero, - ' DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("PS").ToString, - ' DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("PU").ToString.ToDouble, - ' ddlAlmacenAdd.SelectedValue.ToEntero, DtInv.Rows.Item(hdnIndexInv.Value.ToEntero)("CveEq").ToString.ToEntero) - - - ' Else - ' Alert("El campo cantidad es necesario que sea mayor que 0 y menor al registro seleccionado.") - - - ' End If - - ' TbCantidadAlm.Text = "" - ' ddlAlmacenAdd.SelectedIndex = 0 - ' UpINV.Update() - - ' ' Alert(TmpDT.Rows.Count.ToString) - - - - 'End Sub - Protected Sub cbAll_CheckedChanged(sender As Object, e As EventArgs) For i As Integer = 0 To GvInv.Rows.Count - 1 @@ -13994,7 +13700,8 @@ Partial Class Compras_Compras dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero, dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero, - ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero, + ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, + PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero, CveCompraAmortizacion:=dr("CveCompraAmortizacion").ToString.ToEntero) Then ErrorCancelar = True Exit For @@ -19713,7 +19420,7 @@ Partial Class Compras_Compras Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs) - If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10) Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada + If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10, 12) Then 'Al seleccionar apoyo logístico se cargan los amancenes de devoculcion proveedor para dar entrada CargaGvInv() End If @@ -19726,6 +19433,10 @@ Partial Class Compras_Compras If DdlFolioGarantia.SelectedValue.ToEntero <> -1 Then ValidaFolioGarantia(True) + 'visualizar el div de almacen + Pnlalmaceninventarios.Visible = True + paneldevolucion.Visible = False + uppAlmacenGral.Update() End If End Sub diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2d757bc67..7406afa9e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -33193,7 +33193,7 @@ Partial Class Ventas ErrorTrans = True End If - If Not ObjEventos.AddEventoBitacora($"Se actualizo la fecha de pago. Anterior:{FechaVencimientoAnterior} Actual:{TxtFechaPago.Text}.", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then + If Not ObjEventos.AddEventoBitacora($"Se actualizó la fecha de pago. Anterior:{FechaVencimientoAnterior} Actual:{TxtFechaPago.Text}.", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVenta) Then ErrorTrans = True End If @@ -34425,15 +34425,15 @@ Partial Class Ventas TFuenteRecaudacion.Visible = False End If - If UsuarioActual.CveRol = 1 Then - If ChkEmitirComercioExterior.Checked Then - TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString() - Else - TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() - End If + 'If UsuarioActual.CveRol = 1 Then + ' If ChkEmitirComercioExterior.Checked Then + ' TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString() + ' Else + ' TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString() + ' End If - UpPS.Update() - End If + ' UpPS.Update() + 'End If End Sub @@ -34574,6 +34574,13 @@ Partial Class Ventas DdlUsoCFDI.Enabled = True End If + If LblSeTimbro.Text = "No" AndAlso DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso ChkEmitirComercioExterior.Checked AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then + TxtTipoCambio.Enabled = True + TxtTipoCambio.ReadOnly = False + + UpPS.Update() + End If + UpParametros.Update() UPObservaciones.Update() UpFacturar.Update() @@ -34581,18 +34588,42 @@ Partial Class Ventas End Sub Private Sub GuardarValoresEditados() + Dim TieneError As Boolean = False + Dim AplicaUpdateTC As Boolean = False + + If LblSeTimbro.Text = "No" AndAlso DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso ChkEmitirComercioExterior.Checked AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then + AplicaUpdateTC = True + End If + Dim ObjVentas As New ClsVentas() - If ObjVentas.UpdateObservacionesVenta(CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, + ObjVentas.IniciaTransacSQL() + + If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text) Then - CargaVenta() + TieneError = True + End If + + If Not TieneError AndAlso AplicaUpdateTC Then + If Not ObjVentas.UpdateVentaTC(Me.CveVenta, UsuarioActual.CveEmpresa, TxtTipoCambio.Text.ToDecimal()) Then + TieneError = True + End If + End If + + If Not TieneError Then + ObjVentas.Commit() BtnEditar.Text = "Editar" - Alert("Actualizado correctamente") + + Dim Liga = $"document.location.href=""/Ventas/Ventas.aspx?CveVenta={Me.CveVenta}"";" + Alert("La venta se actualizó correctamente", TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Aceptar", TextoSegundoBoton:=Nothing, JSBtn2:=Nothing, ShowCloseButton:=False) + UpParametros.Update() UPObservaciones.Update() UpFacturar.Update() + Else + ObjVentas.RollBack() End If - ObjVentas.Dispose() + ObjVentas.Dispose() 'REGENERAR EL PDF Try Dim CveEmpresaPDF As Integer = UsuarioActual.CveEmpresa @@ -34600,8 +34631,6 @@ Partial Class Ventas Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) RegenerarPDF(CveVenta, CveEmpresaPDF, CveUsuarioPDF, strURLHOST) - 'Dim Hilo As New System.Threading.Thread(Sub() ) - 'Hilo.Start() Catch ex As Exception OnError("Ocurrió un error al regenerar el PDF", ex) End Try