AlmacenesVirutuales

Ventas/RepRecuperacion.aspx.vb

@@ -92,8 +92,9 @@ Partial Class Ventas_RepRecuperacion
 
         'Carga Bancos'
         DdlBanco.DataSource = GlobalDTBancos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
-        DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlBanco.DataBind()
+        DdlBanco.DataBind()
+        DdlBanco.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlBanco.Items.Add(New ListItem("Empresa", "0"))
 
         'Carga Clasificacion Cliente'
         Dim ObjCliente As New ClsClientes
@@ -178,10 +179,8 @@ Partial Class Ventas_RepRecuperacion
 #Region "SELECTED INDEX CHANGE"
 
     Protected Sub DdlBanco_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlCuentaBancaria.Items.Clear()
-        If DdlBanco.SelectedValue.ToEntero > 0 Then
-            DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(-1).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
-        End If
+        DdlCuentaBancaria.Items.Clear()
+        DdlCuentaBancaria.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveBanco = {DdlBanco.SelectedValue.ToEntero}")
         DdlCuentaBancaria.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlCuentaBancaria.DataBind()
     End Sub

Ventas/Ventas.aspx.vb

@@ -3344,7 +3344,7 @@ Partial Class Ventas
                 Dim Cons As Integer = 1
                 For Each dr As DataRow In OS.DtResultados.FiltraParametros("SeFacturara = 1 ").Rows
 
-                    AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, dr("PU"), 0, -1, "",
+                    AgregarProductoServicio(dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("UM").ToString, -1, "", dr("CvePS").ToString.ToEntero, "", dr("Obs").ToString, dr("PU").ToString.ToDecimal, 0, -1, "",
                                                 dr("CveSubProyecto").ToString.ToEntero, dr("SubProyecto").ToString)
                     'Dim drt As DataRow = TmpDT.NewRow
 
@@ -6862,7 +6862,7 @@ Partial Class Ventas
                                     End If
 
                                 ElseIf UsuarioActual.Empresa.TipoFacturacion = "CBB" Then
-                                    GeneraPDFCBB(ObjFactura.Fecha, Nothing, ObjFactura.SerieFolio, False)
+                                    GeneraPDFCBB(ObjFactura.FechaCP, Nothing, ObjFactura.SerieFolio, False)
                                 End If
                             End If
 
@@ -13499,17 +13499,21 @@ Partial Class Ventas
             Return False
         End If
 
-        If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
-            Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
-            If DrPS IsNot Nothing Then
-                If DrPS("CveMoneda").ToString.ToEntero <> DdlMoneda.SelectedValue.ToEntero Then
-                    Alert("No puede agregar un producto de diferente moneda a la ya seleccionada", TipoMensaje.MsgAdvertencia)
-                    Return False
+        'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS
+        If Not UsuarioActual.Empresa.Funcionalidad(524) <> "" Then
+            If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then
+                Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
+                If DrPS IsNot Nothing Then
+                    If DrPS("CveMoneda").ToString.ToEntero <> DdlMoneda.SelectedValue.ToEntero Then
+                        Alert("No puede agregar un producto de diferente moneda a la ya seleccionada", TipoMensaje.MsgAdvertencia)
+                        Return False
+                    End If
                 End If
             End If
         End If
 
-        If Not UsuarioActual.TienePermisoProceso(169) Then ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
+        ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
+        If Not UsuarioActual.TienePermisoProceso(169) Then
             'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS
             If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) Then
                 Dim ObjInventarios As New ClsInventarios
@@ -15463,7 +15467,7 @@ Partial Class Ventas
                 Cuerpo = Cuerpo.Replace("{""Fecha""}", TxtFecha.Text)
                 Cuerpo = Cuerpo.Replace("{""Total""}", TxtTotal.Text)
                 Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", TxtFechaPago.Text)
-                Cuerpo = Cuerpo.Replace("{""SerieFolio""}", $"{LblSerie.Text} - {TxtFolio.Text}")
+                Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
             End If
 
             If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
@@ -18411,7 +18415,7 @@ Partial Class Ventas
         strBody.AppendFormat(" <div id=""C_divOC"" style=""width: 630px""> <fieldset> <legend><b>Datos de {0}</b></legend> ", DdlTipoComprobante.SelectedItem.Text)
         strBody.Append("             <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> ")
         strBody.Append("                 <tr style=""height: 22px""> ")
-        strBody.AppendFormat("              <td style=""width: 90px""> Serie-Folio:</td><td style=""width: 125px""><b>{0}-{1}</b></td> ", LblSerie.Text, TxtFolio.Text)
+        strBody.AppendFormat("              <td style=""width: 90px""> Serie-Folio:</td><td style=""width: 125px""><b>{0}</b></td> ", ObjFactura.SerieFolio)
         strBody.Append("                 </tr> ")
         strBody.Append("                 <tr style=""height: 22px""> ")
         strBody.AppendFormat("               <td style=""width: 90px""> Empresa:</td><td colspan=""3""><b>{0}</b></td> ", UsuarioActual.Empresa.Empresa)