Merge branch 'master' of http://192.168.10.111:8383/SIG

AF/AF.aspx

@@ -610,9 +610,9 @@
                                                                         <label class="  control-label">AF Padre:</label>
 
                                                                     </div>
-                                                                    <div class="col-md-7">
+                                                                    <div class="col-md-8">
                                                                         <div class="form-group">
-                                                                            <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="Codigo" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
+                                                                            <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="CodigoDescripcion" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>
                                                                         </div>
                                                                     </div>
                                                                 </div>

AF/CatAF.aspx

@@ -151,6 +151,10 @@
                                 <asp:ListItem Text="Sin Responsable" Value="-3"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1">AF Padre:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="CodigoDescripcion" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

AF/CatAF.aspx.vb

@@ -49,7 +49,7 @@ Partial Class AF_CatAF
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
+            ViewState("CveActivoFijo") = -1
             CargaCombos()
             CargaCaracteristicas()
 
@@ -129,7 +129,24 @@ Partial Class AF_CatAF
         CargarTipoActivoFijo()
         CargaGrupos()
         CargaResponsable()
+        CargaAFPadres()
     End Sub
+    Public Sub CargaAFPadres()
+        Dim ObjAF As New ClsAF()
+
+        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
+
+            DdlAFPadres.DataSource = ObjAF.DtResultados
+            DdlAFPadres.DataBind()
+
+            DdlAFPadres.Items.Remove(DdlAFPadres.Items.FindByValue(CveActivoFijo.ToString))
+            DdlAFPadres.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        End If
+
+        ObjAF.Dispose()
+    End Sub
+
 
     Private Sub CargaGrupos()
         Dim ObjAF As New ClsAF
@@ -262,7 +279,8 @@ Partial Class AF_CatAF
         If intContador > 0 Then strSQL1.AppendFormat(" group by CveActivoFijo having count(*)={0}", intContador)
 
         Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
-        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=CveCliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero) Then
+        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero,
+                                 DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=Cvecliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, BuscaPorAFPadre:=DdlAFPadres.SelectedValue.ToEntero) Then
             If ObjAF.DtResultados.Rows.Count > 0 Then
                 DtActivosFijos = ObjAF.DtResultados
                 'GvDatos.DataSource = ObjAF.DtResultados

App_Code/ClsPaginas.vb

@@ -9728,14 +9728,17 @@ Public Class ClsPaginas
         If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' N O T A   D E   C R E D I T O 
             Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
             Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, Pago.CveMonedaPago, True, 2)
+
+            Dim CveClienteAplicacion As Integer = If(Pago.CveClientePago > 0, Pago.CveClientePago, VentaActual.CveCliente)
+
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=CveClienteAplicacion, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, ConPrePNC.CveConceptoComplementario, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, ConPrePNC.CveConceptoComplementario, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=CveClienteAplicacion, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, ConPrePNC.CveConcepto, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=CveClienteAplicacion, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
             End If
         End If
         If Pago.TipoPago = "I" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' I N G R E S O S   X   C O M P R O B A R 

App_Code/ClsVentas.vb

