- update folioremision

App_Code/ClsVentas.vb

@@ -601,7 +601,7 @@ Public Class ClsVentas
                                  Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1,
                                  Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1,
                                  Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha,
-                                 Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1) As Boolean
+                                 Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
@@ -641,6 +641,7 @@ Public Class ClsVentas
             .Add("@Paciente", SqlDbType.VarChar).Value = Paciente
             .Add("@Episodio", SqlDbType.VarChar).Value = Episodio
             .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega
+            .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision
         End With
 
         Try