Saldos iniciales, cambios en OC numero de remision, validacion cultivo 158,

OC/OC.aspx

@@ -335,9 +335,13 @@
                                     </div>
 
                                     <div class="col-md-2" runat="server" id="DvNumRemision1" visible="false"><b>Núm. Remisión</b></div>
-                                    <div class="col-md-2" runat="server" id="DvNumRemision2" visible="false">
-                                        <asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="100%" onblur="ValidaNumRemision()"></asp:TextBox>
+                                    <div class="col-md-3" runat="server" id="DvNumRemision2" visible="false">
+                                        <asp:TextBox ID="TxtNumRemision" runat="server" MaxLength="10" Width="80%"  onblur="ValidaNumRemision()"></asp:TextBox>
                                         <asp:Button ID="BtnValidaNumRemision" ClientIDMode="Static" OnClick="BtnValidaNumRemision_Click"   Style="display: none;" runat="server" />
+                                        <asp:LinkButton runat="server" Visible="false" ID="LnkActualziarNumRemision" OnClick="LnkActualziarNumRemision_Click"  
+                                            data-toggle="confirmation" data-popout="true" data-original-title="Actualizar número remisión"
+                                            data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" 
+                                            ToolTip="¿Está seguro que desea actualizar el número de remisión?" />
                                     </div>
 
                                 </div>

OC/OC.aspx.vb

@@ -580,6 +580,22 @@ Partial Class OC_OC
     End Property
 
 
+    Private Property NumeroRemisionOriginal As String
+        Get
+
+            If ViewState("NumeroRemisionOriginal") Is Nothing Then
+                ViewState("NumeroRemisionOriginal") = ""
+            End If
+
+            Return ViewState("NumeroRemisionOriginal").ToString
+
+        End Get
+        Set(value As String)
+            ViewState("NumeroRemisionOriginal") = value
+        End Set
+    End Property
+
+
 
 #End Region
 
@@ -899,14 +915,19 @@ Partial Class OC_OC
 
             'NO MOSTRAR LA OPCION DE ENTREGA DIRECTA (ECONOLLANTAS)
             If UsuarioActual.CveEmpresa = 141 Then
-                    DivEntregaDirecta.Visible = False
-                    ChkEntregaDirecta.Enabled = False
-                    ChkEntregaDirecta.Checked = False
-                End If
-
+                DivEntregaDirecta.Visible = False
+                ChkEntregaDirecta.Enabled = False
+                ChkEntregaDirecta.Checked = False
             End If
-            MostrarUsuarioAsignado()
+
+
+
+        End If
+
+        MostrarUsuarioAsignado()
+
         Me.Form.DefaultButton = ""
+
     End Sub
 
 #Region "  PERMISOS PAGINA  "
@@ -1416,6 +1437,7 @@ Partial Class OC_OC
             TxtFolioAdicional.Text = objOC.FolioAdicional
 
             TxtNumRemision.Text = objOC.NumRemision
+            NumeroRemisionOriginal = objOC.NumRemision
 
             If Not IsNothing(objOC.Tipo) Then
 
@@ -8745,6 +8767,7 @@ Partial Class OC_OC
 
     Private Function ValidaNumRemision(NumRemision As String, TipoOC As String, CveProveedor As Integer, Optional OcTransaccion As SqlClient.SqlTransaction = Nothing, Optional CveOrdenCompraValida As Integer = -1) As Boolean
         Dim NumRemisionValida As Boolean = False
+        LnkActualziarNumRemision.Visible = False
 
         If NumRemision.Trim.Length > 0 Then
             If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso UsuarioActual.CveRol = 1 Then
@@ -8752,7 +8775,7 @@ Partial Class OC_OC
                 Dim ObjOC As New ClsOC(OcTransaccion)
                 If ObjOC.GetVerificaNumRemision(CveProveedor, TipoOC, NumRemision, UsuarioActual.CveEmpresa, CveOrdenCompraValida) Then
                     If ObjOC.DtResultados.Rows.Count > 0 Then
-                        Alert($"La remision  ya se encuentra asignada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")}  <a target='_blank' href='./OC.aspx?OC={ObjOC.DtResultados.Rows(0)("CveOrdenCompra").ToString()}' >{ObjOC.DtResultados.Rows(0)("Folio").ToString() }</a>", TipoMensaje.MsgAdvertencia)
+                        Alert($"La remision  ya se encuentra asignada a la { If(TipoOC = "OC", "Orden de compra", "Requisición")}  <a target='_blank' class='Texto' href='./OC.aspx?OC={ObjOC.DtResultados.Rows(0)("CveOrdenCompra").ToString()}' >{ObjOC.DtResultados.Rows(0)("Folio").ToString() }</a>.", TipoMensaje.MsgAdvertencia)
                     Else
                         NumRemisionValida = True
                     End If
@@ -8764,6 +8787,17 @@ Partial Class OC_OC
             NumRemisionValida = True
         End If
 
+
+        If NumRemisionValida Then
+
+            If CveOrdenCompra > 0 And BtnGuardar.Enabled And BtnGuardar.Visible Then
+                LnkActualziarNumRemision.Visible = True
+            End If
+
+        End If
+
+        UPPEmp.Update()
+
         Return NumRemisionValida
 
     End Function
@@ -8774,5 +8808,43 @@ Partial Class OC_OC
 
     End Sub
 
+    Protected Sub LnkActualziarNumRemision_Click(sender As Object, e As EventArgs)
 
+
+
+        If NumeroRemisionOriginal.Trim = TxtNumRemision.Text.Trim Then
+            Exit Sub
+        End If
+
+        If ValidaNumRemision(TxtNumRemision.Text.Trim(), TipoOC, DdlProveedores.SelectedValue.ToEntero, Nothing, If(CveOrdenCompra > 0, CveOrdenCompra, -1)) Then
+
+            Dim ObjOC As New ClsOC
+            Dim OCBitacora As New ClsOIEventos(ObjOC.IniciaTransacSQL())
+            Dim ErrorProceso As Boolean = False
+
+            If ObjOC.UpdateNumeroRemision(CveOrdenCompra, TxtNumRemision.Text, UsuarioActual.CveEmpresa) Then
+                If Not OCBitacora.AddEventoBitacora(If(NumeroRemisionOriginal.Trim.Length > 0, $"Se actualilizo número de remisión de { NumeroRemisionOriginal } a {TxtNumRemision.Text.Trim()}", $"Se agrego número de remisión {TxtNumRemision.Text.Trim()}"), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOC:=CveOrdenCompra) Then
+                    ErrorProceso = True
+                End If
+            Else
+                ErrorProceso = True
+            End If
+
+            If Not ErrorProceso Then
+                ObjOC.Commit()
+                CargaEventoBitacora()
+                NumeroRemisionOriginal = TxtNumRemision.Text.Trim
+                Alert("Número de remisión actualizado correctemante.")
+            Else
+                ObjOC.RollBack()
+            End If
+
+            ObjOC.Dispose()
+
+        Else
+            Alert("El número de remisión no es valido.")
+        End If
+
+
+    End Sub
 End Class