@@ -183,6 +183,25 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+    Public Function GetMovimientosDepositoCaja(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MovimientosDepositoVentaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los datos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function AgroOrdenProduccionUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, CveOrdenProduccion As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_AGRO_OrdenProduccionUpvta", CommandType.StoredProcedure)

Inventarios/Kardex.aspx

@@ -498,7 +498,7 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox runat="server" ID="TxtCantidad" Width="70px" CssClass="form-control"></asp:TextBox>
                                     <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
-                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890." />
+                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890.-" />
                                 </div>
 
                             </td>

Inventarios/Kardex.aspx.vb

@@ -977,12 +977,12 @@ Partial Class Inventarios_Kardex
         Dim PorcentajeRetIVA As Decimal = 0
 
 
-        If Not Cantidad > 0 Then
+        'If Not Cantidad > 0 Then
-            Alert("Debe indicar una cantidad.", TipoMensaje.MsgAdvertencia)
+        '    Alert("Debe indicar una cantidad.", TipoMensaje.MsgAdvertencia)
-            Return False
+        '    Return False
-        End If
+        'End If
 
-        If almacenStr.Length > 0 Then
+        If almacenStr.Length <> 0 Then
             CveAlmacen = almacenStr(0).ToEntero
         End If
 

Inventarios/RecepcionUsados.aspx.vb

@@ -2498,7 +2498,7 @@ Partial Class Inventarios_RecepcionUsados
         ObjCliente.Dispose()
 
         'DETALLES
-        Me.ObjRemisionNC.DtDetalle = CreaDTDetalleRNC()
+        Me.ObjRemisionNC.DtDetalle = Modelos.Factura.CreaDTFactura()
 
         'GUARDAR AJUSTES
         Me.ObjRemisionNC.DtAjustes = TmpDTAjustes
@@ -2649,99 +2649,7 @@ Partial Class Inventarios_RecepcionUsados
         Return Retorno
 
     End Function
-    Protected Function CreaDTDetalleRNC() As DataTable
-        Dim TmpDT As New DataTable
-        TmpDT.Columns.Add("CveVenta", GetType(Integer))
-        TmpDT.Columns.Add("Consec", GetType(Integer))
-        TmpDT.Columns.Add("Cantidad", GetType(Decimal))
-        TmpDT.Columns.Add("Codigo", GetType(String))
-        TmpDT.Columns.Add("CveUM", GetType(Integer))
-        TmpDT.Columns.Add("UM", GetType(String))
-        TmpDT.Columns.Add("SATClaveUM", GetType(String))
-        TmpDT.Columns.Add("CveClasificacion", GetType(Integer))
-        TmpDT.Columns.Add("Clasificacion", GetType(String))
-        TmpDT.Columns.Add("CvePS", GetType(Integer))
-        TmpDT.Columns.Add("PS", GetType(String))
-        TmpDT.Columns.Add("CodigoPS", GetType(String))
-        TmpDT.Columns.Add("SATClaveProdServ", GetType(String))
-        TmpDT.Columns.Add("NoIdentificacion", GetType(String))
-        TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
-        TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("Serie", GetType(String))
-        TmpDT.Columns.Add("CuentaPredial", GetType(String))
-        TmpDT.Columns.Add("Obs", GetType(String))
-        TmpDT.Columns.Add("TiempoEntrega", GetType(String))
-        TmpDT.Columns.Add("PU", GetType(Decimal))
-        TmpDT.Columns.Add("IVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("IEPS", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("Descuento", GetType(Decimal))
-        TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
-        TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
-        TmpDT.Columns.Add("Total", GetType(Decimal))
-        'Para uso del módulo contable
-        TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
-        TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
-        TmpDT.Columns.Add("CveProyecto", GetType(Integer))
-        TmpDT.Columns.Add("Proyecto", GetType(String))
-        TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
-        TmpDT.Columns.Add("SubProyecto", GetType(String))
-        TmpDT.Columns.Add("CveVentaDetallePadre", GetType(Integer))
 
-        'TipoDescuento: 1 = Descuento * PU; 2 = Descuento por Total del concepto
-        TmpDT.Columns.Add("CvePresupuestoIngreso", GetType(Integer))
-        TmpDT.Columns.Add("CveFuenteRecaudacion", GetType(Integer))
-        'Contratos
-        TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
-        'Remisiones a Facturas
-        TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleRemision", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleCotizacion", GetType(Integer))
-
-        'Pedido2 a Facturas
-        TmpDT.Columns.Add("CveVentaDetallePedido2", GetType(Integer))
-
-        TmpDT.Columns.Add("Origen", GetType(Integer))
-        'Ordenes Servicio
-        TmpDT.Columns.Add("CveOS", GetType(Integer))
-        TmpDT.Columns.Add("CveOSDetalle", GetType(Integer))
-        TmpDT.Columns.Add("SeFacturara", GetType(Integer))
-        TmpDT.Columns.Add("Folio", GetType(Integer))
-        TmpDT.Columns.Add("Estatus", GetType(String))
-        'Ordenamiento
-        TmpDT.Columns.Add("Orden", GetType(Integer))
-        TmpDT.Columns.Add("TipoDocto", GetType(String))
-        'OC
-        TmpDT.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
-        TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
-
-        TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
-        TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaCot", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaPed2", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadInventario", GetType(Decimal))
-
-        TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
-        TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
-
-        TmpDT.Columns.Add("CveTamaño", GetType(Integer))
-        TmpDT.Columns.Add("EsCargo", GetType(Boolean))
-        TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
-        TmpDT.Columns("CvePromocionDetalle").DefaultValue = -1
-        TmpDT.Columns.Add("CantidadConversion", GetType(Integer))
-        TmpDT.Columns("CantidadConversion").DefaultValue = 0
-
-        Return TmpDT
-    End Function
     Protected Sub CargaDTDetalleRNC()
 
         For Each Row As GridViewRow In GvM.Rows

Ventas/Clientes.aspx.vb

@@ -9415,99 +9415,6 @@ Partial Class Clientes
 
     End Sub
 
-    Private Function CreaDTVentas() As DataTable
-        Dim TmpDT = New DataTable
-        TmpDT.Columns.Add("CveVenta", GetType(Integer))
-        TmpDT.Columns.Add("Consec", GetType(Integer))
-        TmpDT.Columns.Add("Cantidad", GetType(Decimal))
-        TmpDT.Columns.Add("Codigo", GetType(String))
-        TmpDT.Columns.Add("CveUM", GetType(Integer))
-        TmpDT.Columns.Add("UM", GetType(String))
-        TmpDT.Columns.Add("SATClaveUM", GetType(String))
-        TmpDT.Columns.Add("CveClasificacion", GetType(Integer))
-        TmpDT.Columns.Add("Clasificacion", GetType(String))
-        TmpDT.Columns.Add("CvePS", GetType(Integer))
-        TmpDT.Columns.Add("PS", GetType(String))
-        TmpDT.Columns.Add("CodigoPS", GetType(String))
-        TmpDT.Columns.Add("SATClaveProdServ", GetType(String))
-        TmpDT.Columns.Add("NoIdentificacion", GetType(String))
-        TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
-        TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("Serie", GetType(String))
-        TmpDT.Columns.Add("CuentaPredial", GetType(String))
-        TmpDT.Columns.Add("Obs", GetType(String))
-        TmpDT.Columns.Add("TiempoEntrega", GetType(String))
-        TmpDT.Columns.Add("PU", GetType(Decimal))
-        TmpDT.Columns.Add("IVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("IEPS", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("Descuento", GetType(Decimal))
-        TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
-        TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
-        TmpDT.Columns.Add("Total", GetType(Decimal))
-        'Para uso del módulo contable
-        TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
-        TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
-        TmpDT.Columns.Add("CveProyecto", GetType(Integer))
-        TmpDT.Columns.Add("Proyecto", GetType(String))
-        TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
-        TmpDT.Columns.Add("SubProyecto", GetType(String))
-        TmpDT.Columns.Add("CveVentaDetallePadre", GetType(Integer))
-
-        'TipoDescuento: 1 = Descuento * PU; 2 = Descuento por Total del concepto
-        TmpDT.Columns.Add("CvePresupuestoIngreso", GetType(Integer))
-        TmpDT.Columns.Add("CveFuenteRecaudacion", GetType(Integer))
-        'Contratos
-        TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
-        'Remisiones a Facturas
-        TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleRemision", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleCotizacion", GetType(Integer))
-
-        'Pedido2 a Facturas
-        TmpDT.Columns.Add("CveVentaDetallePedido2", GetType(Integer))
-
-        TmpDT.Columns.Add("Origen", GetType(Integer))
-        'Ordenes Servicio
-        TmpDT.Columns.Add("CveOS", GetType(Integer))
-        TmpDT.Columns.Add("CveOSDetalle", GetType(Integer))
-        TmpDT.Columns.Add("SeFacturara", GetType(Integer))
-        TmpDT.Columns.Add("Folio", GetType(Integer))
-        TmpDT.Columns.Add("Estatus", GetType(String))
-        'Ordenamiento
-        TmpDT.Columns.Add("Orden", GetType(Integer))
-        TmpDT.Columns.Add("TipoDocto", GetType(String))
-        'OC
-        TmpDT.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
-        TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
-
-        TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
-        TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaCot", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaPed2", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadInventario", GetType(Decimal))
-
-        TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
-        TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
-
-        TmpDT.Columns.Add("CveTamaño", GetType(Integer))
-        TmpDT.Columns.Add("EsCargo", GetType(Boolean))
-        TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
-        TmpDT.Columns("CvePromocionDetalle").DefaultValue = -1
-        TmpDT.Columns.Add("CantidadConversion", GetType(Integer))
-        TmpDT.Columns("CantidadConversion").DefaultValue = 0
-
-        Return TmpDT
-    End Function
     Private Function AgregarProductoServicio(ByRef TmpDT As DataTable, Cantidad As Decimal, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, CvePS As Integer, PS As String, Obs As String,
                      PU As Decimal, Descuento As Decimal,
                      CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String,
@@ -9631,7 +9538,7 @@ Partial Class Clientes
 
     End Function
     Private Function CreaObjetosVenta(Tipo As Integer, CveSubProyecto As Integer, ByRef ObjVentas As ClsVentas) As Modelos.Factura.MMensajeFactura
-        Dim TmpDT As DataTable = CreaDTVentas()
+        Dim TmpDT As DataTable = Modelos.Factura.CreaDTFactura()
         Dim UsadosBonificacion As List(Of Integer) = New List(Of Integer)
 
         TmpDT.Rows.Clear()

Ventas/ClientesAbonar.aspx.vb

@@ -832,10 +832,19 @@ Partial Class Ventas_ClientesAbonar
                 If ChkProveedorIntermediario.Checked Then
                     CveProvIntermediario = If(DdlProveedorIntermediario.SelectedValue.ToEntero <= 0, -1, DdlProveedorIntermediario.SelectedValue.ToEntero)
                 End If
-                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal,
+
+                Dim Folio = TxtFolio.Text.Trim
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    Folio = "-1"
+                End If
+
+                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, Folio, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal,
                                            GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio,
                                            TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito,
                                            CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision)
+                If Folio = "-1" Then
+                    TxtFolio.Text = ObjIE.Folio.ToString()
+                End If
             Else
                 If RblTipoPago.SelectedValue.Contiene("3") Then 'ixc
                     CveIE = DdlIngreso.SelectedValue.ToEntero

Ventas/PVCobranza.aspx.vb

@@ -632,6 +632,8 @@ Partial Class Ventas_PVCobranza
         End If
         ObjVtaRemision.Dispose()
 
+        Dim SeTimbro As Boolean = False
+
         If DbRowVenta IsNot Nothing Then
             Dim VentaActual As New Venta(UsuarioActual)
             VentaActual.CveVenta = CveVenta
@@ -924,7 +926,7 @@ Partial Class Ventas_PVCobranza
                     Dim MsgTimbrado As String = ""
                     Dim FolioFiscalFactura = ""
                     Dim DebeTimbrar As Boolean = True
-                    Dim SeTimbro As Boolean = False
+
 
                     'SI SE GENERO FACTURA DE INGRESO, TIMBRARLA DESPUES DE REALIZAR EL PAGO
                     If DebeTimbrar AndAlso respFactura IsNot Nothing Then
@@ -956,15 +958,15 @@ Partial Class Ventas_PVCobranza
                             If SeTimbro Then
                                 Dim xml = String.Format("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", respFactura.CveVenta, "XML", respFactura.SerieFolio, respFactura.Factura.TipoDocto)))
                                 msBuild.AppendFormat("{0}", xml)
