diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index 9cb694e84..12be6ccc0 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/Acarreos/CatChoferes.aspx.vb
@@ -212,9 +212,11 @@ Partial Class Acarreos_CatChoferes
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
HdnID.Value = GvRow.DataKey("CveChofer")
UpDatos.Update()
- If ObjAcar.RemoveChofer(HdnID.Value) Then
+ If ObjAcar.RemoveChofer(HdnID.Value, UsuarioActual.CveEmpresa) Then
CargaDatos()
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
+ Else
+ Alert("No se puede eliminar el chofer. verifique que no tenga movimientos registrados.", TipoMensaje.MsgError)
End If
ObjAcar.Dispose()
UpDatos.Update()
@@ -312,7 +314,7 @@ Partial Class Acarreos_CatChoferes
If CPTxt > 0 And CveColonia > 0 Then
Dim CP As Integer = GlobalDTGralColonias("-1", "-1", "-1", CveColonia:=CveColonia).FiltroPrimeroValor("CP", "").ToEntero
If CPTxt <> CP Then
- Alert("El código postal selecionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
+ Alert("El código postal seleccionado es diferente del codigo postal de la Colonia.", TipoMensaje.MsgAdvertencia)
End If
End If
End Sub
diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
index 6a4077447..fb134f4fb 100644
--- a/Acumuladores/EntradasUsadosResumenRep.aspx.vb
+++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb
@@ -117,7 +117,7 @@ Partial Class Acumuladores_RepEntradasUsados
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
Dim workbook As New ExcelFile()
- Dim worksheet = workbook.Worksheets.Add("Sabana de ventas")
+ Dim worksheet = workbook.Worksheets.Add("DATOS")
worksheet.InsertDataTable(dt, New InsertDataTableOptions() With
{
.ColumnHeaders = True,
@@ -129,6 +129,10 @@ Partial Class Acumuladores_RepEntradasUsados
Dim columnCount = worksheet.CalculateMaxUsedColumns()
For i = 0 To columnCount
+ 'COLUMNA DE FECHA
+ If i = 1 Then
+ worksheet.Columns(i).Style.NumberFormat = "dd/MM/yyyy"
+ End If
worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
Next
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index 1ddd0ed3a..ad8c046c4 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -530,7 +530,7 @@ Public Class ClsAF
Return Retorno
End Function
- Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date) As Boolean
+ Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_AF_ActivosFijosCompraUpdate")
@@ -541,6 +541,7 @@ Public Class ClsAF
.Add("@TipoAF", SqlDbType.Int).Value = TipoAF
.Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra
.Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
+ .Add("@Opcion", SqlDbType.Int).Value = Opcion ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula los AF en base a la CveComrpaDetalle(en tabla AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle )
End With
Try
diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb
index 40453e466..b1d38972e 100644
--- a/App_Code/ClsAcarreos.vb
+++ b/App_Code/ClsAcarreos.vb
@@ -207,26 +207,27 @@ Public Class ClsAcarreos
Return Retorno
End Function
- Public Function RemoveChofer(CveChofer As Integer) As Boolean
+ Public Function RemoveChofer(CveChofer As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Acar_ChoferesRemove")
With SqlAdapter.SelectCommand.Parameters
- .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
-
+ .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@vRetorno", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
- Retorno = True
+ Retorno = SqlAdapter.SelectCommand.Parameters("@vRetorno").Value.ToString = "1"
Catch ex As Exception
OnError("Ocurrió un error al eliminar el chofer.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
- End Function
-
-
+ End Function
+
+
#End Region
-
+
#Region "Transportistas"
Public Function AddTransportista(Transportista As String, CveUsuario As Integer, CveEmpresa As Integer, CveProveedor As Integer) As Boolean
Dim Retorno As Boolean = False
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 4ddd2d56a..3d3f33619 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1185,7 +1185,7 @@ Public Class ClsBancos
'End Function
Public Function UpdateComplementoPago(CveComplementoPago As Integer, FolioFiscal As String, CvePAC As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CvePACCancelacion As Integer = -1,
- Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "") As Boolean
+ Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "", Optional CveSATMotivoCancelacion As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_ComplementoPagoUpdate")
@@ -1199,6 +1199,7 @@ Public Class ClsBancos
.Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion
.Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
.Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion
+ .Add("@CveSATMotivoCancelacion", SqlDbType.Int).Value = CveSATMotivoCancelacion
End With
@@ -3352,8 +3353,8 @@ Public Class ClsBancos
Return Retorno
End Function
- Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
- Dim Retorno As Boolean = False
+ Public Function AddFluctuacionesBitacora(IdPoliza As Integer, Fecha As Date, TipoFluctuacion As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Integer
+ Dim Retorno As Integer = 0
DataAdapter("PA_Banc_FluctuacionesBitacoraAdd")
@@ -3363,11 +3364,13 @@ Public Class ClsBancos
.Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@vCveFluctuacionBitacora", SqlDbType.Int).Direction = ParameterDirection.Output
End With
Try
SqlAdapter.Fill(Data)
- Retorno = True
+ Retorno = SqlAdapter.SelectCommand.Parameters("@vCveFluctuacionBitacora").Value.ToString.ToEntero
+
Catch ex As Exception
OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
@@ -3394,6 +3397,52 @@ Public Class ClsBancos
Return Retorno
End Function
+
+ Public Function UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = True
+
+ DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaUpdate")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+ .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
+ .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+ Public Function FluctuacionesBitacoraPrePolizaRemove(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveFluctuacionBitacora As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = True
+
+ DataAdapter("PA_Banc_FluctuacionesBitacoraPrePolizaRemove")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+ .Add("@TipoFluctuacion", SqlDbType.SmallInt).Value = TipoFluctuacion
+ .Add("@CveFluctuacionBitacora", SqlDbType.Int).Value = CveFluctuacionBitacora
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar a la bitacora de Fluctuaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+
#End Region
#Region "B A N C O S - T A R J E T A S C R E D I T O S"
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 329fd4b7a..9f4d8f0e8 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -237,6 +237,31 @@ Public Class ClsContabilidad
Return Retorno
End Function
+
+ Public Function UpdatePrePolizasOrdenamiento(CvePrePoliza As Integer, CveEmpresa As Integer) As Integer
+ FolioPoliza = -1
+ Dim Retorno As Integer = -1
+
+ DataAdapter("PA_Conta_PrePolizas_Ordenamiento")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+ .Add("@CveEmpresa", SqlDbType.Bit).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualziar el ordenamientio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+
+
+
'''
''' Actualiza la IdPoliza de una PrePoliza
'''
@@ -6551,14 +6576,17 @@ Public Class ClsContabilidad
End Function
#Region "F L U C T U A C I O N - C A M B I A R I A"
- Public Function UpdateVentaTCValuacion(CveVenta As Integer, TCValuacion As Decimal) As Boolean
+ Public Function UpdateTCValuacion(CveVenta As Integer, CveCompra As Integer, CveIE As Integer, TCValuacion As Decimal, CveEmpresa As Integer) As Boolean
Dim Retorno = False
- DataAdapter("PA_Conta_VentasTCValuacionUpdate")
+ DataAdapter("PA_Conta_TipoCambioValuacionUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+ .Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@TCValuacion", SqlDbType.Decimal).Value = TCValuacion
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
@@ -6590,6 +6618,7 @@ Public Class ClsContabilidad
Return Retorno
End Function
+
#End Region
#Region "IDisposable Support"
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 80f566d0c..2fcd6752f 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1702,7 +1702,7 @@ Public Class ClsInventarios
#Region " INVENTARIOS - REPORTES "
- Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As Integer, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
+ Public Function RepExistenciasCostos(FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProveedores As Integer, CveConcepto As Integer, CvePS As Integer, CveEmpresa As Integer, CveAlmacen As String, CveUsuario As Integer, Optional CveClasificacion As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_RepExistenciasCostosGet")
With SqlAdapter.SelectCommand.Parameters
@@ -1710,7 +1710,7 @@ Public Class ClsInventarios
.Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
.Add("@CvePS", SqlDbType.Int).Value = CvePS
- .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+ .Add("@CveAlmacen", SqlDbType.VarChar).Value = CveAlmacen
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index aae731e67..03ccd11b5 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -1504,7 +1504,8 @@ Public Class ClsMovimientos
Optional CveBanco As Integer = -1, Optional CveCuenta As Integer = -1,
Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
- Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
+ Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
+ Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_RepRecuperacion")
With SqlAdapter.SelectCommand.Parameters
@@ -1528,6 +1529,8 @@ Public Class ClsMovimientos
.Add("@TCEspecifico", SqlDbType.Float).Value = TCEspecifico
.Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+ .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+ .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
.Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
.Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
@@ -1588,7 +1591,8 @@ Public Class ClsMovimientos
Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
Optional CveMoneda As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional Tipo As Integer = -1,
Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing,
- Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
+ Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha,
+ Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -1618,6 +1622,8 @@ Public Class ClsMovimientos
.Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion
.Add("@Tipo", SqlDbType.Int).Value = Tipo
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+ .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
+ .Add("@CveTipoTransaccion", SqlDbType.Int).Value = CveTipoTransaccion
.Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
.Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index ca387ce30..469a026bf 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -2042,7 +2042,9 @@ Public Class ClsPaginas
ObjVendedores.Dispose()
End If
If CveEmpresa <> -1 Then
+
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0} AND CveEstatus = {1} AND VendedorTipo = {2}", CveEmpresa, If(Estatus, 1, 0), VendedorTipo), "", DataViewRowState.CurrentRows)
+
GlobalDTVendedores = Dv.ToTable
Dv.Dispose()
Else
@@ -6582,7 +6584,7 @@ Public Class ClsPaginas
params.Add(New CrystalParametro("LogoPath", LogoRuta))
'VENDEDOR
- Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+ Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
If Not IsNothing(RowVendedor) Then
params.Add(New CrystalParametro("VendedorNombre", RowVendedor("Vendedor").ToString))
params.Add(New CrystalParametro("VendedorMail", RowVendedor("Correo").ToString))
@@ -7168,7 +7170,7 @@ Public Class ClsPaginas
Dim VendedorTelefono As String = ""
Dim VendedorCelular As String = ""
- Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+ Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
If Not IsNothing(RowVendedor) Then
VendedorNombre = RowVendedor("Vendedor").ToString
@@ -7526,6 +7528,7 @@ Public Class ClsPaginas
If ObjInv.GetMovimientos(Vta.Inv_CveMovimiento.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjInv.DtResultados.Rows.Count > 0 Then
+
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
If Dr IsNot Nothing Then
AlmOrigen = Dr("AlmacenOrigen").ToString
@@ -7551,7 +7554,13 @@ Public Class ClsPaginas
If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
End If
+
+
+
End If
+
+
+
End If
End If
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 2daceca7c..26432a79f 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -144,13 +144,14 @@ Public Class ClsVentas
End Sub
#End Region
- Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean
+ Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer, Optional VerificaAlmacen As Boolean = True) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_VentasGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@VerificaAlmacen", SqlDbType.Bit).Value = If(VerificaAlmacen, 1, 0)
End With
Try
@@ -162,6 +163,25 @@ Public Class ClsVentas
Return Retorno
End Function
+
+ Public Function Embarque_ManifiestoUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_AGRO_Embarque_ManifiestoUpvta", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveVenta", SqlDbType.Int).Value = cveVenta
+ .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+ .Add("@cveEmbarqueManifiesto", SqlDbType.Int).Value = cveEmbarqueManifiesto
+ .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
Public Function GetVentaTerminal(CveVentaTerminal As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_VentasGetTerminal")
@@ -1611,7 +1631,7 @@ Public Class ClsVentas
Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
- Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+ Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_GetRepPS")
@@ -1645,6 +1665,7 @@ Public Class ClsVentas
.Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
.Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+ .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
End With
@@ -1664,7 +1685,7 @@ Public Class ClsVentas
Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
- Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+ Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_GetRepPSDetalle")
@@ -1696,11 +1717,13 @@ Public Class ClsVentas
.Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra
.Add("@CveMarca", SqlDbType.Int).Value = CveMarca
.Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle
+ .Add("@MostrarLitraje", SqlDbType.Bit).Value = MostrarLitraje
.Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente
.Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable
.Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
.Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+ .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
End With
Try
@@ -1764,7 +1787,7 @@ Public Class ClsVentas
End With
Try
- Dataset = New DataSet()
+ Dataset = New DataSet()
SqlAdapter.Fill(Dataset)
Retorno = True
Catch ex As Exception
@@ -3122,7 +3145,7 @@ Public Class ClsVentas
Else
If showalert Then
- Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError)
+ Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgAdvertencia)
End If
End If
Else
@@ -3913,48 +3936,48 @@ Public Class ClsVentas
Return Retorno
End Function
- Public Function GetRepComisionesServec(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_ReporteComisionesServecGet")
-
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
- .Add("@FechaI", SqlDbType.Date).Value = FechaI
- .Add("@FechaF", SqlDbType.Date).Value = FechaF
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
- End With
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener el Reporte de Comisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
-
- Return Retorno
+ Public Function GetRepComisionesServec(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ReporteComisionesServecGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ .Add("@FechaI", SqlDbType.Date).Value = FechaI
+ .Add("@FechaF", SqlDbType.Date).Value = FechaF
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el Reporte de Comisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
End Function
- Public Function GetRepComisionesServecDetalle(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_ReporteComisionesServecDetalleGet")
-
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
- .Add("@FechaI", SqlDbType.Date).Value = FechaI
- .Add("@FechaF", SqlDbType.Date).Value = FechaF
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
- End With
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener el Reporte de Comisiones Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
-
- Return Retorno
+ Public Function GetRepComisionesServecDetalle(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ReporteComisionesServecDetalleGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ .Add("@FechaI", SqlDbType.Date).Value = FechaI
+ .Add("@FechaF", SqlDbType.Date).Value = FechaF
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el Reporte de Comisiones Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
End Function
#End Region
@@ -4790,7 +4813,7 @@ Public Class ClsVentas
End Try
Return retorno
End Function
- Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer) As Boolean
+ Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer, CveEmpresa As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
@@ -4801,6 +4824,7 @@ Public Class ClsVentas
.Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveClasificacionSup", SqlDbType.Int).Value = CveClasificacionSup
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
@@ -4994,19 +5018,19 @@ Public Class ClsVentas
Return retorno
End Function
- Public Function GetVentasNoEnviadas(CveEmpresa As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_VentasNoEnviadas")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener las ventas no enviadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ Public Function GetVentasNoEnviadas(CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_VentasNoEnviadas")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener las ventas no enviadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
#Region "Conciliación emitidas SAT"
@@ -5094,7 +5118,7 @@ Public Class ClsVentas
Return Retorno
End Function
- Public Function GetVentasGarantiaPendiente(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer, Optional ServicioDomicilio As Boolean = False) As Boolean
+ Public Function GetVentasGarantiaPendiente(CveVenta As Integer, Fecha As DateTime, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasGarantiasPendienteGet", CommandType.StoredProcedure)
@@ -5154,24 +5178,24 @@ Public Class ClsVentas
Return Retorno
End Function
- Public Function AddVentaDetalleRNCFacturada(CveVentaDetalleRNC As Integer, CveVentaDetalle As Integer, CantidadFacturada As Decimal) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_VentaDetalleRNCFacturadaAdd")
-
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveVentaDetalleRNC", SqlDbType.Int).Value = CveVentaDetalleRNC
- .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
- .Add("@CantidadFacturada", SqlDbType.Float).Value = CantidadFacturada
- End With
-
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As SqlException
- OnError("Ocurrió un error al agregar lo facturado de la RNC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
-
- Return Retorno
+ Public Function AddVentaDetalleRNCFacturada(CveVentaDetalleRNC As Integer, CveVentaDetalle As Integer, CantidadFacturada As Decimal) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_VentaDetalleRNCFacturadaAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveVentaDetalleRNC", SqlDbType.Int).Value = CveVentaDetalleRNC
+ .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
+ .Add("@CantidadFacturada", SqlDbType.Float).Value = CantidadFacturada
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As SqlException
+ OnError("Ocurrió un error al agregar lo facturado de la RNC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
End Function
Public Function GetRNCRelacionadas(CveVenta As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -5279,140 +5303,140 @@ Public Class ClsVentas
#End Region
- Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_AutorizacionLimitesAdd")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
- .Add("@Importe", SqlDbType.Money).Value = Importe
+ Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_AutorizacionLimitesAdd")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ .Add("@Importe", SqlDbType.Money).Value = Importe
.Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
- .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@TipoAutorizacion", SqlDbType.Int).Value = TipoAutorizacion
- .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
- .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
+ .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
- Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_AutorizacionLimitesGet")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
- .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
- .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
- .Add("@FechaI", SqlDbType.Date).Value = FechaI
- .Add("@FechaF", SqlDbType.Date).Value = FechaF
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, TipoDocumento As String, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_AutorizacionLimitesGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+ .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento
+ .Add("@FechaI", SqlDbType.Date).Value = FechaI
+ .Add("@FechaF", SqlDbType.Date).Value = FechaF
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
- Public Function UpdateAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer, CveVenta As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_AutorizacionlimitesEstatusUpdate")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al actualizar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ Public Function UpdateAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer, CveVenta As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_AutorizacionlimitesEstatusUpdate")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
- Public Function RemoveAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_AutorizacionLimitesRemove")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al eliminar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ Public Function RemoveAutorizacionLimite(CveAutorizacion As Integer, CveCliente As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_AutorizacionLimitesRemove")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveAutorizacion", SqlDbType.Int).Value = CveAutorizacion
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar los limites.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
#Region "C L I E N T E S V E N D E D O R E S S U B P R O Y E C T O S"
- Public Function GetClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_ClientesVendedoresSubProyectosGet")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ Public Function GetClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ClientesVendedoresSubProyectosGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
- .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 vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ .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 vendedores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
- Public Function AddClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveUsuario As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_ClientesVendedoresSubProyectosAdd")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
- .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
- .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al agregar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ Public Function AddClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveUsuario As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ClientesVendedoresSubProyectosAdd")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
- Public Function RemoveClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
- Dim Retorno As Boolean = False
- DataAdapter("PA_Vta_ClientesVendedoresSubProyectosRemove")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
- .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+ Public Function RemoveClientesVendedoresSubProyectos(CveCliente As Integer, CveVendedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Vta_ClientesVendedoresSubProyectosRemove")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al eliminar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
- Return Retorno
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar el vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return Retorno
End Function
#End Region
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 2f98c6f49..d11401ed9 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -20,7 +20,7 @@ Public Class Timbrado
Public Property CancelacionState As Integer
Public Property CancelacionMensaje As String
Public Property CancelacionFecha As Date
-
+ Public Const LigaVerificacionSAT = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"
Public Class AcuseCancelacionSAT
Public Property CodigoEstatus As String
@@ -1956,8 +1956,9 @@ Public Class Timbrado
If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\")
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
- Dim b As Byte() = cfdi.ConvertirQrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
- File.WriteAllBytes(RutaCBB, b)
+ Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+ CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB)
+ CBB = Nothing
Retorno = ""
Else
@@ -2342,7 +2343,7 @@ Public Class Timbrado
cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
- cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+ cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
For Each transp In concep.MercanciasCantidadTransporta
cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
Next
@@ -2665,8 +2666,9 @@ Public Class Timbrado
Try
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
- Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
- File.WriteAllBytes(RutaCBB, b)
+ Dim bCBB As Byte() = cfdi.QrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}&fe=ELleDg==")
+ File.WriteAllBytes(RutaCBB, bCBB)
+ bCBB = Nothing
Catch ex As Exception
OnError("Ocurrió un error al generar el QR", ex)
End Try
@@ -3268,8 +3270,9 @@ Public Class Timbrado
Try
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
- Dim b As Byte() = cfdi.QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
- File.WriteAllBytes(RutaCBB, b)
+ Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+ CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Comprobante.Total, FolioFiscal, RutaCBB)
+ CBB = Nothing
Catch ex As Exception
OnError("Ocurrió un error al generar el QR", ex)
End Try
@@ -3684,7 +3687,7 @@ Public Class Timbrado
cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
- cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+ cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
For Each transp In concep.MercanciasCantidadTransporta
cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
Next
@@ -3920,7 +3923,7 @@ Public Class Timbrado
#Region "Timbra"
If ArchivoGenerado Then
- cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, UrlServicio, TimbraProduccion)
+ cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, TimbraProduccion)
sw.Stop()
swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index accb3c4ed..959d3de1b 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -416,13 +416,19 @@
comisionNegativa = txtcomision * -1;
}
if (comisionNegativa > saldo) {
- $('#C_TxtComision').val(0);
- comision = 0;
- descuento = 0;
- txtcomision = 0;
- alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado");
- saldo = 0;
- $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+
+ //var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?");
+ //if (opcion != true) {
+ // debugger;
+ // $('#C_TxtComision').val(0);
+ // comision = 0;
+ // descuento = 0;
+ // txtcomision = 0;
+ // //alert("No es posible poner un importe Faltante/Sobrante superior a lo seleccionado");
+ // saldo = 0;
+ // $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+ //}
+
} else {
//debugger;
@@ -509,14 +515,18 @@
if (comision2 < 0) {
comisionNegativa = comision2 * -1;
}
- if (comisionNegativa > ValorTotalSeleccionado) {
- $('#C_TxtComision').val(0)
- alert("No es posible poner una comision superior a lo seleccionado")
- } else {
+ //if (comisionNegativa > ValorTotalSeleccionado) {
+ // var opcion = confirm("El importe especificado es superior a lo seleccionado, está seguro?");
+ // if (opcion != true) {
+ // debugger;
+ // $('#C_TxtComision').val(0)
+ // // alert("No es posible poner una comision superior a lo seleccionado")
+ // }
+ //} else {
saldo = ValorTotalSeleccionado + comision2 + descuento - IVA - ComisionIntermediario;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
comision = ToDouble($('#C_TxtComision').val())
- }
+ //}
}
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index da29b34eb..dc9c99b5c 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -236,17 +236,21 @@ Partial Class Bancos_DepositosCaja
End If
End If
+ Dim CveTransaccionBanco As Integer = 13
+
+ If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
+ CveTransaccionBanco = 6
+ End If
'Entrada a bancos
- FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 13)
+ FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
If Not FolioIE > 0 Then
OcurrioError = True
End If
- CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 13, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
-
- documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE)
-
+ CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
+ documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE)
+
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then
If ChkFaltante.Checked Then
@@ -256,9 +260,7 @@ Partial Class Bancos_DepositosCaja
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then
OcurrioError = True
End If
- End If
-
-
+ End If
End If
If ChkDescuento.Checked Then
@@ -268,68 +270,64 @@ Partial Class Bancos_DepositosCaja
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then
OcurrioError = True
End If
- End If
-
-
-
+ End If
+
Else
OcurrioError = True
End If
-
- For Each Gvr As GridViewRow In GvFacturas.Rows
-
- If Gvr.FCCheckBox("ChkFactura").Checked Then
- 'Datos de las Nuevas PrePolizas
- 'Entrada a Bancos
-
- Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
- Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
-
- 'Datos de las Prepolizas A Cancelar
- Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
- Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
- Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero
-
- FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
- If Not FolioIE > 0 Then
- OcurrioError = True
- Exit For
- End If
- CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-
- If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
- OcurrioError = True
- Exit For
- End If
-
- 'Asignamos la cuenta Deposito
- If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then
- OcurrioError = True
- Exit For
+ If Not OcurrioError Then
+ For Each Gvr As GridViewRow In GvFacturas.Rows
+
+ If Gvr.FCCheckBox("ChkFactura").Checked Then
+ 'Datos de las Nuevas PrePolizas
+ 'Entrada a Bancos
+
+ Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
+ Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
+
+ 'Datos de las Prepolizas A Cancelar
+ Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
+ Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
+ Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero
+
+ FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
+ If Not FolioIE > 0 Then
+ OcurrioError = True
+ Exit For
+ End If
+ CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
+ OcurrioError = True
+ Exit For
+ End If
+
+ 'Asignamos la cuenta Deposito
+ If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEOrigen, CveIE) Then
+ OcurrioError = True
+ Exit For
+ End If
+
End If
+ Next
- End If
-
- Next
+ Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
- Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEOrigen}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
+ documentos += String.Format("
Imprimir {1}
", StrEncript, "Depósito Bancario")
+ End If
- documentos += String.Format("
Imprimir {1}
", StrEncript, "Depósito Bancario")
-
If OcurrioError Then
ObjContabilidad.RollBack()
Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError)
Else
- ObjContabilidad.Commit()
- CargaDatos()
-
+ ObjContabilidad.Commit()
documentos += String.Format("Prepóliza
", NuevaCvePrePoliza)
- Alert(documentos.ToString)
-
+ Alert(documentos.ToString)
+ CargaDatos()
End If
TxtComision.Text = ""
diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index 19dc04717..cb222b49c 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -151,6 +151,7 @@
@@ -159,7 +160,7 @@
-
+
@@ -222,8 +223,7 @@
-
-
+
-
-
-
-
-
+
-
-
+
+
+
-
+
<%--
--%>
-
+
@@ -308,6 +307,7 @@
-
+
@@ -339,7 +339,7 @@
-
@@ -362,12 +362,13 @@
-
-
+
+
+
@@ -393,7 +394,7 @@
-
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 291b351fa..85dfd42e1 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1778,6 +1778,7 @@ Partial Class Compras_Compras
If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then
TmpDT = ObjeFacturas.DtResultados
TmpDT.Columns.Add("CveSATPSActualizado")
+
'TmpDT.Columns.Add("RetIVAPorcentaje")
'TmpDT.Columns.Add("RetISRPorcentaje")
'TmpDT.Columns.Add("IEPSPSPorcentaje")
@@ -2193,6 +2194,9 @@ Partial Class Compras_Compras
DdlRetISRConcepto.Items.Clear()
DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
+ If UsuarioActual.CveEmpresa = 119 Then
+ DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
+ End If
End If
UpPS.Update()
End Sub
@@ -6314,7 +6318,10 @@ Partial Class Compras_Compras
funcionalidad = 318
ConceptoContable = 244
ConceptoContableContra = 243
-
+ ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then
+ funcionalidad = 348
+ ConceptoContable = 328
+ ConceptoContableContra = 327
End If
importeMovimiento = importeRetISRAcreditable
@@ -6351,7 +6358,9 @@ Partial Class Compras_Compras
ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
funcionalidad = 317
ConceptoContable = 243
-
+ ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then
+ funcionalidad = 348
+ ConceptoContable = 327
End If
importeMovimiento = importeRetISRxAcreditar
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
@@ -6890,24 +6899,34 @@ Partial Class Compras_Compras
Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion
- If Math.Abs(DiferenciaDevolucion) > 0 Then
+
+ If TotalRealDevolucion <> 0 Then
+
+ If Math.Abs(DiferenciaDevolucion) > 0 Then
- Dim CveSubProyecto69 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero
- Dim CveClasificacion69 As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
+ Dim CveSubProyecto69 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero
+ Dim CveClasificacion69 As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
- Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero
+ Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then
+ ErrorPrepoliza = True
+ End If
+ End If
+
+
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
+ ErrorPrepoliza = True
+ End If
+ Else
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=TotalRealDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
- ErrorPrepoliza = True
- End If
End If
End If
@@ -9929,6 +9948,22 @@ Partial Class Compras_Compras
+
+ If Not TmpDT.Columns.Contains("DesvicularAF") Then
+ TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
+ End If
+
+ For Each drowAF As DataRow In TmpDT.Rows
+ If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then
+ If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then
+ Retorno = False
+ End If
+ End If
+ Next
+
+
+
+
'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
Retorno = False
@@ -10513,6 +10548,9 @@ Partial Class Compras_Compras
tipoCambioPago = 1
End If
+
+
+
If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
For Each Row As DataRow In ObjConta.DtResultados.Rows
@@ -17900,6 +17938,17 @@ Partial Class Compras_Compras
ChkAgregar.Checked = False
divagregrarotrops.Visible = False
+ DVModalAddPSChkDesvincularAF.Visible = False
+
+
+ Dim TipoAF As Integer = GvRow.DataKey("TipoAF").ToEntero
+ ChkModalDesvincularAF.Checked = False
+
+ If CveCompra > 0 AndAlso TipoAF = 2 Then
+ DVModalAddPSChkDesvincularAF.Visible = True
+ End If
+
+
UpPSS.Update()
RegistraScript("$('#divAddProducto').modal('show');")
End Sub
@@ -18297,6 +18346,38 @@ Partial Class Compras_Compras
GuardaAC()
End If
+
+
+
+
+ If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then
+
+
+ If Not TmpDT.Columns.Contains("DesvicularAF") Then
+ TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
+ End If
+
+ Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero
+ 'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then
+
+ For Each dRow As DataRow In TmpDT.Rows
+
+ If dRow("CveCompraDetalle").ToString.ToEntero = CveCompraDetalleDesvicnualarAF Then
+ dRow("TipoAF") = 0
+ dRow("CveActivoFijo") = 0
+ dRow("DesvicularAF") = True
+
+ End If
+
+ Next
+ TmpDT.AcceptChanges()
+ 'Else
+ ' Retorno = False
+ 'End If
+
+
+ End If
+
UpPS.Update()
CargaGvPersonal()
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 11c6901a0..df4a7914f 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -261,8 +261,8 @@ Partial Class PopUpVerFactura
Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
Rem1Placa = row("Rem1Placa").ToString()
NoFactura = row("NoFactura").ToString()
- Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio"))
- Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
+ Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
+ Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
@@ -394,11 +394,12 @@ Partial Class PopUpVerFactura
NoCajas = row("NoCajas").ToString()
Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
- NumberOfCode = String.Format("(01)00856977005186(13){0:ddMMyy}(10){0}01", Regex.Match(row("Cuadro").ToString(), "\\d+"), row("Fecha"))
+ NumberOfCode = String.Format("(01)00856977005186(13){1:ddMMyy}(10){0}01", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
End If
End Using
Dim params As New List(Of ReportParameter)
+
params.Add(New ReportParameter("Tamano", Tamano))
params.Add(New ReportParameter("noPallet", noPallet))
params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
@@ -410,16 +411,44 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
+
+
Dim tablaReporte As New DataTable
-
-
tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
tablaReporte.Rows.Add(tablaReporte.NewRow)
tablaReporte.Rows.Add(tablaReporte.NewRow)
Dim lrds As New List(Of ReportDataSource)
+
+ 'img
+ Dim dtqr As New DataTable
+ Dim column As DataColumn = New DataColumn("ImagenByte")
+ column.DataType = System.Type.[GetType]("System.Byte[]")
+ column.AllowDBNull = True
+ column.Caption = "ImagenByte"
+ dtqr.Columns.Add(column)
+ Dim rowqr As DataRow = dtqr.NewRow()
+
+
+ Dim bcode As New BarcodeLib.Barcode()
+ Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
+ Dim barcodebyte As Byte()
+ Using ms = New MemoryStream()
+ img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+ barcodebyte = ms.ToArray()
+ End Using
+ rowqr("ImagenByte") = barcodebyte
+
+ dtqr.Rows.Add(rowqr)
+ Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
+ rds2.Name = "dsImagenes"
+ rds2.Value = dtqr
+ lrds.Add(rds2)
+ 'endimg
+
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
lrds.Add(rds)
+
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"
@@ -952,7 +981,7 @@ Partial Class PopUpVerFactura
Dim EnvioContacto As String = ""
Dim EnvioDireccion As String = ""
Dim Guia As String = ""
- If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+ If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) Then
If ObjVentas.DtResultados.Rows.Count > 0 Then
SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
@@ -987,7 +1016,7 @@ Partial Class PopUpVerFactura
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
If CveMovimiento > 0 Then
Dim ObjInv As New ClsInventarios
- Dim ObjAcar As New ClsAcarreos
+
Dim SerieFolio As String = ""
Dim DomicilioSucursal As String = ""
Dim LugarFecha As String = ""
@@ -1008,6 +1037,10 @@ Partial Class PopUpVerFactura
Dim Ciudad As String = ""
Dim Licencia As String = ""
+
+
+
+
Dim SBDireccionO As New StringBuilder()
Dim SBDireccionD As New StringBuilder()
@@ -1022,9 +1055,8 @@ Partial Class PopUpVerFactura
Destino = Dr("AlmacenDestino").ToString
Observaciones = Dr("Observaciones").ToString
CveChofer = Dr("CveChofer").ToString
- If ObjAcar.GetChofer(CveChofer.ToEntero, UsuarioActual.CveEmpresa, -1, -1) Then
- Chofer = ObjAcar.DtResultados.FiltroPrimeroValor("Chofer")
- End If
+
+
Placa = Dr("Traslado_Placa").ToString
Recibio = Dr("Recibio").ToString
FechaEntrega = Dr("FechaEntrega").ToString
@@ -1058,10 +1090,18 @@ Partial Class PopUpVerFactura
Telefono = Dr("Telefono1").ToString
Ciudad = Dr("Ciudad").ToString
Licencia = Dr("Licencia").ToString
+
+
+ Chofer = Dr("Chofer").ToString
+ Placa = Dr("Placa").ToString
+ EspecifUnidad = Dr("Especificacion").ToString
+
+
+
End If
End If
End If
- ObjAcar.Dispose()
+
Dim Dt As DataTable = Nothing
If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -1074,18 +1114,19 @@ Partial Class PopUpVerFactura
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), "")))
+ Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+
+
If Imagen.Exists Then
- Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
params.Add(New ReportParameter("LogoPath", LogoRuta))
-
-
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
+
+
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -1100,6 +1141,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Destinatario", ""))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("Chofer", Chofer))
+ params.Add(New ReportParameter("ResponsableRecibio", Chofer))
params.Add(New ReportParameter("Placa", Placa))
params.Add(New ReportParameter("Recibio", Recibio))
params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToDateTime().ToString("dd/MM/yyyy")))
@@ -1113,6 +1155,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Telefono", Telefono))
params.Add(New ReportParameter("Ciudad", Ciudad))
params.Add(New ReportParameter("Licencia", Licencia))
+
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
End If
End If
@@ -1838,7 +1881,7 @@ Partial Class PopUpVerFactura
TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer))
- If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+ If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
Dim dtVentas As DataTable = ObjVentas.DtResultados
' se rellenan los campos de la factura
@@ -4849,7 +4892,7 @@ Partial Class PopUpVerFactura
Dim drv As DataRow = Nothing
Dim ObjVentas As New ClsVentas
- If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+ If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
drv = ObjVentas.DtResultados.FiltroPrimero("")
End If
ObjVentas.Dispose()
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 748d2bd4c..552e6d08b 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -1107,7 +1107,7 @@ Partial Class Compras_ReembolsosComprobaciones
'Otros Ingresos
If ChkAjusteOI.Checked Then
- If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 78, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, UsuarioActual.Empresa.IdCuentaOtrosIngresos, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
End If
End If
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index f62dd3a9e..e70ff49f9 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -493,7 +493,12 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
- DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+ DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+
+
+ 'DtMovimientos.DefaultView.Sort = "OrdenPP"
+ 'DtMovimientos = DtMovimientos.DefaultView.ToTable
+
GvPrePoliza.DataSource = DtMovimientos
@@ -2971,23 +2976,28 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
Catch ex As Exception
MsgError = "Error"
- End Try
+ End Try
+
+ If MsgError = "" Then
+ If Not ObjMov.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+ MsgError = "Orror al ordenar polzia"
+ End If
+ End If
If MsgError = "" Then
-
Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
- ObjIE.Commit()
- If Conta IsNot Nothing Then Conta.Commit()
-
- UPPDocumento.Update()
-
- TxtConcepto.Text = ""
- GvMov.DataBind()
+ ObjIE.Commit()
+ If Conta IsNot Nothing Then Conta.Commit()
+
+ UPPDocumento.Update()
+
+ TxtConcepto.Text = ""
+ GvMov.DataBind()
TxtFechaDocumento.Text = ""
Else
diff --git a/Empresas/119/Formatos/Cotizacion.rdlc b/Empresas/119/Formatos/Cotizacion.rdlc
index 1f9351a37..d17f84dd0 100644
--- a/Empresas/119/Formatos/Cotizacion.rdlc
+++ b/Empresas/119/Formatos/Cotizacion.rdlc
@@ -2039,62 +2039,6 @@