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

2024-04-04 17:32:08 -07:00
parent aa6e3bb935
commit 027a6a8046
5 changed files with 119 additions and 31 deletions
--- 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
--- 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()

--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -498,8 +498,12 @@
                                        <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
                                        <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
                                        <asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
-                                        <%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem>--%> 
-                                        <%--<asp:ListItem Text="Remision Nota De Crédito" Value="13"></asp:ListItem> Ocuado se carga con funcionalidad 574  --%>
+
+                                        <%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem> Ocuoado usado en Garantía--%> 
+                                        <%--<asp:ListItem Text="" Value="13"></asp:ListItem> Ocupado RECEPCION ADELANTADO --%>
+                                        <%--<asp:ListItem Text="Recolecciones" Value="14"></asp:ListItem> Ocupado Recolecciones  --%>
+                                        <%--<asp:ListItem Text="Remision Nota De Crédito" Value="15"></asp:ListItem> Ocuado se carga con funcionalidad 574  --%>
+
                                    </asp:DropDownList>
                                    
                                </div>
--- 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")
--- 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, "")))