+
+                                Dim pdf = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respFactura.CveVenta)))
+                                msBuild.AppendFormat("{0}", pdf)
                             Else
                                 If Not String.IsNullOrEmpty(MsgTimbrado) Then
                                     msBuild.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
                                 End If
                             End If
 
-                            Dim pdf = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respFactura.CveVenta)))
-                            msBuild.AppendFormat("{0}", pdf)
-
                             If respFactura.Factura.Inv_CveMovimiento > 0 Then
                                 msBuild.AppendFormat("<b><a target='_blank' class='Texto' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Movimiento de Almacén</a></b><br/>", respFactura.Factura.Inv_CveMovimiento)
                             End If
@@ -1004,12 +1006,11 @@ Partial Class Ventas_PVCobranza
                                     If SeTimbroNC Then
                                         Dim xml = String.Format("<ul><li><a class=""Texto"" target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar XML</a></li></ul>", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", respNC.CveVenta, "XML", respNC.SerieFolio, respNC.Factura.TipoDocto)))
                                         msBuild.AppendFormat("{0}", xml)
+
+                                        Dim pdfNC = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respNC.CveVenta)))
+                                        msBuild.AppendFormat("{0}", pdfNC)
                                     End If
 
-                                    Dim pdfNC = String.Format("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", respNC.CveVenta)))
-                                    msBuild.AppendFormat("{0}", pdfNC)
-
-
                                     If respNC IsNot Nothing AndAlso respNC.Factura IsNot Nothing AndAlso respNC.Factura.DtAnticiposAplicados IsNot Nothing Then
                                         For Each dr As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
                                             msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
