agregando las entregas locales

Inventarios/EntregaAlmacen.aspx.vb

@@ -3085,6 +3085,18 @@ Partial Class Inventarios_EntregaAlmacen
 
 #End Region
 
+#Region "TipoEntrega"
+
+    Protected Sub EntregaRadioGroup_Click(sender As Object, e As EventArgs)
+        If RbEntregaExterna.Checked Then
+            RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
+        ElseIf RbEntregaInterna.Checked Then
+            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
+            'CveVentaSurtir
+        End If
+    End Sub
+
+#End Region
 
 
 End Class