eFacturas Traslados

Compras/PopUpBuscarFolioC.aspx.vb

@@ -11,6 +11,15 @@ Partial Class Compras_PopUpBuscarFolioC
         End Get
     End Property
 
+    Private Property Opcion As String
+        Get
+            Return ViewState("Opcion").ToString
+        End Get
+        Set(value As String)
+            ViewState("Opcion") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CType(Me.Master, BaseMasterPage).EsPopup = True
@@ -24,9 +33,15 @@ Partial Class Compras_PopUpBuscarFolioC
 
             If Request("Opt") = "Fact" Then
                 ViewState("Opt") = "MandaCveCompra"
+
+            ElseIf Request("Opt") = "ComplementosTraslado" Then
+                ViewState("Opt") = "ComplementosTraslado"
             Else
                 ViewState("Opt") = "RecargaCompra"
             End If
+
+
+
         End If
     End Sub
 
@@ -91,6 +106,8 @@ Partial Class Compras_PopUpBuscarFolioC
                     Liga = String.Format("<a class='Texto' href='javascript:Ir3(""{0}"");'>", e.Row.DBCampo("CveCompra"))
                 Case "FactFlete"
                     Liga = String.Format("<a class='Texto' href='javascript:Ir4(""{0}"");'>", e.Row.DBCampo("CveCompra"))
+                Case "ComplementosTraslado"
+                    Liga = String.Format("<a class='Texto' href='javascript:Ir5(""{0}"",""{1}"");'>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))
                 Case Else
                     Liga = String.Format("<a class='Texto' href='javascript:Ir(""{0}"");'>", e.Row.DBCampo("CveCompra"))
             End Select