Cambios en generar prepoliza en ntradas salidas

Inventarios/EntradasSalidas.aspx.vb

@@ -3257,10 +3257,10 @@ Partial Class Inventarios_EntradasSalidas
             Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
             Dim DTOCs As DataTable = DtCostos.FiltraParametros("", "", {"CveOrdenCompraDetalle"})
             Dim IdCtaContable As Integer = 0
-            Dim ConceptoPoliza As String = String.Format("{0}-{1}", DdlConcepto.SelectedItem.Text, TxtFolio.Text)
+            Dim ConceptoPoliza As String = String.Format("{0}-{1}", DdlConcepto.SelectedItem.Text, If(DdlConcepto.SelectedValue.ToEntero.Contiene(3), HplVenta.Text, TxtFolio.Text))
 
             If tmpCostos.Rows.Count > 0 Then
-                Dim Concepto As String = $" {TxtObservaciones.Text}"
+                Dim Concepto As String = If(TxtObservaciones.Text = "", ConceptoPoliza, $" {TxtObservaciones.Text}")
                 Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If HdnCveOrdenCompra.Value.ToEntero > 0 Then

Ventas/Ventas.aspx.vb

@@ -11601,6 +11601,7 @@ Partial Class Ventas
                                                     ErrorConta = True
                                                 End If
 
+
                                             End If
                                         End If
                                         importeMovimiento = 0