@@ -1059,14 +1060,19 @@ Partial Class Ventas_PVCobranza
 
             If MsgError = "" Then
                 Try
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                    Dim ImpresionDirecta As Boolean = UsuarioActual.Empresa.Funcionalidad(109) = "1"
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso Not SeTimbro Then
+                        ImpresionDirecta = False
+                    End If
+
+                    If ImpresionDirecta Then
                         ImpresionDirectaPDF(CveVenta)
                     End If
 
                     If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                         'ENVIO DE CORREO
                         Try
-                            If respFactura IsNot Nothing AndAlso respFactura.Factura IsNot Nothing Then
+                            If respFactura IsNot Nothing AndAlso respFactura.Factura IsNot Nothing AndAlso SeTimbro Then
                                 Dim EnviarMail As Boolean = respFactura.Factura.Cliente.EnviarFactura = "Si"
                                 Dim Hilo As New System.Threading.Thread(Sub() EnviarMailFactura(EnviarMail, respFactura.Factura, UsuarioActual))
                                 Hilo.Start()
@@ -1618,9 +1624,13 @@ Partial Class Ventas_PVCobranza
         If CveBancoCuenta > 0 Then
             Dim CveIEPago As Integer = 0
             Dim ErrorConta As Boolean
+
             If String.IsNullOrEmpty(Obs) Then
