From 027a6a8046bf9e1ef52054b02800e5eac5d216bf Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 4 Apr 2024 17:32:08 -0700 Subject: [PATCH] Compras actualizar PS/codigoPS al asignar alias, Compras nota de credito remision nota de credito, IE bloquear accion cancelacion cuando IE tiene cancelacion, formatos 193 --- App_Code/ClsInventarios.vb | 2 + Bancos/IE.aspx.vb | 9 +-- Compras/Compras.aspx | 8 +- Compras/Compras.aspx.vb | 127 ++++++++++++++++++++++++++------ Compras/PopUpVerFactura.aspx.vb | 4 +- 5 files changed, 119 insertions(+), 31 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index fd07547a1..e5334119c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1062,6 +1062,8 @@ Public Class ClsInventarios Catch Ex1 As SqlException If Ex1.Message.Contains("UK_Inv_MovimientosFolio") Then Me.OnError("El Folio ya se encuentra registrado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ElseIf Ex1.Message.Contains("50016") Then + Me.OnError("No se puede registrar salida con entradas posteriores.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Else Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7a7dfdde6..4250b1def 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -744,12 +744,9 @@ Partial Class Bancos_IE - 'If TabCancelacion.Visible Then - ' LnkCancelar.Visible = False - ' LnkCancelarComplemento.Visible = False - ' 'LnkEliminar.Visible = False - ' LnkCancelarComplementoImporte.Visible = False - 'End If + If TabCancelacion.Visible Then + LnkCancelar.Visible = False + End If UppEliminarIE.Update() diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 5b9c971a6..f1b590b20 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -498,8 +498,12 @@ - <%----%> - <%-- Ocuado se carga con funcionalidad 574 --%> + + <%-- Ocuoado usado en Garantía--%> + <%-- Ocupado RECEPCION ADELANTADO --%> + <%-- Ocupado Recolecciones --%> + <%-- Ocuado se carga con funcionalidad 574 --%> + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7342b296b..3e9fc7d9b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1222,6 +1222,61 @@ Partial Class Compras_Compras End Property + Private Property SerieFolioProntoPago As String + Get + If ViewState("SerieFolioProntoPago") Is Nothing Then + ViewState("SerieFolioProntoPago") = "" + End If + Return ViewState("SerieFolioProntoPago").ToString + End Get + Set(value As String) + ViewState("SerieFolioProntoPago") = value + End Set + End Property + + Private Property TipoCambioProntoPago As Decimal + Get + If ViewState("TipoCambioProntoPago") Is Nothing Then + ViewState("TipoCambioProntoPago") = 0D + End If + Return ViewState("TipoCambioProntoPago").ToString.ToDecimal + End Get + Set(value As Decimal) + ViewState("TipoCambioProntoPago") = value + End Set + End Property + + Private Property FechaProntoPago As Date + Get + If ViewState("FechaProntoPago") Is Nothing Then + ViewState("FechaProntoPago") = MinFecha + End If + Return ViewState("FechaProntoPago").ToString.ToDate + End Get + Set(value As Date) + ViewState("FechaProntoPago") = value + End Set + End Property + + Private Property CveMonedaProntoPago As Integer + Get + If ViewState("CveMonedaProntoPago") Is Nothing Then + ViewState("CveMonedaProntoPago") = 0D + End If + Return ViewState("CveMonedaProntoPago").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveMonedaProntoPago") = value + End Set + End Property + + 'ImporteRNCSaldar = 0 + 'SerieFolioProntoPago = "" + 'TipoCambioProntoPago = 1 + 'FechaProntoPago = MinFecha + 'CveMonedaProntoPago = 1 + + #End Region @@ -1631,7 +1686,7 @@ Partial Class Compras_Compras End If If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then - DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "13")) + DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15")) End If @@ -6961,18 +7016,33 @@ Partial Class Compras_Compras Dim CompraPago As New Compra ''datos de la compra tipodocto:Fac, para sobreescribirlos - 'CompraPago.CveCompra = DdlRemisionNotaCredito.SelectedValue.ToEntero - 'CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero - 'CompraPago.SerieFolio = Gvr.DataKey("SerieFolio") - 'CompraPago.TC = Gvr.DataKey("TipoCambio").ToDecimal - 'CompraPago.Fecha = Gvr.DataKey("Fecha").ToDate - 'CompraPago.CveMoneda = Gvr.DataKey("CveMoneda").ToEntero - 'CompraPago.Total = Gvr.DataKey("Total").ToDecimal - 'CompraPago.CveTipoConceptoProveedor = CveTipoConcepto + CompraPago.CveCompra = DdlRemisionNotaCredito.SelectedValue.ToEntero + CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero + CompraPago.SerieFolio = SerieFolioProntoPago + CompraPago.TC = TipoCambioProntoPago + CompraPago.Fecha = FechaProntoPago + CompraPago.CveMoneda = CveMonedaProntoPago + CompraPago.Total = ImporteRNCSaldar + CompraPago.CveTipoConceptoProveedor = CveTipoConcepto CompraPago.CveSubProyecto = CompraActual.CveSubProyecto ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraPago, Pago, CvePrePoliza, ObjConta) + If Not ErrorPrepoliza Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, + CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then + ErrorPrepoliza = True + End If + + If Not ErrorPrepoliza Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio, + CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then + ErrorPrepoliza = True + End If + End If + End If + + End If If ErrorPrepoliza Then @@ -17066,7 +17136,7 @@ Partial Class Compras_Compras DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, Total, IVA, TxtRetIVAModal.Text.ToDecimal / 100, TxtRetISRModal.Text.ToDecimal / 100, TxtIEPSModal.Text.ToDecimal / 100, 0, TxtDescuentoModal.Text.ToDecimal, OtrosGastos:=0, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle, - CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""), CodigoPS:=CodigoPS) + CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, "")) AddPS2() LimpiaAgregar() @@ -17726,9 +17796,19 @@ Partial Class Compras_Compras Dim CvePS As Integer = -1 Dim tPS As String = "" + Dim tCodigoPS As String = "" CvePS = DdlPSAlias2.SelectedValue.ToEntero - tPS = DdlPSAlias2.SelectedText + + Dim dRowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") + + If dRowPS IsNot Nothing Then + tPS = dRowPS("PS").ToString + tCodigoPS = dRowPS("CodigoPS").ToString + End If + + 'tPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PS") 'DdlPSAlias2.SelectedText + If CvePS <= 0 Then Alert("No se ha seleccionado el producto.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -17754,6 +17834,7 @@ Partial Class Compras_Compras TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS TmpDT.Rows(HdnAliasInd.Value.ToEntero)("PS") = tPS + TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CodigoPS") = tCodigoPS TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveUM") = DdlUnidadAlias.SelectedValue.ToEntero TmpDT.Rows(HdnAliasInd.Value.ToEntero)("UM") = DdlUnidadAlias.SelectedItem.Text TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero @@ -17771,6 +17852,7 @@ Partial Class Compras_Compras For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0") drt("CvePS") = CvePS drt("PS") = tPS + drt("CodigoPS") = tCodigoPS drt("CveUM") = DdlUnidadAlias.SelectedValue.ToEntero drt("UM") = DdlUnidadAlias.SelectedItem.Text drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero @@ -19434,7 +19516,7 @@ Partial Class Compras_Compras End If End If - If DdlTipoCompra.SelectedValue = "13" Then 'Remisión de nota de crédito + If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito If DdlTipoComprobante.SelectedValue = "NC" Then CargaDdlRemisionNotaCredito() @@ -20918,16 +21000,19 @@ Partial Class Compras_Compras End Sub Protected Sub DdlRemisionNotaCredito_SelectedIndexChanged(sender As Object, e As EventArgs) - 'ImporteRNCSaldar = 0 + ImporteRNCSaldar = 0 + SerieFolioProntoPago = "" + TipoCambioProntoPago = 1 + FechaProntoPago = MinFecha + CveMonedaProntoPago = 1 - 'If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 Then - ' ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - ' SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - ' TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - ' FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - ' CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - ' ProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal - 'End If + If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 Then + ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal + SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("SerieFolio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ") + TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("TipoCambio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal + FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Fecha", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToString.ToDate + CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("CveMoneda", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToEntero + End If ''Alert(ImporteRNCSaldar.ToString) 'CompraPago.SerieFolio = Gvr.DataKey("SerieFolio") diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 2eadec52f..f97eb6abc 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2879,7 +2879,7 @@ Partial Class PopUpVerFactura If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL" 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193) Then params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", ConceptoFormato)) params.Add(New ReportParameter("Almacen", Almacen)) @@ -2907,7 +2907,7 @@ Partial Class PopUpVerFactura End If - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 193) Then params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, ""))) params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))