BDH: Revision de servicio a domicilio

Inventarios/RecepcionUsados.aspx.vb

@@ -326,6 +326,7 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 
     Private Sub CargaInicial()
+        ConsecutivoVenta = 0
         CveMovimiento = -1
         CveMovimientoRelacionado = -1
         TieneRelacionado = -1
@@ -2255,7 +2256,7 @@ Partial Class Inventarios_RecepcionUsados
 
         'VALIDA PROMOCIONES Y EXISTENCIAS
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, Me.ObjRemisionNC.CveCliente, Me.ObjRemisionNC.CveVendedor, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, Me.ObjRemisionNC.CveCliente, Me.ObjRemisionNC.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
             Me.ObjRemisionNC.DtPromociones = ObjVentas.DtResultados.Copy()
         End If
         ObjVentas.Dispose()
@@ -2573,8 +2574,11 @@ Partial Class Inventarios_RecepcionUsados
 
                 Dim Obs As String = SbBCI.ToString()
 
-                AddPSRNC(ObjRemisionNC.DtDetalle, 1, CveUnidadMedida, "", CveClasificacion, "", CvePS, "", Obs, PU, 0, -1, "",
-                     ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA)
+                If AddPSRNC(ObjRemisionNC.DtDetalle, 1, CveUnidadMedida, "", CveClasificacion, "", CvePS, "", Obs, PU, 0, -1, "",
+                     ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA) Then
+                    ConsecutivoVenta += 1
+                End If
+
             Else
 
             End If
@@ -2966,6 +2970,9 @@ Partial Class Inventarios_RecepcionUsados
         Dim CargoActual As Double = 0
 
         Dim Row As DataRow = Nothing
+
+        ConsecutivoVenta += 1
+
         Row = TmpDTAjustes.NewRow
         Row("CveFolioGarantia") = DdlFolioGarantia.SelectedValue.ToEntero
         Row("CveTipoUso") = DdlTipoUso.SelectedValue.ToEntero
@@ -2981,7 +2988,7 @@ Partial Class Inventarios_RecepcionUsados
         Row("TipoComprobante") = 1
         Row("Comprobante") = TxtPoliza.Text
         Row("Importe") = TxtImporteAjuste.Text.ToDouble
-        Row("ConsecutivoVenta") = TxtConsecutivoAjuste.Text.ToEntero()
+        Row("ConsecutivoVenta") = ConsecutivoVenta
         Row("CvePS") = DdlPSAjuste.SelectedValue
         Row("PS") = DdlPSAjuste.SelectedText
         Row("CveVenta") = -1