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

@@ -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

Bancos/IE.aspx.vb

@@ -744,12 +744,9 @@ Partial Class Bancos_IE
 
 
 
-            'If TabCancelacion.Visible Then
+            If TabCancelacion.Visible Then
-            '    LnkCancelar.Visible = False
+                LnkCancelar.Visible = False
-            '    LnkCancelarComplemento.Visible = False
+            End If
-            '    'LnkEliminar.Visible = False
-            '    LnkCancelarComplementoImporte.Visible = False
-            'End If
 
             UppEliminarIE.Update()
 

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>

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.CveCompra = DdlRemisionNotaCredito.SelectedValue.ToEntero
-                                                            'CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero
+                                                            CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-                                                            'CompraPago.SerieFolio = Gvr.DataKey("SerieFolio")
+                                                            CompraPago.SerieFolio = SerieFolioProntoPago
-                                                            'CompraPago.TC = Gvr.DataKey("TipoCambio").ToDecimal
+                                                            CompraPago.TC = TipoCambioProntoPago
-                                                            'CompraPago.Fecha = Gvr.DataKey("Fecha").ToDate
+                                                            CompraPago.Fecha = FechaProntoPago
-                                                            'CompraPago.CveMoneda = Gvr.DataKey("CveMoneda").ToEntero
+                                                            CompraPago.CveMoneda = CveMonedaProntoPago
-                                                            'CompraPago.Total = Gvr.DataKey("Total").ToDecimal
+                                                            CompraPago.Total = ImporteRNCSaldar
-                                                            'CompraPago.CveTipoConceptoProveedor = CveTipoConcepto
+                                                            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
+        If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 Then
-        '    ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+            ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        '    SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+            SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("SerieFolio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ")
-        '    TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+            TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("TipoCambio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        '    FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+            FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Fecha", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToString.ToDate
-        '    CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+            CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("CveMoneda", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToEntero
-        '    ProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+        End If
-        'End If
 
         ''Alert(ImporteRNCSaldar.ToString)
         'CompraPago.SerieFolio = Gvr.DataKey("SerieFolio")

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, "")))