-                Obs = VentaActual.SerieFolio
+                Obs = $"Folio: {VentaActual.SerieFolio}"
+            Else
+                Obs = $"{Obs}. Folio: {VentaActual.SerieFolio}"
             End If
+
             CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImporteBancos, 1, 1, Obs, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte, CveAutorizacion:=CveAutorizacion, CveSubProyecto:=CveSubProyecto)
             If CveIEPago > 0 Then
                 Dim tImportePago As Decimal = If(ImporteBancos > ImporteAbonoVenta, ImporteAbonoVenta, ImporteBancos) 'toma el importe menor para la factura

Ventas/Ventas.aspx.vb

@@ -6024,7 +6024,7 @@ Partial Class Ventas
 
                         'ACTIVA EDITAR
                         'SOLO LA PUEDE EDITAR CON PROCESO | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
-                        If UsuarioActual.TienePermisoProceso(202) And TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
+                        If (UsuarioActual.TienePermisoProceso(202) OrElse UsuarioActual.TienePermisoProceso(302)) And TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
                             BtnPermisoEditarRemision.Visible = True
                         End If
 
@@ -6182,7 +6182,7 @@ Partial Class Ventas
                         End If
                     End If
 
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ped") Then BtnPermisoEditarRemision.Visible = True
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
 
                     'OCULTAR BOTON DE EDICION SI SE FACTURA COTIZACION DESDE URL
@@ -15919,7 +15919,7 @@ Partial Class Ventas
                                             Pago.Referencia = row2.DataKey("Folio").ToString()
                                             Pago.CveVentaAmortizacion = row2.DataKey("CveVenta").ToString().ToEntero()
                                             Pago.TipoPago = "NC"
-                                            Pago.CveClientePago = ObjFactura.CveCliente
+                                            Pago.CveClientePago = row2.DataKey("CveCliente").ToString().ToEntero()
                                             Pago.Referencia = Referencia
 
                                             ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaRef, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=True)
@@ -27148,12 +27148,24 @@ Partial Class Ventas
             SbCondiciones.Append("<br><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;-La remisión está relacionada con otra factura.</b>")
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If Extra.Trim().Length > 0 Then
-            DivCanRem.Visible = False
+            SbCondiciones.AppendFormat("<br><b>*{0}</b>", Extra)
         End If
 
-        If Extra.Length > 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-            SbCondiciones.AppendFormat("<br><b>*{0}</b>", Extra)
+            DivCanRem.Visible = False
+            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
+                Using ObjVentas As New ClsVentas
+                    If ObjVentas.GetMovimientosDepositoCaja(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                        If ObjVentas.DtResultados.Rows.Count > 0 Then
+                            SbCondiciones.Append("<br><br><span style='color: red;font-size: medium;'><b>*No se puede cancelar la factura, debido a que tiene el pago ya depositado.</b></span>")
+                            BtnCancelarDocumento.Visible = False
+                        End If
+                    Else
+                        BtnCancelarDocumento.Visible = False
+                    End If
+                End Using
+            End If
         End If
 
         LbCancelarDescripcion.Text = SbCondiciones.ToString()